タイトルバーにバージョンとか載せてみた

Meadow-version の中で interactive が呼ばれてないせいだと思うんだけど、エラるし、そのままは気に食わないので、
ちょっと書いてみた。

(if *run-meadow*
    (progn
      (setq about-meadow (let ((meadow-about-text (car (split-string (Meadow-version) " "))))
                           (let ((first-hyphen (string-match "-" meadow-about-text)))
                             (store-substring meadow-about-text first-hyphen " "))))
      (setq frame-title-format
            `(" %b [" (buffer-file-name "%f") "] - " about-meadow "@", (system-name)))))

let を二重に使ってる…。
今日気づいたんだけど、let* 使えば二重に使わなくてもいいんだよねｗ
で、最初に書いたときは first-hypen は first-hifun だったんだけど、調べたら "hypen" だったので急いで修正。
この about-meadow は、Meadow 3 開発版では "Meadow 3.02-dev" になるよ。

ということで、直したのがこちらです。

(if *run-meadow*
    (progn
      (setq about-meadow (let ((meadow-about-text (car (split-string (Meadow-version) " ")))
			       ((first-hyphen (string-match "-" meadow-about-text))))
                             (store-substring meadow-about-text first-hyphen " ")))
      (setq frame-title-format
            `(" %b [" (buffer-file-name "%f") "] - " about-meadow "@", (system-name)))))