projects
/
chise
/
ids.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
13bd93f
)
Add code to compact `ideographic-structure@apparent/leftmost'.
author
MORIOKA Tomohiko
<tomo.git@chise.org>
Thu, 1 Jul 2021 12:16:06 +0000
(21:16 +0900)
committer
MORIOKA Tomohiko
<tomo.git@chise.org>
Thu, 1 Jul 2021 12:16:06 +0000
(21:16 +0900)
install-ids.el
patch
|
blob
|
history
diff --git
a/install-ids.el
b/install-ids.el
index
390c832
..
a9ce523
100644
(file)
--- a/
install-ids.el
+++ b/
install-ids.el
@@
-122,6
+122,19
@@
(map-char-attribute
(lambda (c v)
(unless (equal (setq ret (ideographic-structure-compact v)) v)
(map-char-attribute
(lambda (c v)
(unless (equal (setq ret (ideographic-structure-compact v)) v)
+ (princ (format "Compact %04X (%c) : [apparent/leftmost] %s -> %s\n"
+ (char-int c)
+ c
+ (ideographic-structure-to-ids v)
+ (ideographic-structure-to-ids ret)))
+ (put-char-attribute c 'ideographic-structure@apparent/leftmost ret)
+ (setq v ret))
+ nil)
+ 'ideographic-structure@apparent/leftmost)
+
+ (map-char-attribute
+ (lambda (c v)
+ (unless (equal (setq ret (ideographic-structure-compact v)) v)
(princ (format "Compact %04X (%c) : %s -> %s\n"
(char-int c)
c
(princ (format "Compact %04X (%c) : %s -> %s\n"
(char-int c)
c
@@
-143,6
+156,18
@@
(setq v ret))
nil)
'ideographic-structure@apparent)
(setq v ret))
nil)
'ideographic-structure@apparent)
+ (map-char-attribute
+ (lambda (c v)
+ (unless (equal (setq ret (ideographic-structure-compact v)) v)
+ (princ (format "Compact %04X (%c) : [apparent/leftmost] %s -> %s\n"
+ (char-int c)
+ c
+ (ideographic-structure-to-ids v)
+ (ideographic-structure-to-ids ret)))
+ (put-char-attribute c 'ideographic-structure@apparent/leftmost ret)
+ (setq v ret))
+ nil)
+ 'ideographic-structure@apparent/leftmost)
(princ "done.\n")
(princ "Updating char-feature `ideographic-structure'...")
(princ "done.\n")
(princ "Updating char-feature `ideographic-structure'...")