switch to self-rendering lua code

2 files changed, 108 insertions, 108 deletions

diff --git a/app/index.moon b/app/index.moon
index 3e79c60..59f7a4f 100644
--- a/app/index.moon
+++ b/app/index.moon
@@ -1,45 +1,43 @@
-on_client ->
-  import h1, p, a, br, ul, tt, li from require 'lib.html'
+import h1, p, a, br, ul, tt, li from require 'lib.html'
 
-  moon = '\xe2\x98\xbd'
-  demos =
-    'twisted': 'canvas animation',
-    'todo': 'Todo demo of a simple reactive UI framework',
-    'realities': 'draft of a paper on virtual and other realities',
-    'center_of_mass': 'aligning characters by their centers of mass',
-    'test_component': 'Test suite for the UI framework',
-    'tags': 'Playground for Functional Tags',
+moon = '\xe2\x98\xbd'
+demos =
+  'twisted': 'canvas animation',
+  'todo': 'Todo demo of a simple reactive UI framework',
+  'realities': 'draft of a paper on virtual and other realities',
+  'center_of_mass': 'aligning characters by their centers of mass',
+  'test_component': 'Test suite for the UI framework',
+  'tags': 'Playground for Functional Tags',
 
+on_client ->
   redirs =
     'center-of-mass': 'center_of_mass',
     'test-component': 'test_component',
     'play-tags': 'tags',
 
-  back_button = ->
-    append p a { '< back', href: '/' }
+  { :location } = window
+  if location.search and #location.search > 1
+    name = location.search\sub 2
+    location.href = "#{redirs[name] or name}.html"
 
-  if window.location.search and #window.location.search > 1
-    name = window.location.search\sub 2
-    window.location.href = "#{redirs[name] or name}.html"
-  else
-    append h1 'mmm'
-    append p {
-      tt 'mmm'
-      ' is not the '
-      tt 'www'
-      ', because it runs on '
-      a { 'MoonScript', href: 'https://moonscript.org' }
-      '.'
-      br!
-      'You can find the source code of everything '
-      a { 'here', href: 'https://github.com/s-ol/mmm' }
-      '.'
-    }
-    append p 'current demos:'
-    append ul for name, desc in pairs demos
-      li (a name, href: "/#{name}.html"), ': ', desc
+append h1 'mmm'
+append p {
+  tt 'mmm'
+  ' is not the '
+  tt 'www'
+  ', because it runs on '
+  a { 'MoonScript', href: 'https://moonscript.org' }
+  '.'
+  br!
+  'You can find the source code of everything '
+  a { 'here', href: 'https://github.com/s-ol/mmm' }
+  '.'
+}
+append p 'current demos:'
+append ul for name, desc in pairs demos
+  li (a name, href: "/#{name}.html"), ': ', desc
 
