diff options
| author | Chris Wells <chris@mathematicaster.org> | 2024-12-30 21:23:52 -0600 |
|---|---|---|
| committer | Chris Wells <chris@mathematicaster.org> | 2024-12-30 21:23:52 -0600 |
| commit | 42a2d42eecf551dd1990c97c1ae2586cd46674be (patch) | |
| tree | 873e80c07aca811167aa06caa19de7334c94048d /src/WWW/HW.hs | |
| download | main-42a2d42eecf551dd1990c97c1ae2586cd46674be.tar main-42a2d42eecf551dd1990c97c1ae2586cd46674be.tar.gz main-42a2d42eecf551dd1990c97c1ae2586cd46674be.tar.bz2 main-42a2d42eecf551dd1990c97c1ae2586cd46674be.tar.lz main-42a2d42eecf551dd1990c97c1ae2586cd46674be.tar.xz main-42a2d42eecf551dd1990c97c1ae2586cd46674be.tar.zst main-42a2d42eecf551dd1990c97c1ae2586cd46674be.zip | |
Started writing the main utilities for my webpage
Diffstat (limited to 'src/WWW/HW.hs')
| -rw-r--r-- | src/WWW/HW.hs | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/src/WWW/HW.hs b/src/WWW/HW.hs new file mode 100644 index 0000000..0740fe6 --- /dev/null +++ b/src/WWW/HW.hs @@ -0,0 +1,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") |