emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/ebdb fb7e4d2 11/17: Add formatting for Russian phone nu


From: Eric Abrahamsen
Subject: [elpa] externals/ebdb fb7e4d2 11/17: Add formatting for Russian phone numbers
Date: Tue, 26 Sep 2017 17:15:34 -0400 (EDT)

branch: externals/ebdb
commit fb7e4d267dae3e2971b8e0026b224d47ba3dc42b
Author: Eric Abrahamsen <address@hidden>
Commit: Eric Abrahamsen <address@hidden>

    Add formatting for Russian phone numbers
    
    * ebdb-i18n-basic.el (ebdb-string-i18n): Why not?
---
 ebdb-i18n-basic.el | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)

diff --git a/ebdb-i18n-basic.el b/ebdb-i18n-basic.el
index 892305c..351d11b 100644
--- a/ebdb-i18n-basic.el
+++ b/ebdb-i18n-basic.el
@@ -207,5 +207,21 @@
                 ebdb-i18n-india-states)))))
   slots)
 
+;;; Russia
+
+(cl-defmethod ebdb-string-i18n ((phone ebdb-field-phone)
+                               (_cc (eql 8)))
+  (with-slots (area-code number extension) phone
+    (concat
+     "+8 "
+     (when area-code (format "%d " area-code))
+     (apply #'format
+           (cl-case (length number)
+             (5 "%s-%s%s-%s%s")
+             (6 "%s%s-%s%s-%s%s")
+             (7 "%s%s%s-%s%s-%s%s"))
+           (split-string number "" t))
+     (when extension (format " X%s" extension)))))
+
 (provide 'ebdb-i18n-basic)
 ;;; ebdb-i18n-basic.el ends here



reply via email to

[Prev in Thread] Current Thread [Next in Thread]