From e54dce3b8c3141a8d8e01dd18564310b3d2408c5 Mon Sep 17 00:00:00 2001 From: Bastien Guerry Date: Wed, 30 Jan 2013 11:50:14 +0100 Subject: [PATCH] org-archive.el (org-archive-file-header-format): New option * org-archive.el (org-archive-file-header-format): New option. (org-archive-subtree): Use it. Thanks to Christopher Schmidt for suggesting something close. --- lisp/org-archive.el | 11 +++++++++-- 1 file changed, 9 insertions(+), 2 deletions(-) diff --git a/lisp/org-archive.el b/lisp/org-archive.el index 2fcfc8634..09564d910 100644 --- a/lisp/org-archive.el +++ b/lisp/org-archive.el @@ -71,6 +71,13 @@ This variable is obsolete and has no effect anymore, instead add or remove :group 'org-archive :type 'boolean) +(defcustom org-archive-file-header-format "\nArchived entries from file %s\n\n" + "The header format string for newly created archive files. +When nil, no header will be inserted. +When a string, a %s formatter will be replaced by the file name." + :group 'org-archive + :type 'string) + (defcustom org-archive-subtree-add-inherited-tags 'infile "Non-nil means append inherited tags when archiving a subtree." :group 'org-archive @@ -278,9 +285,9 @@ this heading." (let ((org-insert-mode-line-in-empty-file t) (org-inhibit-startup t)) (call-interactively 'org-mode))) - (when newfile-p + (when (and newfile-p org-archive-file-header-format) (goto-char (point-max)) - (insert (format "\nArchived entries from file %s\n\n" + (insert (format org-archive-file-header-format (buffer-file-name this-buffer)))) (when datetree-date (require 'org-datetree)