Commit b14edcc0 authored by MORIOKA Tomohiko's avatar MORIOKA Tomohiko
Browse files

(chise-json-char-get-normalized-spec): Omit `hanyu-dazidian',

`->HDIC-KTB', `->HDIC-SYP' and `->HDIC-TSJ'.
(chise-json-char-get-info): Add code to format `hanyu-dazidian'.
parent 7e115199
......@@ -1179,8 +1179,10 @@
<-subsumptive)))
(memq (car cell) '(name
general-category bidi-category mirrored
hanyu-dazidian
*instance@ruimoku/bibliography/title
*instance@morpheme-entry/zh-classical
->HDIC-KTB ->HDIC-SYP ->HDIC-TSJ
->HNG@CN/manuscript
<-HNG@CN/manuscript
->HNG@CN/printed
......@@ -2178,6 +2180,7 @@
char-info
(title-info (chise-json-char-get-title-info char))
name general-category bidi-category mirrored
hanyu-dazidian
parents-spec ; domain-parents-alist
CCS-spec
structure-spec
......@@ -2199,7 +2202,8 @@
name (cdr (assq 'name char-spec))
general-category (cdr (assq 'general-category char-spec))
bidi-category (cdr (assq 'bidi-category char-spec))
mirrored (assq 'mirrored char-spec))
mirrored (assq 'mirrored char-spec)
hanyu-dazidian (cdr (assq 'hanyu-dazidian char-spec)))
(setq parents-spec (aref char-info 0)
CCS-spec (sort (aref char-info 1)
(lambda (a b)
......@@ -2350,6 +2354,10 @@
dest))
))
)
(if hanyu-dazidian
(setq dest
(cons (cons 'hanyu-dazidian hanyu-dazidian)
dest)))
(if mirrored
(setq dest
(cons (cons 'mirrored (or (cdr mirrored) :json-false))
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment