[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/org-contacts beb76bf435 060/154: org-contacts: Use prog
From: |
ELPA Syncer |
Subject: |
[elpa] externals/org-contacts beb76bf435 060/154: org-contacts: Use progress-reporter for cache update message |
Date: |
Fri, 9 Sep 2022 15:58:26 -0400 (EDT) |
branch: externals/org-contacts
commit beb76bf4353436e94d08ca329ad28288591572f6
Author: Rodney Lorrimar <rodney@rodney.id.au>
Commit: Carsten Dominik <carsten.dominik@gmail.com>
org-contacts: Use progress-reporter for cache update message
* 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.
---
org-contacts.el | 36 ++++++++++++++++++++----------------
1 file changed, 20 insertions(+), 16 deletions(-)
diff --git a/org-contacts.el b/org-contacts.el
index 84ebc9dd3d..c72e6c0960 100644
--- a/org-contacts.el
+++ b/org-contacts.el
@@ -211,22 +211,26 @@ A regexp matching strings of whitespace, `,' and `;'.")
(cdr (org-make-tags-matcher org-contacts-matcher)))
markers result)
(when (org-contacts-db-need-update-p)
- (message "Update Org Contacts Database")
- (dolist (file (org-contacts-files))
- (org-check-agenda-file file)
- (with-current-buffer (org-get-agenda-file-buffer file)
- (unless (eq major-mode 'org-mode)
- (error "File %s is no in `org-mode'" file))
- (org-scan-tags
- '(add-to-list 'markers (set-marker (make-marker) (point)))
- contacts-matcher
- todo-only)))
- (dolist (marker markers result)
- (org-with-point-at marker
- (add-to-list 'result
- (list (org-get-heading t) marker (org-entry-properties
marker 'all)))))
- (setf org-contacts-db result
- org-contacts-last-update (current-time)))
+ (let ((progress-reporter
+ (make-progress-reporter "Updating Org Contacts Database..." 0
(length org-contacts-files)))
+ (i 0))
+ (dolist (file (org-contacts-files))
+ (org-check-agenda-file file)
+ (with-current-buffer (org-get-agenda-file-buffer file)
+ (unless (eq major-mode 'org-mode)
+ (error "File %s is no in `org-mode'" file))
+ (org-scan-tags
+ '(add-to-list 'markers (set-marker (make-marker) (point)))
+ contacts-matcher
+ todo-only))
+ (progress-reporter-update progress-reporter (setq i (1+ i))))
+ (dolist (marker markers result)
+ (org-with-point-at marker
+ (add-to-list 'result
+ (list (org-get-heading t) marker (org-entry-properties
marker 'all)))))
+ (setf org-contacts-db result
+ org-contacts-last-update (current-time))
+ (progress-reporter-done progress-reporter)))
org-contacts-db))
(defun org-contacts-filter (&optional name-match tags-match)
- [elpa] externals/org-contacts 4108493c9d 055/154: org-contacts.el , fix bugs about 'tel and 'note properties, (continued)
- [elpa] externals/org-contacts 4108493c9d 055/154: org-contacts.el , fix bugs about 'tel and 'note properties, ELPA Syncer, 2022/09/09
- [elpa] externals/org-contacts d6824ec3c2 069/154: org-contacts: use `org-' prefixed variants of cl functions, ELPA Syncer, 2022/09/09
- [elpa] externals/org-contacts fd0f42a1bc 075/154: Update copyright years again., ELPA Syncer, 2022/09/09
- [elpa] externals/org-contacts 5526110aac 018/154: Merge branch 'origin-maint', ELPA Syncer, 2022/09/09
- [elpa] externals/org-contacts d630e91dee 033/154: Add caching mecanism, ELPA Syncer, 2022/09/09
- [elpa] externals/org-contacts 680dc1f24d 039/154: org-contacts.el: Started to silent byte-compiler, ELPA Syncer, 2022/09/09
- [elpa] externals/org-contacts 3f1509bfa2 035/154: org-contacts: Fix Agenda format., ELPA Syncer, 2022/09/09
- [elpa] externals/org-contacts abbf3a9a25 041/154: org-contacts.el: Rename a function to follow emacs-lisp coding conventions, ELPA Syncer, 2022/09/09
- [elpa] externals/org-contacts 5d5faa5e6b 051/154: org-contacts.el, add note property, ELPA Syncer, 2022/09/09
- [elpa] externals/org-contacts 9bd8101c56 059/154: contrib/lisp/org-contacts: Introduce the constant `org-contacts-property-values-separators', ELPA Syncer, 2022/09/09
- [elpa] externals/org-contacts beb76bf435 060/154: org-contacts: Use progress-reporter for cache update message,
ELPA Syncer <=
- [elpa] externals/org-contacts 9d9246c0a5 072/154: Merge branch 'maint', ELPA Syncer, 2022/09/09
- [elpa] externals/org-contacts 66e23e6403 008/154: org-contacts: added VCard 3.0 exporter and ADDRESS field, ELPA Syncer, 2022/09/09
- [elpa] externals/org-contacts 4d5b508f0f 007/154: org-contacts: check that completion-at-point-functions is bound, ELPA Syncer, 2022/09/09
- [elpa] externals/org-contacts 531d67a715 014/154: Fix Emacs 24 compatibility issue with Emacs 24, ELPA Syncer, 2022/09/09
- [elpa] externals/org-contacts 4f5c58197e 006/154: Fix wanderlust interface for org-contact.el, ELPA Syncer, 2022/09/09
- [elpa] externals/org-contacts d0caf96afd 015/154: Replace org-mode-p with usual (eq major-mode 'org-mode) check, ELPA Syncer, 2022/09/09
- [elpa] externals/org-contacts ad99d80ad3 001/154: org-contacts: import, ELPA Syncer, 2022/09/09
- [elpa] externals/org-contacts e585be0859 009/154: org-contacts: added org-contacts-show-map (requires google-maps-el), ELPA Syncer, 2022/09/09
- [elpa] externals/org-contacts 5f1806a8d0 012/154: org-contacts: fix errors when Gnus or ERC are not loaded, ELPA Syncer, 2022/09/09
- [elpa] externals/org-contacts c297cb009f 020/154: Merge branch 'maint', ELPA Syncer, 2022/09/09