|
|
|
@ -85,7 +85,7 @@ |
|
|
|
(when (blank? note) "note is empty")])] |
|
|
|
(when (blank? note) "note is empty")])] |
|
|
|
(if (empty? errors) |
|
|
|
(if (empty? errors) |
|
|
|
(let [[year month day] (map str (get-date)) |
|
|
|
(let [[year month day] (map str (get-date)) |
|
|
|
params (select-keys params [:text-size :text-font :header-font :theme]) |
|
|
|
params (select-keys params [:text-size :header-size :text-font :header-font :theme]) |
|
|
|
raw-title (filter #(or (= \- %) (Character/isLetterOrDigit %)) |
|
|
|
raw-title (filter #(or (= \- %) (Character/isLetterOrDigit %)) |
|
|
|
(-> note derive-title trim (sreplace " " "-") lower-case)) |
|
|
|
(-> note derive-title trim (sreplace " " "-") lower-case)) |
|
|
|
max-length (get-setting :max-title-length #(Integer/parseInt %) 80) |
|
|
|
max-length (get-setting :max-title-length #(Integer/parseInt %) 80) |
|
|
|
|