fix(import): preserve emails in quote blocks

This commit is contained in:
rcmerci
2026-05-05 16:30:03 +08:00
parent 20c7930727
commit 8a7ba2f665
2 changed files with 16 additions and 0 deletions

View File

@@ -1017,6 +1017,9 @@
[(get node 4)]
(and (vector? node) (= (first node) "Code"))
["`" (second node) "`"]
(and (vector? node) (= (first node) "Email"))
(let [{:keys [local_part domain]} (second node)]
[(str "<" local_part "@" domain ">")])
(and (vector? node) (= "Macro" (first node)) (= "query" (:name (second node))))
(:arguments (second node))
(and (vector? node) (= (first node) "Example"))

View File

@@ -208,6 +208,19 @@
(is (empty? (map :entity (:errors (db-validate/validate-local-db! @conn))))
"Imported graph validates")))
(deftest-async import-quote-with-email-address
(p/let [file (write-temp-graph-file
"pages/email.md"
"- > \"CachyOS <admin@cachyos.org>\"\n")
conn (db-test/create-conn)
_ (db-pipeline/add-listener conn)
_ (import-files-to-db [file] conn {})]
(is (= "\"CachyOS <admin@cachyos.org>\""
(:block/title (db-test/find-block-by-content @conn #"CachyOS")))
"Email addresses inside quotes are preserved during import")
(is (empty? (map :entity (:errors (db-validate/validate-local-db! @conn))))
"Imported graph validates")))
(deftest update-asset-links-in-block-title
(are [x y]
(= y (@#'gp-exporter/update-asset-links-in-block-title (first x) {(second x) "UUID"} (atom {})))