Add images and span links

Author: caumond

resources/public/images/factory.jpg

@@ -18,7 +18,7 @@
 (def images
   (->> [{:url "/images/logos/hephaistox_logo.png"
          :alt "Hephaistox logo"
-         :img-id :hephaistox-log
+         :img-id :hephaistox-logo
          :label "Hephaistox"}
         {:url "/images/logos/javascript.png"
          :alt "Javascript logo"
@@ -111,4 +111,4 @@
   [opts img]
   (if (nil? img) (cicon-img* {} opts) (cicon-img* opts img)))
 
-(defn cicon "A font awesome icon" [opts fa] [:i.fa (assoc opts :class fa)])
+(defn cicon "A font awesome icon" [opts fa] [:i.fa (merge-opts opts {:class fa})])

resources/public/images/factory_plain.jpg

@@ -48,3 +48,9 @@
                                    :left "0"
                                    :bottom "1.5em"}}
       "Download"])])
+
+(defn cspan-link
+  "An hiccup `:a` tag to the [[auto-web.components.link]].
+  `content` is what is wrapped by the `:a` tag."
+  [opts link & content]
+  [:a (merge-opts (link-opts link) (assoc-in opts [:style :text-decoration] "underline")) content])

src/cljc/auto_web/components/img.cljc

@@ -56,6 +56,15 @@
           :rel "stylesheet"
           :href url}])
 
+(defn print-css-meta
+  "Add a css stylesheet used for printing"
+  [{:keys [url]
+    :as _link}]
+  [:link {:type "text/css"
+          :rel "stylesheet"
+          :media "print"
+          :href url}])
+
 (defn css-meta-preloaded
   "Add a css stylesheet"
   [{:keys [url]