From 07fa7ad1000f6ac6fd76fc9233c150bdbde2e67b Mon Sep 17 00:00:00 2001
From: defanor <defanor@uberspace.net>
Date: Thu, 23 Nov 2017 06:20:50 +0300
Subject: Allow user-defined digits and radices for reference numbering

---
 Pancake.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'Pancake.hs')

diff --git a/Pancake.hs b/Pancake.hs
index 36234fb..785c879 100644
--- a/Pancake.hs
+++ b/Pancake.hs
@@ -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"
-- 
cgit v1.2.3