Fix style tag removal.

chr15m · Aug 20, 2020 · d0b326b · d0b326b
1 parent a2be9b4
commit d0b326b
Show file tree

Hide file tree

Showing 3 changed files with 5 additions and 4 deletions.
diff --git a/public/index.html b/public/index.html
@@ -5,9 +5,9 @@
     <meta http-equiv="X-UA-Compatible" content="IE=edge">
     <meta name="viewport" content="width=device-width, initial-scale=1">
     <meta name="mobile-web-app-capable" content="yes">
-    <link class="css" href="codemirror.css" rel="stylesheet" type="text/css" />
-    <link class="css" href="erlang-dark.css" rel="stylesheet" type="text/css" />
-    <link class="css" href="dialog.css" rel="stylesheet" type="text/css" />
+    <link class="css rm" href="codemirror.css" rel="stylesheet" type="text/css" />
+    <link class="css rm" href="erlang-dark.css" rel="stylesheet" type="text/css" />
+    <link class="css rm" href="dialog.css" rel="stylesheet" type="text/css" />
     <link class="css" href="style.css" rel="stylesheet" type="text/css" id="style" />
     <link id="favicon" href="logo.png" rel="icon" type="image/png">
     <title>Slingcode</title>

diff --git a/src/slingcode-bootleg.clj b/src/slingcode-bootleg.clj
@@ -4,6 +4,6 @@
       js (slurp "../build/js/main.js")]
   (-> template
       (enlive/at [:link#style] (enlive/substitute (convert-to [:style css] :hickory)))
-      (enlive/at [:link.css] (enlive/substitute nil))
+      (enlive/at [:link.rm] nil)
       (enlive/at [:link#favicon] (enlive/substitute (convert-to [:link {:rel "icon" :href logo}] :hickory)))
       (enlive/at [:script#entrypoint] (enlive/substitute (convert-to [:script js] :hickory)))))
diff --git a/src/slingcode-site-bootleg.clj b/src/slingcode-site-bootleg.clj
@@ -1,6 +1,7 @@
 (let [template (html "../build/index.html")
       template (enlive/at template [:head] (enlive/append (html "slingcode-social.html" :hickory-seq))) 
       template (enlive/at template [:link] (fn [t] (update-in t [:attrs :href] (fn [a] (str "public/" a)))))
+      template (enlive/at template [:link.rm] nil)
       template (enlive/at template [:script] (enlive/substitute nil))
       static (html "slingcode-static.html")
       static (enlive/at static [:section#about] (enlive/content (markdown (str "../" (last *command-line-args*)) :hickory-seq)))