|
|
@@ -1,345 +0,0 @@
|
|
|
-(ns frontend.worker.handler.page.file-based.rename
|
|
|
- "File based page rename"
|
|
|
- (:require [clojure.string :as string]
|
|
|
- [clojure.walk :as walk]
|
|
|
- [datascript.core :as d]
|
|
|
- [frontend.common.file-based.db :as common-file-db]
|
|
|
- [frontend.common.file.util :as wfu]
|
|
|
- [frontend.worker.handler.page :as worker-page]
|
|
|
- [logseq.common.config :as common-config]
|
|
|
- [logseq.common.util :as common-util]
|
|
|
- [logseq.common.util.page-ref :as page-ref]
|
|
|
- [logseq.db :as ldb]
|
|
|
- [logseq.db.common.order :as db-order]
|
|
|
- [logseq.db.file-based.entity-util :as file-entity-util]
|
|
|
- [logseq.graph-parser.property :as gp-property]
|
|
|
- [logseq.graph-parser.text :as text]))
|
|
|
-
|
|
|
-(defn- replace-page-ref-aux
|
|
|
- "Unsanitized names"
|
|
|
- [config content old-name new-name]
|
|
|
- (let [preferred-format (common-config/get-preferred-format config)
|
|
|
- [original-old-name original-new-name] (map string/trim [old-name new-name])
|
|
|
- [old-ref new-ref] (map page-ref/->page-ref [old-name new-name])
|
|
|
- [old-name new-name] (map #(if (string/includes? % "/")
|
|
|
- (string/replace % "/" ".")
|
|
|
- %)
|
|
|
- [original-old-name original-new-name])
|
|
|
- old-org-ref (and (= :org preferred-format)
|
|
|
- (:org-mode/insert-file-link? config)
|
|
|
- (re-find
|
|
|
- (re-pattern
|
|
|
- (common-util/format
|
|
|
- "\\[\\[file:\\.*/.*%s\\.org\\]\\[(.*?)\\]\\]" old-name))
|
|
|
- content))]
|
|
|
- (-> (if old-org-ref
|
|
|
- (let [[old-full-ref old-label] old-org-ref
|
|
|
- new-label (if (= old-label original-old-name)
|
|
|
- original-new-name
|
|
|
- old-label)
|
|
|
- new-full-ref (-> (string/replace old-full-ref old-name new-name)
|
|
|
- (string/replace (str "[" old-label "]")
|
|
|
- (str "[" new-label "]")))]
|
|
|
- (string/replace content old-full-ref new-full-ref))
|
|
|
- content)
|
|
|
- (string/replace old-ref new-ref))))
|
|
|
-
|
|
|
-(defn replace-tag-ref!
|
|
|
- [content old-name new-name]
|
|
|
- (let [old-tag (common-util/format "#%s" old-name)
|
|
|
- new-tag (if (re-find #"[\s\t]+" new-name)
|
|
|
- (common-util/format "#[[%s]]" new-name)
|
|
|
- (str "#" new-name))]
|
|
|
- ;; hash tag parsing rules https://github.com/logseq/mldoc/blob/701243eaf9b4157348f235670718f6ad19ebe7f8/test/test_markdown.ml#L631
|
|
|
- ;; Safari doesn't support look behind, don't use
|
|
|
- ;; TODO: parse via mldoc
|
|
|
- (string/replace content
|
|
|
- (re-pattern (str "(?i)(^|\\s)(" (common-util/escape-regex-chars old-tag) ")(?=[,\\.]*($|\\s))"))
|
|
|
- ;; case_insense^ ^lhs ^_grp2 look_ahead^ ^_grp3
|
|
|
- (fn [[_match lhs _grp2 _grp3]]
|
|
|
- (str lhs new-tag)))))
|
|
|
-
|
|
|
-(defn- replace-property-ref!
|
|
|
- [content old-name new-name format]
|
|
|
- (let [new-name (keyword (string/replace (string/lower-case new-name) #"\s+" "-"))
|
|
|
- org-format? (= :org format)
|
|
|
- old-property (if org-format? (gp-property/colons-org old-name) (str old-name gp-property/colons))
|
|
|
- new-property (if org-format? (gp-property/colons-org (name new-name)) (str (name new-name) gp-property/colons))]
|
|
|
- (common-util/replace-ignore-case content old-property new-property)))
|
|
|
-
|
|
|
-(defn- replace-old-page!
|
|
|
- "Unsanitized names"
|
|
|
- [config content old-name new-name format]
|
|
|
- (when (and (string? content) (string? old-name) (string? new-name))
|
|
|
- (-> (replace-page-ref-aux config content old-name new-name)
|
|
|
- (replace-tag-ref! old-name new-name)
|
|
|
- (replace-property-ref! old-name new-name format))))
|
|
|
-
|
|
|
-(defn- walk-replace-old-page!
|
|
|
- "Unsanitized names"
|
|
|
- [config form old-name new-name format]
|
|
|
- (walk/postwalk (fn [f]
|
|
|
- (cond
|
|
|
- (and (vector? f)
|
|
|
- (contains? #{"Search" "Label"} (first f))
|
|
|
- (string/starts-with? (second f) (str old-name "/")))
|
|
|
- [(first f) (string/replace-first (second f)
|
|
|
- (str old-name "/")
|
|
|
- (str new-name "/"))]
|
|
|
-
|
|
|
- (string? f)
|
|
|
- (if (= f old-name)
|
|
|
- new-name
|
|
|
- (replace-old-page! config f old-name new-name format))
|
|
|
-
|
|
|
- (and (keyword f) (= (name f) old-name))
|
|
|
- (keyword (string/replace (string/lower-case new-name) #"\s+" "-"))
|
|
|
-
|
|
|
- :else
|
|
|
- f))
|
|
|
- form))
|
|
|
-
|
|
|
-(defn- rename-update-block-refs!
|
|
|
- [refs from-id to-id]
|
|
|
- (if to-id
|
|
|
- (->> refs
|
|
|
- (remove #{{:db/id from-id}})
|
|
|
- (cons {:db/id to-id})
|
|
|
- (distinct)
|
|
|
- (vec))
|
|
|
- ;; New page not exists so that we keep using the old page's block as a ref
|
|
|
- refs))
|
|
|
-
|
|
|
-(defn replace-page-ref
|
|
|
- "Unsanitized only"
|
|
|
- [db config page new-name]
|
|
|
- ;; update all pages which have references to this page
|
|
|
- (let [to-page (ldb/get-page db new-name)
|
|
|
- old-title (:block/title page)
|
|
|
- blocks (:block/_refs (d/entity db (:db/id page)))
|
|
|
- tx (->> (map (fn [{:block/keys [uuid title properties format] :as block}]
|
|
|
- (let [content (let [content' (replace-old-page! config title old-title new-name format)]
|
|
|
- (when-not (= content' title)
|
|
|
- content'))
|
|
|
- properties (let [properties' (walk-replace-old-page! config properties old-title new-name format)]
|
|
|
- (when-not (= properties' properties)
|
|
|
- properties'))]
|
|
|
- (when (or content properties)
|
|
|
- (common-util/remove-nils-non-nested
|
|
|
- {:block/uuid uuid
|
|
|
- :block/title content
|
|
|
- :block/properties properties
|
|
|
- :block/properties-order (when (seq properties)
|
|
|
- (map first properties))
|
|
|
- :block/refs (->> (rename-update-block-refs! (:block/refs block) (:db/id page) (:db/id to-page))
|
|
|
- (map :db/id)
|
|
|
- (set))})))) blocks)
|
|
|
- (remove nil?))]
|
|
|
- tx))
|
|
|
-
|
|
|
-(defn rename-update-namespace!
|
|
|
- "update :block/namespace of the renamed block"
|
|
|
- [repo conn config page old-title new-name]
|
|
|
- (let [old-namespace? (text/namespace-page? old-title)
|
|
|
- new-namespace? (text/namespace-page? new-name)]
|
|
|
- (cond
|
|
|
- new-namespace?
|
|
|
- ;; update namespace
|
|
|
- (let [namespace (first (common-util/split-last "/" new-name))]
|
|
|
- (when namespace
|
|
|
- (worker-page/create! repo conn config namespace) ;; create parent page if not exist, creation of namespace ref is handled in `create!`
|
|
|
- (let [namespace-block (d/entity @conn [:block/name (common-util/page-name-sanity-lc namespace)])
|
|
|
- page-txs [{:db/id (:db/id page)
|
|
|
- :block/namespace (:db/id namespace-block)}]]
|
|
|
- (ldb/transact! conn page-txs {:persist-op? true}))))
|
|
|
-
|
|
|
- old-namespace?
|
|
|
- ;; retract namespace
|
|
|
- (ldb/transact! conn [[:db/retract (:db/id page) :block/namespace]] {:persist-op? true})
|
|
|
-
|
|
|
- :else
|
|
|
- nil)))
|
|
|
-
|
|
|
-(declare rename-page-aux)
|
|
|
-
|
|
|
-(defn- based-merge-pages!
|
|
|
- [repo conn config from-page-name to-page-name {:keys [old-name new-name]}]
|
|
|
- (let [db @conn
|
|
|
- to-page (d/entity db [:block/name to-page-name])
|
|
|
- to-id (:db/id to-page)
|
|
|
- from-page (d/entity db [:block/name from-page-name])
|
|
|
- from-id (:db/id from-page)]
|
|
|
- (when (and from-page to-page (not= from-page-name to-page-name))
|
|
|
- (let [datoms (d/datoms @conn :avet :block/page from-id)
|
|
|
- block-eids (mapv :e datoms)
|
|
|
- blocks (d/pull-many db '[:db/id :block/page :block/refs :block/order :block/parent] block-eids)
|
|
|
- blocks-tx-data (map (fn [block]
|
|
|
- (let [id (:db/id block)]
|
|
|
- (cond->
|
|
|
- {:db/id id
|
|
|
- :block/page {:db/id to-id}
|
|
|
- :block/refs (rename-update-block-refs! (:block/refs block) from-id to-id)
|
|
|
- :block/order (db-order/gen-key nil)}
|
|
|
-
|
|
|
- (= (:block/parent block) {:db/id from-id})
|
|
|
- (assoc :block/parent {:db/id to-id})))) blocks)
|
|
|
- replace-ref-tx-data (replace-page-ref db config from-page to-page-name)
|
|
|
- tx-data (concat blocks-tx-data replace-ref-tx-data)]
|
|
|
-
|
|
|
- (rename-page-aux repo conn config old-name new-name
|
|
|
- :merge? true
|
|
|
- :other-tx tx-data)
|
|
|
-
|
|
|
- (worker-page/delete! repo conn (:block/uuid from-page) {:rename? true})))))
|
|
|
-
|
|
|
-(defn- compute-new-file-path
|
|
|
- "Construct the full path given old full path and the file sanitized body.
|
|
|
- Ext. included in the `old-path`."
|
|
|
- [old-path new-file-name-body]
|
|
|
- (let [result (string/split old-path "/")
|
|
|
- ext (last (string/split (last result) "."))
|
|
|
- new-file (str new-file-name-body "." ext)
|
|
|
- parts (concat (butlast result) [new-file])]
|
|
|
- (common-util/string-join-path parts)))
|
|
|
-
|
|
|
-(defn- update-file-tx
|
|
|
- [db old-page-name new-page-name]
|
|
|
- (let [page (d/entity db [:block/name old-page-name])
|
|
|
- file (:block/file page)]
|
|
|
- (when (and file (not (file-entity-util/journal? page)))
|
|
|
- (let [old-path (:file/path file)
|
|
|
- new-file-name (wfu/file-name-sanity new-page-name) ;; w/o file extension
|
|
|
- new-path (compute-new-file-path old-path new-file-name)]
|
|
|
- {:old-path old-path
|
|
|
- :new-path new-path
|
|
|
- :tx-data [{:db/id (:db/id file)
|
|
|
- :file/path new-path}]}))))
|
|
|
-
|
|
|
-(defn- rename-page-aux
|
|
|
- "Only accepts unsanitized page names"
|
|
|
- [repo conn config old-name new-name & {:keys [merge? other-tx]}]
|
|
|
- (let [db @conn
|
|
|
- old-page-name (common-util/page-name-sanity-lc old-name)
|
|
|
- new-page-name (common-util/page-name-sanity-lc new-name)
|
|
|
- page (d/pull @conn '[*] [:block/name old-page-name])]
|
|
|
- (when (and repo page)
|
|
|
- (let [old-title (:block/title page)
|
|
|
- page-txs (when-not merge?
|
|
|
- [{:db/id (:db/id page)
|
|
|
- :block/uuid (:block/uuid page)
|
|
|
- :block/name new-page-name
|
|
|
- :block/title new-name}])
|
|
|
- {:keys [old-path new-path tx-data]} (update-file-tx db old-page-name new-name)
|
|
|
- txs (concat page-txs
|
|
|
- other-tx
|
|
|
- (->>
|
|
|
- (concat
|
|
|
- ;; update page refes in block content when ref name changes
|
|
|
- (replace-page-ref db config page new-name)
|
|
|
- ;; update file path
|
|
|
- tx-data)
|
|
|
-
|
|
|
- (remove nil?)))]
|
|
|
-
|
|
|
- (ldb/transact! conn txs {:outliner-op :rename-page
|
|
|
- :data (cond->
|
|
|
- {:page-id (:db/id page)
|
|
|
- :old-name old-name
|
|
|
- :new-name new-name}
|
|
|
- (and old-path new-path)
|
|
|
- (merge {:old-path old-path
|
|
|
- :new-path new-path}))})
|
|
|
-
|
|
|
- (rename-update-namespace! repo conn config page old-title new-name)))))
|
|
|
-
|
|
|
-(defn- rename-namespace-pages!
|
|
|
- "Original names (unsanitized only)"
|
|
|
- [repo conn config old-name new-name]
|
|
|
- (let [pages (common-file-db/get-namespace-pages @conn old-name)
|
|
|
- page (d/pull @conn '[*] [:block/name (common-util/page-name-sanity-lc old-name)])
|
|
|
- pages (cons page pages)]
|
|
|
- (doseq [{:block/keys [name title]} pages]
|
|
|
- (let [old-page-title (or title name)
|
|
|
- ;; only replace one time, for the case that the namespace is a sub-string of the sub-namespace page name
|
|
|
- ;; Example: has pages [[work]] [[work/worklog]],
|
|
|
- ;; we want to rename [[work/worklog]] to [[work1/worklog]] when rename [[work]] to [[work1]],
|
|
|
- ;; but don't rename [[work/worklog]] to [[work1/work1log]]
|
|
|
- new-page-title (common-util/replace-first-ignore-case old-page-title old-name new-name)]
|
|
|
- (when (and old-page-title new-page-title)
|
|
|
- (rename-page-aux repo conn config old-page-title new-page-title)
|
|
|
- (println "Renamed " old-page-title " to " new-page-title))))))
|
|
|
-
|
|
|
-(defn- rename-nested-pages
|
|
|
- "Unsanitized names only"
|
|
|
- [repo conn config old-ns-name new-ns-name]
|
|
|
- (let [nested-page-str (page-ref/->page-ref (common-util/page-name-sanity-lc old-ns-name))
|
|
|
- ns-prefix-format-str (str page-ref/left-brackets "%s/")
|
|
|
- ns-prefix (common-util/format ns-prefix-format-str (common-util/page-name-sanity-lc old-ns-name))
|
|
|
- nested-pages (common-file-db/get-pages-by-name-partition @conn nested-page-str)
|
|
|
- nested-pages-ns (common-file-db/get-pages-by-name-partition @conn ns-prefix)]
|
|
|
- (when nested-pages
|
|
|
- ;; rename page "[[obsidian]] is a tool" to "[[logseq]] is a tool"
|
|
|
- (doseq [{:block/keys [name title]} nested-pages]
|
|
|
- (let [old-page-title (or title name)
|
|
|
- new-page-title (string/replace
|
|
|
- old-page-title
|
|
|
- (page-ref/->page-ref old-ns-name)
|
|
|
- (page-ref/->page-ref new-ns-name))]
|
|
|
- (when (and old-page-title new-page-title)
|
|
|
- (rename-page-aux repo conn config old-page-title new-page-title)
|
|
|
- (println "Renamed " old-page-title " to " new-page-title)))))
|
|
|
- (when nested-pages-ns
|
|
|
- ;; rename page "[[obsidian/page1]] is a tool" to "[[logseq/page1]] is a tool"
|
|
|
- (doseq [{:block/keys [name title]} nested-pages-ns]
|
|
|
- (let [old-page-title (or title name)
|
|
|
- new-page-title (string/replace
|
|
|
- old-page-title
|
|
|
- (common-util/format ns-prefix-format-str old-ns-name)
|
|
|
- (common-util/format ns-prefix-format-str new-ns-name))]
|
|
|
- (when (and old-page-title new-page-title)
|
|
|
- (rename-page-aux repo conn config old-page-title new-page-title)
|
|
|
- (println "Renamed " old-page-title " to " new-page-title)))))))
|
|
|
-
|
|
|
-(defn rename!
|
|
|
- [repo conn config page-uuid new-name & {:keys [persist-op?]
|
|
|
- :or {persist-op? true}}]
|
|
|
- (let [db @conn
|
|
|
- page-e (d/entity db [:block/uuid page-uuid])
|
|
|
- old-name (:block/title page-e)
|
|
|
- new-name (string/trim new-name)
|
|
|
- old-page-name (common-util/page-name-sanity-lc old-name)
|
|
|
- new-page-name (common-util/page-name-sanity-lc new-name)
|
|
|
- new-page-e (d/entity db [:block/name new-page-name])
|
|
|
- name-changed? (not= old-name new-name)]
|
|
|
- (cond
|
|
|
- (ldb/built-in? page-e)
|
|
|
- :built-in-page
|
|
|
-
|
|
|
- (string/blank? new-name)
|
|
|
- :invalid-empty-name
|
|
|
-
|
|
|
- (and page-e new-page-e
|
|
|
- (or (file-entity-util/whiteboard? page-e)
|
|
|
- (file-entity-util/whiteboard? new-page-e)))
|
|
|
- :merge-whiteboard-pages
|
|
|
-
|
|
|
- (and old-name new-name name-changed?)
|
|
|
- (do
|
|
|
- (cond
|
|
|
- (= old-page-name new-page-name) ; case changed
|
|
|
- (ldb/transact! conn
|
|
|
- [{:db/id (:db/id page-e)
|
|
|
- :block/title new-name}]
|
|
|
- {:page-id (:db/id page-e)
|
|
|
- :persist-op? persist-op?
|
|
|
- :outliner-op :rename-page})
|
|
|
-
|
|
|
- (and (not= old-page-name new-page-name)
|
|
|
- (d/entity @conn [:block/name new-page-name])) ; merge page
|
|
|
- (based-merge-pages! repo conn config old-page-name new-page-name {:old-name old-name
|
|
|
- :new-name new-name
|
|
|
- :persist-op? persist-op?})
|
|
|
-
|
|
|
- :else ; rename
|
|
|
- (rename-namespace-pages! repo conn config old-name new-name))
|
|
|
- (rename-nested-pages repo conn config old-name new-name)))))
|
Tienson Qin