|
|
@@ -923,11 +923,11 @@ address."
|
|
|
(email-list (org-entry-get pom org-contacts-email-property))
|
|
|
(gravatar
|
|
|
(when email-list
|
|
|
- (loop for email in (org-contacts-split-property email-list)
|
|
|
- for gravatar = (gravatar-retrieve-synchronously (org-contacts-strip-link email))
|
|
|
- if (and gravatar
|
|
|
- (not (eq gravatar 'error)))
|
|
|
- return gravatar))))
|
|
|
+ (cl-loop for email in (org-contacts-split-property email-list)
|
|
|
+ for gravatar = (gravatar-retrieve-synchronously (org-contacts-strip-link email))
|
|
|
+ if (and gravatar
|
|
|
+ (not (eq gravatar 'error)))
|
|
|
+ return gravatar))))
|
|
|
(when gravatar (throw 'icon gravatar))))))
|
|
|
|
|
|
(defun org-contacts-irc-buffer (&optional pom)
|
|
|
@@ -965,10 +965,10 @@ address."
|
|
|
|
|
|
(defun erc-nicknames-list ()
|
|
|
"Return all nicknames of all ERC buffers."
|
|
|
- (loop for buffer in (erc-buffer-list)
|
|
|
- nconc (with-current-buffer buffer
|
|
|
- (loop for user-entry in (mapcar 'car (erc-get-channel-user-list))
|
|
|
- collect (elt user-entry 1)))))
|
|
|
+ (cl-loop for buffer in (erc-buffer-list)
|
|
|
+ nconc (with-current-buffer buffer
|
|
|
+ (cl-loop for user-entry in (mapcar 'car (erc-get-channel-user-list))
|
|
|
+ collect (elt user-entry 1)))))
|
|
|
|
|
|
(add-to-list 'org-property-set-functions-alist
|
|
|
`(,org-contacts-nickname-property . org-contacts-completing-read-nickname))
|
|
|
@@ -1079,8 +1079,8 @@ is created and the VCard is written into that buffer."
|
|
|
(fundamental-mode)
|
|
|
(when (fboundp 'set-buffer-file-coding-system)
|
|
|
(set-buffer-file-coding-system coding-system-for-write))
|
|
|
- (loop for contact in (org-contacts-filter name)
|
|
|
- do (insert (org-contacts-vcard-format contact)))
|
|
|
+ (cl-loop for contact in (org-contacts-filter name)
|
|
|
+ do (insert (org-contacts-vcard-format contact)))
|
|
|
(if to-buffer
|
|
|
(current-buffer)
|
|
|
(progn (save-buffer) (kill-buffer)))))
|
stardiviner