[Fencommits] fenserve: a CLI interface to change views

[Benja Fallenstein]

Sat Apr 28 17:40:07 EEST 2007  Benja Fallenstein <benja.fallenstein at gmail.com>
  * a CLI interface to change views
diff -rN -u old-fenserve/notetaker/Main.hs new-fenserve/notetaker/Main.hs
--- old-fenserve/notetaker/Main.hs	2007-04-28 17:40:13.000000000 +0300
+++ new-fenserve/notetaker/Main.hs	2007-04-28 17:40:13.000000000 +0300
@@ -141,11 +141,16 @@
                , h ["log"] GET  $ ok $ \() nick -> renderLog nick False
                , h ["lastlog"] GET  $ ok $ \() nick -> renderLog nick True
                , h [""]    GET  $ ok $ \() nick -> page [] nick
-               , h ()      POST $ ok $ \() (nick,line) -> do 
-                     time <- getTime; let body = readBody line
-                     modify (++[Line time nick body])
-                     case body of Body _ -> renderLog nick True
-                                  _      -> page [] nick
+               , h ()      POST $ ok $ \() (nick,line) -> do
+                     if line == ":ll" then
+                         renderLog nick True
+                       else if line == ":m" || ":m " `isPrefixOf` line then
+                         page (readPath (drop 2 line)) nick
+                       else do
+                         time <- getTime; let body = readBody line
+                         modify (++[Line time nick body])
+                         case body of Body _ -> renderLog nick True
+                                      _      -> page [] nick
                , h () POST $ ok $ \() () -> respond "Huh."
                , h (Prefix ["item"]) GET $ ok $ \[p] n -> page (readPath p) n
                ]