浏览代码

fix(query-dsl): journals pages not works

Tienson Qin 4 年之前
父节点
当前提交
0c7b60c485
共有 2 个文件被更改,包括 10 次插入9 次删除
  1. 4 3
      src/main/frontend/components/block.cljs
  2. 6 6
      src/main/frontend/db/query_dsl.cljs

+ 4 - 3
src/main/frontend/components/block.cljs

@@ -659,9 +659,10 @@
       (cond
         (= name "query")
         [:div.dsl-query
-         (custom-query (assoc config :dsl-query? true)
-                       {:title [:code.p-1 (str "Query: " (first arguments))]
-                        :query (first arguments)})]
+         (let [query (string/join "," arguments)]
+           (custom-query (assoc config :dsl-query? true)
+                         {:title [:code.p-1 (str "Query: " query)]
+                          :query query}))]
 
         (= name "youtube")
         (let [url (first arguments)]

+ 6 - 6
src/main/frontend/db/query_dsl.cljs

@@ -119,12 +119,12 @@
                  t/days)]
         (tc/to-long (t/plus (t/today) (tf duration)))))))
 
-(defn uniq-symbol
-  [counter prefix]
-  (let [result (symbol (str prefix (when-not (zero? @counter)
-                                     @counter)))]
-    (swap! counter inc)
-    result))
+#_(defn uniq-symbol
+    [counter prefix]
+    (let [result (symbol (str prefix (when-not (zero? @counter)
+                                       @counter)))]
+      (swap! counter inc)
+      result))
 
 (defn build-query
   ([repo e env]