Hi there,
the attached patch adds a subtitle macro with documentation.
Best wishes
Jens
>From 3f54f515847f1f3034274d79fff6cfd1f92c72a9 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Jens=20Lechtenb=C3=B6rger?= <jens.lechtenboer...@fsfe.org>
Date: Thu, 16 Nov 2017 15:03:33 +0100
Subject: [PATCH] Define and document subtitle macro
* lisp/ox.el (org-export-as): Define macro for subtitle.
* lisp/org-macro.el: Mention new macro in comment among others.
* doc/org.texi: Document new macro.
---
doc/org.texi | 2 ++
lisp/org-macro.el | 2 +-
lisp/ox.el | 6 ++++--
3 files changed, 7 insertions(+), 3 deletions(-)
diff --git a/doc/org.texi b/doc/org.texi
index e116a9b..3907eda 100644
--- a/doc/org.texi
+++ b/doc/org.texi
@@ -11080,9 +11080,11 @@ Org comes with following pre-defined macros:
@table @code
@item @{@{@{title@}@}@}
+@item @{@{@{subtitle@}@}@}
@itemx @{@{@{author@}@}@}
@itemx @{@{@{email@}@}@}
@cindex title, macro
+@cindex subtitle, macro
@cindex author, macro
@cindex email, macro
Org replaces these macro references with available information at the time of
diff --git a/lisp/org-macro.el b/lisp/org-macro.el
index 1d2823e..c82bfd8 100644
--- a/lisp/org-macro.el
+++ b/lisp/org-macro.el
@@ -43,7 +43,7 @@
;; {{{n(counter,action}}}.
;; Upon exporting, "ox.el" will also provide {{{author}}}, {{{date}}},
-;; {{{email}}} and {{{title}}} macros.
+;; {{{email}}}, {{{title}}}, and {{{subtitle}}} macros.
;;; Code:
(require 'cl-lib)
diff --git a/lisp/ox.el b/lisp/ox.el
index cc3c48b..6feec3e 100644
--- a/lisp/ox.el
+++ b/lisp/ox.el
@@ -3083,8 +3083,8 @@ Return code as a string."
(let ((result (funcall filter info backend-name)))
(when result (setq info result)))))
;; Expand export-specific set of macros: {{{author}}},
- ;; {{{date(FORMAT)}}}, {{{email}}} and {{{title}}}. It must
- ;; be done once regular macros have been expanded, since
+ ;; {{{date(FORMAT)}}}, {{{email}}}, {{{title}}}, and {{{subtitle}}}.
+ ;; It must be done once regular macros have been expanded, since
;; parsed keywords may contain one of them.
(org-macro-replace-all
(list
@@ -3102,6 +3102,8 @@ Return code as a string."
value)))
(cons "email" (org-element-interpret-data (plist-get info :email)))
(cons "title" (org-element-interpret-data (plist-get info :title)))
+ (cons "subtitle"
+ (org-element-interpret-data (plist-get info :subtitle)))
(cons "results" "$1"))
'finalize
parsed-keywords)
--
2.1.4
