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