Mercurial > repos > tabletprog

comparison src/editor.tp @ 31:668f533e5284

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add initial version of C backend
author Mike Pavone <pavone@retrodev.com>
date Sat, 07 Jul 2012 16:48:36 -0700
parents 608eb70fe261
children 648659961e0e
comparison
equal deleted inserted replaced
30:608eb70fe261 31:668f533e5284
22 Object <- foreign: #{ 22 Object <- foreign: #{
23 keys <- foreign: :object {} 23 keys <- foreign: :object {}
24 } 24 }
25 25
26 //kernel definitions 26 //kernel definitions
27 true <- #{ 27 import: kernel
28 if:else <- :self trueblock :elseblock {
29 trueblock:
30 }
31 }
32
33 false <- #{
34 if:else <- :self trueblock :elseblock {
35 elseblock:
36 }
37 }
38
39 filter <- :arr pred {
40 output <- arr slice: 0 0
41 each: arr :idx el {
42 if: (pred: el) {
43 output push: el
44 } else: {}
45 }
46 output
47 }
48 28
49 //editor code 29 //editor code
50 editFile <- :path { 30 editFile <- :path {
51 get: path :request { 31 get: path :request {
52 addClass: (q: "body") "editorMode" 32 addClass: (q: "body") "editorMode"