blob: 0740fe62de287a201753702e3b4d2fb9f97f1680 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
module WWW.HW
( removeEnv
, removeSolutions
) where
import Prolog
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")
|
