Allow channel notes

1 files changed, 11 insertions, 0 deletions

diff --git a/src/Config.hs b/src/Config.hs
index 15ce791..3c897f6 100644
--- a/src/Config.hs
+++ b/src/Config.hs
@@ -26,6 +26,7 @@ import Util
 -- channel freenode #haskell fn-haskell
 -- channel liberachat #haskell haskell
 -- channel liberachat #xmonad xmonad
+-- note fn-haskell Extracted from <i>old</i> logs!
 -- ```
 --
 -- Lines starting with '#' are ignored.
@@ -45,6 +46,8 @@ data Config' (stage :: ConfigStage) = Config
   , confLogsDir :: FilePath
   , confPort :: Int
       -- ^ Port at which to host the HTTP server
+  , confNotes :: Map Text Text
+      -- ^ alias => note; user-facing note about the logs for this channel
 
   , econfChannels :: IfFull stage [Channel]
       -- ^ Network-channel pairs, in user-specified order
@@ -90,6 +93,7 @@ initConfig = Config
   { uconfChannels = SnocNil
   , confLogsDir = error "config: Log directory not set with 'logs'"
   , confPort = 8000
+  , confNotes = mempty
   , econfChannels = ()
   , econfChan2Alias = ()
   , econfAlias2Chan = ()
@@ -120,6 +124,13 @@ parseLine conf line =
              | all (not . null) [network, chan, alias]
              -> conf { uconfChannels = uconfChannels conf `Snoc` (T.pack network, T.pack chan, T.pack alias) }
            _ -> error $ "config: Invalid channel spec: " ++ trim rest
+       "note" ->
+         case break (== ' ') (dropWhile isSpace rest) of
+           (alias, ' ' : note) ->
+             conf { confNotes =
+                      Map.insertWith (error ("config: Duplicate note for '" ++ alias ++ "'"))
+                                     (T.pack alias) (T.pack note) (confNotes conf) }
+           _ -> error "config: Invalid note line, no note"
        _ -> error $ "config: Invalid line with command '" ++ cmd ++ "'"
   where
     trim :: String -> String