86361
|
1 ;;; nxml-glyph.el --- glyph-handling for nxml-mode
|
|
2
|
106815
|
3 ;; Copyright (C) 2003, 2007, 2008, 2009, 2010 Free Software Foundation, Inc.
|
86361
|
4
|
|
5 ;; Author: James Clark
|
|
6 ;; Keywords: XML
|
|
7
|
86536
|
8 ;; This file is part of GNU Emacs.
|
|
9
|
94666
|
10 ;; GNU Emacs is free software: you can redistribute it and/or modify
|
86536
|
11 ;; it under the terms of the GNU General Public License as published by
|
94666
|
12 ;; the Free Software Foundation, either version 3 of the License, or
|
|
13 ;; (at your option) any later version.
|
86361
|
14
|
86536
|
15 ;; GNU Emacs is distributed in the hope that it will be useful,
|
|
16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
18 ;; GNU General Public License for more details.
|
86361
|
19
|
86536
|
20 ;; You should have received a copy of the GNU General Public License
|
94666
|
21 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
|
86361
|
22
|
|
23 ;;; Commentary:
|
|
24
|
|
25 ;; The entry point to this file is `nxml-glyph-display-string'.
|
|
26 ;; The current implementation is heuristic due to a lack of
|
|
27 ;; Emacs primitives necessary to implement it properly. The user
|
|
28 ;; can tweak the heuristics using `nxml-glyph-set-hook'.
|
|
29
|
|
30 ;;; Code:
|
|
31
|
|
32 (defconst nxml-ascii-glyph-set
|
|
33 [(#x0020 . #x007E)])
|
|
34
|
|
35 (defconst nxml-latin1-glyph-set
|
|
36 [(#x0020 . #x007E)
|
|
37 (#x00A0 . #x00FF)])
|
|
38
|
|
39 ;; These were generated by using nxml-insert-target-repertoire-glyph-set
|
|
40 ;; on the TARGET[123] files in
|
|
41 ;; http://www.cl.cam.ac.uk/~mgk25/download/ucs-fonts.tar.gz
|
|
42
|
|
43 (defconst nxml-misc-fixed-1-glyph-set
|
|
44 [(#x0020 . #x007E)
|
|
45 (#x00A0 . #x00FF)
|
|
46 (#x0100 . #x017F)
|
|
47 #x018F #x0192
|
|
48 (#x0218 . #x021B)
|
|
49 #x0259
|
|
50 (#x02C6 . #x02C7)
|
|
51 (#x02D8 . #x02DD)
|
|
52 (#x0374 . #x0375)
|
|
53 #x037A #x037E
|
|
54 (#x0384 . #x038A)
|
|
55 #x038C
|
|
56 (#x038E . #x03A1)
|
|
57 (#x03A3 . #x03CE)
|
|
58 (#x0401 . #x040C)
|
|
59 (#x040E . #x044F)
|
|
60 (#x0451 . #x045C)
|
|
61 (#x045E . #x045F)
|
|
62 (#x0490 . #x0491)
|
|
63 (#x05D0 . #x05EA)
|
|
64 (#x1E02 . #x1E03)
|
|
65 (#x1E0A . #x1E0B)
|
|
66 (#x1E1E . #x1E1F)
|
|
67 (#x1E40 . #x1E41)
|
|
68 (#x1E56 . #x1E57)
|
|
69 (#x1E60 . #x1E61)
|
|
70 (#x1E6A . #x1E6B)
|
|
71 (#x1E80 . #x1E85)
|
|
72 (#x1EF2 . #x1EF3)
|
|
73 (#x2010 . #x2022)
|
|
74 #x2026 #x2030
|
|
75 (#x2039 . #x203A)
|
|
76 #x20AC #x2116 #x2122 #x2126
|
|
77 (#x215B . #x215E)
|
|
78 (#x2190 . #x2193)
|
|
79 #x2260
|
|
80 (#x2264 . #x2265)
|
|
81 (#x23BA . #x23BD)
|
|
82 (#x2409 . #x240D)
|
|
83 #x2424 #x2500 #x2502 #x250C #x2510 #x2514 #x2518 #x251C #x2524 #x252C #x2534 #x253C #x2592 #x25C6 #x266A #xFFFD]
|
|
84 "Glyph set for TARGET1 glyph repertoire of misc-fixed-* font.
|
|
85 This repertoire is supported for the bold and oblique fonts.")
|
|
86
|
|
87 (defconst nxml-misc-fixed-2-glyph-set
|
|
88 [(#x0020 . #x007E)
|
|
89 (#x00A0 . #x00FF)
|
|
90 (#x0100 . #x017F)
|
|
91 #x018F #x0192
|
|
92 (#x01FA . #x01FF)
|
|
93 (#x0218 . #x021B)
|
|
94 #x0259
|
|
95 (#x02C6 . #x02C7)
|
|
96 #x02C9
|
|
97 (#x02D8 . #x02DD)
|
|
98 (#x0300 . #x0311)
|
|
99 (#x0374 . #x0375)
|
|
100 #x037A #x037E
|
|
101 (#x0384 . #x038A)
|
|
102 #x038C
|
|
103 (#x038E . #x03A1)
|
|
104 (#x03A3 . #x03CE)
|
|
105 #x03D1
|
|
106 (#x03D5 . #x03D6)
|
|
107 #x03F1
|
|
108 (#x0401 . #x040C)
|
|
109 (#x040E . #x044F)
|
|
110 (#x0451 . #x045C)
|
|
111 (#x045E . #x045F)
|
|
112 (#x0490 . #x0491)
|
|
113 (#x05D0 . #x05EA)
|
|
114 (#x1E02 . #x1E03)
|
|
115 (#x1E0A . #x1E0B)
|
|
116 (#x1E1E . #x1E1F)
|
|
117 (#x1E40 . #x1E41)
|
|
118 (#x1E56 . #x1E57)
|
|
119 (#x1E60 . #x1E61)
|
|
120 (#x1E6A . #x1E6B)
|
|
121 (#x1E80 . #x1E85)
|
|
122 (#x1EF2 . #x1EF3)
|
|
123 (#x2010 . #x2022)
|
|
124 #x2026 #x2030
|
|
125 (#x2032 . #x2034)
|
|
126 (#x2039 . #x203A)
|
|
127 #x203C #x203E #x2044
|
|
128 (#x2070 . #x2071)
|
|
129 (#x2074 . #x208E)
|
|
130 (#x20A3 . #x20A4)
|
|
131 #x20A7 #x20AC
|
|
132 (#x20D0 . #x20D7)
|
|
133 #x2102 #x2105 #x2113
|
|
134 (#x2115 . #x2116)
|
|
135 #x211A #x211D #x2122 #x2124 #x2126 #x212E
|
|
136 (#x215B . #x215E)
|
|
137 (#x2190 . #x2195)
|
|
138 (#x21A4 . #x21A8)
|
|
139 (#x21D0 . #x21D5)
|
|
140 (#x2200 . #x2209)
|
|
141 (#x220B . #x220C)
|
|
142 #x220F
|
|
143 (#x2211 . #x2213)
|
|
144 #x2215
|
|
145 (#x2218 . #x221A)
|
|
146 (#x221D . #x221F)
|
|
147 #x2221
|
|
148 (#x2224 . #x222B)
|
|
149 #x222E #x223C #x2243 #x2245
|
|
150 (#x2248 . #x2249)
|
|
151 #x2259
|
|
152 (#x225F . #x2262)
|
|
153 (#x2264 . #x2265)
|
|
154 (#x226A . #x226B)
|
|
155 (#x2282 . #x228B)
|
|
156 #x2295 #x2297
|
|
157 (#x22A4 . #x22A7)
|
|
158 (#x22C2 . #x22C3)
|
|
159 #x22C5 #x2300 #x2302
|
|
160 (#x2308 . #x230B)
|
|
161 #x2310
|
|
162 (#x2320 . #x2321)
|
|
163 (#x2329 . #x232A)
|
|
164 (#x23BA . #x23BD)
|
|
165 (#x2409 . #x240D)
|
|
166 #x2424 #x2500 #x2502 #x250C #x2510 #x2514 #x2518 #x251C #x2524 #x252C #x2534 #x253C
|
|
167 (#x254C . #x2573)
|
|
168 (#x2580 . #x25A1)
|
|
169 (#x25AA . #x25AC)
|
|
170 (#x25B2 . #x25B3)
|
|
171 #x25BA #x25BC #x25C4 #x25C6
|
|
172 (#x25CA . #x25CB)
|
|
173 #x25CF
|
|
174 (#x25D8 . #x25D9)
|
|
175 #x25E6
|
|
176 (#x263A . #x263C)
|
|
177 #x2640 #x2642 #x2660 #x2663
|
|
178 (#x2665 . #x2666)
|
|
179 (#x266A . #x266B)
|
|
180 (#xFB01 . #xFB02)
|
|
181 #xFFFD]
|
|
182 "Glyph set for TARGET2 glyph repertoire of the misc-fixed-* fonts.
|
|
183 This repertoire is supported for the following fonts:
|
|
184 5x7.bdf 5x8.bdf 6x9.bdf 6x10.bdf 6x12.bdf 7x13.bdf 7x14.bdf clR6x12.bdf")
|
|
185
|
|
186 (defconst nxml-misc-fixed-3-glyph-set
|
|
187 [(#x0020 . #x007E)
|
|
188 (#x00A0 . #x00FF)
|
|
189 (#x0100 . #x01FF)
|
|
190 (#x0200 . #x0220)
|
|
191 (#x0222 . #x0233)
|
|
192 (#x0250 . #x02AD)
|
|
193 (#x02B0 . #x02EE)
|
|
194 (#x0300 . #x034F)
|
|
195 (#x0360 . #x036F)
|
|
196 (#x0374 . #x0375)
|
|
197 #x037A #x037E
|
|
198 (#x0384 . #x038A)
|
|
199 #x038C
|
|
200 (#x038E . #x03A1)
|
|
201 (#x03A3 . #x03CE)
|
|
202 (#x03D0 . #x03F6)
|
|
203 (#x0400 . #x0486)
|
|
204 (#x0488 . #x04CE)
|
|
205 (#x04D0 . #x04F5)
|
|
206 (#x04F8 . #x04F9)
|
|
207 (#x0500 . #x050F)
|
|
208 (#x0531 . #x0556)
|
|
209 (#x0559 . #x055F)
|
|
210 (#x0561 . #x0587)
|
|
211 (#x0589 . #x058A)
|
|
212 (#x05B0 . #x05B9)
|
|
213 (#x05BB . #x05C4)
|
|
214 (#x05D0 . #x05EA)
|
|
215 (#x05F0 . #x05F4)
|
|
216 (#x10D0 . #x10F8)
|
|
217 #x10FB
|
|
218 (#x1E00 . #x1E9B)
|
|
219 (#x1EA0 . #x1EF9)
|
|
220 (#x1F00 . #x1F15)
|
|
221 (#x1F18 . #x1F1D)
|
|
222 (#x1F20 . #x1F45)
|
|
223 (#x1F48 . #x1F4D)
|
|
224 (#x1F50 . #x1F57)
|
|
225 #x1F59 #x1F5B #x1F5D
|
|
226 (#x1F5F . #x1F7D)
|
|
227 (#x1F80 . #x1FB4)
|
|
228 (#x1FB6 . #x1FC4)
|
|
229 (#x1FC6 . #x1FD3)
|
|
230 (#x1FD6 . #x1FDB)
|
|
231 (#x1FDD . #x1FEF)
|
|
232 (#x1FF2 . #x1FF4)
|
|
233 (#x1FF6 . #x1FFE)
|
|
234 (#x2000 . #x200A)
|
|
235 (#x2010 . #x2027)
|
|
236 (#x202F . #x2052)
|
|
237 #x2057
|
|
238 (#x205F . #x2063)
|
|
239 (#x2070 . #x2071)
|
|
240 (#x2074 . #x208E)
|
|
241 (#x20A0 . #x20B1)
|
|
242 (#x20D0 . #x20EA)
|
|
243 (#x2100 . #x213A)
|
|
244 (#x213D . #x214B)
|
|
245 (#x2153 . #x2183)
|
|
246 (#x2190 . #x21FF)
|
|
247 (#x2200 . #x22FF)
|
|
248 (#x2300 . #x23CE)
|
|
249 (#x2400 . #x2426)
|
|
250 (#x2440 . #x244A)
|
|
251 (#x2500 . #x25FF)
|
|
252 (#x2600 . #x2613)
|
|
253 (#x2616 . #x2617)
|
|
254 (#x2619 . #x267D)
|
|
255 (#x2680 . #x2689)
|
|
256 (#x27E6 . #x27EB)
|
|
257 (#x27F5 . #x27FF)
|
|
258 (#x2A00 . #x2A06)
|
|
259 #x2A1D #x2A3F #x303F
|
|
260 (#xFB00 . #xFB06)
|
|
261 (#xFB13 . #xFB17)
|
|
262 (#xFB1D . #xFB36)
|
|
263 (#xFB38 . #xFB3C)
|
|
264 #xFB3E
|
|
265 (#xFB40 . #xFB41)
|
|
266 (#xFB43 . #xFB44)
|
|
267 (#xFB46 . #xFB4F)
|
|
268 (#xFE20 . #xFE23)
|
|
269 (#xFF61 . #xFF9F)
|
|
270 #xFFFD]
|
|
271 "Glyph set for TARGET3 glyph repertoire of the misc-fixed-* fonts.
|
|
272 This repertoire is supported for the following fonts:
|
|
273 6x13.bdf 8x13.bdf 9x15.bdf 9x18.bdf 10x20.bdf")
|
96496
|
274
|
86361
|
275 (defconst nxml-wgl4-glyph-set
|
|
276 [(#x0020 . #x007E)
|
|
277 (#x00A0 . #x017F)
|
|
278 #x0192
|
|
279 (#x01FA . #x01FF)
|
|
280 (#x02C6 . #x02C7)
|
|
281 #x02C9
|
|
282 (#x02D8 . #x02DB)
|
|
283 #x02DD
|
|
284 (#x0384 . #x038A)
|
|
285 #x038C
|
|
286 (#x038E . #x03A1)
|
|
287 (#x03A3 . #x03CE)
|
|
288 (#x0401 . #x040C)
|
|
289 (#x040E . #x044F)
|
|
290 (#x0451 . #x045C)
|
|
291 (#x045E . #x045F)
|
|
292 (#x0490 . #x0491)
|
|
293 (#x1E80 . #x1E85)
|
|
294 (#x1EF2 . #x1EF3)
|
|
295 (#x2013 . #x2015)
|
|
296 (#x2017 . #x201E)
|
|
297 (#x2020 . #x2022)
|
|
298 #x2026 #x2030
|
|
299 (#x2032 . #x2033)
|
|
300 (#x2039 . #x203A)
|
|
301 #x203C #x203E #x2044 #x207F
|
|
302 (#x20A3 . #x20A4)
|
|
303 #x20A7 #x20AC #x2105 #x2113 #x2116 #x2122 #x2126 #x212E
|
|
304 (#x215B . #x215E)
|
|
305 (#x2190 . #x2195)
|
|
306 #x21A8 #x2202 #x2206 #x220F
|
|
307 (#x2211 . #x2212)
|
|
308 #x2215
|
|
309 (#x2219 . #x221A)
|
|
310 (#x221E . #x221F)
|
|
311 #x2229 #x222B #x2248
|
|
312 (#x2260 . #x2261)
|
|
313 (#x2264 . #x2265)
|
|
314 #x2302 #x2310
|
|
315 (#x2320 . #x2321)
|
|
316 #x2500 #x2502 #x250C #x2510 #x2514 #x2518 #x251C #x2524
|
|
317 #x252C #x2534 #x253C
|
|
318 (#x2550 . #x256C)
|
|
319 #x2580 #x2584 #x2588 #x258C
|
|
320 (#x2590 . #x2593)
|
|
321 (#x25A0 . #x25A1)
|
|
322 (#x25AA . #x25AC)
|
|
323 #x25B2 #x25BA #x25BC #x25C4
|
|
324 (#x25CA . #x25CB)
|
|
325 #x25CF
|
|
326 (#x25D8 . #x25D9)
|
|
327 #x25E6
|
|
328 (#x263A . #x263C)
|
|
329 #x2640 #x2642 #x2660 #x2663
|
|
330 (#x2665 . #x2666)
|
|
331 (#x266A . #x266B)
|
|
332 (#xFB01 . #xFB02)]
|
|
333 "Glyph set corresponding to Windows Glyph List 4.")
|
|
334
|
|
335 (defvar nxml-glyph-set-hook nil
|
|
336 "*Hook for determining the set of glyphs in a face.
|
96496
|
337 The hook will receive a single argument FACE. If it can determine
|
|
338 the set of glyphs representable by FACE, it must set the variable
|
|
339 `nxml-glyph-set' and return non-nil. Otherwise, it must return nil.
|
|
340 The hook will be run until success. The constants
|
86361
|
341 `nxml-ascii-glyph-set', `nxml-latin1-glyph-set',
|
|
342 `nxml-misc-fixed-1-glyph-set', `nxml-misc-fixed-2-glyph-set',
|
96496
|
343 `nxml-misc-fixed-3-glyph-set' and `nxml-wgl4-glyph-set' are
|
|
344 predefined for use by `nxml-glyph-set-hook'.")
|
86361
|
345
|
|
346 (defvar nxml-glyph-set nil
|
|
347 "Used by `nxml-glyph-set-hook' to return set of glyphs in a FACE.
|
|
348 This should dynamically bound by any function that runs
|
|
349 `nxml-glyph-set-hook'. The value must be either nil representing an
|
|
350 empty set or a vector. Each member of the vector is either a single
|
|
351 integer or a cons (FIRST . LAST) representing the range of integers
|
|
352 from FIRST to LAST. An integer represents a glyph with that Unicode
|
|
353 code-point. The vector must be ordered.")
|
|
354
|
|
355 (defun nxml-x-set-glyph-set (face)
|
|
356 (setq nxml-glyph-set
|
|
357 (if (equal (face-attribute face :family) "misc-fixed")
|
|
358 nxml-misc-fixed-3-glyph-set
|
|
359 nxml-wgl4-glyph-set)))
|
|
360
|
|
361 (defun nxml-w32-set-glyph-set (face)
|
|
362 (setq nxml-glyph-set nxml-wgl4-glyph-set))
|
|
363
|
|
364 (defun nxml-window-system-set-glyph-set (face)
|
|
365 (setq nxml-glyph-set nxml-latin1-glyph-set))
|
|
366
|
|
367 (defun nxml-terminal-set-glyph-set (face)
|
|
368 (setq nxml-glyph-set nxml-ascii-glyph-set))
|
|
369
|
|
370 (add-hook 'nxml-glyph-set-hook
|
|
371 (or (cdr (assq window-system
|
|
372 '((x . nxml-x-set-glyph-set)
|
|
373 (w32 . nxml-w32-set-glyph-set)
|
|
374 (nil . nxml-terminal-set-glyph-set))))
|
|
375 'nxml-window-system-set-glyph-set)
|
|
376 t)
|
|
377
|
|
378 ;;;###autoload
|
|
379 (defun nxml-glyph-display-string (n face)
|
|
380 "Return a string that can display a glyph for Unicode code-point N.
|
|
381 FACE gives the face that will be used for displaying the string.
|
|
382 Return nil if the face cannot display a glyph for N."
|
|
383 (let ((nxml-glyph-set nil))
|
|
384 (run-hook-with-args-until-success 'nxml-glyph-set-hook face)
|
|
385 (and nxml-glyph-set
|
|
386 (nxml-glyph-set-contains-p n nxml-glyph-set)
|
|
387 (let ((ch (decode-char 'ucs n)))
|
|
388 (and ch (string ch))))))
|
96496
|
389
|
86361
|
390 (defun nxml-glyph-set-contains-p (n v)
|
|
391 (let ((start 0)
|
|
392 (end (length v))
|
|
393 found mid mid-val mid-start-val mid-end-val)
|
|
394 (while (> end start)
|
|
395 (setq mid (+ start
|
|
396 (/ (- end start) 2)))
|
|
397 (setq mid-val (aref v mid))
|
|
398 (if (consp mid-val)
|
|
399 (setq mid-start-val (car mid-val)
|
|
400 mid-end-val (cdr mid-val))
|
|
401 (setq mid-start-val mid-val
|
|
402 mid-end-val mid-val))
|
|
403 (cond ((and (<= mid-start-val n)
|
|
404 (<= n mid-end-val))
|
|
405 (setq found t)
|
|
406 (setq start end))
|
|
407 ((< n mid-start-val)
|
|
408 (setq end mid))
|
|
409 (t
|
|
410 (setq start
|
|
411 (if (eq start mid)
|
|
412 end
|
|
413 mid)))))
|
|
414 found))
|
|
415
|
|
416 (provide 'nxml-glyph)
|
|
417
|
86379
|
418 ;; arch-tag: 50985104-27c6-4241-8625-b11aa5685633
|
86361
|
419 ;;; nxml-glyph.el ends here
|