Commit bbcb8f6e authored by Bruno Burke's avatar Bruno Burke 😁

title-right for card

parent 40fb947b
......@@ -4,14 +4,20 @@
[:div.card
(apply vector
:div.card-content
content)])
content)])
(defn card [{:keys [title footer-items class]} content]
(defn card [{:keys [title title-right footer-items class]} content]
[:div.card {:class class}
(when title
[:header.card-header
[:p.card-header-title
title]])
(when (or title
title-right)
[:header.card-header.is-block
[:div.level.is-fullwidth
[:div.level-left
[:div.level-item.card-header-title
title]]
[:div.level-right
[:div.level-item.is-pulled-right.card-header-title
title-right]]]])
[:div.card-content content]
(when (pos? (count footer-items))
[:footer.card-footer
......
......@@ -242,6 +242,20 @@
[:p.flow-text "Dies ist ein Flow-Text in einer Card"]
[:p.flow-text "Dies ist ein Flow-Text in einer Card"]]])
(defcard-rg card-card-right-title
[ui/card
{:title "Title Left"
:title-right [:div
[:span "Title Right"]
[:span.icon [:i.fas.fa-exclamation-triangle]]]
:footer-items
[[:a.footer-item "senden"] [:a.footer-item "lll"]]}
[:div [:p.flow-text "Dies ist ein Flow-Text in einer Card"]
[:p.flow-text "Dies ist ein Flow-Text in einer Card"]
[:p.flow-text "Dies ist ein Flow-Text in einer Card"]
[:p.flow-text "Dies ist ein Flow-Text in einer Card"]]])
(defcard-rg menu
(let [sidenav-id "sidenav-id"
links [{:panel :home-panel :label "HOME" :route "#/home"}
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment