scripts/CodeMirror/mode/livescript/index.html (view raw)
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"><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/codemirror">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
34export objToFunc = objToFunc = (obj) ->
35 (key) -> obj[key]
36
37export 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
44export 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
53export 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
62export 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
71export 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
89export 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
97export head = export first = (xs) ->
98 return void if not xs.length
99 xs.0
100
101export tail = (xs) ->
102 return void if not xs.length
103 xs.slice 1
104
105export last = (xs) ->
106 return void if not xs.length
107 xs[*-1]
108
109export initial = (xs) ->
110 return void if not xs.length
111 xs.slice 0 xs.length - 1
112
113export empty = (xs) ->
114 if typeof! xs is \Object
115 for x of xs then return false
116 return yes
117 not xs.length
118
119export values = (obj) ->
120 [x for , x of obj]
121
122export keys = (obj) ->
123 [x for x of obj]
124
125export len = (xs) ->
126 xs = values xs if typeof! xs is \Object
127 xs.length
128
129export cons = (x, xs) -->
130 if typeof! xs is \String then x + xs else [x] ++ xs
131
132export append = (xs, ys) -->
133 if typeof! ys is \String then xs + ys else xs ++ ys
134
135export join = (sep, xs) -->
136 xs = values xs if typeof! xs is \Object
137 xs.join sep
138
139export reverse = (xs) ->
140 if typeof! xs is \String
141 then (xs / '')reverse! * ''
142 else xs.slice!reverse!
143
144export 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
151export fold1 = export foldl1 = (f, xs) --> fold f, xs.0, xs.slice 1
152
153export foldr = (f, memo, xs) --> fold f, memo, xs.slice!reverse!
154
155export foldr1 = (f, xs) -->
156 xs.=slice!reverse!
157 fold f, xs.0, xs.slice 1
158
159export unfoldr = export unfold = (f, b) -->
160 if (f b)?
161 [that.0] ++ unfoldr f, that.1
162 else
163 []
164
165export andList = (xs) ->
166 for x in xs when not x
167 return false
168 true
169
170export orList = (xs) ->
171 for x in xs when x
172 return true
173 false
174
175export 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
181export 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
187export 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
195export sort = (xs) ->
196 xs.concat!sort (x, y) ->
197 | x > y => 1
198 | x < y => -1
199 | _ => 0
200
201export sortBy = (f, xs) -->
202 return [] unless xs.length
203 xs.concat!sort f
204
205export compare = (f, x, y) -->
206 | (f x) > (f y) => 1
207 | (f x) < (f y) => -1
208 | otherwise => 0
209
210export 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
218export 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
226export mean = export average = (xs) -> (sum xs) / len xs
227
228export concat = (xss) -> fold append, [], xss
229
230export concatMap = (f, xs) --> fold ((memo, x) -> append memo, f x), [], xs
231
232export listToObj = (xs) ->
233 {[x.0, x.1] for x in xs}
234
235export maximum = (xs) -> fold1 (>?), xs
236
237export minimum = (xs) -> fold1 (<?), xs
238
239export 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
245export scan1 = export scanl1 = (f, xs) --> scan f, xs.0, xs.slice 1
246
247export scanr = (f, memo, xs) -->
248 xs.=slice!reverse!
249 scan f, memo, xs .reverse!
250
251export scanr1 = (f, xs) -->
252 xs.=slice!reverse!
253 scan f, xs.0, xs.slice 1 .reverse!
254
255export replicate = (n, x) -->
256 result = []
257 i = 0
258 while i < n, ++i then result.push x
259 result
260
261export 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
267export drop = (n, xs) -->
268 | n <= 0 => xs
269 | not xs.length => xs
270 | otherwise => xs.slice n
271
272export splitAt = (n, xs) --> [(take n, xs), (drop n, xs)]
273
274export 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
283export 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
292export span = (p, xs) --> [(takeWhile p, xs), (dropWhile p, xs)]
293
294export breakIt = (p, xs) --> span (not) << p, xs
295
296export 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
304export 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
311export 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
319export 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
326export compose = (...funcs) ->
327 ->
328 args = arguments
329 for f in funcs
330 args = [f.apply this, args]
331 args.0
332
333export curry = (f) ->
334 curry$ f # using util method curry$ from livescript
335
336export id = (x) -> x
337
338export flip = (f, x, y) --> f y, x
339
340export fix = (f) ->
341 ( (g, x) -> -> f(g g) ...arguments ) do
342 (g, x) -> -> f(g g) ...arguments
343
344export lines = (str) ->
345 return [] if not str.length
346 str / \\n
347
348export unlines = (strs) -> strs * \\n
349
350export words = (str) ->
351 return [] if not str.length
352 str / /[ ]+/
353
354export unwords = (strs) -> strs * ' '
355
356export max = (>?)
357
358export min = (<?)
359
360export negate = (x) -> -x
361
362export abs = Math.abs
363
364export signum = (x) ->
365 | x < 0 => -1
366 | x > 0 => 1
367 | otherwise => 0
368
369export quot = (x, y) --> ~~(x / y)
370
371export rem = (%)
372
373export div = (x, y) --> Math.floor x / y
374
375export mod = (%%)
376
377export recip = (1 /)
378
379export pi = Math.PI
380
381export tau = pi * 2
382
383export exp = Math.exp
384
385export sqrt = Math.sqrt
386
387# changed from log as log is a
388# common function for logging things
389export ln = Math.log
390
391export pow = (^)
392
393export sin = Math.sin
394
395export tan = Math.tan
396
397export cos = Math.cos
398
399export asin = Math.asin
400
401export acos = Math.acos
402
403export atan = Math.atan
404
405export atan2 = (x, y) --> Math.atan2 x, y
406
407# sinh
408# tanh
409# cosh
410# asinh
411# atanh
412# acosh
413
414export truncate = (x) -> ~~x
415
416export round = Math.round
417
418export ceiling = Math.ceil
419
420export floor = Math.floor
421
422export isItNaN = (x) -> x isnt x
423
424export even = (x) -> x % 2 == 0
425
426export odd = (x) -> x % 2 != 0
427
428export 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
437export lcm = (x, y) -->
438 Math.abs Math.floor (x / (gcd x, y) * y)
439
440# meta
441export installPrelude = !(target) ->
442 unless target.prelude?isInstalled
443 target <<< out$ # using out$ generated by livescript
444 target <<< target.prelude.isInstalled = true
445
446export 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>