blob: 1ce601f8a6d6e019459a11d23ea3b7f3a50ba5be (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
module WWW.HW
( removeEnv
, removeSolutions
-- * LaTeX utils
, LaTeX (..)
, texmap
-- * Hakyll utils
, module Hakyll.TeX.HaTeX
, module Hakyll.TeX.LaTeX
) where
-- import Prolog
import Hakyll.TeX.HaTeX
import Hakyll.TeX.LaTeX
import Text.LaTeX.Base.Syntax
removeEnv :: (String -> Bool) -> LaTeX -> LaTeX
removeEnv p = texmap (\case { TeXEnv s _ _ -> p s; _ -> False }) $ pure mempty
removeSolutions :: LaTeX -> LaTeX
removeSolutions = removeEnv (== "solution")
|
