From d0b326b57f833b4d2542eb7f41b9e6b8f99c7a1b Mon Sep 17 00:00:00 2001
From: Chris McCormick <chris@mccormick.cx>
Date: Thu, 20 Aug 2020 17:21:26 +0800
Subject: [PATCH] Fix style tag removal.

---
 public/index.html              | 6 +++---
 src/slingcode-bootleg.clj      | 2 +-
 src/slingcode-site-bootleg.clj | 1 +
 3 files changed, 5 insertions(+), 4 deletions(-)

diff --git a/public/index.html b/public/index.html
index 6e9e57d..3da9bfb 100644
--- 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
index 9891635..63d8322 100644
--- 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
index 4139c63..1993081 100644
--- 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)))