(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))