[simple-v-table] Add title tooltip to demo

day8 · Jul 15, 2024 · f5e95ff · f5e95ff
1 parent 4e3b1d8
commit f5e95ff
Showing 1 changed file with 7 additions and 2 deletions.
diff --git a/src/re_demo/simple_v_table_sales.cljs b/src/re_demo/simple_v_table_sales.cljs
@@ -62,8 +62,13 @@
         how-many?           (reagent/atom false)
         how-many            (reagent/atom 100)
         spacing             (px 12)
-        spacing7           (px 7)
-        email-row-label-fn  (fn [row] [hyperlink-href :src (at) :label (:email row) :href (str "mailto:" (:email row))])
+        spacing7            (px 7)
+        email-row-label-fn  (fn [row]
+                              (let [value (:email row)]
+                                [hyperlink-href {:src   (at)
+                                                 :attr  {:title value}
+                                                 :label value
+                                                 :href  (str "mailto:" value)}]))
         method-row-label-fn (fn [row] (case (:method row) :online [devices-icon] [store-icon]))]
     (fn []
       [v-box