(require 'json)
(require 'org)
(defun org->pelican (filename backend)
  (progn
    (save-excursion
      (find-file filename)
      (let ((properties (org-export-get-environment)))
        (princ (json-encode 
                (list 
                 :date (org-timestamp-format (car (plist-get properties :date)) "%Y-%m-%d")
                 :category (cdr (assoc "CATEGORY" org-file-properties))
                 :post (org-export-as backend nil nil t)
                 :title (substring-no-properties (car (plist-get properties :title))))))))))