aliens/org-contacts
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

org-contacts: Use progress-reporter for cache update message

Browse source 
* contrib/lisp/org-contacts.el (org-contacts-db): Use
`make-progress-reporter' instead of `message' for messages. Also
change the sentence to present progressive tense.
This commit is contained in:
Rodney Lorrimar 2013-05-04 22:09:10 +08:00 committed by Carsten Dominik
parent 9bd8101c56
commit beb76bf435
1 changed files with 20 additions and 16 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
org-contacts.el
View file

@ -211,7 +211,9 @@ A regexp matching strings of whitespace, `,' and `;'.")
(cdr (org-make-tags-matcher org-contacts-matcher))) (cdr (org-make-tags-matcher org-contacts-matcher)))
markers result) markers result)
(when (org-contacts-db-need-update-p) (when (org-contacts-db-need-update-p)
(message "Update Org Contacts Database") (let ((progress-reporter
(make-progress-reporter "Updating Org Contacts Database..." 0 (length org-contacts-files)))
(i 0))
(dolist (file (org-contacts-files)) (dolist (file (org-contacts-files))
(org-check-agenda-file file) (org-check-agenda-file file)
(with-current-buffer (org-get-agenda-file-buffer file) (with-current-buffer (org-get-agenda-file-buffer file)
@ -220,13 +222,15 @@ A regexp matching strings of whitespace, `,' and `;'.")
(org-scan-tags (org-scan-tags
'(add-to-list 'markers (set-marker (make-marker) (point))) '(add-to-list 'markers (set-marker (make-marker) (point)))
contacts-matcher contacts-matcher
todo-only))) todo-only))
(progress-reporter-update progress-reporter (setq i (1+ i))))
(dolist (marker markers result) (dolist (marker markers result)
(org-with-point-at marker (org-with-point-at marker
(add-to-list 'result (add-to-list 'result
(list (org-get-heading t) marker (org-entry-properties marker 'all))))) (list (org-get-heading t) marker (org-entry-properties marker 'all)))))
(setf org-contacts-db result (setf org-contacts-db result
org-contacts-last-update (current-time))) org-contacts-last-update (current-time))
(progress-reporter-done progress-reporter)))
org-contacts-db)) org-contacts-db))
(defun org-contacts-filter (&optional name-match tags-match) (defun org-contacts-filter (&optional name-match tags-match)