[elpa] externals/ebdb 3f5dda3 4/5: Add Germany-specific phone and address display methods

[Eric Abrahamsen]

branch: externals/ebdb
commit 3f5dda3399bfce7740b5098fdb6d580c134608a5
Author: Eric Abrahamsen <eric@ericabrahamsen.net>
Commit: Eric Abrahamsen <eric@ericabrahamsen.net>

    Add Germany-specific phone and address display methods
    
    * ebdb-i18n-basic.el (ebdb-string-i18n): Display German phone numbers
    and addresses.
---
 ebdb-i18n-basic.el | 28 ++++++++++++++++++++++++++++
 1 file changed, 28 insertions(+)

diff --git a/ebdb-i18n-basic.el b/ebdb-i18n-basic.el
index 2da5b26..f2a16c1 100644
--- a/ebdb-i18n-basic.el
+++ b/ebdb-i18n-basic.el
@@ -182,6 +182,34 @@ number, and any remaining as an extension."
      (when extension
        (format "X%d" extension)))))
 
+;;; Germany
+
+(cl-defmethod ebdb-string-i18n ((phone ebdb-field-phone)
+                                (_cc (eql 49)))
+  (with-slots (area-code number extension) phone
+    (concat
+     (unless (eql ebdb-default-phone-country 49)
+       "+49 ")
+     (when area-code
+       (format "%02d" area-code))
+     (apply #'format "%s%s% s%s%s-%s%s"
+            (split-string number "" t))
+     (when extension
+       (format "X%d" extension)))))
+
+(cl-defmethod ebdb-string-i18n ((address ebdb-field-address)
+                                (_cc (eql deu)))
+  (with-slots (streets neighborhood locality region postcode) address
+    (concat
+     (when streets
+       (concat (mapconcat #'identity streets "\n") "\n"))
+     (ebdb-concat ", " (ebdb-address-locality address)
+                 (ebdb-address-neighborhood address)
+                  (ebdb-concat " " (ebdb-address-region address)
+                               (ebdb-address-postcode address)))
+     "\n"
+     (car-safe (rassq 'deu (ebdb-i18n-countries))))))
+
 ;;; UK
 
 (cl-defmethod ebdb-read-i18n ((_class (subclass ebdb-field-address))