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

chore: disable full-text query temporarily

Browse Source
This commit is contained in:
Tienson Qin
2021-03-15 18:57:16 +08:00
parent 3b7ff40afc
commit b70ce7a5f1
1 changed files with 186 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

195
src/main/frontend/db/query_dsl.cljs
View File

@@ -133,14 +133,7 @@
(build-query repo e env 0))
([repo e {:keys [sort-by blocks? counter current-filter] :as env} level]
;; TODO: replace with multi-methods for extensibility.
(if (or (symbol? e) (string? e))
;; regex, FIXME: filter out the current block
(let [q (re-pattern (str e))]
(reset! blocks? true)
[['?b :block/content '?c]
[(list 're-find q '?c)]])
(let [fe (first e)
(let [fe (first e)
page-ref? (text/page-ref? e)]
(when (or (and page-ref?
(not (contains? #{'page-property 'page-tags} (:current-filter env))))
@@ -315,7 +308,191 @@
[['?e :page/tags '?p]]
:else
nil)))))
nil))
;; (if (or (symbol? e) (string? e))
;; ;; regex, FIXME: filter out the current block
;; (let [q (re-pattern (str e))]
;; (reset! blocks? true)
;; [['?b :block/content '?c]
;; [(list 're-find q '?c)]])
;; (let [fe (first e)
;; page-ref? (text/page-ref? e)]
;; (when (or (and page-ref?
;; (not (contains? #{'page-property 'page-tags} (:current-filter env))))
;; (contains? #{'between 'property 'todo 'priority 'sort-by 'page} fe))
;; (reset! blocks? true))
;; (cond
;; (nil? e)
;; nil
;; page-ref?
;; (let [page-name (-> (text/page-ref-un-brackets! e)
;; (string/lower-case))]
;; [['?b :block/path-ref-pages [:page/name page-name]]])
;; (contains? #{'and 'or 'not} fe)
;; (let [clauses (->> (map (fn [form]
;; (build-query repo form (assoc env :current-filter fe) (inc level)))
;; (rest e))
;; remove-nil?
;; (distinct))]
;; (when (seq clauses)
;; (let [result (cond
;; (= fe 'not)
;; (let [clauses (if (coll? (first clauses))
;; (apply concat clauses)
;; clauses)
;; clauses (if (and (= 1 (count clauses))
;; (= 'and (ffirst clauses)))
;; ;; unflatten
;; (rest (first clauses))
;; clauses)]
;; (cons fe (seq clauses)))
;; (coll? (first clauses))
;; (if (= current-filter 'not)
;; (->> (apply concat clauses)
;; (apply list fe))
;; (->> (map #(cons 'and (seq %)) clauses)
;; (apply list fe)))
;; :else
;; (apply list fe clauses))]
;; (cond
;; (and (zero? level) (= 'and fe))
;; (distinct (apply concat clauses))
;; (and (zero? level) (= 'or fe))
;; result
;; :else
;; [result]))))
;; (and (= 'between fe)
;; (= 3 (count e)))
;; (let [start (->journal-day-int (nth e 1))
;; end (->journal-day-int (nth e 2))
;; [start end] (sort [start end])]
;; [['?b :block/page '?p]
;; ['?p :page/journal? true]
;; ['?p :page/journal-day '?d]
;; [(list '>= '?d start)]
;; [(list '<= '?d end)]])
;; ;; (between created_at -1d today)
;; (and (= 'between fe)
;; (= 4 (count e)))
;; (let [k (-> (second e)
;; (name)
;; (string/lower-case)
;; (string/replace "-" "_"))]
;; (when (contains? #{"created_at" "last_modified_at"} k)
;; (let [start (->timestamp (nth e 2))
;; end (->timestamp (nth e 3))]
;; (when (and start end)
;; (let [[start end] (sort [start end])
;; sym '?v]
;; [['?b :block/properties '?prop]
;; [(list 'get '?prop k) sym]
;; [(list '>= sym start)]
;; [(list '< sym end)]])))))
;; (and (= 'property fe)
;; (= 3 (count e)))
;; (let [v (some-> (name (nth e 2))
;; (text/page-ref-un-brackets!))
;; sym (if (= current-filter 'or)
;; '?v
;; (uniq-symbol counter "?v"))]
;; [['?b :block/properties '?prop]
;; [(list 'get '?prop (name (nth e 1))) sym]
;; (list
;; 'or
;; [(list '= sym v)]
;; [(list 'contains? sym v)])])
;; (and (= 'property fe)
;; (= 2 (count e)))
;; [['?b :block/properties '?prop]
;; [(list 'get '?prop (name (nth e 1)))]]
;; (= 'todo fe)
;; (let [markers (if (coll? (first (rest e)))
;; (first (rest e))
;; (rest e))]
;; (when (seq markers)
;; (let [markers (set (map (comp string/upper-case name) markers))]
;; [['?b :block/marker '?marker]
;; [(list 'contains? markers '?marker)]])))
;; (= 'priority fe)
;; (let [priorities (if (coll? (first (rest e)))
;; (first (rest e))
;; (rest e))]
;; (when (seq priorities)
;; (let [priorities (set (map (comp string/upper-case name) priorities))]
;; [['?b :block/priority '?priority]
;; [(list 'contains? priorities '?priority)]])))
;; (= 'sort-by fe)
;; (let [[k order] (rest e)
;; order (if (and order (contains? #{:asc :desc}
;; (keyword (string/lower-case (name order)))))
;; (keyword (string/lower-case (name order)))
;; :desc)
;; k (-> (string/lower-case (name k))
;; (string/replace "-" "_"))]
;; (when (contains? #{"created_at" "last_modified_at"} k)
;; (let [comp (if (= order :desc) >= <=)]
;; (reset! sort-by
;; (fn [result]
;; (->> result
;; flatten
;; (clojure.core/sort-by #(get-in % [:block/properties k])
;; comp))))
;; nil)))
;; (= 'page fe)
;; (let [page-name (string/lower-case (first (rest e)))
;; page-name (text/page-ref-un-brackets! page-name)]
;; [['?b :block/page [:page/name page-name]]])
;; (= 'page-property fe)
;; (let [[k v] (rest e)]
;; (if v
;; (let [v (some->> (name (nth e 2))
;; (text/page-ref-un-brackets!))
;; sym '?v]
;; [['?p :page/properties '?prop]
;; [(list 'get '?prop (keyword (nth e 1))) sym]
;; (list
;; 'or
;; [(list '= sym v)]
;; [(list 'contains? sym v)])])
;; [['?p :page/properties '?prop]
;; [(list 'get '?prop (keyword (nth e 1)))]]))
;; (= 'page-tags fe)
;; (do
;; (let [tags (if (coll? (first (rest e)))
;; (first (rest e))
;; (rest e))
;; tags (map (comp string/lower-case name) tags)]
;; (when (seq tags)
;; (let [tags (set (map (comp text/page-ref-un-brackets! string/lower-case name) tags))]
;; (let [sym-1 (uniq-symbol counter "?t")
;; sym-2 (uniq-symbol counter "?tag")]
;; [['?p :page/tags sym-1]
;; [sym-1 :page/name sym-2]
;; [(list 'contains? tags sym-2)]])))))
;; (= 'all-page-tags fe)
;; [['?e :page/tags '?p]]
;; :else
;; nil)))
))
(defn- pre-transform
[s]