diff options
author | defanor <defanor@uberspace.net> | 2017-11-23 06:20:50 +0300 |
---|---|---|
committer | defanor <defanor@uberspace.net> | 2017-11-23 06:20:50 +0300 |
commit | 07fa7ad1000f6ac6fd76fc9233c150bdbde2e67b (patch) | |
tree | c62b1466168392c3d04e1827b31b317428a6251c /Pancake.hs | |
parent | b6b3b20e30bf7e05a317522b7c5284a4f7b92223 (diff) |
Allow user-defined digits and radices for reference numbering
Diffstat (limited to 'Pancake.hs')
-rw-r--r-- | Pancake.hs | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -63,7 +63,7 @@ printDoc uri doc = do term <- liftIO setupTermFromEnv st <- get let cols = fromMaybe 80 $ getCapability term termColumns - l = renderDoc cols doc + l = renderDoc cols (referenceDigits $ conf st) doc textLines = rLines l modify (\s -> s { rendered = l }) if embedded st @@ -217,7 +217,7 @@ command Help = do st <- get putErrLn $ intercalate "\n" [ "[q]uit, [b]ack, [f]orward, [h]elp, [r]eload, [re]load config" - , "type a number to follow a link, \"?<number>\" to print its URI" + , "\"[.]<number>\" to follow a link, \"?<number>\" to print its URI" , "type an URI (absolute or relative) to open it" , "prefix it with a type (html, txt, org, etc) to choose a reader"] when (paginate $ conf st) $ putErrLn "RET to scroll" |