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 (install-ids-read-file "IDS-JIS-X0208-1990.txt" load-ids-simplify t)
  15
  16 (install-ids-read-file "IDS-UCS-Basic.txt" load-ids-simplify t)
  17
  18 (install-ids-read-file "IDS-UCS-Ext-A.txt" load-ids-simplify t)
  19 (let ((i 1))
  20   (while (<= i 6)
  21     (install-ids-read-file (format "IDS-UCS-Ext-B-%d.txt" i)
  22                            load-ids-simplify t)
  23     (setq i (1+ i))))
  24
  25 (let ((i 1))
  26   (while (<= i 2)
  27     (install-ids-read-file (format "IDS-CNS-%d.txt" i)
  28                            load-ids-simplify t)
  29     (setq i (1+ i))))
  30
  31 (let ((i 1))
  32   (while (<= i 12)
  33     (install-ids-read-file (format "IDS-Daikanwa-%02d.txt" i)
  34                            load-ids-simplify t)
  35     (setq i (1+ i))))
  36
  37 (install-ids-read-file "IDS-Daikanwa-dx.txt" load-ids-simplify t)
  38
  39 (install-ids-read-file "IDS-Daikanwa-ho.txt" load-ids-simplify t)
  40
  41 (install-ids-read-file "IDS-CBETA.txt" load-ids-simplify t)
  42
  43 (install-ids-read-file "IDS-CDP.txt" load-ids-simplify t)
  44 (let ((i 1))
  45   (while (<= i 12)
  46     (install-ids-read-file (format "IDS-HZK%02d.txt" i)
  47                            load-ids-simplify t)
  48     (setq i (1+ i))))
  49
  50 (princ "Updating char-feature `ideographic-structure'...")
  51 (save-char-attribute-table 'ideographic-structure)
  52 (princ "done.\n")
  53
  54 ;;; install-ids.el ends hear