branch: externals/ebdb
commit 3f5dda3399bfce7740b5098fdb6d580c134608a5
Author: Eric Abrahamsen <e...@ericabrahamsen.net>
Commit: Eric Abrahamsen <e...@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))
