Add a overline of title

This commit is contained in:
IGARASHI Masanao
2015-08-22 04:03:45 +09:00
parent 2b325643ad
commit 1ad953e0d3
2 changed files with 2 additions and 0 deletions

View File

@@ -54,6 +54,7 @@
reStructuredText: reStructuredText:
#+BEGIN_SRC rst #+BEGIN_SRC rst
=================================
This is the title of the document This is the title of the document
================================= =================================

View File

@@ -477,6 +477,7 @@ INFO is a plist used as a communication channel."
((org-string-nw-p email) email)) title)) ((org-string-nw-p email) email)) title))
(titleline (make-string (string-width title) ?=))) (titleline (make-string (string-width title) ?=)))
(concat (concat
titleline "\n"
title "\n" title "\n"
titleline "\n" titleline "\n"
(when (org-string-nw-p author) (concat "\n :Author: " author)) (when (org-string-nw-p author) (concat "\n :Author: " author))