You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
21 lines
647 B
21 lines
647 B
(ns NoteHub.main |
|
(:require [clojure.browser.dom :as dom] |
|
[goog.dom :as gdom] |
|
[goog.style :as style] |
|
[goog.dom.classes :as classes] |
|
[clojure.browser.event :as event] |
|
[goog.editor.focus :as focus])) |
|
|
|
(defn $ |
|
"The DOM-element selector." |
|
[selector] |
|
(dom/get-element selector)) |
|
|
|
(if-let [write-textarea ($ "write-textarea")] |
|
(focus/focusInputField write-textarea)) |
|
|
|
; Show the Preview button as soon as the user starts typing. |
|
(event/listen ($ "write-textarea") |
|
:keypress |
|
(fn [e] |
|
(style/setStyle ($ "form-button") "display" "block")))
|
|
|