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

Getting some property names wrong: probable fix

Browse source
This commit is contained in:
Simon Brooke 2018-09-19 14:30:55 +01:00
parent 0f9dc14ee4
commit 8facb67bc9
1 changed files with 6 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
src/adl/to_selmer_routes.clj
View file

@ -77,7 +77,7 @@
'if 'if
(list (list
'all-keys-present? 'all-keys-present?
'params (set (map #(safe-name % :sql) (key-names e true)))) 'params (set (map #(keyword (safe-name % :sql)) (key-names e true))))
(list (list
'support/do-or-log-error 'support/do-or-log-error
(list (list
@ -288,13 +288,16 @@
(vector 'request) (vector 'request)
(list 'let (vector (list 'let (vector
'params 'params
(list 'support/massage-params 'request)) (list
'merge
(property-defaults e)
(list 'support/massage-params 'request)))
(list (list
'l/render 'l/render
(list 'support/resolve-template (str (path-part f e a) ".html")) (list 'support/resolve-template (str (path-part f e a) ".html"))
(list 'merge (list 'merge
{:title (capitalise (:name (:attrs f))) {:title (capitalise (:name (:attrs f)))
:params (list 'merge (property-defaults e) 'params)} :params 'params}
(case (:tag f) (case (:tag f)
:form (make-form-get-handler-content f e a n) :form (make-form-get-handler-content f e a n)
:page (make-page-get-handler-content f e a n) :page (make-page-get-handler-content f e a n)