Add scripts for org file to json data.

1 files changed, 48 insertions, 0 deletions

diff --git a/scripts/export-to-text.el b/scripts/export-to-text.el
new file mode 100644
index 0000000..97f6e2a
--- /dev/null
+++ b/scripts/export-to-text.el
@@ -0,0 +1,48 @@
+(unless (= 2 (length argv))
+  (error "Usage: emacs --script scripts/export-to-text <source-file> <output-file>"))
+
+(let* ((source-filename (elt argv 0))
+       (output-filename (elt argv 1))
+       (source-buffer (find-file source-filename))
+       (output-buffer (find-file output-filename))
+       (text-buffer (get-buffer-create "*Org ASCII Export*"))
+       (pt nil)
+       (file-buffer (current-buffer)))
+  (with-current-buffer output-buffer
+    (erase-buffer))
+
+  (set-buffer source-buffer)
+  (org-next-visible-heading 1)
+  (while (not (equal pt (point)))
+    (setq pt (point))
+    (terpri)
+    (let ((title (org-get-heading t))
+          (id (org-element-property :CUSTOM_ID (org-element-at-point)))
+          (timestamp (org-read-date nil
+                                    t
+                                    (org-element-property :TIMESTAMP (org-element-at-point))
+                                    nil))
+          (tags (org-get-tags))
+          (subtree nil)
+          (text nil)
+          (hash nil))
+      (org-copy-subtree)
+      (setq subtree (with-temp-buffer (yank) (buffer-string)))
+
+      (org-ascii-export-as-ascii nil t t t)
+      (set-buffer text-buffer)
+      (setq text (buffer-string))
+
+      (set-buffer output-buffer)
+      (json-insert `((id . ,id)
+                     (title . ,title)
+                     (timestamp . ,(format-time-string "%FT%T%z" timestamp))
+                     (tags . ,(vconcat tags))
+                     (hash . ,(secure-hash 'sha256 subtree))
+                     (text . ,text)))
+
+      (set-buffer source-buffer))
+    (org-forward-heading-same-level 1))
+
+  (set-buffer output-buffer)
+  (save-buffer))