emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/ebdb 9bf8833 2/2: Move the relations and organizations


From: Eric Abrahamsen
Subject: [elpa] externals/ebdb 9bf8833 2/2: Move the relations and organizations slots to ebdb-record-entity
Date: Mon, 10 Feb 2020 15:28:00 -0500 (EST)

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

    Move the relations and organizations slots to ebdb-record-entity
    
    * ebdb.el (ebdb-record-entity): Any kind of record should be able to
    have a role or a relation at any other kind of record. This opens the
    door to recursive organizational structures. Imagine the fun we could
    have.
    (ebdb-record-organization): Typo.
---
 ebdb.el | 24 ++++++++++++------------
 1 file changed, 12 insertions(+), 12 deletions(-)

diff --git a/ebdb.el b/ebdb.el
index 04f289b..0cd2264 100644
--- a/ebdb.el
+++ b/ebdb.el
@@ -3099,6 +3099,14 @@ If FIELD doesn't specify a year, use the current year."
    (address
     :initarg :address
     :type (list-of ebdb-field-address)
+    :initform nil)
+   (organizations
+    :initarg :organizations
+    :type (list-of ebdb-field-role)
+    :initform nil)
+   (relations
+    :initarg :relations
+    :type (list-of ebdb-field-relation)
     :initform nil))
   :allow-nil-initform t
   :abstract t
@@ -3236,15 +3244,7 @@ ARGS are passed to `ebdb-compose-mail', and then to
     :initarg :aka
     :type (list-of ebdb-field-name)
     :initform nil
-    :accessor ebdb-record-aka)
-   (relations
-    :initarg :relations
-    :type (list-of ebdb-field-relation)
-    :initform nil)
-   (organizations
-    :initarg :organizations
-    :type (list-of ebdb-field-role)
-    :initform nil))
+    :accessor ebdb-record-aka))
   :allow-nil-initform t
   :documentation "A record class representing a person.")
 
@@ -3416,9 +3416,9 @@ ARGS are passed to `ebdb-compose-mail', and then to
     :type (or null ebdb-field-domain)
     :initform nil
     :documentation "The base domain name for this organization.
-    This can be used to open the organization's, and also as a
-    default for email addresses of people with roles tied to this
-    organization."))
+    This can be used to open the organization's web page, and
+    also as a default for email addresses of people with roles
+    tied to this organization."))
   :allow-nil-initform t
   :documentation "A record class representing an organization.")
 



reply via email to

[Prev in Thread] Current Thread [Next in Thread]