different-ref.cljs

(defn footnote [text page]
  (do
    (swap! footnote-counter inc)
    (let [modal-state (atom false)]
      (fn [text]
        (let [num @footnote-counter]
          (listen js/window "keypress" #(handle-footnote-key % num page modal-state))
          [:span
           [footnote-flag num modal-state text]
           [modal-content text modal-state page]])))))