fix: errors when preview cards

Also, enables cards query for page names not wrapped by `[[]]`
This commit is contained in:
Tienson Qin
2022-07-05 19:37:25 +08:00
parent dbb37b6081
commit 7172784504
2 changed files with 55 additions and 43 deletions

View File

@@ -1,9 +1,11 @@
(ns frontend.extensions.srs.handler)
(ns frontend.extensions.srs.handler
(:require [dommy.core :refer-macros [sel]]))
(defn click
[id]
(when-let [node (js/document.getElementById id)]
(.click node)))
(let [nodes (sel [:#cards-modal (str "." id)])]
(doseq [node nodes]
(.click node))))
(defn toggle-answers []
(click "card-answers"))