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

ox: Remove comment' special value for org-export-with-creator'

Browse Source
This commit is contained in:
IGARASHI Masanao
2015-03-24 19:41:06 +09:00
parent b6ed453eb4
commit 5439c58f27
1 changed files with 7 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
ox-rst.el
View File

@@ -563,20 +563,18 @@ INFO is a plist used as a communication channel."
CONTENTS is the transcoded contents string. INFO is a plist CONTENTS is the transcoded contents string. INFO is a plist
holding export options." holding export options."
(concat (concat
;; 1. Build title block. ;; Build title block.
(concat (org-rst-template--document-title info) (concat (org-rst-template--document-title info)
;; 2. Table of contents. ;; 2. Table of contents.
(let ((depth (plist-get info :with-toc))) (let ((depth (plist-get info :with-toc)))
(when depth "\n.. contents::\n"))) (when depth "\n.. contents::\n")))
;; 3. Document's body. ;; Document's body.
contents contents
;; 4. Creator. Ignore `comment' value as there are no comments in ;; Creator. Justify it to the bottom right.
;; ASCII. Justify it to the bottom right. (and (plist-get info :with-creater)
(let ((creator-info (plist-get info :with-creator))) (concat
(unless (or (not creator-info) (eq creator-info 'comment)) "\n :Creator: "
(concat (plist-get info :creator) "\n"))))
"\n :Creator: "
(plist-get info :creator))))))