tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

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.
This commit is contained in:
Bastien Guerry 2013-01-30 11:50:14 +01:00
parent 30ef385ee0
commit e54dce3b8c
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lisp/org-archive.el
View File

@ -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)