|
|
@@ -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]
|
Tienson Qin