blob: 353f32803da2acc4863739d2a114e7ddb9802a06 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
|
(ns jsrepl)
(def append-dom)
(defn dom [o]
(if (coll? o)
(let [[tag attrs & body] o]
(if (keyword? tag)
(let [elem (.createElement document (name tag))]
(when (map? attrs)
(doseq [[k v] attrs]
(when v (.setAttribute elem (name k) v))))
[(append-dom elem (if (map? attrs) body (cons attrs body)))])
(mapcat dom o)))
(when o
[(.createTextNode document (str o))])))
(defn append-dom [parent v]
(doseq [i (dom v)]
(.appendChild parent i))
parent)
(def elems)
(def lastval)
(def *print-class* nil)
(defn repl-print [text]
(let [log (:log elems)]
(doseq [line (.split text #"\n")]
(append-dom log
[:div {:class (str "cg "
(when *print-class*
(str " " *print-class*)))}
line]))
(set! (.scrollTop log) (.scrollHeight log))))
(defn postexpr []
(append-dom (:log elems)
[:table
[:tbody
[:tr
[:td {:class "cg"} "user=> "]
[:td (-> :input elems .value (.replace #"\n$" ""))]]]])
(set! (-> :scripts elems .innerHTML) "")
(set! (-> :input elems .value) ""))
(defmacro print-with-class [c m]
`(binding [*print-class* ~c]
(println ~m)))
(defn show-state [url]
(set! (-> :status elems .src) url))
(defn state [status msg]
(cond
(= status "incomplete") (show-state "dots.png")
(= status "done") (prn lastval)
(= status "error") (do
(postexpr)
(show-state "blank.gif")
(print-with-class "err" msg))
(= status "compiled") (do
(postexpr)
(setTimeout #(show-state "blank.gif") 0))))
(defn err [e]
(print-with-class "err" e)
(set! *e e))
(set! *print-length* 103)
(set! (.onload window) (fn []
; no refs yet, so just re-def
(set! elems (into {} (for [n '(log input status scripts)]
[(keyword n) (.getElementById document (str n))])))
(set! (.print window) repl-print)
(set! (.onkeypress (:input elems))
(fn [e]
(let [e (or e event)]
(when (== (.keyCode e) 13)
(set! (-> :status elems .src) "clojure-logo-anim-03.gif")
(append-dom (:scripts elems)
[:script {:src (str "http://localhost/proj/cgi-proxy/cgi-proxy.cgi?"
(-> :input elems .value escape
(.replace #"\+" "%2b")))}])))))
(println "ClojureScript")
(.focus (:input elems))))
|
