lisp/utf-2000/mojikyo.el

   1 (defun allocate-mojikyo-chars (name plane)
   2   (let ((ucs (+ #xE00001
   3                 (* (1- plane)
   4                    (eval-when-compile (* 94 60)))))
   5         (r 0)
   6         char c)
   7     (while (< r 30)
   8       (setq c 0)
   9       (while (< c 94)
  10         (setq char (int-char ucs))
  11         (put-char-attribute
  12          char name (list (+ r (eval-when-compile (+ 16 32)))
  13                          (+ c 33)))
  14         (setq c (1+ c)
  15               ucs (1+ ucs)))
  16       (setq r (1+ r)))
  17     (setq r 30)
  18     (while (< r 60)
  19       (setq c 0)
  20       (while (< c 94)
  21         (setq char (int-char ucs))
  22         (put-char-attribute
  23          char name (list (+ r (eval-when-compile (+ 18 32)))
  24                          (+ c 33)))
  25         (setq c (1+ c)
  26               ucs (1+ ucs)))
  27       (setq r (1+ r)))
  28     ))
  29
  30 (let ((p 1))
  31   (while (<= p 21)
  32     (allocate-mojikyo-chars (intern (format "mojikyo-pj-%d" p)) p)
  33     (setq p (1+ p))))
  34
  35 (remove-char-attribute (decode-char 'ideograph-daikanwa 292)
  36                        'mojikyo-pj-1)
  37 (remove-char-attribute (decode-char 'ideograph-daikanwa 634)
  38                        ;; (int-char (+ #xe00000 634))
  39                        'mojikyo-pj-1)
  40 (remove-char-attribute (int-char (+ #xe00000 916))
  41                        ;;(decode-char 'ideograph-daikanwa 916)
  42                        'mojikyo-pj-1)
  43 (remove-char-attribute (decode-char 'ideograph-daikanwa 28800)
  44                        'mojikyo-pj-6)
  45 (remove-char-attribute (int-char (+ #xe00000 48869))
  46                        'mojikyo-pj-9)
  47 (remove-char-attribute (int-char (+ #xe00000 50100))
  48                        'mojikyo-pj-9)