clone/logseq
1
0
Fork 0
mirror of https://github.com/logseq/logseq.git synced 2026-06-01 19:01:22 +00:00
Code Issues Packages Projects Releases Wiki Activity

refactor: update deadline to :datetime type

Browse Source
This commit is contained in:
Tienson Qin
2024-12-26 22:29:30 +08:00
parent cb72ca80c5
commit cdd4ccfccf
6 changed files with 43 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
deps/graph-parser/src/logseq/graph_parser/exporter.cljs vendored
View File

@@ -28,7 +28,8 @@
[logseq.db.frontend.malli-schema :as db-malli-schema]
[logseq.graph-parser.property :as gp-property]
[logseq.graph-parser.block :as gp-block]
[logseq.common.util.namespace :as ns-util]))
[logseq.common.util.namespace :as ns-util]
[cljs-time.coerce :as tc]))
(defn- add-missing-timestamps
"Add updated-at or created-at timestamps if they doesn't exist"
@@ -304,7 +305,8 @@
or repeater usage and notify user that they aren't supported"
[block page-names-to-uuids {:keys [user-config]}]
(if-let [date-int (or (:block/deadline block) (:block/scheduled block))]
(let [existing-journal-page (some->> (date-time-util/int->journal-title date-int (common-config/get-date-formatter user-config))
(let [title (date-time-util/int->journal-title date-int (common-config/get-date-formatter user-config))
existing-journal-page (some->> title
common-util/page-name-sanity-lc
(get @page-names-to-uuids)
(hash-map :block/uuid))
@@ -312,15 +314,15 @@
(or existing-journal-page
;; FIXME: Register new pages so that two different refs to same new page
;; don't create different uuids and thus an invalid page
(let [page-m (sqlite-util/build-new-page
(date-time-util/int->journal-title date-int (common-config/get-date-formatter user-config)))]
(let [page-m (sqlite-util/build-new-page title)]
(assoc page-m
:block/uuid (common-uuid/gen-uuid :journal-page-uuid date-int)
:block/journal-day date-int)))
(assoc :block/tags #{:logseq.class/Journal}))]
(assoc :block/tags #{:logseq.class/Journal}))
time-long (tc/to-long (date-time-util/int->local-date date-int))]
{:block
(-> block
(assoc :logseq.task/deadline [:block/uuid (:block/uuid deadline-page)])
(assoc :logseq.task/deadline time-long)
(dissoc :block/deadline :block/scheduled :block/repeated?))
:properties-tx (when-not existing-journal-page [deadline-page])})
{:block block :properties-tx []}))