19 lines
879 B
Clojure
19 lines
879 B
Clojure
(ns auto-ap.ssr.components.card
|
|
(:require [auto-ap.ssr.hiccup-helper :as hh]
|
|
[auto-ap.ssr.hx :as hx]
|
|
[clojure.string :as str]))
|
|
|
|
(defn card- [params & children]
|
|
(into [:div (update params :class
|
|
#(cond-> (or % "")
|
|
(not (str/includes? (or % "") "bg-")) (hh/add-class "dark:bg-gray-800 bg-white ")
|
|
true (hh/add-class "shadow-md sm:rounded-lg border-2 border-gray-200 dark:border-gray-900 overflow-hidden")))]
|
|
children))
|
|
|
|
(defn content-card- [params & children]
|
|
[:section (merge params {:class (hh/add-class " py-3 sm:py-5" (:class params))})
|
|
[:div {:class (:max-w params "max-w-screen-2xl")}
|
|
(into
|
|
[:div {:class "relative overflow-hidden shadow-md dark:bg-gray-800 sm:rounded-lg border-2 border-gray-200 dark:border-gray-900 bg-white"}]
|
|
children)]])
|