Gajulog

＃ B.L.T.

BLTにゴガク系アイドル特集で葉子ちゃんも1ページ。担当国の衣装ということでチマチョゴリを着ています。

そういえばこれも表紙は上戸彩ちゃん。さすがにこれだけ並んでると嫌気が(^_^;

＃ regionを実体参照に

この日記にハングルを入れるには(まあ別に入れなくてもいいんだけど^^;)、&#xxxxx;式の実体参照を使わなければならないので、Meadow上で多バイト文字をregion指定して実体参照に変換する関数を作ってみた。

(defun my-char-to-entity-reference-region (&optional arg)
  (interactive "P")
  (let* ((chl ())
         (beg (region-beginning))
         (end (region-end))
         (lng (get-language-info current-language-environment 'charset))
         (res ""))
    (save-restriction
      (narrow-to-region beg end)
      (setq chl (string-to-list (buffer-string)))
      (while (not (null chl))
        (let* ((ch (car chl)))
          (setq res
                (concat res
                        (if (or (<= ch 127)
                                (and (not arg)
                                     (memq (char-charset ch) lng)))
                            (char-to-string ch)
                          (concat "&#" (number-to-string (char-to-ucs ch)) ";"))
                        ))
          (setq chl (cdr chl))))
      (save-excursion
        (goto-char beg)
        (insert res)
        (delete-char (- end beg))))
    res))

char-to-ucsがMule-UCS内の関数なので、Mule-UCSが必要。

こんな感じ。

안녕하세요 → 안녕하세요

ハングル自体の入力は C-u C-\ で korean-hangul を指定するだけでキーボードから簡単に入力できる。ちなみにMeadow2でMule-UCSを使うには、いまのところ最新テスト版じゃないとうまく動かない。

※2004/7/16 他国語のみを変換するように修正。prefix argument付きで自国語も変換。

＃ Happy Hacking Keyboard Professional

HHKがリニューアル。つか、高けぇ、2万5千円って何よ(笑)。