From 42a2d42eecf551dd1990c97c1ae2586cd46674be Mon Sep 17 00:00:00 2001
From: Chris Wells <chris@mathematicaster.org>
Date: Mon, 30 Dec 2024 21:23:52 -0600
Subject: Started writing the main utilities for my webpage

---
 src/WWW/HW.hs | 14 ++++++++++++++
 1 file changed, 14 insertions(+)
 create mode 100644 src/WWW/HW.hs

(limited to 'src/WWW/HW.hs')

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")
-- 
cgit v1.2.3