fix lint warnings

pull/4423/head
llcc 2022-02-25 12:04:12 +08:00 committed by Tienson Qin
parent ff001849ed
commit 1fd0c47925
1 changed files with 12 additions and 12 deletions

View File

@ -769,24 +769,24 @@
(let [new-content (string/replace-first content marker "DONE")
new-content (if repeated?
(update-timestamps-content! block content)
new-content)]
(let [input-id (state/get-edit-input-id)]
new-content)
input-id (state/get-edit-input-id)]
(if (and input-id
(string/ends-with? input-id (str uuid)))
(state/set-edit-content! input-id new-content)
(save-block-if-changed! block new-content)))))
(save-block-if-changed! block new-content))))
(defn uncheck
[{:block/keys [content uuid] :as block}]
(let [marker (if (= :now (state/get-preferred-workflow))
"LATER"
"TODO")
new-content (string/replace-first content "DONE" marker)]
(let [input-id (state/get-edit-input-id)]
new-content (string/replace-first content "DONE" marker)
input-id (state/get-edit-input-id)]
(if (and input-id
(string/ends-with? input-id (str uuid)))
(state/set-edit-content! input-id new-content)
(save-block-if-changed! block new-content)))))
(save-block-if-changed! block new-content))))
(defn set-marker
[{:block/keys [marker content] :as block} new-marker]