enhance(ux): keep today queries to avoid scroll junk

Author: tiensonqin

src/main/frontend/components/page.cljs

@@ -239,10 +239,10 @@
                (ui/catch-error
                 (ui/component-error "Failed default query:" {:content (pr-str query')})
                 (query/custom-query (component-block/wrap-query-components
-                                     {:attr {:class "mt-10"}
-                                      :editor-box editor/box
+                                     {:editor-box editor/box
                                       :page page-cp
-                                      :built-in-query? true})
+                                      :built-in-query? true
+                                      :today-query? true})
                                     query'))
                (str repo "-custom-query-" (:query query')))))]))))
 

src/main/frontend/components/query/result.cljs

@@ -54,7 +54,8 @@
 
         :else
         (let [[k result] (query-custom/custom-query query {:current-block-uuid current-block-uuid
-                                                           :built-in-query? (:built-in-query? config)})]
+                                                           :built-in-query? (:built-in-query? config)
+                                                           :today-query? (:today-query? config)})]
           [k (rum/react result)]))
       (catch :default e
         (js/console.error e)

src/main/frontend/components/scheduled_deadlines.cljs

@@ -27,9 +27,9 @@
   [state page-name]
   (let [scheduled-or-deadlines (rum/react (::result state))]
     (when (seq scheduled-or-deadlines)
-      [:div.scheduled-or-deadlines.mt-8
+      [:div.scheduled-or-deadlines
        (ui/foldable
-        [:div "SCHEDULED AND DEADLINE"]
+        [:div.text-sm.font-medium "Scheduled and Deadline"]
         (fn []
           [:div.scheduled-deadlines.references-blocks.mb-6
            (let [ref-hiccup (block/->hiccup scheduled-or-deadlines

src/main/frontend/db/query_react.cljs

@@ -109,7 +109,10 @@
           inputs (cond-> resolved-inputs
                    rules
                    (conj rules))
-          k [:custom (or (:query-string query') query') inputs]]
+          k [:custom
+             (or (:query-string query') (dissoc query' :title))
+             (:today-query? query-opts)
+             inputs]]
       (pprint "inputs (post-resolution):" resolved-inputs)
       (pprint "query-opts:" query-opts)
       (pprint (str "time elapsed: " (.toFixed (- (.now js/performance) start-time) 2) "ms"))

src/main/frontend/db/react.cljs

@@ -62,7 +62,8 @@
 
 (defn remove-q!
   [k]
-  (swap! *query-state dissoc k))
+  (when-not (and (= (second k) :custom) (nth k 3))                   ; today query
+    (swap! *query-state dissoc k)))
 
 (defn add-query-component!
   [k component]