mirror of https://github.com/logseq/logseq
fix: cycle todos
parent
ebe67390fa
commit
e66e8d245e
|
@ -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!
|
||||
[]
|
||||
|
|
Loading…
Reference in New Issue