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

org-contacts.el: replace obsolete alias loop' with cl-loop'

Browse source 
* contrib/lisp/org-contacts.el (org-contacts-get-icon): replace obsolete
alias `loop' with `cl-loop'.
This commit is contained in:
stardiviner 2021-01-03 20:17:37 +08:00
parent 304fd01fe3
commit af3a5cb6fa
1 changed files with 11 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

22
org-contacts.el
View file

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