Mercurial
comparison .cms/lib/codemirror/mode/livescript/index.html @ 0:78edf6b517a0 draft
24.10
author | Coffee CMS <info@coffee-cms.ru> |
---|---|
date | Fri, 11 Oct 2024 22:40:23 +0000 |
parents | |
children |
comparison
equal
deleted
inserted
replaced
-1:000000000000 | 0:78edf6b517a0 |
---|---|
1 <!doctype html> | |
2 | |
3 <title>CodeMirror: LiveScript mode</title> | |
4 <meta charset="utf-8"/> | |
5 <link rel=stylesheet href="../../doc/docs.css"> | |
6 | |
7 <link rel="stylesheet" href="../../lib/codemirror.css"> | |
8 <link rel="stylesheet" href="../../theme/solarized.css"> | |
9 <script src="../../lib/codemirror.js"></script> | |
10 <script src="livescript.js"></script> | |
11 <style>.CodeMirror {font-size: 80%;border-top: 1px solid silver; border-bottom: 1px solid silver;}</style> | |
12 <div id=nav> | |
13 <a href="https://codemirror.net/5"><h1>CodeMirror</h1><img id=logo src="../../doc/logo.png" alt=""></a> | |
14 | |
15 <ul> | |
16 <li><a href="../../index.html">Home</a> | |
17 <li><a href="../../doc/manual.html">Manual</a> | |
18 <li><a href="https://github.com/codemirror/codemirror5">Code</a> | |
19 </ul> | |
20 <ul> | |
21 <li><a href="../index.html">Language modes</a> | |
22 <li><a class=active href="#">LiveScript</a> | |
23 </ul> | |
24 </div> | |
25 | |
26 <article> | |
27 <h2>LiveScript mode</h2> | |
28 <form><textarea id="code" name="code"> | |
29 # LiveScript mode for CodeMirror | |
30 # The following script, prelude.ls, is used to | |
31 # demonstrate LiveScript mode for CodeMirror. | |
32 # https://github.com/gkz/prelude-ls | |
33 | |
34 export objToFunc = objToFunc = (obj) -> | |
35 (key) -> obj[key] | |
36 | |
37 export each = (f, xs) --> | |
38 if typeof! xs is \Object | |
39 for , x of xs then f x | |
40 else | |
41 for x in xs then f x | |
42 xs | |
43 | |
44 export map = (f, xs) --> | |
45 f = objToFunc f if typeof! f isnt \Function | |
46 type = typeof! xs | |
47 if type is \Object | |
48 {[key, f x] for key, x of xs} | |
49 else | |
50 result = [f x for x in xs] | |
51 if type is \String then result * '' else result | |
52 | |
53 export filter = (f, xs) --> | |
54 f = objToFunc f if typeof! f isnt \Function | |
55 type = typeof! xs | |
56 if type is \Object | |
57 {[key, x] for key, x of xs when f x} | |
58 else | |
59 result = [x for x in xs when f x] | |
60 if type is \String then result * '' else result | |
61 | |
62 export reject = (f, xs) --> | |
63 f = objToFunc f if typeof! f isnt \Function | |
64 type = typeof! xs | |
65 if type is \Object | |
66 {[key, x] for key, x of xs when not f x} | |
67 else | |
68 result = [x for x in xs when not f x] | |
69 if type is \String then result * '' else result | |
70 | |
71 export partition = (f, xs) --> | |
72 f = objToFunc f if typeof! f isnt \Function | |
73 type = typeof! xs | |
74 if type is \Object | |
75 passed = {} | |
76 failed = {} | |
77 for key, x of xs | |
78 (if f x then passed else failed)[key] = x | |
79 else | |
80 passed = [] | |
81 failed = [] | |
82 for x in xs | |
83 (if f x then passed else failed)push x | |
84 if type is \String | |
85 passed *= '' | |
86 failed *= '' | |
87 [passed, failed] | |
88 | |
89 export find = (f, xs) --> | |
90 f = objToFunc f if typeof! f isnt \Function | |
91 if typeof! xs is \Object | |
92 for , x of xs when f x then return x | |
93 else | |
94 for x in xs when f x then return x | |
95 void | |
96 | |
97 export head = export first = (xs) -> | |
98 return void if not xs.length | |
99 xs.0 | |
100 | |
101 export tail = (xs) -> | |
102 return void if not xs.length | |
103 xs.slice 1 | |
104 | |
105 export last = (xs) -> | |
106 return void if not xs.length | |
107 xs[*-1] | |
108 | |
109 export initial = (xs) -> | |
110 return void if not xs.length | |
111 xs.slice 0 xs.length - 1 | |
112 | |
113 export empty = (xs) -> | |
114 if typeof! xs is \Object | |
115 for x of xs then return false | |
116 return yes | |
117 not xs.length | |
118 | |
119 export values = (obj) -> | |
120 [x for , x of obj] | |
121 | |
122 export keys = (obj) -> | |
123 [x for x of obj] | |
124 | |
125 export len = (xs) -> | |
126 xs = values xs if typeof! xs is \Object | |
127 xs.length | |
128 | |
129 export cons = (x, xs) --> | |
130 if typeof! xs is \String then x + xs else [x] ++ xs | |
131 | |
132 export append = (xs, ys) --> | |
133 if typeof! ys is \String then xs + ys else xs ++ ys | |
134 | |
135 export join = (sep, xs) --> | |
136 xs = values xs if typeof! xs is \Object | |
137 xs.join sep | |
138 | |
139 export reverse = (xs) -> | |
140 if typeof! xs is \String | |
141 then (xs / '')reverse! * '' | |
142 else xs.slice!reverse! | |
143 | |
144 export fold = export foldl = (f, memo, xs) --> | |
145 if typeof! xs is \Object | |
146 for , x of xs then memo = f memo, x | |
147 else | |
148 for x in xs then memo = f memo, x | |
149 memo | |
150 | |
151 export fold1 = export foldl1 = (f, xs) --> fold f, xs.0, xs.slice 1 | |
152 | |
153 export foldr = (f, memo, xs) --> fold f, memo, xs.slice!reverse! | |
154 | |
155 export foldr1 = (f, xs) --> | |
156 xs.=slice!reverse! | |
157 fold f, xs.0, xs.slice 1 | |
158 | |
159 export unfoldr = export unfold = (f, b) --> | |
160 if (f b)? | |
161 [that.0] ++ unfoldr f, that.1 | |
162 else | |
163 [] | |
164 | |
165 export andList = (xs) -> | |
166 for x in xs when not x | |
167 return false | |
168 true | |
169 | |
170 export orList = (xs) -> | |
171 for x in xs when x | |
172 return true | |
173 false | |
174 | |
175 export any = (f, xs) --> | |
176 f = objToFunc f if typeof! f isnt \Function | |
177 for x in xs when f x | |
178 return yes | |
179 no | |
180 | |
181 export all = (f, xs) --> | |
182 f = objToFunc f if typeof! f isnt \Function | |
183 for x in xs when not f x | |
184 return no | |
185 yes | |
186 | |
187 export unique = (xs) -> | |
188 result = [] | |
189 if typeof! xs is \Object | |
190 for , x of xs when x not in result then result.push x | |
191 else | |
192 for x in xs when x not in result then result.push x | |
193 if typeof! xs is \String then result * '' else result | |
194 | |
195 export sort = (xs) -> | |
196 xs.concat!sort (x, y) -> | |
197 | x > y => 1 | |
198 | x < y => -1 | |
199 | _ => 0 | |
200 | |
201 export sortBy = (f, xs) --> | |
202 return [] unless xs.length | |
203 xs.concat!sort f | |
204 | |
205 export compare = (f, x, y) --> | |
206 | (f x) > (f y) => 1 | |
207 | (f x) < (f y) => -1 | |
208 | otherwise => 0 | |
209 | |
210 export sum = (xs) -> | |
211 result = 0 | |
212 if typeof! xs is \Object | |
213 for , x of xs then result += x | |
214 else | |
215 for x in xs then result += x | |
216 result | |
217 | |
218 export product = (xs) -> | |
219 result = 1 | |
220 if typeof! xs is \Object | |
221 for , x of xs then result *= x | |
222 else | |
223 for x in xs then result *= x | |
224 result | |
225 | |
226 export mean = export average = (xs) -> (sum xs) / len xs | |
227 | |
228 export concat = (xss) -> fold append, [], xss | |
229 | |
230 export concatMap = (f, xs) --> fold ((memo, x) -> append memo, f x), [], xs | |
231 | |
232 export listToObj = (xs) -> | |
233 {[x.0, x.1] for x in xs} | |
234 | |
235 export maximum = (xs) -> fold1 (>?), xs | |
236 | |
237 export minimum = (xs) -> fold1 (<?), xs | |
238 | |
239 export scan = export scanl = (f, memo, xs) --> | |
240 last = memo | |
241 if typeof! xs is \Object | |
242 then [memo] ++ [last = f last, x for , x of xs] | |
243 else [memo] ++ [last = f last, x for x in xs] | |
244 | |
245 export scan1 = export scanl1 = (f, xs) --> scan f, xs.0, xs.slice 1 | |
246 | |
247 export scanr = (f, memo, xs) --> | |
248 xs.=slice!reverse! | |
249 scan f, memo, xs .reverse! | |
250 | |
251 export scanr1 = (f, xs) --> | |
252 xs.=slice!reverse! | |
253 scan f, xs.0, xs.slice 1 .reverse! | |
254 | |
255 export replicate = (n, x) --> | |
256 result = [] | |
257 i = 0 | |
258 while i < n, ++i then result.push x | |
259 result | |
260 | |
261 export take = (n, xs) --> | |
262 | n <= 0 | |
263 if typeof! xs is \String then '' else [] | |
264 | not xs.length => xs | |
265 | otherwise => xs.slice 0, n | |
266 | |
267 export drop = (n, xs) --> | |
268 | n <= 0 => xs | |
269 | not xs.length => xs | |
270 | otherwise => xs.slice n | |
271 | |
272 export splitAt = (n, xs) --> [(take n, xs), (drop n, xs)] | |
273 | |
274 export takeWhile = (p, xs) --> | |
275 return xs if not xs.length | |
276 p = objToFunc p if typeof! p isnt \Function | |
277 result = [] | |
278 for x in xs | |
279 break if not p x | |
280 result.push x | |
281 if typeof! xs is \String then result * '' else result | |
282 | |
283 export dropWhile = (p, xs) --> | |
284 return xs if not xs.length | |
285 p = objToFunc p if typeof! p isnt \Function | |
286 i = 0 | |
287 for x in xs | |
288 break if not p x | |
289 ++i | |
290 drop i, xs | |
291 | |
292 export span = (p, xs) --> [(takeWhile p, xs), (dropWhile p, xs)] | |
293 | |
294 export breakIt = (p, xs) --> span (not) << p, xs | |
295 | |
296 export zip = (xs, ys) --> | |
297 result = [] | |
298 for zs, i in [xs, ys] | |
299 for z, j in zs | |
300 result.push [] if i is 0 | |
301 result[j]?push z | |
302 result | |
303 | |
304 export zipWith = (f,xs, ys) --> | |
305 f = objToFunc f if typeof! f isnt \Function | |
306 if not xs.length or not ys.length | |
307 [] | |
308 else | |
309 [f.apply this, zs for zs in zip.call this, xs, ys] | |
310 | |
311 export zipAll = (...xss) -> | |
312 result = [] | |
313 for xs, i in xss | |
314 for x, j in xs | |
315 result.push [] if i is 0 | |
316 result[j]?push x | |
317 result | |
318 | |
319 export zipAllWith = (f, ...xss) -> | |
320 f = objToFunc f if typeof! f isnt \Function | |
321 if not xss.0.length or not xss.1.length | |
322 [] | |
323 else | |
324 [f.apply this, xs for xs in zipAll.apply this, xss] | |
325 | |
326 export compose = (...funcs) -> | |
327 -> | |
328 args = arguments | |
329 for f in funcs | |
330 args = [f.apply this, args] | |
331 args.0 | |
332 | |
333 export curry = (f) -> | |
334 curry$ f # using util method curry$ from livescript | |
335 | |
336 export id = (x) -> x | |
337 | |
338 export flip = (f, x, y) --> f y, x | |
339 | |
340 export fix = (f) -> | |
341 ( (g, x) -> -> f(g g) ...arguments ) do | |
342 (g, x) -> -> f(g g) ...arguments | |
343 | |
344 export lines = (str) -> | |
345 return [] if not str.length | |
346 str / \\n | |
347 | |
348 export unlines = (strs) -> strs * \\n | |
349 | |
350 export words = (str) -> | |
351 return [] if not str.length | |
352 str / /[ ]+/ | |
353 | |
354 export unwords = (strs) -> strs * ' ' | |
355 | |
356 export max = (>?) | |
357 | |
358 export min = (<?) | |
359 | |
360 export negate = (x) -> -x | |
361 | |
362 export abs = Math.abs | |
363 | |
364 export signum = (x) -> | |
365 | x < 0 => -1 | |
366 | x > 0 => 1 | |
367 | otherwise => 0 | |
368 | |
369 export quot = (x, y) --> ~~(x / y) | |
370 | |
371 export rem = (%) | |
372 | |
373 export div = (x, y) --> Math.floor x / y | |
374 | |
375 export mod = (%%) | |
376 | |
377 export recip = (1 /) | |
378 | |
379 export pi = Math.PI | |
380 | |
381 export tau = pi * 2 | |
382 | |
383 export exp = Math.exp | |
384 | |
385 export sqrt = Math.sqrt | |
386 | |
387 # changed from log as log is a | |
388 # common function for logging things | |
389 export ln = Math.log | |
390 | |
391 export pow = (^) | |
392 | |
393 export sin = Math.sin | |
394 | |
395 export tan = Math.tan | |
396 | |
397 export cos = Math.cos | |
398 | |
399 export asin = Math.asin | |
400 | |
401 export acos = Math.acos | |
402 | |
403 export atan = Math.atan | |
404 | |
405 export atan2 = (x, y) --> Math.atan2 x, y | |
406 | |
407 # sinh | |
408 # tanh | |
409 # cosh | |
410 # asinh | |
411 # atanh | |
412 # acosh | |
413 | |
414 export truncate = (x) -> ~~x | |
415 | |
416 export round = Math.round | |
417 | |
418 export ceiling = Math.ceil | |
419 | |
420 export floor = Math.floor | |
421 | |
422 export isItNaN = (x) -> x isnt x | |
423 | |
424 export even = (x) -> x % 2 == 0 | |
425 | |
426 export odd = (x) -> x % 2 != 0 | |
427 | |
428 export gcd = (x, y) --> | |
429 x = Math.abs x | |
430 y = Math.abs y | |
431 until y is 0 | |
432 z = x % y | |
433 x = y | |
434 y = z | |
435 x | |
436 | |
437 export lcm = (x, y) --> | |
438 Math.abs Math.floor (x / (gcd x, y) * y) | |
439 | |
440 # meta | |
441 export installPrelude = !(target) -> | |
442 unless target.prelude?isInstalled | |
443 target <<< out$ # using out$ generated by livescript | |
444 target <<< target.prelude.isInstalled = true | |
445 | |
446 export prelude = out$ | |
447 </textarea></form> | |
448 <script> | |
449 var editor = CodeMirror.fromTextArea(document.getElementById("code"), { | |
450 theme: "solarized light", | |
451 lineNumbers: true | |
452 }); | |
453 </script> | |
454 | |
455 <p><strong>MIME types defined:</strong> <code>text/x-livescript</code>.</p> | |
456 | |
457 <p>The LiveScript mode was written by Kenneth Bentley.</p> | |
458 | |
459 </article> |