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

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