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

Rename attic to archive.

This commit is contained in:
Carsten Dominik 2008-04-10 08:45:30 +02:00
parent b7628661b1
commit 25198ae29c
2 changed files with 14 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ChangeLog
View File

@ -30,13 +30,13 @@
* lisp/org-agenda.el (org-agenda-list, org-timeline): Use the * lisp/org-agenda.el (org-agenda-list, org-timeline): Use the
proper faces for dates in the agenda and timeline buffers. proper faces for dates in the agenda and timeline buffers.
(org-agenda-archive-to-attic-sibling): New command. (org-agenda-archive-to-archive-sibling): New command.
* doc/org.texi (Moving subtrees): Document archiving to the attic * doc/org.texi (Moving subtrees): Document archiving to the archive
sibling. sibling.
* lisp/org.el (org-attic-heading): New option. * lisp/org.el (org-archive-sibling-heading): New option.
(org-archive-to-attic-sibling): New function. (org-archive-to-archive-sibling): New function.
2008-04-07 Carsten Dominik <dominik@science.uva.nl> 2008-04-07 Carsten Dominik <dominik@science.uva.nl>

20
lisp/org-archive.el
View File

@ -75,10 +75,10 @@ the hierarchy, it will be used."
:group 'org-archive :group 'org-archive
:type 'string) :type 'string)
(defcustom org-attic-heading "Attic" (defcustom org-archive-sibling-heading "Archive"
"Name of the local attic sibling that is used to archive entries locally. "Name of the local archive sibling that is used to archive entries locally.
Locally means: in the tree, under a sibling. Locally means: in the tree, under a sibling.
See `org-archive-to-attic-sibling' for more information." See `org-archive-to-archive-sibling' for more information."
:group 'org-archive :group 'org-archive
:type 'string) :type 'string)
@ -291,11 +291,11 @@ this heading."
(concat "under heading: " heading) (concat "under heading: " heading)
(concat "in file: " (abbreviate-file-name afile))))))) (concat "in file: " (abbreviate-file-name afile)))))))
(defun org-archive-to-attic-sibling () (defun org-archive-to-archive-sibling ()
"Archive the current heading by moving it under the attic sibling. "Archive the current heading by moving it under the archive sibling.
The attic sibling is a sibling of the heading with the heading name The archive sibling is a sibling of the heading with the heading name
`org-attic-heading and an `org-archive-tag' tag. If this sibling does `org-archive-sibling-heading' and an `org-archive-tag' tag. If this
not exist, it will be created at the end of the subtree." sibling does not exist, it will be created at the end of the subtree."
(interactive) (interactive)
(save-restriction (save-restriction
(widen) (widen)
@ -317,12 +317,12 @@ not exist, it will be created at the end of the subtree."
(unless (re-search-forward (unless (re-search-forward
(concat "^" (regexp-quote leader) (concat "^" (regexp-quote leader)
"[ \t]*" "[ \t]*"
org-attic-heading org-archive-sibling-heading
"[ \t]*:" "[ \t]*:"
org-archive-tag ":") e t) org-archive-tag ":") e t)
(goto-char e) (goto-char e)
(or (bolp) (newline)) (or (bolp) (newline))
(insert leader org-attic-heading "\n") (insert leader org-archive-sibling-heading "\n")
(beginning-of-line 0) (beginning-of-line 0)
(org-toggle-tag org-archive-tag 'on)) (org-toggle-tag org-archive-tag 'on))
(beginning-of-line 1) (beginning-of-line 1)