diff options
| -rw-r--r-- | Main.hs | 9 | ||||
| -rw-r--r-- | comatose.cabal | 2 |
2 files changed, 10 insertions, 1 deletions
@@ -14,6 +14,7 @@ import Text.Parsec.Error import Text.ParserCombinators.Parsec.Prim import qualified Data.ByteString.Lazy as BS import System.FilePath ((<.>), splitExtension) +import Network.URI (isReserved, escapeURIString) import Lucid import Paths_comatose @@ -87,6 +88,9 @@ maybeToHtml = maybe (toHtml ("" :: String)) toHtml head' [] = Nothing head' (x:_) = Just x +scholarSearch q = "http://scholar.google.com/scholar?q=" ++ escapeURIString isReserved q +resolveDoi q = "http://doi.org/" ++ q + protoentry :: Database -> (String, Protocol) -> Html () protoentry db (ident, p) = tr_ [id_ $ T.pack ident] $ do let @@ -95,6 +99,10 @@ protoentry db (ident, p) = tr_ [id_ $ T.pack ident] $ do field key = firstpub >>= (return . E.fields) >>= lookup key td_ $ toHtml $ pname p td_ $ maybeToHtml $ plongname p + td_ $ do + maybe "" (\x -> a_ [href_ $ T.pack $ resolveDoi x] "doi") $ field "doi" + " " + maybe "" (\x -> a_ [href_ $ T.pack $ scholarSearch x] "Google") $ field "title" td_ $ maybeToHtml $ field "year" td_ [class_ "features"] $ ul_ $ forM_ (sort $ M.keys $ pfeatures p) (\x -> li_ $ toHtml $ maybe ("" :: String) fname $ M.lookup x (dfeatures db)) @@ -126,6 +134,7 @@ page db = doctypehtml_ $ do tr_ $ do th_ "Name" th_ "" + th_ "" th_ "Year" th_ "Features" tbody_ $ forM_ (M.toList $ dalgos db) (protoentry db) diff --git a/comatose.cabal b/comatose.cabal index 9f70b88..0847041 100644 --- a/comatose.cabal +++ b/comatose.cabal @@ -19,7 +19,7 @@ executable comatose main-is: Main.hs -- other-modules: -- other-extensions: - build-depends: base >=4.6 && <4.7, bibtex, yaml, containers, parsec, lucid, bytestring, text, filepath + build-depends: base >=4.6 && <4.7, bibtex, yaml, containers, parsec, lucid, bytestring, text, filepath, network -- hs-source-dirs: default-language: Haskell2010 |