A pastebin for markdown pages.
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.
|
|
|
|
(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")))
|
