blob: aaa8b3faa0845250810ea86fa8f5056f15dba2db (
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")
|
