|
@@ -1,6 +1,7 @@
|
|
(require 'json)
|
|
(require 'json)
|
|
(require 'org)
|
|
(require 'org)
|
|
(require 'ox)
|
|
(require 'ox)
|
|
|
|
+
|
|
(defun org->pelican (filename backend)
|
|
(defun org->pelican (filename backend)
|
|
(progn
|
|
(progn
|
|
(save-excursion
|
|
(save-excursion
|
|
@@ -37,12 +38,12 @@
|
|
|
|
|
|
:author (substring-no-properties
|
|
:author (substring-no-properties
|
|
(car (plist-get org-export-env ':author)))
|
|
(car (plist-get org-export-env ':author)))
|
|
- :language (plist-get org-export-env ':language)
|
|
|
|
|
|
|
|
; org file properties
|
|
; org file properties
|
|
:category (cdr (assoc-string "CATEGORY" org-file-properties t))
|
|
:category (cdr (assoc-string "CATEGORY" org-file-properties t))
|
|
|
|
|
|
; custom org file properties, defined as #+PROPERTY: NAME ARG
|
|
; custom org file properties, defined as #+PROPERTY: NAME ARG
|
|
|
|
+ :language (cdr (assoc-string "LANGUAGE" org-file-properties t))
|
|
:save_as (cdr (assoc-string "SAVE_AS" org-file-properties t))
|
|
:save_as (cdr (assoc-string "SAVE_AS" org-file-properties t))
|
|
:tags (cdr (assoc-string "TAGS" org-file-properties t))
|
|
:tags (cdr (assoc-string "TAGS" org-file-properties t))
|
|
:summary (cdr (assoc-string "SUMMARY" org-file-properties t))
|
|
:summary (cdr (assoc-string "SUMMARY" org-file-properties t))
|