diff options
| author | Lars-Dominik Braun <lars@6xq.net> | 2017-11-02 11:58:32 +0100 |
|---|---|---|
| committer | Lars-Dominik Braun <lars@6xq.net> | 2017-11-02 11:58:32 +0100 |
| commit | 7fb8756787ae8aaeba4fa0d1b2eeb703516d8c23 (patch) | |
| tree | cc80292cfc594c5a8c93e3b0b0687c6d8653c24f /src/Render.hs | |
| parent | 21efd806a720ed959177f27c3094e5eecc698aac (diff) | |
| download | comatose-7fb8756787ae8aaeba4fa0d1b2eeb703516d8c23.tar.gz comatose-7fb8756787ae8aaeba4fa0d1b2eeb703516d8c23.tar.bz2 comatose-7fb8756787ae8aaeba4fa0d1b2eeb703516d8c23.zip | |
Add copy&pasteable BibTeX entries to HTML
Diffstat (limited to 'src/Render.hs')
| -rw-r--r-- | src/Render.hs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/Render.hs b/src/Render.hs index 146b68d..7b8bab2 100644 --- a/src/Render.hs +++ b/src/Render.hs @@ -10,6 +10,7 @@ import Data.Maybe (catMaybes) import qualified Data.Text as T import Data.Text.Encoding (decodeUtf8) import Text.BibTeX.Entry as E +import Text.BibTeX.Format (entry) import qualified Data.Map as M import Text.Parsec.Error import Text.ParserCombinators.Parsec.Prim @@ -114,6 +115,8 @@ bibentry bib = do span_ [class_ "author"] $ htmlLookup "author" ", " span_ [class_ "year"] $ htmlLookup "year" + " " + button_ [type_ "button", class_ "btn btn-light btn-sm", data_ "toggle" "popover", title_ "BibTeX", data_ "content" $ T.pack $ entry bib] "BibTeX" -- | References section references :: [E.T] -> Html () |