|
8 | 8 | :default ["mldoc" :refer [Mldoc]]) |
9 | 9 | #?(:org.babashka/nbb [logseq.common.log :as log] |
10 | 10 | :default [lambdaisland.glogi :as log]) |
11 | | - [goog.object :as gobj] |
| 11 | + #_:clj-kondo/ignore |
12 | 12 | [cljs-bean.core :as bean] |
13 | | - [logseq.graph-parser.utf8 :as utf8] |
14 | 13 | [clojure.string :as string] |
15 | | - [logseq.common.util :as common-util] |
| 14 | + [goog.object :as gobj] |
16 | 15 | [logseq.common.config :as common-config] |
17 | | - #_:clj-kondo/ignore |
18 | | - [logseq.graph-parser.schema.mldoc :as mldoc-schema] |
19 | | - [logseq.db.sqlite.util :as sqlite-util])) |
| 16 | + [logseq.common.util :as common-util] |
| 17 | + [logseq.db.sqlite.util :as sqlite-util] |
| 18 | + [logseq.graph-parser.utf8 :as utf8])) |
20 | 19 |
|
21 | 20 | (defonce parseJson (gobj/get Mldoc "parseJson")) |
22 | 21 | (defonce parseInlineJson (gobj/get Mldoc "parseInlineJson")) |
|
103 | 102 | (common-util/safe-subs line level) |
104 | 103 | ;; Otherwise, trim these invalid spaces |
105 | 104 | (string/triml line))) |
106 | | - (if remove-first-line? lines r)) |
| 105 | + (if remove-first-line? lines r)) |
107 | 106 | content (if remove-first-line? body (cons f body))] |
108 | 107 | (string/join "\n" content))) |
109 | 108 |
|
110 | 109 | (defn- update-src-full-content |
111 | 110 | [ast content] |
112 | 111 | (let [content (utf8/encode content)] |
113 | 112 | (map (fn [[block pos-meta]] |
114 | | - (if (and (vector? block) |
115 | | - (= "Src" (first block))) |
116 | | - (let [{:keys [start_pos end_pos]} pos-meta |
117 | | - content (utf8/substring content start_pos end_pos) |
118 | | - spaces (re-find #"^[\t ]+" (first (string/split-lines content))) |
119 | | - content (if spaces (remove-indentation-spaces content (count spaces) true) |
120 | | - content) |
121 | | - block ["Src" (assoc (second block) :full_content content)]] |
122 | | - [block pos-meta]) |
123 | | - [block pos-meta])) ast))) |
| 113 | + (if (and (vector? block) |
| 114 | + (= "Src" (first block))) |
| 115 | + (let [{:keys [start_pos end_pos]} pos-meta |
| 116 | + content (utf8/substring content start_pos end_pos) |
| 117 | + spaces (re-find #"^[\t ]+" (first (string/split-lines content))) |
| 118 | + content (if spaces (remove-indentation-spaces content (count spaces) true) |
| 119 | + content) |
| 120 | + block ["Src" (assoc (second block) :full_content content)]] |
| 121 | + [block pos-meta]) |
| 122 | + [block pos-meta])) ast))) |
124 | 123 |
|
125 | 124 | (defn collect-page-properties |
126 | 125 | [ast config] |
|
0 commit comments