TakeV/spacemacs
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

work on the new export

Browse source
This commit is contained in:
JAremko 2018-02-07 06:17:57 +02:00
parent 82b6ee3498
commit 191476fe04
1 changed files with 10 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
core/tools/export/_worker.el
View file

@ -431,7 +431,9 @@ CONTENTS holds the contents of the item. INFO is a plist holding
contextual information."
(let ((type (org-element-property
:type
(org-export-get-parent item))))
(org-export-get-parent item)))
(item-tag (org-element-property :tag item))
(checkbox (org-element-property :checkbox item)))
(unless (or (eq 'ordered type)
(eq 'unordered type)
(eq 'descriptive type))
@ -443,19 +445,20 @@ contextual information."
(format (concat "{:tag :list-item "
":type :%s "
":bullet %s "
":counter %s "
":checkbox %s "
":item-tag \"%s\" "
":item-tag %s "
":children [%s]}")
type
(format
"\"%s\""
(spacemacs/org-edn-escape-string
(org-element-property :bullet item)))
(org-element-property :counter item)
(org-element-property :checkbox item)
(spacemacs/org-edn-escape-string
(format "%s" (org-element-property :tag item)))
(when checkbox (format ":%s" (symbol-name checkbox)))
(when item-tag
(if (char-or-string-p item-tag)
(format "{:tag :plain-text :value \"%s\"}"
(spacemacs/org-edn-escape-string item-tag))
(org-export-data-with-backend item-tag 'spacemacs-edn info)))
contents)))
;;;; Keyword