[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/gnorb 3429f3b 009/449: gnorb-org.el: (gnorb-org-contact
From: |
Stefan Monnier |
Subject: |
[elpa] externals/gnorb 3429f3b 009/449: gnorb-org.el: (gnorb-org-contact-link) |
Date: |
Fri, 27 Nov 2020 23:14:58 -0500 (EST) |
branch: externals/gnorb
commit 3429f3b9546c840aaed877e0f6af92ca70a5bae1
Author: Eric Abrahamsen <eric@ericabrahamsen.net>
Commit: Eric Abrahamsen <eric@ericabrahamsen.net>
gnorb-org.el: (gnorb-org-contact-link)
New function
---
lisp/gnorb-org.el | 15 ++++++++++++++-
1 file changed, 14 insertions(+), 1 deletion(-)
diff --git a/lisp/gnorb-org.el b/lisp/gnorb-org.el
index 731c30f..2026380 100644
--- a/lisp/gnorb-org.el
+++ b/lisp/gnorb-org.el
@@ -26,12 +26,25 @@
(require 'gnorb-utils)
-
(defgroup gnorb-org nil
"The Org bits of Gnorb."
:tag "Gnorb Org"
:group 'gnorb)
+(defun gnorb-org-contact-link (rec)
+ (interactive (list (gnorb-prompt-for-bbdb-record)))
+ (let* ((name (bbdb-record-name rec))
+ (link (concat "bbdb:" (org-link-escape name))))
+ (org-store-link-props :type "bbdb" :name name
+ :link link :description name)
+ (if (called-interactively-p)
+ (insert (format "[[%s][%s]]" link name))
+ link)))
+
+;; (eval-after-load "gnorb-org"
+;; '(progn
+;; (global-set-key (kbd "C-c C") 'gnorb-bbdb-cite-contact)))
+
(provide 'gnorb-org)
;;; gnorb-org.el ends here
- [elpa] branch externals/gnorb created (now 5f9611b), Stefan Monnier, 2020/11/27
- [elpa] externals/gnorb 88f6bda 002/449: README.md: Basic project description, Stefan Monnier, 2020/11/27
- [elpa] externals/gnorb afd587b 003/449: Basic project structure., Stefan Monnier, 2020/11/27
- [elpa] externals/gnorb 82c06bc 001/449: Initial commit, Stefan Monnier, 2020/11/27
- [elpa] externals/gnorb ba4ec1b 004/449: Add customization skeleton., Stefan Monnier, 2020/11/27
- [elpa] externals/gnorb 1b037b7 006/449: gnorb-utils.el: Common utility file., Stefan Monnier, 2020/11/27
- [elpa] externals/gnorb d090df9 007/449: gnorb-bbdb.el: New function gnorb-bbdb-mail-search, Stefan Monnier, 2020/11/27
- [elpa] externals/gnorb cc208a0 010/449: gnorb-bbdb.el: (gnorb-bbdb-mail-search), Stefan Monnier, 2020/11/27
- [elpa] externals/gnorb 869940a 015/449: README.org: Change file format to Org mode, expand docs, Stefan Monnier, 2020/11/27
- [elpa] externals/gnorb 3429f3b 009/449: gnorb-org.el: (gnorb-org-contact-link),
Stefan Monnier <=
- [elpa] externals/gnorb b7dce0b 016/449: gnorb-utils.el: Require the cl library., Stefan Monnier, 2020/11/27
- [elpa] externals/gnorb d79617f 019/449: gnorb-org.el: Email current subtree as exported text or file, Stefan Monnier, 2020/11/27
- [elpa] externals/gnorb 27d08ef 022/449: README.org: Reorganize README, Stefan Monnier, 2020/11/27
- [elpa] externals/gnorb 3edf1c9 025/449: gnorb-utils.el: gnorb-prompt-for-bbdb-record, Stefan Monnier, 2020/11/27
- [elpa] externals/gnorb 32ecc09 026/449: gnorb-org.el: gnorb-org-handle-mail, gnorb-org-email-subtree, Stefan Monnier, 2020/11/27
- [elpa] externals/gnorb 123b521 031/449: gnorb-org.el: bugfix gnorb-org-restore-after-send, Stefan Monnier, 2020/11/27
- [elpa] externals/gnorb a9c7410 032/449: gnorb-gnus.el: bugfix gnorb-gnus-attach-part, Stefan Monnier, 2020/11/27
- [elpa] externals/gnorb 5adcc84 008/449: gnorb-utils: (gnorb-prompt-for-bbdb-record), Stefan Monnier, 2020/11/27
- [elpa] externals/gnorb bedce9d 012/449: gnorb-gnus.el: (gnorb-gnus(article|mime)-org-attach), Stefan Monnier, 2020/11/27
- [elpa] externals/gnorb d28a099 005/449: gnorb-bbdb.el: New function gnorb-bbdb-tag-agenda, Stefan Monnier, 2020/11/27