move plugins into root

2 files changed, 95 insertions, 0 deletions

diff --git a/root/$mmm/plugins/code/converts: text$moonscript -> table.moon b/root/$mmm/plugins/code/converts: text$moonscript -> table.moon
new file mode 100644
index 0000000..851efba
--- /dev/null
+++ b/root/$mmm/plugins/code/converts: text$moonscript -> table.moon
@@ -0,0 +1,90 @@
+import pre, div, button from require 'mmm.dom'
+import languages from require 'mmm.highlighting'
+
+class Editor
+  o = if MODE == 'CLIENT'
+    mkobj = window\eval "(function () { return {}; })"
+    (tbl) ->
+      with obj = mkobj!
+        for k,v in pairs(tbl)
+          obj[k] = v
+
+  EDITOR: true
+
+  new: (value, mode, @fileder, @key) =>
+    @node = div class: 'editor'
+
+    @saveBtn = with button 'save'
+      .disabled = true
+      .onclick = (_, e) -> @save e
+
+    @cm = window\CodeMirror @node, o {
+      :value
+      :mode
+      lineNumber: true
+      lineWrapping: true
+      autoRefresh: true
+      theme: 'hybrid'
+    }
+
+    @lastSave = @cm\getDoc!\changeGeneration true
+
+    @cm\on 'changes', (_, mirr) ->
+      doc = @cm\getDoc!
+      @saveBtn.disabled = doc\isClean @lastSave
+
+      window\clearTimeout @timeout if @timeout
+      @timeout = window\setTimeout (-> @change!), 300
+
+  change: =>
+    @timeout = nil
+    doc = @cm\getDoc!
+
+    if @lastPreview and doc\isClean @lastPreview
+      -- no changes since last event
+      return
+    
+    @lastPreview = doc\changeGeneration!
+    value = doc\getValue!
+
+    @fileder.facets[@key] = value
+    BROWSER\refresh!
+
+  save: (e) =>
+    e\preventDefault!
+
+    doc = @cm\getDoc!
+    @fileder\set @key, doc\getValue!
+    @lastSave = doc\changeGeneration true
+
+[[
+  editors: if MODE == 'CLIENT' then {
+    {
+      inp: 'text/([^ ]*).*'
+      out: 'mmm/dom'
+      cost: 0
+      transform: (value, fileder, key) =>
+        mode = @from\match @convert.inp
+        Editor value, mode, fileder, key
+    }
+    {
+      inp: 'URL.*'
+      out: 'mmm/dom'
+      cost: 0
+      transform: (value, fileder, key) =>
+        Editor value, nil, fileder, key
+    }
+  }
+]]
+
+-- syntax-highlighted code
+{
+  {
+    inp: 'text/([^ ]*).*'
+    out: 'mmm/dom'
+    cost: 5
+    transform: (val) =>
+      lang = @from\match @convert.inp
+      pre languages[lang] val
+  }
+}
diff --git a/root/$mmm/plugins/code/scripts: text$html+frag.html b/root/$mmm/plugins/code/scripts: text$html+frag.html
new file mode 100644
index 0000000..68d780b
--- /dev/null
+++ b/root/$mmm/plugins/code/scripts: text$html+frag.html
@@ -0,0 +1,5 @@
+    <link rel="stylesheet" type="text/css" href="//unpkg.com/codemirror@5.49.2/lib/codemirror.css" />
+    <script type="text/javascript" src="//unpkg.com/codemirror@5.49.2/lib/codemirror.js"></script>
+    <script type="text/javascript" src="//unpkg.com/codemirror@5.49.2/mode/lua/lua.js"></script>
+    <script type="text/javascript" src="//unpkg.com/codemirror@5.49.2/mode/markdown/markdown.js"></script>
+    <script type="text/javascript" src="//unpkg.com/codemirror@5.49.2/addon/display/autorefresh.js"></script>