From b99de1d4e79e6c4a548d9dddca730eaeeb63a1c9 Mon Sep 17 00:00:00 2001 From: s-ol Date: Wed, 31 Oct 2018 19:52:16 +1100 Subject: almost there tbh --- lib/mmmfs/browser.moon | 105 ++++++++++++++++++++++++++++++++----------------- 1 file changed, 69 insertions(+), 36 deletions(-) (limited to 'lib/mmmfs/browser.moon') diff --git a/lib/mmmfs/browser.moon b/lib/mmmfs/browser.moon index a4080c2..5f70174 100644 --- a/lib/mmmfs/browser.moon +++ b/lib/mmmfs/browser.moon @@ -6,28 +6,47 @@ import div, span, a, select, option from elements limit = (list, num) -> [v for i,v in ipairs list when i <= num] -class Browser - new: (@root, @path={}, rehydrate=false) => - @path = ReactiveVar @path - -- @path\subscribe (path) -> window.location.hash = '/' .. table.concat path, '/' - @prop = ReactiveVar (@root\find 'mmm/dom') or next @root.props - @active = @path\map (path) -> - fileder = @root - for name in *path - local next - for child in *fileder.children - if name == child\get 'name', 'alpha' - next = child - break +path2tbl = (path) -> + switch type path + when 'string' + path + when 'table' + str = table.concat path, '/' + if '/' != str\sub 1, 1 + str = '/' .. str + str + else + error "path is of wrong type: #{type path}" - if not next - return - - fileder = next +class Browser + new: (@root, path={}, rehydrate=false) => + @path = ReactiveVar path2tbl path - fileder + assert @root, 'root fileder is nil' - @active\subscribe (fileder) -> @prop\set (fileder\find 'mmm/dom') or next fileder.props + -- @path\subscribe (path) -> window.location.hash = '/' .. table.concat path, '/' + @active = @path\map (path) -> @root\walk path + +-- fileder = @root +-- +-- for name in *path +-- local next +-- for child in *fileder.children +-- if name == child\get 'name', 'alpha' +-- next = child +-- break +-- +-- if not next +-- warn "couldn't find node '#{name}'" +-- return +-- +-- fileder = next +-- +-- fileder + + @prop = @active\map (fileder) -> + return unless fileder + (fileder\find 'mmm/dom') or next fileder.props -- retrieve or create the root root = 'div' @@ -72,8 +91,9 @@ class Browser onchange = (_, e) -> @prop\set Key e.target.value - current = @prop\get!\tostring! - with select :onchange + current = @prop\get! + current = current and current\tostring! + with select :onchange, disabled: not fileder if fileder for key, _ in pairs fileder.props value = key\tostring! @@ -83,46 +103,59 @@ class Browser -- append or patch #browser-content node = 'div' node = document\getElementById 'browser-content' if rehydrate - @dom\append ReactiveElement node, { - id: 'browser-content', - style: { - flex: '1 0 0', - overflow: 'auto', - padding: '1em 2em', - }, - @get_content rehydrate and node - } + @dom\append with ReactiveElement node, { + id: 'browser-content', + style: { + flex: '1 0 0', + overflow: 'auto', + padding: '1em 2em', + }, + } + \append @get_content rehydrate and node + + if rehydrate + -- force one update to update onclick handlers etc + @prop\set @prop\get! @node = @dom.node @render = @dom\render get_content: (wrapper) => + disp_error = (msg) -> span msg, style: { color: '#f00' } var = @prop\map (prop) -> active = @active\get! + if not active + return disp_error "fileder not found!" + + if not prop + return disp_error "property not found!" + ok, res = pcall -> - conversions = assert (get_conversions 'mmm/dom', prop.type), "no conversion path" + conversions = get_conversions 'mmm/dom', prop.type value = assert (active\get prop), "value went missing?" + return unless conversions + for i=#conversions,1,-1 { :inp, :out, :transform } = conversions[i] value = transform value, active value - if ok and res - res + if ok + res or disp_error "[no conversion path to mmm/dom]" else warn "error: ", res unless ok - span "cannot display!", style: { color: '#f00' } + disp_error "[unknown error displaying]" -- wrapper was built already so take over the old value if wrapper - var\set wrapper.lastElementChild + return var, wrapper.lastChild -- var\set wrapper.lastElementChild var - navigate: (new) => @path\set new + navigate: (new) => @path\set path2tbl new { :Browser, -- cgit v1.2.3 From d8daeb2a0b891bae03a7de2ae4ddf9e7b8b9f66b Mon Sep 17 00:00:00 2001 From: s-ol Date: Thu, 1 Nov 2018 18:10:38 +1100 Subject: smooth navigation --- lib/mmmfs/browser.moon | 56 ++++++++++++++++++++++++++------------------------ 1 file changed, 29 insertions(+), 27 deletions(-) (limited to 'lib/mmmfs/browser.moon') diff --git a/lib/mmmfs/browser.moon b/lib/mmmfs/browser.moon index 5f70174..bd69fc0 100644 --- a/lib/mmmfs/browser.moon +++ b/lib/mmmfs/browser.moon @@ -24,25 +24,11 @@ class Browser assert @root, 'root fileder is nil' - -- @path\subscribe (path) -> window.location.hash = '/' .. table.concat path, '/' - @active = @path\map (path) -> @root\walk path - --- fileder = @root --- --- for name in *path --- local next --- for child in *fileder.children --- if name == child\get 'name', 'alpha' --- next = child --- break --- --- if not next --- warn "couldn't find node '#{name}'" --- return --- --- fileder = next --- --- fileder + @path\subscribe (path) -> + path ..= '/' unless path\match '/$' + window.history\pushState nil, '', path + + @active = @path\map @root\walk @prop = @active\map (fileder) -> return unless fileder @@ -77,15 +63,26 @@ class Browser background: '#eeeeee', }, span 'path: ', @path\map (path) -> with div style: { display: 'inline-block' } - \append a 'root', href: '#', onclick: (_, e) -> - e\preventDefault! - @navigate {} + path_segment = (name, href) -> + a name, :href, onclick: (_, e) -> + e\preventDefault! + @navigate href + + path = path\match '^/(.*)' + href = '' + + \append path_segment 'root', '/' + + while path + name, rest = path\match '^(%w+)/(.*)' -- or rest + if not name + name = path + + path = rest + href = "#{href}/#{name}" - for i,name in ipairs path \append '/' - \append a name, href: '#', onclick: (_, e) -> - e\preventDefault! - @navigate limit path, i + \append path_segment name, href span 'view property: ', @active\map (fileder) -> onchange = (_, e) -> @@ -131,7 +128,7 @@ class Browser if not prop return disp_error "property not found!" - ok, res = pcall -> + convert = -> conversions = get_conversions 'mmm/dom', prop.type value = assert (active\get prop), "value went missing?" @@ -143,6 +140,11 @@ class Browser value + ok, res = if MODE == 'CLIENT' + pcall convert + else + true, convert! + if ok res or disp_error "[no conversion path to mmm/dom]" else -- cgit v1.2.3 From 29d2b615dafa6f3a54910b72d303f74a97c4d822 Mon Sep 17 00:00:00 2001 From: s-ol Date: Thu, 1 Nov 2018 19:07:40 +1100 Subject: component get_or_create --- lib/mmmfs/browser.moon | 96 ++++++++++++++++++++------------------------------ 1 file changed, 38 insertions(+), 58 deletions(-) (limited to 'lib/mmmfs/browser.moon') diff --git a/lib/mmmfs/browser.moon b/lib/mmmfs/browser.moon index bd69fc0..4a37961 100644 --- a/lib/mmmfs/browser.moon +++ b/lib/mmmfs/browser.moon @@ -1,58 +1,47 @@ require = relative ..., 1 import Key from require '.fileder' import get_conversions from require '.conversion' -import ReactiveVar, ReactiveElement, text, elements from require 'lib.component' +import ReactiveVar, get_or_create, text, elements from require 'lib.component' import div, span, a, select, option from elements -limit = (list, num) -> [v for i,v in ipairs list when i <= num] - -path2tbl = (path) -> - switch type path - when 'string' - path - when 'table' - str = table.concat path, '/' - if '/' != str\sub 1, 1 - str = '/' .. str - str - else - error "path is of wrong type: #{type path}" - class Browser - new: (@root, path={}, rehydrate=false) => - @path = ReactiveVar path2tbl path - + new: (@root, path='/', rehydrate=false) => + -- root fileder assert @root, 'root fileder is nil' - @path\subscribe (path) -> - path ..= '/' unless path\match '/$' - window.history\pushState nil, '', path + -- active path + @path = ReactiveVar path + + if MODE == 'CLIENT' + -- update URL bar + @path\subscribe (path) -> + path ..= '/' unless path\match '/$' + window.history\pushState nil, '', path + -- active fileder + -- (re)set every time @path changes @active = @path\map @root\walk + -- currently active property + -- (re)set to default every time @active changes @prop = @active\map (fileder) -> return unless fileder (fileder\find 'mmm/dom') or next fileder.props -- retrieve or create the root - root = 'div' - root = document\getElementById 'browser-root' if rehydrate - @dom = ReactiveElement root, { - id: 'browser-root' - style: { - position: 'absolute', - top: 0, - bottom: 0, - left: 0, - right: 0, - display: 'flex', - overflow: 'hidden', - 'flex-direction': 'column', - 'justify-content': 'space-between', - } + @dom = get_or_create 'div', 'browser-root', style: { + position: 'absolute', + top: 0, + bottom: 0, + left: 0, + right: 0, + display: 'flex', + overflow: 'hidden', + 'flex-direction': 'column', + 'justify-content': 'space-between', } - -- add or prepend the navbar + -- prepend the navbar if MODE == 'CLIENT' @dom\prepend div { style: { @@ -98,28 +87,25 @@ class Browser } -- append or patch #browser-content - node = 'div' - node = document\getElementById 'browser-content' if rehydrate - @dom\append with ReactiveElement node, { - id: 'browser-content', - style: { - flex: '1 0 0', - overflow: 'auto', - padding: '1em 2em', - }, + @dom\append with get_or_create 'div', 'browser-content', style: { + flex: '1 0 0', + overflow: 'auto', + padding: '1em 2em', } - \append @get_content rehydrate and node + \append @get_content!, (rehydrate and .node.lastChild) if rehydrate - -- force one update to update onclick handlers etc + -- force one rerender to set onclick handlers etc @prop\set @prop\get! + -- export mmm/component interface @node = @dom.node @render = @dom\render - get_content: (wrapper) => + -- render #browser-content + get_content: () => disp_error = (msg) -> span msg, style: { color: '#f00' } - var = @prop\map (prop) -> + @prop\map (prop) -> active = @active\get! if not active @@ -151,14 +137,8 @@ class Browser warn "error: ", res unless ok disp_error "[unknown error displaying]" - -- wrapper was built already so take over the old value - if wrapper - return var, wrapper.lastChild -- var\set wrapper.lastElementChild - - var - - navigate: (new) => @path\set path2tbl new + navigate: (new) => @path\set new { - :Browser, + :Browser } -- cgit v1.2.3 From 4803828015e1141528ec66411532e5c0c3a4f5dc Mon Sep 17 00:00:00 2001 From: s-ol Date: Thu, 1 Nov 2018 19:35:02 +1100 Subject: refactor browser SCSS --- lib/mmmfs/browser.moon | 42 ++++++++++-------------------------------- 1 file changed, 10 insertions(+), 32 deletions(-) (limited to 'lib/mmmfs/browser.moon') diff --git a/lib/mmmfs/browser.moon b/lib/mmmfs/browser.moon index 4a37961..ce7709f 100644 --- a/lib/mmmfs/browser.moon +++ b/lib/mmmfs/browser.moon @@ -29,41 +29,26 @@ class Browser (fileder\find 'mmm/dom') or next fileder.props -- retrieve or create the root - @dom = get_or_create 'div', 'browser-root', style: { - position: 'absolute', - top: 0, - bottom: 0, - left: 0, - right: 0, - display: 'flex', - overflow: 'hidden', - 'flex-direction': 'column', - 'justify-content': 'space-between', - } + @dom = get_or_create 'div', 'browser-root' -- prepend the navbar - if MODE == 'CLIENT' - @dom\prepend div { - style: { - padding: '1em', - flex: '0 0 auto', - display: 'flex', - 'justify-content': 'space-between', - background: '#eeeeee', - }, + if MODE == 'SERVER' + @dom\append div id: 'browser-navbar' + else + @dom\prepend get_or_create 'div', 'browser-navbar', { span 'path: ', @path\map (path) -> with div style: { display: 'inline-block' } path_segment = (name, href) -> a name, :href, onclick: (_, e) -> e\preventDefault! @navigate href - path = path\match '^/(.*)' href = '' + path = path\match '^/(.*)' \append path_segment 'root', '/' while path - name, rest = path\match '^(%w+)/(.*)' -- or rest + name, rest = path\match '^(%w+)/(.*)' if not name name = path @@ -87,11 +72,7 @@ class Browser } -- append or patch #browser-content - @dom\append with get_or_create 'div', 'browser-content', style: { - flex: '1 0 0', - overflow: 'auto', - padding: '1em 2em', - } + @dom\append with get_or_create 'div', 'browser-content' \append @get_content!, (rehydrate and .node.lastChild) if rehydrate @@ -108,11 +89,8 @@ class Browser @prop\map (prop) -> active = @active\get! - if not active - return disp_error "fileder not found!" - - if not prop - return disp_error "property not found!" + return disp_error "fileder not found!" unless active + return disp_error "property not found!" unless prop convert = -> conversions = get_conversions 'mmm/dom', prop.type -- cgit v1.2.3