bugfixes
This commit is contained in:
@@ -32,7 +32,7 @@
|
|||||||
(reduce (fn [acc e]
|
(reduce (fn [acc e]
|
||||||
(if-let [font (style e)]
|
(if-let [font (style e)]
|
||||||
(str acc "|" (sreplace font #" " "+"))
|
(str acc "|" (sreplace font #" " "+"))
|
||||||
"")) "" ["text-font" "header-font"]))}]
|
acc)) "" ["text-font" "header-font"]))}]
|
||||||
[:style (css/generate style)]
|
[:style (css/generate style)]
|
||||||
(if (= :js js?)
|
(if (= :js js?)
|
||||||
(html
|
(html
|
||||||
@@ -51,7 +51,7 @@
|
|||||||
(defn- input-form [form-url command fields content passwd-msg]
|
(defn- input-form [form-url command fields content passwd-msg]
|
||||||
(let [css-class (when (= :publish command) :hidden)]
|
(let [css-class (when (= :publish command) :hidden)]
|
||||||
(layout :js {} (get-message :new-page)
|
(layout :js {} (get-message :new-page)
|
||||||
[:article#preview ""]
|
[:article#preview {:style "flex: none"} ""]
|
||||||
[:div#dashed-line {:class css-class}]
|
[:div#dashed-line {:class css-class}]
|
||||||
[:div.central-element.helvetica {:style "margin-bottom: 3em"}
|
[:div.central-element.helvetica {:style "margin-bottom: 3em"}
|
||||||
(form-to {:autocomplete :off} [:post form-url]
|
(form-to {:autocomplete :off} [:post form-url]
|
||||||
|
|||||||
Reference in New Issue
Block a user