feat: property icon emoji picker

This commit is contained in:
Tienson Qin
2023-08-07 15:03:03 +08:00
parent d2efb81c52
commit 6ec79d48cb
8 changed files with 99 additions and 28 deletions

View File

@@ -3335,11 +3335,12 @@
[block]
(let [entity (db/entity (:db/id block))
content (:block/content entity)]
(when (and (string/includes? content "#+BEGIN_QUERY")
(string/includes? content "#+END_QUERY"))
(let [ast (mldoc/->edn (string/trim content) (gp-mldoc/default-config (or (:block/format entity) :markdown)))
q (mldoc/extract-first-query-from-ast ast)]
(some? (:query (gp-util/safe-read-string q)))))))
(when content
(when (and (string/includes? content "#+BEGIN_QUERY")
(string/includes? content "#+END_QUERY"))
(let [ast (mldoc/->edn (string/trim content) (gp-mldoc/default-config (or (:block/format entity) :markdown)))
q (mldoc/extract-first-query-from-ast ast)]
(some? (:query (gp-util/safe-read-string q))))))))
(defn collapsable?
([block-id]