[elpa] externals/gnorb 3429f3b 009/449: gnorb-org.el: (gnorb-org-contact-link)

[Stefan Monnier]

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