mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-11-21 06:55:35 +00:00
Code

ox-texinfo: Fix plain lists export

Browse Source 
* lisp/ox-texinfo.el (org-texinfo-plain-list): Fix format string.
  Small refactoring.
This commit is contained in:
Nicolas Goaziou 2014-08-06 23:46:04 +02:00
parent 73809c1aa8
commit d58a2960e0
1 changed files with 6 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
lisp/ox-texinfo.el
View File

@ -1303,21 +1303,16 @@ the plist used as a communication channel."
CONTENTS is the contents of the list. INFO is a plist holding
contextual information."
(let* ((attr (org-export-read-attribute :attr_texinfo plain-list))
(indic (or (plist-get attr :indic)
org-texinfo-def-table-markup))
(type (org-element-property :type plain-list))
(indic (or (plist-get attr :indic) org-texinfo-def-table-markup))
(table-type (plist-get attr :table-type))
;; Ensure valid texinfo table type.
(table-type (if (member table-type '("ftable" "vtable")) table-type
"table"))
(type (org-element-property :type plain-list))
(list-type (cond
((eq type 'ordered) "enumerate")
((eq type 'unordered) "itemize")
((eq type 'descriptive) table-type))))
(format "@%s%s\n@end %s"
(if (eq type 'descriptive)
(concat list-type " " indic)
list-type)
((member table-type '("ftable" "vtable")) table-type)
(t "table"))))
(format "@%s\n%s@end %s"
(if (eq type 'descriptive) (concat list-type " " indic) list-type)
contents
list-type)))