|  | @@ -22,14 +22,16 @@
 | 
	
		
			
				|  |  |  
 | 
	
		
			
				|  |  |  (defn icon
 | 
	
		
			
				|  |  |    [icon' & [opts]]
 | 
	
		
			
				|  |  | -  (when-let [item (cond
 | 
	
		
			
				|  |  | -                    (and (= :emoji (:type icon')) (:id icon'))
 | 
	
		
			
				|  |  | -                    [:em-emoji (merge {:id (:id icon')
 | 
	
		
			
				|  |  | -                                       :style {:line-height 1}}
 | 
	
		
			
				|  |  | -                                 opts)]
 | 
	
		
			
				|  |  | -
 | 
	
		
			
				|  |  | -                    (and (= :tabler-icon (:type icon')) (:id icon'))
 | 
	
		
			
				|  |  | -                    (ui/icon (:id icon') opts))]
 | 
	
		
			
				|  |  | +  (let [icon' (if (or (string? icon') (keyword? icon'))
 | 
	
		
			
				|  |  | +                {:type :tabler-icon :id (name icon')} icon')
 | 
	
		
			
				|  |  | +        item (cond
 | 
	
		
			
				|  |  | +               (and (= :emoji (:type icon')) (:id icon'))
 | 
	
		
			
				|  |  | +               [:em-emoji (merge {:id (:id icon')
 | 
	
		
			
				|  |  | +                                  :style {:line-height 1}}
 | 
	
		
			
				|  |  | +                            opts)]
 | 
	
		
			
				|  |  | +
 | 
	
		
			
				|  |  | +               (and (= :tabler-icon (:type icon')) (:id icon'))
 | 
	
		
			
				|  |  | +               (ui/icon (:id icon') opts))]
 | 
	
		
			
				|  |  |      (if (:color? opts)
 | 
	
		
			
				|  |  |        [:span.flex.items-center.ls-icon-color-wrap
 | 
	
		
			
				|  |  |         {:style {:color (or (some-> icon' :color) "inherit")}} item]
 | 
	
	
		
			
				|  | @@ -70,11 +72,11 @@
 | 
	
		
			
				|  |  |    (if @*tabler-icons
 | 
	
		
			
				|  |  |      @*tabler-icons
 | 
	
		
			
				|  |  |      (let [result (->> (keys (bean/->clj js/tablerIcons))
 | 
	
		
			
				|  |  | -                      (map (fn [k]
 | 
	
		
			
				|  |  | -                             (-> (string/replace (csk/->Camel_Snake_Case (name k)) "_" " ")
 | 
	
		
			
				|  |  | -                                 (string/replace-first "Icon " ""))))
 | 
	
		
			
				|  |  | -                      ;; FIXME: somehow those icons don't work
 | 
	
		
			
				|  |  | -                      (remove #{"Ab" "Ab 2" "Ab Off"}))]
 | 
	
		
			
				|  |  | +                   (map (fn [k]
 | 
	
		
			
				|  |  | +                          (-> (string/replace (csk/->Camel_Snake_Case (name k)) "_" " ")
 | 
	
		
			
				|  |  | +                            (string/replace-first "Icon " ""))))
 | 
	
		
			
				|  |  | +                   ;; FIXME: somehow those icons don't work
 | 
	
		
			
				|  |  | +                   (remove #{"Ab" "Ab 2" "Ab Off"}))]
 | 
	
		
			
				|  |  |        (reset! *tabler-icons result)
 | 
	
		
			
				|  |  |        result)))
 | 
	
		
			
				|  |  |  
 |