fix tablefs on client

1 files changed, 125 insertions, 118 deletions

diff --git a/app/tablefs/init.moon b/app/tablefs/init.moon
index 7eddc7c..5f31781 100644
--- a/app/tablefs/init.moon
+++ b/app/tablefs/init.moon
@@ -1,138 +1,145 @@
-export ^
-
-interps = {
-  {
-    name: 'moon',
-    transform: (method) => method @
-  },
-  {
-    name: 'http',
-    transform: (...) -> ... -- @TODO
-  },
-}
-
-split = (str, delim='->') ->
-  return {}, str if nil == str\find delim
-
-  -- @TODO interp chain?
-  interp, rest = str\match ' *(%w+) *-> *(.*)'
-  { interp }, rest
-
-class Key
-  new: (opts) =>
-    if 'string' == type opts
-      @name, rest = opts\match '(%w+): *(.+)'
-      if not @name
-        @name = ''
-        rest = opts
-      @interps, @type = split rest, '->'
-    elseif 'table' == type opts
-      @name = opts.name
-      @type = assert opts.type, 'no type given'
-      @interps = opts.interps or {}
-    else
-      error 'wrong argument type'
-
-  -- get a function that interpretes thi type according to @interps
-  get_interp: (overrides) =>
-    return ((val) => val) if #@interps == 0
-
-    assert #@interps == 1, 'not supported rn' -- @TODO
-    _name = @interps[1]
-
-    return overrides[_name] if overrides and overrides[_name]
+on_client ((...) ->
+  export ^
+
+  interps = {
+    {
+      name: 'moon',
+      transform: (method) => method @
+    },
+    {
+      name: 'http',
+      transform: (...) -> ... -- @TODO
+    },
+  }
 
-    for { :name, :transform } in *interps
-      if name == _name
-        return transform
+  split = (str, delim='->') ->
+    return {}, str if nil == str\find delim
+
+    -- @TODO interp chain?
+    interp, rest = str\match ' *(%w+) *-> *(.*)'
+    { interp }, rest
+
+  class Key
+    new: (opts) =>
+      if 'string' == type opts
+        @name, rest = opts\match '(%w+): *(.+)'
+        if not @name
+          @name = ''
+          rest = opts
+        @interps, @type = split rest, '->'
+      elseif 'table' == type opts
+        @name = opts.name
+        @type = assert opts.type, 'no type given'
+        @interps = opts.interps or {}
+      else
+        error 'wrong argument type'
+
+    -- get a function that interpretes thi type according to @interps
+    get_interp: (overrides) =>
+      return ((val) => val) if #@interps == 0
+
+      assert #@interps == 1, 'not supported rn' -- @TODO
+      _name = @interps[1]
+
+      return overrides[_name] if overrides and overrides[_name]
+
+      for { :name, :transform } in *interps
+        if name == _name
+          return transform
+
+      error "interp not found: '#{_name}'"
+
+  transforms = {
+    {
+      inp: 'mmm/dom',
+      out: 'text/html',
+      transform: (node) -> if MODE == 'SERVER' then node else node.outerHTML
+    },
+    {
+      inp: 'mmm/component',
+      out: 'mmm/dom',
+      transform: (...) ->
+        import tohtml from require 'lib.component'
+        tohtml ...
+    },
+    {
+      -- @TODO this chained rule *should* be inferred, but that's way too hot rn
+      inp: 'mmm/component',
+      out: 'text/html',
+      transform: (node) ->
+        import tohtml from require 'lib.component'
 
-    error "interp not found: '#{_name}'"
+        node = tohtml node
+        if MODE == 'SERVER' then node else node.outerHTML
+    },
+  }
 
-transforms = {
-  {
-    inp: 'mmm/dom',
-    out: 'text/html',
-    transform: (node) -> if MODE == 'SERVER' then node else node.outerHTML
-  },
-  {
-    inp: 'mmm/component',
-    out: 'mmm/dom',
-    transform: (...) ->
-      import tohtml from require 'lib.component'
-      tohtml ...
-  },
-  {
-    -- @TODO this chained rule *should* be inferred, but that's way too hot rn
-    inp: 'mmm/component',
-    out: 'text/html',
-    transform: (node) ->
-      import tohtml from require 'lib.component'
-
-      node = tohtml node
-      if MODE == 'SERVER' then node else node.outerHTML
-  },
-}
-
-if MODE == 'SERVER'
   table.insert transforms, {
     inp: 'text/html',
     out: 'mmm/dom',
-    transform: (...) -> ...
-  }
-
-do
-  success, discount = pcall require, 'discount'
-  if success
-    table.insert transforms, {
-      inp: 'text/markdown',
-      out: 'text/html',
-      transform: discount,
+    transform: if MODE == 'SERVER'
+      (...) -> ...
+    else
+      (html) ->
+        tmp = document\createElement 'div'
+        tmp.innerHTML = html
+        tmp.firstChild
     }
 
-    if MODE == 'SERVER'
-      -- @TODO chained w above
+  do
+    success, discount = pcall require, 'discount'
+    if success
       table.insert transforms, {
-       inp: 'text/markdown',
-        out: 'mmm/dom',
+        inp: 'text/markdown',
+        out: 'text/html',
         transform: discount,
       }
 
-class Fileder
-  new: (props, @children) =>
-    if not @children
-      @children = for i, child in ipairs props
-        props[i] = nil
-        child
-
-    @props = { (Key k), v for k, v in pairs props }
-
-  gett: (...) => assert @get ...
-  get: (name='', type, overrides) =>
-    if not type
-      type = name
-      name = ''
-
-    -- first pass, interps only
-    for key, value in pairs @props
-      continue unless key.name == name and key.type == type
+      if MODE == 'SERVER'
+        -- @TODO chained w above
+        table.insert transforms, {
+         inp: 'text/markdown',
+          out: 'mmm/dom',
+          transform: discount,
+        }
+
+  class Fileder
+    new: (props, @children) =>
+      if not @children
+        @children = for i, child in ipairs props
+          props[i] = nil
+          child
+
+      @props = { (Key k), v for k, v in pairs props }
+
+    gett: (...) => assert @get ...
+    get: (name='', type, overrides) =>
+      if not type
+        type = name
+        name = ''
+
+      -- first pass, interps only
+      for key, value in pairs @props
+        continue unless key.name == name and key.type == type
 
-      interp = key\get_interp overrides
+        interp = key\get_interp overrides
 
-      return interp @, value
+        return interp @, value
 
-    if not overrides
-      -- second pass, interps + transforms
-      for key, value in pairs @props
-        continue unless key.name == name
+      if not overrides
+        -- second pass, interps + transforms
+        for key, value in pairs @props
+          continue unless key.name == name
 
-        interp = key\get_interp!
+          interp = key\get_interp!
 
-        for { :inp, :out, :transform } in *transforms
-          return transform interp @, value if inp == key.type and out == type
+          for { :inp, :out, :transform } in *transforms
+            return transform interp @, value if inp == key.type and out == type
 
-    nil, "node doesn't have value for #{name}:#{type}"
+      nil, "node doesn't have value for #{name}:#{type}"
 
-require = relative ...
-root = require '.tablefs'
+  require = relative ...
+  root = require '.tablefs'
 
-append root\gett 'mmm/dom'
+  append root\gett 'mmm/dom'
+), ...