# HG changeset patch # User Mike Pavone # Date 1375772801 25200 # Node ID 2b25d0ce2946bb50b7232b071130c8b044b19f64 # Parent a2d2d8e0929124689fb33e734943d203a2143b2a Add fullscreen support and improve experience on tablet browsers by tweaking button text size and disabling zooming. diff -r a2d2d8e09291 -r 2b25d0ce2946 editor.css --- a/editor.css Mon Aug 05 23:37:17 2013 -0700 +++ b/editor.css Tue Aug 06 00:06:41 2013 -0700 @@ -4,6 +4,7 @@ width: 100%; height: 100%; margin: 0; + background-color: white; } body > div @@ -120,6 +121,7 @@ margin: 4px; min-width: 9mm; min-height: 9mm; + text-size: 4mm; cursor: pointer; } diff -r a2d2d8e09291 -r 2b25d0ce2946 editor.js --- a/editor.js Mon Aug 05 23:37:17 2013 -0700 +++ b/editor.js Tue Aug 06 00:06:41 2013 -0700 @@ -201,3 +201,15 @@ to[idx] = val; return to; } + +function goFullScreen() +{ + var el = q('body'); + if (el.requestFullscreen) { + el.requestFullscreen(); + } else if (el.mozRequestFullScreen) { + el.mozRequestFullScreen(); + } else { + el.webkitRequestFullscreen(); + } +} diff -r a2d2d8e09291 -r 2b25d0ce2946 index.html --- a/index.html Mon Aug 05 23:37:17 2013 -0700 +++ b/index.html Tue Aug 06 00:06:41 2013 -0700 @@ -12,11 +12,14 @@ + +

+

diff -r a2d2d8e09291 -r 2b25d0ce2946 src/editor.tp --- a/src/editor.tp Mon Aug 05 23:37:17 2013 -0700 +++ b/src/editor.tp Tue Aug 06 00:06:41 2013 -0700 @@ -7,9 +7,12 @@ removeClass <- foreign: :node className {} hasClass <- foreign: :node className {} get <- foreign: :url onSuccess onFail onOther {} +newEl <- foreign: :tagname props {} + +//editor.js functions getEl <- foreign: :from idx {} setEl <- foreign: :to idx val {} -newEl <- foreign: :tagname props {} +goFullScreen <- foreign: {} //TP Parser parser <- foreign: #{ @@ -26,9 +29,6 @@ keys <- foreign: :object {} } -//kernel definitions -//import: kernel - filter <- :arr pred { output <- arr slice: 0 0 each: arr :idx el { @@ -325,6 +325,9 @@ if: (path indexOf: "/edit/") = 0 { editFile: (path substr: 5) } + (q: "#fullscreen") onclick!: :event { + goFullScreen: + } } }