[elpa] externals/ebdb ff6e919 09/15: Add a basic language field

[Eric Abrahamsen]

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)