1 ;;; install-ids.el --- installer of IDS files.
5 (setq load-ids-simplify nil)
7 (defun install-ids-read-file (file simplify soft)
11 (ids-read-file file simplify soft)
14 (install-ids-read-file "IDS-JIS-X0208-1990.txt" load-ids-simplify t)
16 (install-ids-read-file "IDS-UCS-Basic.txt" load-ids-simplify t)
18 (install-ids-read-file "IDS-UCS-Ext-A.txt" load-ids-simplify t)
21 (install-ids-read-file (format "IDS-UCS-Ext-B-%d.txt" i)
27 (install-ids-read-file (format "IDS-CNS-%d.txt" i)
33 (install-ids-read-file (format "IDS-Daikanwa-%02d.txt" i)
37 (install-ids-read-file "IDS-Daikanwa-dx.txt" load-ids-simplify t)
39 (install-ids-read-file "IDS-Daikanwa-ho.txt" load-ids-simplify t)
41 (install-ids-read-file "IDS-CBETA.txt" load-ids-simplify t)
43 (install-ids-read-file "IDS-CDP.txt" load-ids-simplify t)
44 ;; (install-ids-read-file "IDS-HZK01.txt" load-ids-simplify t)
45 ;; (install-ids-read-file "IDS-HZK02.txt" load-ids-simplify t)
46 ;; (install-ids-read-file "IDS-HZK03.txt" load-ids-simplify t)
48 (princ "Updating char-feature `ideographic-structure'...")
49 (save-char-attribute-table 'ideographic-structure)
52 ;;; install-ids.el ends hear