Allow user-defined digits and radices for reference numbering

1 files changed, 4 insertions, 0 deletions

diff --git a/Pancake/Configuration.hs b/Pancake/Configuration.hs
index 5c52dda..2d20985 100644
--- a/Pancake/Configuration.hs
+++ b/Pancake/Configuration.hs
@@ -44,6 +44,9 @@ data Config = Config { commands :: M.Map String String
                      , historyDepth :: Int
                      -- ^ The amount of history entries (into either
                      -- direction) to keep.
+                     , referenceDigits :: String
+                     -- ^ Digits to use for reference numbering, must
+                     -- be unique.
                      } deriving (Generic, Show)
 
 -- | For configuration parsing.
@@ -78,6 +81,7 @@ instance Default Config where
       , ("vs", "gopher://gopher.floodgap.com/7/v2/vs?")]
     , paginate = True
     , historyDepth = 100
+    , referenceDigits = "0123456789"
     }
 
 -- | Loads configuration from an XDG config directory.