Load extra.css when available

SURFnet · Dec 5, 2024 · aee869f · aee869f
1 parent 9f07fb6
commit aee869f
Showing 1 changed file with 5 additions and 2 deletions.
diff --git a/src/nl/jomco/apie/report.clj b/src/nl/jomco/apie/report.clj
@@ -35,7 +35,7 @@
 (defn- with-issues [interactions]
   (filter :issues interactions))
 
-(def css-resource "style.css")
+(def css-resources ["style.css" "extra.css"])
 
 (defn- interactions-result [interactions]
   [:section.result
@@ -658,7 +658,10 @@
     [:head
      [:title (report-title base-url)]
      [:meta {:charset "UTF-8"}]
-     [:style (-> css-resource (io/resource) (slurp) (raw-css))]]
+     [:style (->> css-resources
+                  (map #(some-> % io/resource slurp))
+                  (string/join)
+                  (raw-css))]]
     [:body
      [:header
       [:h1 (report-title base-url)]]