[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.")