fix(query-dsl): journals pages not works

pull/1012/head
Tienson Qin 2020-12-28 20:37:52 +08:00
parent 45f600ecbc
commit 0c7b60c485
2 changed files with 10 additions and 9 deletions

View File

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

View File

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