use person-remove icon for remove button

GaiwanTeam · Sep 5, 2024 · 34b9da8 · 34b9da8
1 parent b7b137f
commit 34b9da8
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 2 deletions.
diff --git a/src/co/gaiwan/compass/html/graphics.clj b/src/co/gaiwan/compass/html/graphics.clj
@@ -14,7 +14,6 @@
     [:path.triangle {:d "m 27.014067,26.404815 14.950042,-8.631421 -0.0025,-0.0028 -11.790743,-3.159345 -3.159301,11.790767 z"}]
     [:path.leg {:d "M 39.334691,86.310778 C 37.137742,85.592591 35.93936,83.229026 36.658422,81.032361 l 9.585531,-31.540687 5.276789,-2.675454 2.675453,5.276791 -9.584714,31.542313 c -1.000278,2.14767 -3.166747,3.329559 -5.27679,2.675454 z"}]]))
 
-
 (o/defstyled hamburger :svg
   {:stroke-width "13%"
    :stroke-linecap "round"
@@ -24,6 +23,14 @@
     (for [x [1 7.5 14]]
       [:path {:d (str "M 2," x " H 18")}])]))
 
+(o/defstyled person-remove :svg
+  ([]
+   [:<> {:viewBox "0 0 24 24"}
+    [:rect {:fill "none", :height "24", :width "24"}]
+    [:path
+     {:d
+      "M14,8c0-2.21-1.79-4-4-4S6,5.79,6,8s1.79,4,4,4S14,10.21,14,8z M17,10v2h6v-2H17z M2,18v2h16v-2c0-2.66-5.33-4-8-4 S2,15.34,2,18z"}]]))
+
 (o/defstyled cross :svg
   {:stroke-width "13%"
    :stroke-linecap "round"

diff --git a/src/co/gaiwan/compass/html/profiles.clj b/src/co/gaiwan/compass/html/profiles.clj
@@ -2,6 +2,7 @@
   "Views and components (hiccup/ornament) related to profiles"
   {:ornament/prefix "profiles-"}
   (:require
+   [co.gaiwan.compass.html.graphics :as graphics]
    [co.gaiwan.compass.css.tokens :as t :refer :all]
    [co.gaiwan.compass.db.queries :as queries]
    [co.gaiwan.compass.http.routing :refer [url-for]]
@@ -83,7 +84,7 @@
       (for [c (:user/contacts user)]
         [:div.contact
          [image-frame {:profile/image (user/avatar-css-value c)}]
-         [:button.remove-btn "Remove"]])]]
+         [:button.remove-btn [graphics/person-remove]]])]]
 
     #_[:div (pr-str user)]
     ;; Disable Edit Profile before we can show profile details pretty