org-archive-add-header-to-new-files

org-archive-add-header-to-new-files

[Christopher Schmidt]

[-- Attachment #1: Type: text/plain, Size: 380 bytes --]

Hi Org,

here is a patch to master that allows one to inhibit the addition of the
header line to newly created archive files.

    2013-01-28  Christopher Schmidt  <christopher@ch.ristopher.com>

            * org-archive.el (org-archive-add-header-to-new-files): New
            option.
            (org-archive-subtree): Honour
            org-archive-add-header-to-new-files.


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: Type: text/x-diff, Size: 927 bytes --]

--- a/lisp/org-archive.el
+++ b/lisp/org-archive.el
@@ -71,6 +71,12 @@ This variable is obsolete and has no effect anymore, instead add or remove
   :group 'org-archive
   :type 'boolean)
 
+(defcustom org-archive-add-header-to-new-files t
+  "Non-nil means to add a header line (\"Archived entries from
+file FILE-NAME\") to newly created archive files."
+  :group 'org-archive
+  :type 'boolean)
+
 (defcustom org-archive-subtree-add-inherited-tags 'infile
   "Non-nil means append inherited tags when archiving a subtree."
   :group 'org-archive
@@ -278,7 +284,8 @@ 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-add-header-to-new-files)
 	    (goto-char (point-max))
 	    (insert (format "\nArchived entries from file %s\n\n"
 			    (buffer-file-name this-buffer))))

[-- Attachment #3: Type: text/plain, Size: 21 bytes --]


        Christopher

Re: org-archive-add-header-to-new-files

[Bastien]

Hi Christopher,

Christopher Schmidt <christopher@ch.ristopher.com> writes:

> here is a patch to master that allows one to inhibit the addition of the
> header line to newly created archive files.
>
>     2013-01-28  Christopher Schmidt  <christopher@ch.ristopher.com>
>
>             * org-archive.el (org-archive-add-header-to-new-files): New
>             option.
>             (org-archive-subtree): Honour
>             org-archive-add-header-to-new-files.

Thanks for the ChangeLog, would be even greater to have it directly
within the patch as produced by git format-patch!  

In master, I added `org-archive-file-header-format' which see.

Thanks for this idea,

-- 
 Bastien

Re: org-archive-add-header-to-new-files

[Christopher Schmidt]

Bastien <bzg@altern.org> writes:
> Thanks for the ChangeLog, would be even greater to have it directly
> within the patch as produced by git format-patch!
>
> In master, I added `org-archive-file-header-format' which see.
>
> Thanks for this idea,

Thank you very much.

        Christopher