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
Show stats Download patch file Download diff file Expand all files Collapse all files

4
Makefile
View file

@ -37,8 +37,10 @@ build: $(OUTPUT)
$(BUILDDIR)/%.html: $(PAGESDIR)/%.md $(TEMPLATE) $(LANGFILTER) $(LAANTAS_SCRIPT) $(BUILDDIR)/%.html: $(PAGESDIR)/%.md $(TEMPLATE) $(LANGFILTER) $(LAANTAS_SCRIPT)
@echo "[pandoc] $<" @echo "[pandoc] $<"
mkdir -p $(dir $@) mkdir -p $(dir $@)
mkdir -p $(basename $@)
LAANTAS_SCRIPT="$(LAANTAS_SCRIPT)" \ LAANTAS_SCRIPT="$(LAANTAS_SCRIPT)" \
DIRNAME="$(subst $(PAGESDIR),$(BUILDDIR),$(dir $<))" \ DIRNAME="$(basename $@)" \
FILENAME="$@" \
pandoc -s --toc --template $(TEMPLATE) -o $@ $< \ pandoc -s --toc --template $(TEMPLATE) -o $@ $< \
--filter $(LANGFILTER) --filter $(LANGFILTER)

7
langfilter/LaantasImage.hs
View file

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