simon/adl-support
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

Support for better form titles

Browse source
This commit is contained in:
Simon Brooke 2018-10-02 18:36:01 +01:00
parent 3baa7c12a5
commit 7191d6afe1
1 changed files with 20 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

22
src/adl_support/forms_support.clj
View file

@ -3,11 +3,11 @@
:author "Simon Brooke"} :author "Simon Brooke"}
adl-support.forms-support adl-support.forms-support
(:require [adl-support.core :refer :all] (:require [adl-support.core :refer :all]
[adl-support.utils :refer [descendants-with-tag safe-name singularise]] [adl-support.utils :refer [capitalise descendants-with-tag safe-name singularise]]
[clojure.core.memoize :as memo] [clojure.core.memoize :as memo]
[clojure.data.json :as json] [clojure.data.json :as json]
[clojure.java.io :as io] [clojure.java.io :as io]
[clojure.string :refer [lower-case]])) [clojure.string :refer [join lower-case]]))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;; ;;;;
@ -122,3 +122,21 @@
(map (map
#(hash-map (keyword (-> % :attrs :name)) (-> % :attrs :default)) #(hash-map (keyword (-> % :attrs :name)) (-> % :attrs :default))
(descendants-with-tag entity :property #(-> % :attrs :default))))) (descendants-with-tag entity :property #(-> % :attrs :default)))))
(defn form-title
"Construct an appropriate title for a form having this `form-name`, for an
entity having these `user-distinct-property-keys`, given this `record`."
[record form-name user-distinct-property-keys]
(str
form-name
": "
(join
", "
(remove
nil?
(map
record
user-distinct-property-keys)))))