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

Merge branch 'master' of gitlab.com:domaindrivenarchitecture/c4k-common

Browse source
This commit is contained in:
jem 2021-09-14 18:11:46 +02:00
commit 1873813e7f
4 changed files with 13 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
project-cljs.clj
View file

@ -1,4 +1,4 @@
(defproject org.domaindrivenarchitecture/c4k-common-cljs "0.3.1-SNAPSHOT" (defproject org.domaindrivenarchitecture/c4k-common-cljs "0.3.2-SNAPSHOT"
:description "Contains predicates and tools for c4k" :description "Contains predicates and tools for c4k"
:url "https://domaindrivenarchitecture.org" :url "https://domaindrivenarchitecture.org"
:license {:name "Apache License, Version 2.0" :license {:name "Apache License, Version 2.0"

2
project.clj
View file

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

7
src/main/cljc/dda/c4k_common/postgres.cljc
View file

@ -4,14 +4,15 @@
#?(:cljs [shadow.resource :as rc]) #?(:cljs [shadow.resource :as rc])
[dda.c4k-common.yaml :as yaml] [dda.c4k-common.yaml :as yaml]
[dda.c4k-common.base64 :as b64] [dda.c4k-common.base64 :as b64]
[dda.c4k-common.prefixes :as cm])) [dda.c4k-common.prefixes :as cp]
[dda.c4k-common.common :as cm]))
(defn postgres-size? (defn postgres-size?
[input] [input]
(contains? #{:2gb :4gb :8gb :16gb} input)) (contains? #{:2gb :4gb :8gb :16gb} input))
(s/def ::postgres-db-user cm/bash-env-string?) (s/def ::postgres-db-user cp/bash-env-string?)
(s/def ::postgres-db-password cm/bash-env-string?) (s/def ::postgres-db-password cp/bash-env-string?)
(s/def ::postgres-data-volume-path string?) (s/def ::postgres-data-volume-path string?)
(s/def ::postgres-size postgres-size?) (s/def ::postgres-size postgres-size?)

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

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