-  append p {
-    "made with #{moon} by "
-    a { 's-ol', href: 'https://twitter.com/S0lll0s' }
-  }
+append p {
+  "made with #{moon} by "
+  a { 's-ol', href: 'https://twitter.com/S0lll0s' }
+}
diff --git a/app/tags/init.moon b/app/tags/init.moon
index 9cbe53f..75469ea 100644
--- a/app/tags/init.moon
+++ b/app/tags/init.moon
@@ -1,86 +1,88 @@
-require = relative ...
-import add_tag, rmv_tag, Node, Hierarchy, Toggle, NamespacedToggle from require '.tags'
-import ReactiveVar, append, tohtml, text, div, form, span, h3, a, input, textarea, button from require 'lib.component'
+on_client ((...) ->
+  require = relative ...
+  import add_tag, rmv_tag, Node, Hierarchy, Toggle, NamespacedToggle from require '.tags'
+  import ReactiveVar, append, tohtml, text, div, form, span, h3, a, input, textarea, button from require 'lib.component'
 
-clone = (set) ->
-  assert set and 'table' == (type set), 'not a set'
-  { k,v for k,v in pairs set }
-set_append = (val) -> (set) ->
-  with copy = clone set
-    copy[val] = val
-set_remove = (val) -> (set) ->
-  with copy = clone set
-    copy[val] = nil
-set_join = (tbl, sep=' ') ->
-  ret = ''
-  for tag in pairs tbl
-    ret ..= (tostring tag) .. sep
-  ret
+  clone = (set) ->
+    assert set and 'table' == (type set), 'not a set'
+    { k,v for k,v in pairs set }
+  set_append = (val) -> (set) ->
+    with copy = clone set
+      copy[val] = val
+  set_remove = (val) -> (set) ->
+    with copy = clone set
+      copy[val] = nil
+  set_join = (tbl, sep=' ') ->
+    ret = ''
+    for tag in pairs tbl
+      ret ..= (tostring tag) .. sep
+    ret
 
-entries = div!
-append entries
+  entries = div!
+  append entries
 
-class ReactiveNode extends Node
-  new: (...) =>
-    super ...
-    @tags = ReactiveVar @tags
-    @_node = div {
-        span @name, style: { 'font-weight': 'bold' },
-        @tags\map (tags) -> with div!
-            for tag,_ in pairs tags
-              \append a (text tag), href: '#', style: {
-                display: 'inline-block',
-                margin: '0 5px',
-              }
-      }
-    @node = tohtml @_node
+  class ReactiveNode extends Node
+    new: (...) =>
+      super ...
+      @tags = ReactiveVar @tags
+      @_node = div {
+          span @name, style: { 'font-weight': 'bold' },
+          @tags\map (tags) -> with div!
+              for tag,_ in pairs tags
+                \append a (text tag), href: '#', style: {
+                  display: 'inline-block',
+                  margin: '0 5px',
+                }
+        }
+      @node = tohtml @_node
 
-  has: (tag) => @tags\get![tag]
-  add: (tag) => @tags\transform set_append tag
-  rmv: (tag) => @tags\transform set_remove tag
+    has: (tag) => @tags\get![tag]
+    add: (tag) => @tags\transform set_append tag
+    rmv: (tag) => @tags\transform set_remove tag
 
-rules = {
-  Hierarchy 'home', 'sol'
-  Hierarchy 'sol', 'desktop'
-  Hierarchy 'desktop', 'vacation'
-  Hierarchy 'desktop', 'documents'
-  NamespacedToggle 'documents', 'work', 'personal'
-  -- Toggle 'work', 'personal'
-  -- Hierarchy 'documents', 'work'
-  -- Hierarchy 'documents', 'personal'
-}
+  rules = {
+    Hierarchy 'home', 'sol'
+    Hierarchy 'sol', 'desktop'
+    Hierarchy 'desktop', 'vacation'
+    Hierarchy 'desktop', 'documents'
+    NamespacedToggle 'documents', 'work', 'personal'
+    -- Toggle 'work', 'personal'
+    -- Hierarchy 'documents', 'work'
+    -- Hierarchy 'documents', 'personal'
+  }
 
-pictures = for i=1,10
-  with node = ReactiveNode "picture#{i}.jpg"
-    entries\append node
-    add_tag node, 'vacation'
+  pictures = for i=1,10
+    with node = ReactiveNode "picture#{i}.jpg"
+      entries\append node
+      add_tag node, 'vacation'
 
-pers = ReactiveNode 'mypersonalfile.doc'
-entries\append pers
+  pers = ReactiveNode 'mypersonalfile.doc'
+  entries\append pers
 
-append div do
-  yield = coroutine.yield
-  step = coroutine.wrap ->
-    yield "mark document"
-    add_tag pers, 'documents'
+  append div do
+    yield = coroutine.yield
+    step = coroutine.wrap ->
+      yield "mark document"
+      add_tag pers, 'documents'
 
-    yield "mark personal"
-    add_tag pers, 'personal'
+      yield "mark personal"
+      add_tag pers, 'personal'
 
-    yield "mark work"
-    add_tag pers, 'work'
+      yield "mark work"
+      add_tag pers, 'work'
 
-    yield "unmark work"
-    rmv_tag pers, 'work'
+      yield "unmark work"
+      rmv_tag pers, 'work'
 
-    yield "remove from documents"
-    rmv_tag pers, 'documents'
+      yield "remove from documents"
+      rmv_tag pers, 'documents'
 
-    yield false
+      yield false
 
-  next_step = ReactiveVar step!
-  next_step\map (desc) ->
-    if desc
-      button (text desc), onclick: (e) => next_step\set step!
-    else
-      text ''
+    next_step = ReactiveVar step!
+    next_step\map (desc) ->
+      if desc
+        button (text desc), onclick: (e) => next_step\set step!
+      else
+        text ''
+), ...