summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorLars-Dominik Braun <lars@6xq.net>2017-11-02 11:58:32 +0100
committerLars-Dominik Braun <lars@6xq.net>2017-11-02 11:58:32 +0100
commit7fb8756787ae8aaeba4fa0d1b2eeb703516d8c23 (patch)
treecc80292cfc594c5a8c93e3b0b0687c6d8653c24f /src
parent21efd806a720ed959177f27c3094e5eecc698aac (diff)
downloadcomatose-7fb8756787ae8aaeba4fa0d1b2eeb703516d8c23.tar.gz
comatose-7fb8756787ae8aaeba4fa0d1b2eeb703516d8c23.tar.bz2
comatose-7fb8756787ae8aaeba4fa0d1b2eeb703516d8c23.zip
Add copy&pasteable BibTeX entries to HTML
Diffstat (limited to 'src')
-rw-r--r--src/Render.hs3
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 ()