summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLars-Dominik Braun <lars@6xq.net>2015-05-04 10:11:51 +0200
committerLars-Dominik Braun <lars@6xq.net>2015-05-04 10:11:51 +0200
commitb5a95779534b50a037ee8956786f56a05b1cfba0 (patch)
tree9e52c273dd3302fce3053477807f04185cfa1bc2
parentc1543256be4081f9810cd511a17d23920ba23cc9 (diff)
downloadcomatose-b5a95779534b50a037ee8956786f56a05b1cfba0.tar.gz
comatose-b5a95779534b50a037ee8956786f56a05b1cfba0.tar.bz2
comatose-b5a95779534b50a037ee8956786f56a05b1cfba0.zip
Show description
-rw-r--r--Main.hs7
1 files changed, 7 insertions, 0 deletions
diff --git a/Main.hs b/Main.hs
index 4dbc74e..2f83f5a 100644
--- a/Main.hs
+++ b/Main.hs
@@ -111,6 +111,12 @@ protopapers pubs = do
then p_ $ bibentry $ head pubs
else ol_ $ forM_ pubs (li_ . bibentry)
+protodesc :: Protocol -> Html ()
+protodesc Protocol { pdescription = Nothing } = mempty
+protodesc Protocol { pdescription = Just desc } = do
+ dt_ "Description"
+ dd_ $ p_ $ toHtml desc
+
protoentry :: Database -> (String, Protocol) -> Html ()
protoentry db (ident, p) =
let
@@ -134,6 +140,7 @@ protoentry db (ident, p) =
small_ $ a_ [href_ (T.pack $ '#':ident), title_ "permalink", class_ "permalink"] "ΒΆ"
dl_ $ do
protopapers pubs
+ protodesc p
protofeatures db p
extcss url = link_ [rel_ "stylesheet", type_ "text/css", href_ url]