.

Author: dcostaras

src/lambdaisland/ornament.cljc

@@ -563,9 +563,11 @@
      (let [varsym (symbol (name (ns-name *ns*)) (name sym))
            css-class (classname-for varsym)
            [styles fn-tails] (split-with (complement fn-tail?) styles)
+           qualified-symbol (qualify-sym &env tagname)
            tag (if (keyword? tagname)
                  tagname
-                 (get-in @registry [(qualify-sym &env tagname) :tag]))
+                 (or (get-in @registry [qualified-symbol :tag])
+                     qualified-symbol))
            rules (cond
                    (keyword? tagname)
                    (vec styles)