From e38b2b2e5f2c6b32fbdb9adcd8a7c48f8fa58a3b Mon Sep 17 00:00:00 2001 From: Lars-Dominik Braun Date: Mon, 4 May 2015 10:13:54 +0200 Subject: Move permalink to proto name --- Main.hs | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) (limited to 'Main.hs') diff --git a/Main.hs b/Main.hs index 2f83f5a..d22c515 100644 --- a/Main.hs +++ b/Main.hs @@ -133,11 +133,9 @@ protoentry db (ident, p) = , data_ "year" (maybe "" T.pack $ field "year") ] $ do h3_ $ do - toHtml $ pname p + a_ [href_ (T.pack $ '#':ident), title_ "permalink", class_ "permalink"] $ toHtml $ pname p " " maybe "" (small_ . toHtml) $ plongname p - " " - small_ $ a_ [href_ (T.pack $ '#':ident), title_ "permalink", class_ "permalink"] "ΒΆ" dl_ $ do protopapers pubs protodesc p -- cgit v1.2.3