活動日誌

■ 2006 年の目標

本を書く

3月くらいまでには。

Rails でサービスを作る

ちょっとネタが浮かんだので。6月末目標。

今年の新しいプログラミング言語

青木さんの本で Haskell か。 Lisp 方面も真面目に勉強してみたい気もする。

コミュニティ活動

主に Ruby 方面。イベント参加やるびまのお手伝いなど。

英語

ちょっと本腰を入れて勉強していきたい。

■ [Selenium] Selenium修正

Selenium で //input[@name='n' and @value='v'] と書くと IE でエラーになる件ですが、 本家に報告しておいたパッチがコミットされたようです。

http://svn.openqa.org/fisheye/changelog/selenium/?cs=675

■ [Meadow]Meadow設定

http://www.hatena.ne.jp/1137478760 を見て、

;;; mcomplete
(require 'mcomplete)
(turn-on-mcomplete-mode)

;;; minibuffer 内で C-w で単語削除
(define-key minibuffer-local-completion-map "\C-w" 'backward-kill-word)

を導入してみた。

現在の設定ファイルの大きさは、大体 1000 行くらい。でも書いたけど使ってない設定も結構あるな。

■ [Meadow]Meadowのリビジョン番号をタイトルバーに出す

netinstall 版の Meadow では、(emacs-version) に

"GNU Emacs 22.0.50.1 (i386-mingw-nt5.0.2195)
 of 2005-11-07 on CUBE
URL: http://svn.meadowy.org/Meadow/trunk
Last Changed Rev: 3956
Last Changed Date: 2005-11-05 07:58:49 +0900 (Sat, 05 Nov 2005)"

のように、Subversion のリビジョン番号が含まれます。

このリビジョン番号をフレームのタイトルバーに出そうとして、 .emacs で (emacs-version) から string-match で番号を切り出そうとしたので すが、どうもうまく切り出せません。

調べてみたところ、リビジョン番号の付加は (emacs-version) に対する advice として定義されており、.emacs の読み込み時点ではリビジョン番号は (emacs-version) には含まれないようです。

そこで、packages/lisp/default.el から関連する処理をそっくりそのまま抜 き出して、次のようにしました。

(setq meadow-revision
      (let ((info (expand-file-name "../.svn.info" data-directory))
            str)
        (when (file-exists-p info)
          (save-excursion
            (set-buffer (find-file-noselect info))
            (setq str (buffer-substring-no-properties
                       (point-min) (- (point-max) 1)))
            (kill-buffer nil)
            (if (string-match "^Last Changed Rev: \\([0-9]+\\)" str)
                (match-string 1 str))))))

(setq frame-title-format
      (concat invocation-name
              "@"
              system-name
              " [ %f ]"
              "  -  "
              (if (featurep 'meadow)
                  (Meadow-version)
                (emacs-version))
              " Rev. "
              meadow-revision
              ))

これで、タイトルバーにリビジョン番号が出るようになりました。