[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[O] [patch, koma-letter] Change of subject behavior

From: Rasmus
Subject: [O] [patch, koma-letter] Change of subject behavior
Date: Tue, 17 Mar 2015 18:37:19 +0100
User-agent: Gnus/5.13 (Gnus v5.13) Emacs/25.0.50 (gnu/linux)


I want to change the subject inference in ox-koma-letter to only happen on
top-level headlines.

Thus, in the following example the opening would be "opening" and not "h1"
as it is currently.

* opening
** h1

Typically, "h1" is just there to help me organize the letter.

Any objections?


Together we will make the possible totalllly impossible!
>From 2ce18b7f061109f0006fb1b823029d35fee4f9a9 Mon Sep 17 00:00:00 2001
From: Rasmus <address@hidden>
Date: Tue, 17 Mar 2015 18:32:26 +0100
Subject: [PATCH] ox-koma-letter: Stricter subject inference

* ox-koma-letter.el (org-koma-letter-headline): Subject can
  only be inferred from top-level heading.
 contrib/lisp/ox-koma-letter.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/contrib/lisp/ox-koma-letter.el b/contrib/lisp/ox-koma-letter.el
index 1b5dd17..1e905a9 100644
--- a/contrib/lisp/ox-koma-letter.el
+++ b/contrib/lisp/ox-koma-letter.el
@@ -561,7 +561,8 @@ appropriate place."
                 (push (cons tag contents) org-koma-letter-special-contents)))
     ;; Opening is not defined yet: use headline's title.
     (when (and org-koma-letter-headline-is-opening-maybe
-              (not (org-string-nw-p (plist-get info :opening))))
+              (not (org-string-nw-p (plist-get info :opening)))
+              (eq 1 (org-export-get-relative-level headline info)))
       (plist-put info :opening
                 (org-export-data (org-element-property :title headline) info)))
     ;; In any case, insert contents in letter's body.

reply via email to

[Prev in Thread] Current Thread [Next in Thread]