Mercurial > repos > tabletprog

comparison src/editor.tp @ 127:2b25d0ce2946

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add fullscreen support and improve experience on tablet browsers by tweaking button text size and disabling zooming.
author Mike Pavone <pavone@retrodev.com>
date Tue, 06 Aug 2013 00:06:41 -0700
parents 1157639353e7
children 8285784f5ff5
comparison
equal deleted inserted replaced
126:a2d2d8e09291 127:2b25d0ce2946
5 each <- foreign: :iterable fun {} 5 each <- foreign: :iterable fun {}
6 addClass <- foreign: :node className {} 6 addClass <- foreign: :node className {}
7 removeClass <- foreign: :node className {} 7 removeClass <- foreign: :node className {}
8 hasClass <- foreign: :node className {} 8 hasClass <- foreign: :node className {}
9 get <- foreign: :url onSuccess onFail onOther {} 9 get <- foreign: :url onSuccess onFail onOther {}
10 newEl <- foreign: :tagname props {}
11
12 //editor.js functions
10 getEl <- foreign: :from idx {} 13 getEl <- foreign: :from idx {}
11 setEl <- foreign: :to idx val {} 14 setEl <- foreign: :to idx val {}
12 newEl <- foreign: :tagname props {} 15 goFullScreen <- foreign: {}
13 16
14 //TP Parser 17 //TP Parser
15 parser <- foreign: #{ 18 parser <- foreign: #{
16 parse <- foreign: :str {} 19 parse <- foreign: :str {}
17 } 20 }
23 } 26 }
24 window <- foreign: #{} 27 window <- foreign: #{}
25 Object <- foreign: #{ 28 Object <- foreign: #{
26 keys <- foreign: :object {} 29 keys <- foreign: :object {}
27 } 30 }
28
29 //kernel definitions
30 //import: kernel
31 31
32 filter <- :arr pred { 32 filter <- :arr pred {
33 output <- arr slice: 0 0 33 output <- arr slice: 0 0
34 each: arr :idx el { 34 each: arr :idx el {
35 if: (pred: el) { 35 if: (pred: el) {
323 323
324 path <- (window location) pathname 324 path <- (window location) pathname
325 if: (path indexOf: "/edit/") = 0 { 325 if: (path indexOf: "/edit/") = 0 {
326 editFile: (path substr: 5) 326 editFile: (path substr: 5)
327 } 327 }
328 } 328 (q: "#fullscreen") onclick!: :event {
329 329 goFullScreen:
330 } 330 }
331 }
332
333 }