On Sat, Aug 22, 2009 at 23:27:33 -0400, [email protected] wrote: > Sat Aug 22 21:14:49 EDT 2009 [email protected] > * Support command line arguments in PAGER or DARCS_PAGER > For example: > > PAGER="less -is" darcs help
Looks good to me. Applied, thanks! No comments below. > viewDocWith pr msg = do > isTerminal <- hIsTerminalDevice stdout > if isTerminal && lengthGreaterThan (20 :: Int) (lines $ renderString msg) > - then do viewer <- get_viewer > - pipeDocToPager viewer [] pr msg > + then do viewerPlusArgs <- get_viewer > + let (viewer:args) = words viewerPlusArgs > + pipeDocToPager viewer args pr msg > `ortryrunning` pipeDocToPager "less" [] pr msg > `ortryrunning` pipeDocToPager "more" [] pr msg -- Eric Kow <http://www.nltg.brighton.ac.uk/home/Eric.Kow> PGP Key ID: 08AC04F9
pgpRdu3zHgH9v.pgp
Description: PGP signature
_______________________________________________ darcs-users mailing list [email protected] http://lists.osuosl.org/mailman/listinfo/darcs-users
