fix: cycle todos

pull/11177/head
Tienson Qin 2024-04-14 08:46:34 +08:00
parent ebe67390fa
commit e66e8d245e
1 changed files with 6 additions and 10 deletions

View File

@ -643,8 +643,7 @@
(defn db-based-cycle-todo!
[block]
(let [task (db/entity :logseq.class/task)
status-value (:logseq.task/status block)
(let [status-value (pu/get-block-property-value block :logseq.task/status)
next-status (case (:db/ident status-value)
:logseq.task/status.todo
:logseq.task/status.doing
@ -652,14 +651,11 @@
:logseq.task/status.done
:logseq.task/status.done
nil
:logseq.task/status.todo)]
(if next-status
(outliner-op/save-block! {:db/id (:db/id block)
:logseq.task/status (:db/id (db/entity next-status))
:block/tags #{{:db/id (:db/id task)}}})
(db/transact! (state/get-current-repo)
[[:db/retract (:db/id block) :logseq.task/status]]
{:outliner-op :save-block}))))
:logseq.task/status.todo)
repo (state/get-current-repo)]
(property-handler/set-block-property! repo (:block/uuid block)
:logseq.task/status
(:db/id (db/entity next-status)))))
(defn cycle-todos!
[]