When exporting html, also export deltos source files

The plan is that deltos can then import these to allow easy document
sharing. -POLM

src/entries.ls

@@ -115,6 +115,16 @@ export get-all-entries = memoize ->
 
   return values entries |> sort-by (.date) |> reverse
 
+export get-raw-entry = ->
+  [head, body] = get-entry-parts it
+  return [(yaml head), body]
+
+get-entry-parts = ->
+  text = fs.read-file-sync (get-filename it), \utf-8
+  head = text.split("\n---\n").0
+  body = text.split("\n---\n")[1 to].join "\n---\n"
+  return [head, body]
+
 get-new-id = ->
   # get a new uuid
   # check it doesn't exist; if it does, make another

src/html.ls

@@ -1,8 +1,8 @@
 fs = require \fs
 Markdown = require(\markdown-it)(html: true)
 markdown = -> Markdown.render it
-{memoize, is-in, tagged, yaml, deltos-home, read-config} = require \./util
-{get-all-entries} = require \./entries
+{memoize, is-in, tagged, yaml, yaml-dump, deltos-home, read-config} = require \./util
+{get-all-entries, get-raw-entry} = require \./entries
 {map, take, sort-by, sort-with, reverse} = require \prelude-ls
 
 # placeholder globals; only required as needed
@@ -217,8 +217,17 @@ build-hierarchical-list = (entries, depth, parent=null) ->
 build-site-html = (root, entries) ->
   # update individual post html
   for entry in entries
-    fname = root + "/by-id/" + entry.id + ".html"
-    fs.write-file-sync fname, render entry
+    suffix = "/by-id/#{entry.id}"
+
+    html-fname = "#{root}#{suffix}.html"
+    fs.write-file-sync html-fname, render entry
+
+    # write a deltos source file for other people to import
+    [head, body] = get-raw-entry entry.id
+    head.source = "#{read-config!.url}#{suffix}.html"
+    deltos-fname = "#{root}#{suffix}.deltos"
+    output = (yaml-dump head) + "---\n" + body
+    fs.write-file-sync deltos-fname, output
 
 build-rss = (root, config, entries) ->
   rss = new RSS {

src/util.ls

@@ -21,6 +21,11 @@ export yaml = ->
   # uuids like "06382" being interpreted as octal
   Yaml.safe-load it, schema: Yaml.FAILSAFE_SCHEMA
 
+export yaml-dump = ->
+  # flowlevel controls how compact the exported yaml is
+  # as with reading, we only expect strings
+  Yaml.safe-dump it, schema: Yaml.FAILSAFE_SCHEMA, flow-level: 1
+
 # simple memoizer for thunks
 export memoize = (func) ->
   output = null