QOL items

src/clj/auto_ap/ssr/components/link_dropdown.clj

@@ -14,7 +14,7 @@
 
      (com/a-icon-button {:x-ref "link" "@click.prevent" "show=!show; $nextTick(() => popper.update());" :class "relative"}
                         svg/paperclip
-                        (com/badge {} (count links)))
+                        (com/badge {:color "blue"} (count links)))
      [:div.divide-y.divide-gray-200.bg-white.rounded-lg.shadow.z-50 (hx/alpine-appear {:x-ref "tooltip" :x-show "show" :data-key "show"})
       [:div {:class "p-3 overflow-y-auto text-sm text-gray-700 dark:text-gray-200"}
        [:div.flex.flex-col.gap-y-2

src/clj/auto_ap/ssr/components/tags.clj

@@ -21,4 +21,9 @@
    children))
 
 (defn badge- [params & children]
-  [:div {:class (hh/add-class "absolute inline-flex items-center justify-center w-6 h-6 text-xs font-black text-white bg-red-300 border-3 border-white rounded-full -top-2 -right-2 dark:border-gray-900" (:class params))} children])
+  [:div {:class (-> (hh/add-class "absolute inline-flex items-center justify-center w-6 h-6 text-xs font-black text-white 
+                               border-3 border-white rounded-full -top-2 -right-2 dark:border-gray-900"
+                                  (:class params)
+                                  )
+                    (hh/add-class (or (some-> (:color params) (#(str "bg-" % "-300")))
+                                      "bg-red-300")))} children])