[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/org-contacts c32dbab114 081/154: contrib/lisp/org-conta
From: |
ELPA Syncer |
Subject: |
[elpa] externals/org-contacts c32dbab114 081/154: contrib/lisp/org-contacts.el: Allow the user to customize interactively the vcard export |
Date: |
Fri, 9 Sep 2022 15:58:34 -0400 (EDT) |
branch: externals/org-contacts
commit c32dbab1147401b637f2d5097e20a97adb7dc307
Author: Grégoire Jadi <gregoire.jadi@gmail.com>
Commit: Grégoire Jadi <gregoire.jadi@gmail.com>
contrib/lisp/org-contacts.el: Allow the user to customize interactively the
vcard export
* contrib/lisp/org-contacts.el (org-contacts-export-as-vcard): Wrap
`org-contacts-export-as-vcard-internal' to prompt for the parameters
when called interactively.
(org-contacts-export-as-vcard-internal): The old function
`org-contacts-export-as-vcard'.
Thanks to Esben Stien for the suggestion.
---
org-contacts.el | 30 +++++++++++++++++++++++++++++-
1 file changed, 29 insertions(+), 1 deletion(-)
diff --git a/org-contacts.el b/org-contacts.el
index 583da4ab10..88aef9d201 100644
--- a/org-contacts.el
+++ b/org-contacts.el
@@ -1016,11 +1016,39 @@ to do our best."
"END:VCARD\n\n")))
(defun org-contacts-export-as-vcard (&optional name file to-buffer)
+ "Export org contacts to V-Card 3.0.
+
+By default, all contacts are exported to `org-contacts-vcard-file'.
+
+When NAME is \\[universal-argument], prompts for a contact name.
+
+When NAME is \\[universal-argument] \\[universal-argument],
+prompts for a contact name and a file name where to export.
+
+When NAME is \\[universal-argument] \\[universal-argument]
+\\[universal-argument], prompts for a contact name and a buffer where to
export.
+
+If the function is not called interactively, all parameters are
+passed to `org-contacts-export-as-vcard-internal'."
+ (interactive "P")
+ (when (called-interactively-p 'any)
+ (cl-psetf name
+ (when name
+ (read-string "Contact name: "
+ (first (org-contacts-at-point))))
+ file
+ (when (equal name '(16))
+ (read-file-name "File: " nil org-contacts-vcard-file))
+ to-buffer
+ (when (equal name '(64))
+ (read-buffer "Buffer: "))))
+ (org-contacts-export-as-vcard-internal name file to-buffer))
+
+(defun org-contacts-export-as-vcard-internal (&optional name file to-buffer)
"Export all contacts matching NAME as VCard 3.0.
If TO-BUFFER is nil, the content is written to FILE or
`org-contacts-vcard-file'. If TO-BUFFER is non-nil, the buffer
is created and the VCard is written into that buffer."
- (interactive) ; TODO ask for name?
(let* ((filename (or file org-contacts-vcard-file))
(buffer (if to-buffer
(get-buffer-create to-buffer)
- [elpa] externals/org-contacts 938ca34558 019/154: Add missing word to org-contacts y-or-n-p question, (continued)
- [elpa] externals/org-contacts 938ca34558 019/154: Add missing word to org-contacts y-or-n-p question, ELPA Syncer, 2022/09/09
- [elpa] externals/org-contacts 010b2ec38a 029/154: org-contacts.el (org-contacts-format-name): New function, ELPA Syncer, 2022/09/09
- [elpa] externals/org-contacts 50d8ec9752 031/154: Improve `completion-at-point' for `org-contacts.el' in mail, ELPA Syncer, 2022/09/09
- [elpa] externals/org-contacts b34f505d38 042/154: contrib/lisp/org-contacts.el (org-contacts-complete-name): Prevent an error when there is no completion available, ELPA Syncer, 2022/09/09
- [elpa] externals/org-contacts 7fcd20bcff 025/154: contrib/lisp/org-contacts.el: Docstring fixes and small code clean up, ELPA Syncer, 2022/09/09
- [elpa] externals/org-contacts cb941d4023 052/154: org-contacts.el, add tel property, ELPA Syncer, 2022/09/09
- [elpa] externals/org-contacts 68a0286a8f 056/154: org-contacts.el, add name alias property., ELPA Syncer, 2022/09/09
- [elpa] externals/org-contacts 6f1a63da03 067/154: org-contacts: Provide ordering when using cycle completion, ELPA Syncer, 2022/09/09
- [elpa] externals/org-contacts bb08fb96ab 071/154: Update copyright years., ELPA Syncer, 2022/09/09
- [elpa] externals/org-contacts 8829fb451a 073/154: Revert "Update copyright years.", ELPA Syncer, 2022/09/09
- [elpa] externals/org-contacts c32dbab114 081/154: contrib/lisp/org-contacts.el: Allow the user to customize interactively the vcard export,
ELPA Syncer <=
- [elpa] externals/org-contacts 3fa42fb53f 084/154: Remove some home-grown copies of cl-lib functions., ELPA Syncer, 2022/09/09
- [elpa] externals/org-contacts 75021a1fc2 080/154: contrib/lisp/org-contacts.el: Fix a bug when contacts don't have an email address, ELPA Syncer, 2022/09/09
- [elpa] externals/org-contacts 0ec6917ed8 091/154: Deprecate `org-no-warnings' in favor of `with-no-warnings', ELPA Syncer, 2022/09/09
- [elpa] externals/org-contacts 304fd01fe3 101/154: org-contacts.el: Add usage comments, ELPA Syncer, 2022/09/09
- [elpa] externals/org-contacts c8ceb5290e 099/154: org-contacts.el: Add support for org-id generated link., ELPA Syncer, 2022/09/09
- [elpa] externals/org-contacts 0107e8ecdb 100/154: org-contacts.el: Inherit face from org-link, ELPA Syncer, 2022/09/09
- [elpa] externals/org-contacts af3a5cb6fa 102/154: org-contacts.el: replace obsolete alias `loop' with `cl-loop', ELPA Syncer, 2022/09/09
- [elpa] externals/org-contacts 2c0bb90259 097/154: contrib/lisp/org-contacts.el: Add stardiviner as the maintainer, ELPA Syncer, 2022/09/09
- [elpa] externals/org-contacts ca3b10d5a8 098/154: org-contacts.el: Fix org-store-link error caused by org-contacts, ELPA Syncer, 2022/09/09
- [elpa] externals/org-contacts 0e33f05c4e 105/154: org-contacts.el: Fix store link function does not return link., ELPA Syncer, 2022/09/09