daniel/ox-rst
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

ox: Add #+SUBTITLE property

Browse Source
This commit is contained in:
IGARASHI Masanao
2015-08-22 04:07:20 +09:00
parent 1ad953e0d3
commit 3b3eaa4112
1 changed files with 20 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
ox-rst.el
View File

@@ -92,7 +92,8 @@
((?R "As reStructuredText buffer" org-rst-export-as-rst)
(?r "As reStructuredText file" org-rst-export-to-rst)))
:options-alist
'((:rst-link-org-as-html nil nil org-rst-link-org-files-as-html)
'((:subtitle "SUBTITLE" nil nil parse)
(:rst-link-org-as-html nil nil org-rst-link-org-files-as-html)
(:rst-link-use-abs-url nil "rst-link-use-abs-url" org-rst-link-use-abs-url)
(:rst-inline-images nil nil org-rst-inline-images)
(:rst-inline-image-rules nil nil org-rst-inline-image-rules)
@@ -446,9 +447,13 @@ INFO is a plist used as a communication channel."
INFO is a plist used as a communication channel."
(let* (;; Links in the title will not be resolved later, so we make
;; sure their path is located right after them.
(title (if (plist-get info :with-title)
(with-title (plist-get info :with-title))
(title (if with-title
(org-export-data (plist-get info :title) info)
""))
(subtitle (if with-title
(org-export-data (plist-get info :subtitle) info)
""))
(author (and (plist-get info :with-author)
(let ((auth (plist-get info :author)))
(and auth (org-export-data auth info)))))
@@ -475,11 +480,17 @@ INFO is a plist used as a communication channel."
(concat author email))
((org-string-nw-p author) author)
((org-string-nw-p email) email)) title))
(titleline (make-string (string-width title) ?=)))
(titleline (make-string (string-width title) ?=))
(subtitleline (make-string (string-width subtitle) ?-))
(subtitle (if (not (string= subtitle ""))
(concat subtitleline "\n"
subtitle "\n"
subtitleline "\n") "")))
(concat
titleline "\n"
title "\n"
titleline "\n"
subtitle
(when (org-string-nw-p author) (concat "\n :Author: " author))
(when (org-string-nw-p email) (concat "\n :Contact: " email))
(when (org-string-nw-p date) (concat "\n :Date: " date))