[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/ebdb ff6e919 09/15: Add a basic language field
From: |
Eric Abrahamsen |
Subject: |
[elpa] externals/ebdb ff6e919 09/15: Add a basic language field |
Date: |
Thu, 22 Mar 2018 00:58:55 -0400 (EDT) |
branch: externals/ebdb
commit ff6e919e12491dc102f04a0ecf6aabdff3b2bca1
Author: Eric Abrahamsen <address@hidden>
Commit: Eric Abrahamsen <address@hidden>
Add a basic language field
* ebdb.el (ebdb-field-language): New field. Has no particular behavior
yet. Could possibly be used to switch input methods.
---
ebdb.el | 24 ++++++++++++++++++++++++
1 file changed, 24 insertions(+)
diff --git a/ebdb.el b/ebdb.el
index 38a68b1..d3409fb 100644
--- a/ebdb.el
+++ b/ebdb.el
@@ -2118,6 +2118,30 @@ See `ebdb-url-valid-schemes' for a list of acceptable
schemes."
(cl-defmethod ebdb-string ((field ebdb-field-gender))
(symbol-name (slot-value field 'gender)))
+;; Language field
+
+;; People should be able to put anything they want in here, but
+;; ideally we'd do something special for the ISO 639-1 codes:
+
+;; https://en.wikipedia.org/wiki/List_of_ISO_639-1_codes
+
+(defclass ebdb-field-language (ebdb-field-user)
+ ((language
+ :initarg :language
+ :type string
+ :custom string))
+ :human-readable "language"
+ :documentation "A field specifying a language that can be used
+ to communication with this contact.")
+
+(cl-defmethod ebdb-string ((field ebdb-field-language))
+ (slot-value field 'language))
+
+(cl-defmethod ebdb-read ((class (subclass ebdb-field-language)) &optional
slots obj)
+ (let ((lang (ebdb-read-string
+ "Language: " (when obj (slot-value obj 'language)) nil nil)))
+ (cl-call-next-method class (plist-put slots :language lang) obj)))
+
;;; Bank account field
(defclass ebdb-field-bank-account (ebdb-field-user)
- [elpa] externals/ebdb updated (2c71ef9 -> 091a744), Eric Abrahamsen, 2018/03/22
- [elpa] externals/ebdb fea7c5e 01/15: Fix font inheritance of mail addresses, Eric Abrahamsen, 2018/03/22
- [elpa] externals/ebdb b228892 04/15: Change interactive behavior of ebdb-mail-aliases, Eric Abrahamsen, 2018/03/22
- [elpa] externals/ebdb fff770e 05/15: ebdb-mua defgroup in wrong file, Eric Abrahamsen, 2018/03/22
- [elpa] externals/ebdb 78cfb2a 06/15: Pop up EBDB windows before formatting records, Eric Abrahamsen, 2018/03/22
- [elpa] externals/ebdb ff6e919 09/15: Add a basic language field,
Eric Abrahamsen <=
- [elpa] externals/ebdb 5e42dff 03/15: Forgot to pop-to-buffer to after creating citation buffer, Eric Abrahamsen, 2018/03/22
- [elpa] externals/ebdb 8e8c2e1 07/15: Make gnus-message window config stuff customizable, Eric Abrahamsen, 2018/03/22
- [elpa] externals/ebdb 76f8d4b 10/15: Make it clear what field type we're prompting for, Eric Abrahamsen, 2018/03/22
- [elpa] externals/ebdb 925e0ea 14/15: Remove mail-citation-prefix-regexp from strings to snarf, Eric Abrahamsen, 2018/03/22
- [elpa] externals/ebdb 03d432d 02/15: Don't append citation to kill ring in ebdb-cite-records-ebdb, Eric Abrahamsen, 2018/03/22
- [elpa] externals/ebdb d53ddc1 08/15: Use Gnus' window configuration for popping up EBDB buffers, Eric Abrahamsen, 2018/03/22
- [elpa] externals/ebdb 41912b9 11/15: Improve check for field existence during snarf collapsing, Eric Abrahamsen, 2018/03/22
- [elpa] externals/ebdb b56bf29 12/15: Adjust snarfing regexp for names, Eric Abrahamsen, 2018/03/22
- [elpa] externals/ebdb 091a744 15/15: Make phone number snarfing regexp less permissive, Eric Abrahamsen, 2018/03/22
- [elpa] externals/ebdb bb01b5c 13/15: Mostly re-write ebdb-snarf-collect, Eric Abrahamsen, 2018/03/22