-
Notifications
You must be signed in to change notification settings - Fork 1
/
Copy pathcompact.cirru
232 lines (231 loc) · 10.9 KB
/
compact.cirru
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
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
{} (:package |app)
:configs $ {} (:init-fn |app.main/main!) (:reload-fn |app.main/reload!) (:version |0.0.1)
:modules $ [] |respo.calcit/ |lilac/ |memof/ |respo-ui.calcit/ |respo-markdown.calcit/ |reel.calcit/ |respo-feather.calcit/
:entries $ {}
:files $ {}
|app.comp.container $ %{} :FileEntry
:defs $ {}
|comp-container $ %{} :CodeEntry (:doc |)
:code $ quote
defcomp comp-container (reel)
let
store $ :store reel
states $ :states store
preview? $ :preview? store
div
{} $ :class-name style-container
div
{} (:id "\"article")
:style $ merge ui/flex
{}
:padding $ if preview? "|40px 240px 240px 240px" "|16px 16px 240px 16px"
:flex-shrink 0
:overflow :auto
comp-md-block (:content store)
{} (:css |)
:style $ {} (:font-size 16)
:highlight $ fn (code lang)
if (contains? supported-langs lang)
.-value $ hljs/highlight (get supported-langs lang) code
escape-html code
if (not preview?)
textarea $ {} (:class-name css-textbox)
:value $ :content store
:placeholder "|Markdown syntax supported~"
:on-input $ fn (e d!)
d! :content $ :value e
:autofocus true
div ({})
div
{} $ :style
{} (:position :fixed) (:top 0) (:right 0)
div
{} (:class-name css-icon)
:on-click $ fn (e d!)
d! $ :: :toggle
comp-i :film 14 $ hsl 200 80 80
div
{} (:class-name css-icon)
:on-click $ fn (e d!) (read-from-dom!)
comp-i :volume-2 14 $ hsl 200 80 80
div
{} $ :style
merge ui/center $ {} (:width 40) (:height 40) (:position :fixed) (:right 0) (:bottom 0)
a
{} (:href "\"https://github.com/Memkits/markdown-editor") (:target "\"_blank")
comp-i :github 14 $ hsl 200 80 80
comp-reel (>> states :reel) reel $ {}
|css-icon $ %{} :CodeEntry (:doc |)
:code $ quote
defstyle css-icon $ {}
"\"$0" $ merge ui/center
{} (:width 40) (:height 40) (:cursor :pointer)
|css-textbox $ %{} :CodeEntry (:doc |)
:code $ quote
defstyle css-textbox $ {}
"\"$0" $ merge ui/textarea ui/flex
{} (:resize :none) (:flex-shrink 0) (:font-family ui/font-code) (:padding-bottom 240) (:padding 16) (:border-width "\"0 0 0 1px")
:border-color $ hsl 0 0 95
:border-style :solid
:background-color $ hsl 0 0 98
|read-from-dom! $ %{} :CodeEntry (:doc |)
:code $ quote
defn read-from-dom! () $ let
el $ .-firstChild (js/document.getElementById "\"article")
text-array js/[]
-> el .-children (js/Array.from)
.!forEach $ fn (child & _xs)
if
not= "\"PRE" $ .-tagName child
.!push text-array $ .-innerText child
if-let
key $ get-env "\"azure-key"
speechQueue
.join-str (to-calcit-data text-array) &newline
, key "\"en-US" $ fn ()
let
msg $ new js/SpeechSynthesisUtterance
-> msg .-text $ set!
.join-str (to-calcit-data text-array) &newline
js/speechSynthesis.speak msg
|style-container $ %{} :CodeEntry (:doc |)
:code $ quote
defstyle style-container $ {}
"\"$0" $ merge ui/global ui/row ui/fullscreen
{} $ :overflow :hidden
|supported-langs $ %{} :CodeEntry (:doc |)
:code $ quote
def supported-langs $ {} ("\"clojure" "\"clojure") ("\"clj" "\"clojure") ("\"bash" "\"bash") ("\"js" "\"javascript") ("\"javascript" "\"javascript") ("\"html" "\"xml") ("\"xml" "\"xml") ("\"css" "\"css") ("\"coffeescript" "\"coffeescript") ("\"coffee" "\"coffeescript") ("\"ts" "\"typescript") ("\"typescript" "\"typescript")
:ns $ %{} :CodeEntry (:doc |)
:code $ quote
ns app.comp.container $ :require
[] respo-ui.core :refer $ [] hsl
[] respo-ui.core :as ui
[] respo.core :refer $ [] defcomp >> <> div button textarea span a
[] respo.comp.space :refer $ [] =<
[] reel.comp.reel :refer $ [] comp-reel
[] respo-md.comp.md :refer $ [] comp-md comp-md-block
[] "\"highlight.js" :as hljs
[] "\"escape-html" :default escape-html
[] feather.core :refer $ [] comp-i
respo.css :refer $ defstyle
"\"@memkits/azure-speech-util" :refer $ speechQueue
|app.config $ %{} :FileEntry
:defs $ {}
|dev? $ %{} :CodeEntry (:doc |)
:code $ quote
def dev? $ = "\"dev" (get-env "\"mode" "\"release")
|site $ %{} :CodeEntry (:doc |)
:code $ quote
def site $ {} (:dev-ui "\"http://localhost:8100/main-fonts.css") (:release-ui "\"http://cdn.tiye.me/favored-fonts/main-fonts.css") (:cdn-url "\"http://cdn.tiye.me/markdown-editor/") (:title "\"Markdown Editor") (:icon "\"http://cdn.tiye.me/logo/markdown-editor.png") (:storage-key "\"markdown-editor")
:ns $ %{} :CodeEntry (:doc |)
:code $ quote (ns app.config)
|app.main $ %{} :FileEntry
:defs $ {}
|*reel $ %{} :CodeEntry (:doc |)
:code $ quote
defatom *reel $ -> reel-schema/reel (assoc :base schema/store) (assoc :store schema/store)
|dispatch! $ %{} :CodeEntry (:doc |)
:code $ quote
defn dispatch! (op)
when config/dev? $ println "\"Dispatch:" op
reset! *reel $ reel-updater updater @*reel op
|main! $ %{} :CodeEntry (:doc |)
:code $ quote
defn main! ()
println "\"Running mode:" $ if config/dev? "\"dev" "\"release"
if config/dev? $ load-console-formatter!
.!registerLanguage hljs |clojure clojure-lang
.!registerLanguage hljs |bash bash-lang
.!registerLanguage hljs |coffeescript coffeescript-lang
.!registerLanguage hljs |javascript javascript-lang
.!registerLanguage hljs |css css-lang
.!registerLanguage hljs |xml xml-lang
.!registerLanguage hljs |typescript typescript-lang
render-app!
add-watch *reel :changes $ fn (r p) (render-app!)
listen-devtools! |a dispatch!
js/window.addEventListener "\"beforeunload" persist-storage!
js/window.addEventListener "\"keydown" on-window-keydown
flipped js/setInterval 60000 persist-storage!
let
raw $ js/localStorage.getItem (:storage-key config/site)
if (some? raw)
do $ dispatch!
:: :hydrate-storage $ parse-cirru-edn raw
println "|App started."
|mount-target $ %{} :CodeEntry (:doc |)
:code $ quote
def mount-target $ js/document.querySelector |.app
|on-window-keydown $ %{} :CodeEntry (:doc |)
:code $ quote
defn on-window-keydown (event)
when
and
= "\"e" $ .-key event
.-metaKey event
dispatch! $ :: :toggle
|persist-storage! $ %{} :CodeEntry (:doc |)
:code $ quote
defn persist-storage! (? e)
js/localStorage.setItem (:storage-key config/site)
format-cirru-edn $ :store @*reel
|reload! $ %{} :CodeEntry (:doc |)
:code $ quote
defn reload! () $ if (nil? build-errors)
do (remove-watch *reel :changes) (clear-cache!)
add-watch *reel :changes $ fn (reel prev) (render-app!)
reset! *reel $ refresh-reel @*reel schema/store updater
hud! "\"ok~" "\"Ok"
hud! "\"error" build-errors
|render-app! $ %{} :CodeEntry (:doc |)
:code $ quote
defn render-app! () $ render! mount-target (comp-container @*reel) dispatch!
:ns $ %{} :CodeEntry (:doc |)
:code $ quote
ns app.main $ :require
[] respo.core :refer $ [] render! clear-cache! realize-ssr!
[] app.comp.container :refer $ [] comp-container
[] app.updater :refer $ [] updater
[] app.schema :as schema
[] reel.util :refer $ [] listen-devtools!
[] reel.core :refer $ [] reel-updater refresh-reel
[] reel.schema :as reel-schema
[] cljs.reader :refer $ [] read-string
[] app.config :as config
[] "\"highlight.js" :default hljs
[] "\"highlight.js/lib/languages/clojure" :default clojure-lang
[] "\"highlight.js/lib/languages/coffeescript" :default coffeescript-lang
[] "\"highlight.js/lib/languages/javascript" :default javascript-lang
[] "\"highlight.js/lib/languages/css" :default css-lang
[] "\"highlight.js/lib/languages/xml" :default xml-lang
[] "\"highlight.js/lib/languages/typescript" :default typescript-lang
[] "\"highlight.js/lib/languages/bash" :default bash-lang
"\"./calcit.build-errors" :default build-errors
"\"bottom-tip" :default hud!
|app.schema $ %{} :FileEntry
:defs $ {}
|store $ %{} :CodeEntry (:doc |)
:code $ quote
def store $ {}
:states $ {}
:content |
:preview? false
:ns $ %{} :CodeEntry (:doc |)
:code $ quote (ns app.schema)
|app.updater $ %{} :FileEntry
:defs $ {}
|updater $ %{} :CodeEntry (:doc |)
:code $ quote
defn updater (store op op-id op-time)
tag-match op
:states cursor s
update-states store cursor s
(:content c) (assoc store :content c)
(:hydrate-storage d) d
(:toggle) (update store :preview? not)
_ $ do (eprintln "\"Unknown op:" op) store
:ns $ %{} :CodeEntry (:doc |)
:code $ quote
ns app.updater $ :require
[] respo.cursor :refer $ [] update-states