rhi/lang
1
0
Fork 0
Code Issues 2 Pull requests Releases Wiki Activity

put lántas svgs in a directory named after the page

Browse source
This commit is contained in:
Rhiannon Morris 2021-05-20 23:32:08 +02:00
parent bb903be015
commit c493595407
2 changed files with 10 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

11
langfilter/LaantasImage.hs
View file

@ -92,12 +92,15 @@ toTitle = Text.filter \c -> c /= '\\' && c /= '#'
makeImage :: Image -> IO Inline
makeImage (Image {..}) = do
exe <- getEnv "LAANTAS_SCRIPT"
dir <- getEnv "DIRNAME"
exe <- getEnv "LAANTAS_SCRIPT"
parent <- dropFileName <$> getEnv "FILENAME"
dir <- getEnv "DIRNAME"
let fullFile = dir </> file
let relFile = Text.pack $ makeRelative parent fullFile
callProcess exe
["-S", show size, "-K", show stroke, "-W", show width,
"-C", Text.unpack color, "-t", Text.unpack text, "-o", dir </> file]
pure $ Pandoc.Image ("", ["scr","laantas"], []) [] (Text.pack file, title)
"-C", Text.unpack color, "-t", Text.unpack text, "-o", fullFile]
pure $ Pandoc.Image ("", ["scr","laantas"], []) [] (relFile, title)
weirdUrl :: Char -> Bool
weirdUrl c = c `elem` ("#\\?&_/.·,{} " :: String)