|
|
@@ -643,8 +643,7 @@
|
|
|
(defn db-based-cycle-todo!
|
|
|
[block]
|
|
|
(let [task (db/entity :logseq.class/task)
|
|
|
- status-value-id (:logseq.task/status block)
|
|
|
- status-value (when status-value-id (db/entity [:block/uuid status-value-id]))
|
|
|
+ status-value (:logseq.task/status block)
|
|
|
next-status (case (:db/ident status-value)
|
|
|
:logseq.task/status.todo
|
|
|
:logseq.task/status.doing
|
|
|
@@ -655,7 +654,7 @@
|
|
|
:logseq.task/status.todo)]
|
|
|
(if next-status
|
|
|
(outliner-op/save-block! {:db/id (:db/id block)
|
|
|
- :logseq.task/status (:block/uuid (db/entity next-status))
|
|
|
+ :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]]
|