[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/ebdb-i18n-chn d7c6ea1 02/16: Add internationalized ebdb
From: |
Stefan Monnier |
Subject: |
[elpa] externals/ebdb-i18n-chn d7c6ea1 02/16: Add internationalized ebdb-string method for Chinese addresses |
Date: |
Sun, 29 Nov 2020 17:03:26 -0500 (EST) |
branch: externals/ebdb-i18n-chn
commit d7c6ea172c01c5c20570c66ea3c65cc3257a8d34
Author: Eric Abrahamsen <eric@ericabrahamsen.net>
Commit: Eric Abrahamsen <eric@ericabrahamsen.net>
Add internationalized ebdb-string method for Chinese addresses
* packages/ebdb-i18n-chn/ebdb-i18n-chn.el (ebdb-string-i18n): Format
Chinese addresses correctly.
---
ebdb-i18n-chn.el | 14 ++++++++++++++
1 file changed, 14 insertions(+)
diff --git a/ebdb-i18n-chn.el b/ebdb-i18n-chn.el
index 2a8c68e..7fd80ac 100644
--- a/ebdb-i18n-chn.el
+++ b/ebdb-i18n-chn.el
@@ -66,6 +66,20 @@
(string-to-number (match-string 1 num-str)))))
(apply #'make-instance class slots)))
+(cl-defmethod ebdb-string-i18n ((adr ebdb-field-address)
+ (_cc (eql chn)))
+ (if (eql (aref char-script-table (aref (car streets) 0)) 'han)
+ (with-slots (streets locality region postcode) adr
+ (concat
+ ;; There are four municipalities, we don't need to repeat
+ ;; city-plus-province for them.
+ (unless (string-match-p "北京\\|重庆\\|上海\\|天津" region)
+ region)
+ locality
+ (mapconcat #'identity streets "")
+ ", " postcode))
+ (ebdb-format-address address 2)))
+
;; This isn't all of them, but it seems like a reasonable subset. See
;; https://en.wikipedia.org/wiki/Chinese_compound_surname for a fuller
;; list.
- [elpa] branch externals/ebdb-i18n-chn created (now 7bdd731), Stefan Monnier, 2020/11/29
- [elpa] externals/ebdb-i18n-chn 0ff7a54 01/16: Add external/contrib packages for EBDB, Stefan Monnier, 2020/11/29
- [elpa] externals/ebdb-i18n-chn 1ee38b9 06/16: Re-convolute ebdb-string-i18n for addresses, Stefan Monnier, 2020/11/29
- [elpa] externals/ebdb-i18n-chn a2309a5 03/16: Stick to variable naming scheme, Stefan Monnier, 2020/11/29
- [elpa] externals/ebdb-i18n-chn 6bb7b78 04/16: Fix up headers for ebdb-i18n-chn, Stefan Monnier, 2020/11/29
- [elpa] externals/ebdb-i18n-chn 4269b92 07/16: Provide the right package name for ebdb-i18n-chn, Stefan Monnier, 2020/11/29
- [elpa] externals/ebdb-i18n-chn d059714 08/16: Teach EBDB to snarf Chinese names, Stefan Monnier, 2020/11/29
- [elpa] externals/ebdb-i18n-chn 398f647 10/16: Edit address formatting to match changes in EBDB package, Stefan Monnier, 2020/11/29
- [elpa] externals/ebdb-i18n-chn 8aacf3f 12/16: * packages/ebdb-i18n-chn/ebdb-i18n-chn.el: Fix first line, Stefan Monnier, 2020/11/29
- [elpa] externals/ebdb-i18n-chn d7c6ea1 02/16: Add internationalized ebdb-string method for Chinese addresses,
Stefan Monnier <=
- [elpa] externals/ebdb-i18n-chn 7bdd731 16/16: * .gitignore: New file, Stefan Monnier, 2020/11/29
- [elpa] externals/ebdb-i18n-chn 03dd6af 09/16: Guard require statements for packages outside of ELPA, Stefan Monnier, 2020/11/29
- [elpa] externals/ebdb-i18n-chn bf0cd7e 14/16: Prepare to update for newer version of EBDB, but don't release, Stefan Monnier, 2020/11/29
- [elpa] externals/ebdb-i18n-chn 567e018 13/16: Fix ebdb-parse methods to return slots, not objects, bump to 1.3, Stefan Monnier, 2020/11/29
- [elpa] externals/ebdb-i18n-chn 70b7cec 15/16: [ebdb-i18n-chn] Flush version 1.3.1, Stefan Monnier, 2020/11/29
- [elpa] externals/ebdb-i18n-chn 377c1ec 05/16: * edbd-i18n-chn.el: Fix typo in metadata, Stefan Monnier, 2020/11/29
- [elpa] externals/ebdb-i18n-chn 685a486 11/16: Safer to check script of address locality, Stefan Monnier, 2020/11/29