1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
|
;;; ebdb-i18n-chn.el --- China-specific internationalization support for EBDB -*- lexical-binding: t; -*-
;; Copyright (C) 2016-2019 Free Software Foundation, Inc.
;; Author: Eric Abrahamsen <eric@ericabrahamsen.net>
;; Maintainer: Eric Abrahamsen <eric@ericabrahamsen.net>
;; Version: 1.3.2
;; Package-Requires: ((pyim "1.6.0") (ebdb "0.6.17"))
;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with this program. If not, see <https://www.gnu.org/licenses/>.
;;; Commentary:
;; Bits of code for making EBDB nicer to use with China-based
;; contacts, both for handling Chinese characters, and for formatting
;; of phones and addresses. Be aware that using this library will
;; incur a non-neglible slowdown at load time. It shouldn't have any
;; real impact on search and completion times.
;; Generic methods don't play nice with autoloads: you'll need to
;; require this package after installing it.
;;; Code:
(when t (require 'pyim))
(require 'ebdb-i18n)
(cl-defmethod ebdb-string-i18n ((phone ebdb-field-phone)
(_cc (eql 86)))
(with-slots (area-code number extension) phone
(concat
"+86 "
(if area-code
(format "%d-%s" area-code number)
number)
(if extension
(format "X%d" extension)
""))))
(cl-defmethod ebdb-parse-i18n ((_class (subclass ebdb-field-phone))
(str string)
(_cc (eql 86))
&optional slots)
;; First remove everything but the numbers.
(let ((num-str (string-trim
(replace-regexp-in-string "[^0-9Xx]+" "" str)))
a-code)
;; In China, basically everything that starts with a 1 is a cell
;; number, unless it starts with a 10, in which case it's the
;; Beijing area code. Sometimes the area codes are written with a
;; leading zero, but they shouldn't be saved that way.
(when (string-match "\\`0?\\(10\\|[2-9][0-9]\\{1,2\\}\\)?\\([0-9]+\\)" num-str)
(setq a-code (match-string 1 num-str)
slots (plist-put slots :number (match-string 2 num-str)))
(when a-code
(setq slots (plist-put slots :area-code (string-to-number a-code)))))
(when (string-match "X\\([0-9]+\\)\\'" num-str)
(setq slots (plist-put slots :extension
(string-to-number (match-string 1 num-str)))))
slots))
(cl-defmethod ebdb-string-i18n ((adr ebdb-field-address)
(_cc (eql chn)))
(with-slots (streets locality region postcode) adr
(if (eql (aref char-script-table (aref locality 0)) 'han)
(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-default adr))))
;; 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.
(defvar ebdb-i18n-chn-compound-surnames
'("慕容" "上官" "司马" "欧阳" "司徒" "司空" "西门" "爱新觉罗")
"A list of Chinese surnames that are longer than one
character.")
(cl-defmethod ebdb-parse-i18n ((_class (subclass ebdb-field-name-complex))
(string string)
(_script (eql han))
&optional _slots)
(let (surname given-names)
(if (string-match (format "\\`\\(%s\\)\\(.*\\)\\'"
(regexp-opt ebdb-i18n-chn-compound-surnames))
string)
(setq surname (match-string 1 string)
given-names (match-string 2 string))
(setq surname (substring string 0 1)
given-names (substring string 1)))
(list :surname surname :given-names (list given-names)
:suffix nil)))
(cl-defmethod ebdb-string-i18n ((field ebdb-field-name-complex)
(_script (eql han)))
"Properly format names in Chinese characters.
This should only run once, at init time, or any time a record's
name is changed. The value ends up in the 'name-string slot of
the record cache."
(with-slots (surname given-names) field
(concat (when surname surname)
(when given-names (car given-names)))))
(cl-defmethod ebdb-china-handle-name ((field ebdb-field-name-complex)
(record ebdb-record)
add-or-del)
"Add or remove a hash for a Chinese-character name.
This function is called by both the `ebdb-init-field-i18n' and
`ebdb-delete-field-i18n' methods. It checks if the name is in
Chinese characters, and if it is, converts it into pinyin, and
either adds or removes a hash entry for the record under that
name. It also adds the pinyin to the record's name cache, so
searches via pinyin will find the record."
;; We use `pyim-hanzi2pinyin-simple' because it's cheaper, and
;; because checking for multiple character pronunciations isn't
;; really helpful in people's names.
(let ((fl-py (pyim-hanzi2pinyin-simple (ebdb-name-fl field)))
(lf-py (pyim-hanzi2pinyin-simple
;; Don't use `ebdb-name-lf', because there's no sense
;; in having the comma in there.
(concat (ebdb-name-last field)
" "
(ebdb-name-given field t))))
(name-string (ebdb-string field)))
(if (eql add-or-del 'add)
(dolist (str (list fl-py name-string lf-py))
(cl-pushnew str (ebdb-record-alt-names record)
:test #'equal)
(ebdb-puthash str record))
(dolist (str (list fl-py name-string lf-py))
(setf (ebdb-record-alt-names record)
(remove str (ebdb-record-alt-names record)))
(ebdb-remhash str record)))))
(cl-defmethod ebdb-china-handle-name ((field ebdb-field-name-simple)
(record ebdb-record)
add-or-del)
"Add or remove a hash for a Chinese-character name."
;; We use `pyim-hanzi2pinyin-simple' because it's cheaper, and
;; because checking for multiple character pronunciations isn't
;; really helpful in people's names.
(let ((name-string (ebdb-string field)))
(if (eql add-or-del 'add)
(progn
(cl-pushnew name-string (ebdb-record-alt-names record)
:test #'equal)
(ebdb-puthash name-string record))
(setf (ebdb-record-alt-names record)
(remove name-string (ebdb-record-alt-names record)))
(ebdb-remhash name-string record))))
(cl-defmethod ebdb-init-field-i18n ((field ebdb-field-name)
record
(_script (eql han)))
(ebdb-china-handle-name field record 'add))
(cl-defmethod ebdb-delete-field-i18n ((field ebdb-field-name)
record
(_script (eql han))
_unload)
(ebdb-china-handle-name field record 'del))
(eval-after-load 'ebdb-snarf
'(push (format "%s\\cc\\{1,2\\}\\|\\cc\\{2,3\\}"
(regexp-opt ebdb-i18n-chn-compound-surnames))
ebdb-snarf-name-re))
(provide 'ebdb-i18n-chn)
;;; ebdb-i18n-chn.el ends here
|
