平衡点

2007/02/01

_ もう二月

あした, 北大で受ける最後の試験を受けるため, 現在漬物つくってま.

_ バベル案内

バベル案内

scheme は, 以前読み始めたけど, 結局挫折したよ.

今は専ら C, Fortran, Ruby な感じです.

Ruby 良いよ. 愛してる.

_ Plagger

噂の Plagger を入れてみた. 便利だね, 確かに.

設定まだしてないけどさ.

Debian の場合は, cpan でも良いけど, debootstrap + dchroot をオススメします.

導入と設定についてはそのうち…

[ツッコミを入れる]

2007/02/05

_ 文字コードチェック

大した事じゃないけど, バッファーに貼り付けた時に, 文字コードが異なる場所を色付するための関数.

;;;===========================================================================
;;; 文字コードのチェック
(defun my-check-encode-able (beg end)
 (interactive "r")
  (save-excursion
    (let* (
           (mycodingsystem buffer-file-coding-system)
           mychar
           mycharname
           (mycount 0)
           (mycharsetlist (coding-system-get mycodingsystem 'safe-charsets))
           )
      (goto-char beg) ;;;リージョンの先頭に移動
      (while (< (point) end) ;;;リージョン内を順に調べる
        (setq mychar (following-char))
        (setq mycharsetname (char-charset mychar))
        (if (equal 'composition mycharsetname)
           (setq mycharsetname
                 (char-charset (string-to-char
                                (decompose-string (char-to-string mychar))))))
        ;;encode できない文字だったら色をつける
        (if (or (equal mycharsetlist t) (member mycharsetname mycharsetlist))
            nil ;;;encode できる時は何もしない。 encode できない時↓
          (overlay-put (make-overlay (point) (1+ (point))) 'face 'region)
          (setq mycount (1+ mycount)))
        (forward-char) ;;;次の文字へ
        )
      ;;結果の表示
      (if (< 0 mycount)
          (message "%s で encode できない文字が%d 個ありました。"
                   mycodingsystem mycount))
      (if transient-mark-mode
          (setq deactivate-mark t)) ;;;region を色つけしている時、色を解除
      )))

みたいなの. どこで見つけたのか忘れたけど, Meadow memo かな?

[ツッコミを入れる]

2007/02/19

_ ネタ

更新してませんが, 生きてます. とりあえず, 笑えたり笑えなかったりなネタ.

冬期講習で某先生のお嬢さんを教えた模様
- 結構手癖で授業したので, 反応はイマイチかもしんない.
  - 関係無いけど別の子に「黒板が五月蝿い」と久々に言われた.
引越しの準備ができてない.
- そもそも掃除をドコから手をつけるべきか…
- 本とか, 本とか, 本とか処分したり.
- よくもまーあつめたモンだ, とか思ったり(くだらない新書多いなあ).
良く考えると, 税金払って無い気がしてきました(うわぁ)
- 明日行きます. ごめんなさい.