[elpa] externals/ebdb a5571cf 03/10: Add address i18n for Singapore

[Eric Abrahamsen]

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

    Add address i18n for Singapore
    
    * ebdb-i18n-basic.el (ebdb-read-i18n): There's not much to a Singapore
    address.
---
 ebdb-i18n-basic.el | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/ebdb-i18n-basic.el b/ebdb-i18n-basic.el
index 1bd6c1f..7f74402 100644
--- a/ebdb-i18n-basic.el
+++ b/ebdb-i18n-basic.el
@@ -360,5 +360,16 @@ itself."
            (split-string number "" t))
      (when extension (format " X%s" extension)))))
 
+;;; Singapore
+
+(cl-defmethod ebdb-read-i18n ((_cls (subclass ebdb-field-address))
+                             (_cc (eql sgp))
+                             &optional slots _obj)
+  "Singapore doesn't have localities, cities, or neighborhoods."
+  (setq slots (plist-put slots :locality "")
+       slots (plist-put slots :neighborhood "")
+       slots (plist-put slots :region ""))
+  slots)
+
 (provide 'ebdb-i18n-basic)
 ;;; ebdb-i18n-basic.el ends here