[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] scratch/org-contacts-rebased 1b6cff5 026/118: contrib/lisp/org-co
From: |
Stefan Monnier |
Subject: |
[elpa] scratch/org-contacts-rebased 1b6cff5 026/118: contrib/lisp/org-contacts.el: Fix indentation of the file |
Date: |
Fri, 12 Nov 2021 15:36:57 -0500 (EST) |
branch: scratch/org-contacts-rebased
commit 1b6cff5ac7fa6b1a6e746a5a4d3e2143ff4bbf95
Author: Bastien Guerry <bzg@altern.org>
Commit: Bastien Guerry <bzg@altern.org>
contrib/lisp/org-contacts.el: Fix indentation of the file
---
org-contacts.el | 46 +++++++++++++++++++++++-----------------------
1 file changed, 23 insertions(+), 23 deletions(-)
diff --git a/org-contacts.el b/org-contacts.el
index eaf262e..7e3cbb7 100644
--- a/org-contacts.el
+++ b/org-contacts.el
@@ -147,17 +147,17 @@ This overrides `org-email-link-description-format' if
set."
"Search for a contact maching NAME-MATCH and TAGS-MATCH.
If both match values are nil, return all contacts."
(let* (todo-only
- (tags-matcher
- (if tags-match
- (cdr (org-make-tags-matcher tags-match))
- t))
- (name-matcher
- (if name-match
- '(org-string-match-p name-match (org-get-heading t))
- t))
- (contacts-matcher
- (cdr (org-make-tags-matcher org-contacts-matcher)))
- markers result)
+ (tags-matcher
+ (if tags-match
+ (cdr (org-make-tags-matcher tags-match))
+ t))
+ (name-matcher
+ (if name-match
+ '(org-string-match-p name-match (org-get-heading t))
+ t))
+ (contacts-matcher
+ (cdr (org-make-tags-matcher org-contacts-matcher)))
+ markers result)
(dolist (file (org-contacts-files))
(org-check-agenda-file file)
(with-current-buffer (org-get-agenda-file-buffer file)
@@ -246,8 +246,8 @@ If both match values are nil, return all contacts."
"Function used in `completion-at-point-functions' in `message-mode'."
(let ((mail-abbrev-mode-regexp
"^\\(Resent-To\\|To\\|B?Cc\\|Reply-To\\|From\\|Mail-Followup-To\\|Mail-Copies-To\\|Disposition-Notification-To\\|Return-Receipt-To\\):"))
- (when (mail-abbrev-in-expansion-header-p)
- (org-contacts-complete-name))))
+ (when (mail-abbrev-in-expansion-header-p)
+ (org-contacts-complete-name))))
(defun org-contacts-gnus-get-name-email ()
"Get name and email address from Gnus message."
@@ -442,9 +442,9 @@ Depends on Wanderlust been loaded."
(wl-summary-message-number)
'from)))
((eq major-mode 'mime-view-mode) (std11-narrow-to-header)
- (prog1
- (std11-fetch-field "From")
- (widen))))))
+ (prog1
+ (std11-fetch-field "From")
+ (widen))))))
(defun org-contacts-wl-get-name-email ()
"Get name and email address from Wanderlust email.
@@ -608,7 +608,7 @@ is created and the VCard is written into that buffer."
(let* ((filename (or file org-contacts-vcard-file))
(buffer (if to-buffer
(get-buffer-create to-buffer)
- (find-file-noselect filename))))
+ (find-file-noselect filename))))
(message "Exporting...")
@@ -621,11 +621,11 @@ is created and the VCard is written into that buffer."
(set-buffer-file-coding-system coding-system-for-write))
(loop for contact in (org-contacts-filter name)
- do (insert (org-contacts-vcard-format contact)))
+ do (insert (org-contacts-vcard-format contact)))
(if to-buffer
(current-buffer)
- (progn (save-buffer) (kill-buffer)))))
+ (progn (save-buffer) (kill-buffer)))))
(defun org-contacts-show-map (&optional name)
"Show contacts on a map.
@@ -636,9 +636,9 @@ Requires google-maps-el."
(google-maps-static-show
:markers
(loop
- for contact in (org-contacts-filter name)
- for addr = (cdr (assoc-string org-contacts-address-property (caddr
contact)))
- if addr
- collect (cons (list addr) (list :label (string-to-char (car
contact)))))))
+ for contact in (org-contacts-filter name)
+ for addr = (cdr (assoc-string org-contacts-address-property (caddr
contact)))
+ if addr
+ collect (cons (list addr) (list :label (string-to-char (car contact)))))))
(provide 'org-contacts)
- [elpa] scratch/org-contacts-rebased 15f35f7 040/118: orgcontacts.el: Fix `date' being broken in `org-contacts-anniversaries'., (continued)
- [elpa] scratch/org-contacts-rebased 15f35f7 040/118: orgcontacts.el: Fix `date' being broken in `org-contacts-anniversaries'., Stefan Monnier, 2021/11/12
- [elpa] scratch/org-contacts-rebased 8b85530 037/118: org-contacts.el: Let the users decide if they want to use `org-contacts' to complete mail addresses, Stefan Monnier, 2021/11/12
- [elpa] scratch/org-contacts-rebased 884d61f 042/118: Fix typo., Stefan Monnier, 2021/11/12
- [elpa] scratch/org-contacts-rebased 48ca58b 033/118: Do not complete when it's not necessary, Stefan Monnier, 2021/11/12
- [elpa] scratch/org-contacts-rebased 2e77024 017/118: Copyright year fixes for contrib/., Stefan Monnier, 2021/11/12
- [elpa] scratch/org-contacts-rebased 99994ed 039/118: contrib/lisp/org-contacts.el (org-contacts-complete-name): Prevent an error when there is no completion available, Stefan Monnier, 2021/11/12
- [elpa] scratch/org-contacts-rebased f46131e 051/118: org-contacts.el (org-contacts-matcher): Better matcher, Stefan Monnier, 2021/11/12
- [elpa] scratch/org-contacts-rebased 8ccb82f 052/118: org-contacts.el , fix bugs about 'tel and 'note properties, Stefan Monnier, 2021/11/12
- [elpa] scratch/org-contacts-rebased 5ee8caa 053/118: org-contacts.el, add name alias property., Stefan Monnier, 2021/11/12
- [elpa] scratch/org-contacts-rebased c0ebd3a 055/118: contrib/lisp/org-contacts: Allow org links in properties, Stefan Monnier, 2021/11/12
- [elpa] scratch/org-contacts-rebased 1b6cff5 026/118: contrib/lisp/org-contacts.el: Fix indentation of the file,
Stefan Monnier <=
- [elpa] scratch/org-contacts-rebased dcd8af9 028/118: Merge branch 'maint', Stefan Monnier, 2021/11/12
- [elpa] scratch/org-contacts-rebased 2d1ea82 046/118: contrib/lisp/org-contacts.el: Silence byte-compiler, Stefan Monnier, 2021/11/12
- [elpa] scratch/org-contacts-rebased 7c908e4 043/118: org-contacts.el: Fix or add docstrings, Stefan Monnier, 2021/11/12
- [elpa] scratch/org-contacts-rebased 02808bb 047/118: Let org-contacts.el has the ability which can export email-address list, Stefan Monnier, 2021/11/12
- [elpa] scratch/org-contacts-rebased 927e7c7 035/118: org-contacts.el: Check if the database need a refresh in a dedicated function, Stefan Monnier, 2021/11/12
- [elpa] scratch/org-contacts-rebased e86b83d 036/118: org-contacts.el: Started to silent byte-compiler, Stefan Monnier, 2021/11/12
- [elpa] scratch/org-contacts-rebased c08b676 032/118: Add caching mecanism, Stefan Monnier, 2021/11/12
- [elpa] scratch/org-contacts-rebased 543f2c5 045/118: contrib/lisp/org-contacts.el: Remove calls to cl functions, Stefan Monnier, 2021/11/12
- [elpa] scratch/org-contacts-rebased d7412d5 054/118: contrib/lisp/org-contacts: Fix two typos in comments, Stefan Monnier, 2021/11/12
- [elpa] scratch/org-contacts-rebased 2f0d7e9 002/118: org-contacts: make Gnus usage optional, Stefan Monnier, 2021/11/12