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)
15 ;; (mount-char-attribute-table 'ideographic-products)
16 ;; (map-char-attribute
18 ;; (remove-char-attribute c 'ideographic-products)
20 ;; 'ideographic-products)
23 (install-ids-read-file "IDS-JIS-X0208-1990.txt" load-ids-simplify t)
25 (install-ids-read-file "IDS-UCS-Basic.txt" load-ids-simplify t)
27 (install-ids-read-file "IDS-UCS-Ext-A.txt" load-ids-simplify t)
31 (install-ids-read-file (format "IDS-UCS-Ext-B-%d.txt" i)
35 (install-ids-read-file "IDS-UCS-Ext-C.txt" load-ids-simplify t)
37 (install-ids-read-file "IDS-UCS-Ext-D.txt" load-ids-simplify t)
41 (install-ids-read-file (format "IDS-CNS-%d.txt" i)
47 (install-ids-read-file (format "IDS-Daikanwa-%02d.txt" i)
51 (install-ids-read-file "IDS-Daikanwa-dx.txt" load-ids-simplify t)
53 (install-ids-read-file "IDS-Daikanwa-ho.txt" load-ids-simplify t)
55 (install-ids-read-file "IDS-CBETA.txt" load-ids-simplify t)
57 (install-ids-read-file "IDS-CDP.txt" load-ids-simplify t)
60 (install-ids-read-file (format "IDS-HZK%02d.txt" i)
64 (princ "Updating char-feature `ideographic-structure'...")
65 (save-char-attribute-table 'ideographic-structure)
68 (princ "Updating char-feature `ideographic-products'...")
73 "character" chise-system-db-directory)))
75 (expand-file-name "ideographic-products" feature-dir))
77 (when (file-exists-p p-file)
78 (setq old-p-file (make-temp-name p-file))
79 (rename-file p-file old-p-file))
82 (delete-file old-p-file)))
85 ;;; install-ids.el ends hear