meissa/c4k-common
6
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

fixes in browser

Browse source
This commit is contained in:
bom 2021-09-14 14:42:09 +02:00
parent 6f718e786b
commit 8badf77922
2 changed files with 7 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
project.clj
View file

@ -1,8 +1,4 @@
<<<<<<< HEAD
(defproject org.domaindrivenarchitecture/c4k-common-clj "0.2.11"
=======
(defproject org.domaindrivenarchitecture/c4k-common-clj "0.3.1-SNAPSHOT"
>>>>>>> 8b5c33183cbe8e324b69ee5150f5cc40add9a2b4
:description "Contains predicates and tools for c4k"
:url "https://domaindrivenarchitecture.org"
:license {:name "Apache License, Version 2.0"

14
src/main/cljs/dda/c4k_common/browser.cljs
View file

@ -87,18 +87,18 @@
[id
label
default-value]
(str (generate-label id label)
{:type :element :attrs {:class "form-control" :type "text" :name id :value default-value} :tag :input :content nil}
(generate-feedback-tag id)))
[(generate-label id label)
{:type :element :attrs {:class "form-control" :type "text" :name id :value default-value} :tag :input :content nil}
(generate-feedback-tag id)])
(defn generate-text-area
[id
label
default-value
rows]
(str (generate-label id label)
{:type :element :attrs {:name id :id id :class "form-control" :rows rows} :tag :textarea :content [default-value]}
(generate-feedback-tag id)))
[(generate-label id label)
{:type :element :attrs {:name id :id id :class "form-control" :rows rows} :tag :textarea :content [default-value]}
(generate-feedback-tag id)])
(defn generate-button
[id
@ -117,7 +117,7 @@
label
rows]
{:type :element, :attrs {:id id}, :tag :div, :content [{:type :element, :attrs {:for "output", :class "form-label"}, :tag :label, :content [label]}
{:type :element, :attrs {:name "output", :id "output", :class "form-control", :rows rows}, :tag :textarea, :content []}]})
{:type :element, :attrs {:name "output", :id "output", :class "form-control", :rows rows}, :tag :textarea, :content []}]})
(defn generate-needs-validation
[]