install-ids.el

   1 ;;; install-ids.el --- installer of IDS files.
   2
   3 ;;; Code:
   4
   5 (setq load-ids-simplify nil)
   6
   7 (defun install-ids-read-file (file simplify soft)
   8   (princ "Loading ")
   9   (princ file)
  10   (princ "...")
  11   (ids-read-file file simplify soft)
  12   (princ "done.\n"))
  13
  14
  15 ;; (mount-char-attribute-table 'ideographic-products)
  16 ;; (map-char-attribute
  17 ;;  (lambda (c v)
  18 ;;    (remove-char-attribute c 'ideographic-products)
  19 ;;    nil)
  20 ;;  'ideographic-products)
  21
  22
  23 (install-ids-read-file "IDS-JIS-X0208-1990.txt" load-ids-simplify t)
  24
  25 (install-ids-read-file "IDS-UCS-Basic.txt" load-ids-simplify t)
  26
  27 (install-ids-read-file "IDS-UCS-Ext-A.txt" load-ids-simplify t)
  28
  29 (let ((i 1))
  30   (while (<= i 6)
  31     (install-ids-read-file (format "IDS-UCS-Ext-B-%d.txt" i)
  32                            load-ids-simplify t)
  33     (setq i (1+ i))))
  34
  35 (install-ids-read-file "IDS-UCS-Ext-C.txt" load-ids-simplify t)
  36
  37 (install-ids-read-file "IDS-UCS-Ext-D.txt" load-ids-simplify t)
  38
  39 (install-ids-read-file "IDS-UCS-Ext-E.txt" load-ids-simplify t)
  40
  41 (install-ids-read-file "IDS-UCS-Ext-F.txt" load-ids-simplify t)
  42
  43 (let ((i 1))
  44   (while (<= i 3)
  45     (install-ids-read-file (format "IDS-CNS-%d.txt" i)
  46                            load-ids-simplify t)
  47     (setq i (1+ i))))
  48
  49 (let ((i 1))
  50   (while (<= i 12)
  51     (install-ids-read-file (format "IDS-Daikanwa-%02d.txt" i)
  52                            load-ids-simplify t)
  53     (setq i (1+ i))))
  54
  55 (install-ids-read-file "IDS-Daikanwa-dx.txt" load-ids-simplify t)
  56
  57 (install-ids-read-file "IDS-Daikanwa-ho.txt" load-ids-simplify t)
  58
  59 (install-ids-read-file "IDS-CBETA.txt" load-ids-simplify t)
  60
  61 (install-ids-read-file "IDS-CDP.txt" load-ids-simplify t)
  62 (let ((i 1))
  63   (while (<= i 12)
  64     (install-ids-read-file (format "IDS-HZK%02d.txt" i)
  65                            load-ids-simplify t)
  66     (setq i (1+ i))))
  67
  68 (princ "Updating char-feature `ideographic-structure'...")
  69 (save-char-attribute-table 'ideographic-structure)
  70 (princ "done.\n")
  71
  72 (princ "Updating char-feature `ideographic-products'...")
  73 (let* ((feature-dir
  74         (expand-file-name
  75          "feature"
  76          (expand-file-name
  77           "character" chise-system-db-directory)))
  78        (p-file
  79         (expand-file-name "ideographic-products" feature-dir))
  80        old-p-file)
  81   (when (file-exists-p p-file)
  82     (setq old-p-file (make-temp-name p-file))
  83     (rename-file p-file old-p-file))
  84   (ids-update-index)
  85   (when old-p-file
  86     (delete-file old-p-file)))
  87 (princ "done.\n")
  88
  89 ;;; install-ids.el ends hear