mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-12-25 10:47:12 +00:00
Code

Tag entries that have attachments.

Browse Source
This commit is contained in:
Carsten Dominik 2008-10-06 09:38:50 +02:00
parent 4c55b885d5
commit 2d33de3600
2 changed files with 31 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/ChangeLog
View File

@ -1,3 +1,11 @@
2008-10-06 Carsten Dominik <dominik@science.uva.nl>
* org-attach.el (org-attach-auto-tag): New option.
(org-attach-tag, org-attach-untag): New functions.
(org-attach-attach, org-attach-new, org-attach-sync): Call
`org-attach-tag'.
(org-attach-delete): Call `org-attach-untag'.
2008-10-04 Carsten Dominik <dominik@science.uva.nl>
* org-table.el (orgtbl-self-insert-command): Make this work for

24
lisp/org-attach.el
View File

@ -56,6 +56,13 @@ where the Org file lives."
:group 'org-attach
:type 'direcory)
(defcustom org-attach-auto-tag "ATTACH"
"Tag that will be triggered automatically when an entry has an attachment."
:group 'org-attach
:type '(choice
(const :tag "None" nil)
(string :tag "Tag")))
(defcustom org-attach-expert nil
"Non-nil means do not show the splash buffer with the attach dispatcher."
:group 'org-attach
@ -143,6 +150,17 @@ the directory and the corresponding ID will be created."
" git ls-files --deleted -z | xargs -0 git rm; "
" git commit -m 'Synchronized attachments')")))))
(defun org-attach-tag (&optional off)
"Turn the autotag on."
(when org-attach-auto-tag
(save-excursion
(org-back-to-heading t)
(org-toggle-tag org-attach-auto-tag (if off 'off 'on)))))
(defun org-attach-untag ()
"Turn the autotag off."
(org-attach-tag 'off))
(defun org-attach-attach (file &optional visit-dir)
"Move FILE into the attachment directory of the current task.
If VISIT-DIR is non-nil, visit the direcory with dired."
@ -153,6 +171,7 @@ If VISIT-DIR is non-nil, visit the direcory with dired."
(let ((attach-dir (org-attach-dir t)))
(rename-file file (expand-file-name basename attach-dir))
(org-attach-commit)
(org-attach-tag)
(if visit-dir
(dired attach-dir)
(message "File \"%s\" is now a task attachment." basename)))))
@ -164,6 +183,7 @@ The attachment is created as an Emacs buffer."
(org-entry-add-to-multivalued-property (point) "Attachments"
file)
(let ((attach-dir (org-attach-dir t)))
(org-attach-tag)
(find-file (expand-file-name file attach-dir))
(message "New attachment %s" file)))
@ -175,7 +195,8 @@ A safer way is to open the directory in dired and delete from there."
(let ((attach-dir (org-attach-dir)))
(if attach-dir
(shell-command (format "rm -fr %s" attach-dir))))
(org-attach-commit))
(org-attach-commit)
(org-attach-untag))
(defun org-attach-sync ()
"Synchonize the current tasks with its attachments.
@ -186,6 +207,7 @@ This can be used after files have been added externally."
(let ((attach-dir (org-attach-dir)))
(when attach-dir
(let ((files (directory-files attach-dir)))
(and files (org-attach-tag))
(dolist (file files)
(unless (string-match "^\\." file)
(org-entry-add-to-multivalued-property