[elpa] externals/ebdb aac31a3 9/9: Add browse-url action for domain fields

[Eric Abrahamsen]

branch: externals/ebdb
commit aac31a3e0adc0c31f5a10aa6a8dd8ee2a329c7bd
Author: Eric Abrahamsen <address@hidden>
Commit: Eric Abrahamsen <address@hidden>

    Add browse-url action for domain fields
    
    * ebdb.el (ebdb-field-domain): Add action.
      (ebdb-field-domain-browse): New method for browsing the domain as a
      URL.
---
 ebdb.el | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

diff --git a/ebdb.el b/ebdb.el
index 99cbeb9..ff948db 100644
--- a/ebdb.el
+++ b/ebdb.el
@@ -3217,7 +3217,9 @@ priority."
     :initarg :domain
     :type string
     :initform ""
-    :documentation))
+    :documentation)
+   (actions
+    :initform '(("Browse domain" . ebdb-field-domain-browse))))
   :human-readable "domain"
   :documentation "An organization's domain name.  Useful for
   automatically constructing a homepage for the organization, or
@@ -3336,6 +3338,14 @@ priority."
     (or (and domain (string-match-p regexp (ebdb-string domain)))
        (cl-call-next-method))))
 
+(cl-defmethod ebdb-field-domain-browse ((_record ebdb-record-organization)
+                                       (domain ebdb-field-domain))
+  "Construct a URL from field DOMAIN, and browse it."
+  ;; Assume http will redirect to https as necessary.  Bad?
+  (let ((domain (slot-value domain 'domain)))
+    (when domain
+      (browse-url (concat "http://"; domain)))))
+
 (cl-defmethod ebdb-record-adopt-role-fields ((record ebdb-record-person)
                                             (org ebdb-record-organization)
                                             &optional _prompt)