[Fencommits] fenserve: show list of nicks next to items in the notetaker

[Benja Fallenstein]

Thu May 10 15:17:44 EEST 2007  Benja Fallenstein <benja.fallenstein at gmail.com>
  * show list of nicks next to items in the notetaker
diff -rN -u old-fenserve/notetaker/Main.hs new-fenserve/notetaker/Main.hs
--- old-fenserve/notetaker/Main.hs	2007-05-10 15:17:55.000000000 +0300
+++ new-fenserve/notetaker/Main.hs	2007-05-10 15:17:55.000000000 +0300
@@ -8,7 +8,7 @@
 import Data.Generics (Typeable)
 import Data.Binary hiding (get,put)
 import Data.Char
-import Data.List (intersperse, isPrefixOf, inits)
+import Data.List (intersperse, isPrefixOf, inits, nub)
 import Data.Maybe (fromMaybe)
 import Text.Printf
 import System.Time
@@ -63,8 +63,11 @@
                      | i <- [0..length notes - 1]] ++ "\n</ol>" where
     
     link [] _ = ""
-    link [Line t _ _] _ = " <span class='loglink'>(<a href='/log#"++show t++"'>log</a>)</span>"
-    link _ p = " <span class='loglink'>(<a href='/log/"++renderPath p++"'>log</a>)</span>"
+    link [Line t n _] _ = " <span class='loglink'>(" ++ n
+                       ++ "; <a href='/log#"++show t++"'>log</a>)</span>"
+    link ls p = " <span class='loglink'>("
+             ++ (concat $ intersperse ", " $ nub $ map lineNick ls)
+             ++ "; <a href='/log/"++renderPath p++"'>log</a>)</span>"
     
     renderNote p (Note title False ls cs) = "\n<li>" ++ title ++ link ls p ++ renderNotes p nick cs
     renderNote p (Note title True ls cs) =