それで emacs23 ベースな CarbonEmacs 的なのがないかと探してみたら、いまの CVS の emacs は普通に Emacs.app を作ることができるみたい。

cvs -z3 -d:pserver:anonymous@cvs.savannah.gnu.org:/sources/emacs co emacs

とかで co してきて

./configure --with-ns
make
make install

で nextstep ディレクトリに Emacs.app ができている。

CLI で起動したい場合は

Emacs.app/Contents/MacOS/Emacs -nw

でおｋ。emacsclient は

Emacs.app/Content/MacOS/bin/emacsclient

にある。etags とかもここにある。

とりあえず multitty をためしてみるために Emacs.app と CLI (-nw) と両方立ち上げて

emacsclient -t /path/to/file

としてみたところ、ちゃんとどちらの emacs でも同じファイルを開き、編集内容も共有できた。

これで徐々に GUI な emacs に移行できるかなー。

Emacs の vc-annotate - naoyaのはてなダイアリー

そういえば設定したなとおもっておもむろに M-x vc-annotate してみたら git でもできた！

設定はこんなんで

http://svn.coderepos.org/share/dotfiles/emacs/typester/.emacs.d/conf/50_git.el

elファイルはgit自体についてくる。

http://coderepos.org/share/browser/dotfiles/emacs/typester

整理したら300行ちょっとしかなくなってしょんぼり。まぁまだ今までやってた設定全部は移せてないのだけども。

あとmmm-modeに再挑戦したがやっぱりむりだった＞＜ javascript.elでコメントアウトしたりしてるのがその名残。

nxml-mode + css-mode はうまくいくんだが javascript-mode とだとうまくうごかんなぁ。

TDDの勘所とTDD支援超簡易Emacs Lisp - aikeの日記

が面白いなーと思ったので自分用に改造してみた。

モードラインの色を変えるようにしただけだけど。

;; C-c m でTDDのモード切替え

(defvar tdd-bgcolor-alist
      '(("Think"      ."snow")
        ("Red"        ."#ff4444")
        ("Green"      ."#44dd44")
        ("Refactoring"."#ffaa44")))

(defvar tdd-bgcolor-mode 3)
(defvar tdd-bgcolor-mode-name "")
(let (
      (cell (or (memq 'mode-line-position mode-line-format)
                (memq 'mode-line-buffer-identification mode-line-format)))
      (newcdr 'tdd-bgcolor-mode-name))
  (unless (member newcdr mode-line-format)
    (setcdr cell (cons newcdr (cdr cell)))))

(defun tdd-bgcolor-rotate ()
  (interactive)
  (let (pair)
    (if (>= tdd-bgcolor-mode 3)
        (setq tdd-bgcolor-mode 0)
      (setq tdd-bgcolor-mode
                (+ tdd-bgcolor-mode 1)))
    (setq pair
      (nth tdd-bgcolor-mode tdd-bgcolor-alist))
    (setq tdd-bgcolor-mode-name (format "[%s]" (car pair)))
    (message tdd-bgcolor-mode-name)
    (set-face-foreground 'mode-line (cdr pair))))

(global-set-key "\C-cm" 'tdd-bgcolor-rotate)

mmm-mode and nxml-mode - Yet Another Hackadelic

mmm-mode はいままで3回くらい挑戦してると思うけどうまく使えたためしがないのであきらめている。

今度社内でemacs自慢大会やるつもりなのでそのときにだれかやってくれないかな。

Emacs で JavaScript のシンタックスエラーを検出する

これ読んですぐ導入したflymake。上記サイトのを少し改造したらperlでもできたのでいまはjsとperlでリアルタイムでシンタックスエラーチェックができている。

僕はすごくtypoがおおいと思うのだけどこれを導入してからtypoではまることがずいぶん減った。もうないとこまるelispのひとつになってる。

ちなみにperl版はこんな感じにしている。

(require 'flymake)

;; flymake for perl
(defvar flymake-perl-err-line-patterns '(("\\(.*\\) at \\([^ \n]+\\) line \\([0-9]+\\)[,.\n]" 2 3 nil 1)))
(defconst flymake-allowed-perl-file-name-masks '(("\\.pl$" flymake-perl-init)
                                               ("\\.pm$" flymake-perl-init)
                                               ("\\.t$" flymake-perl-init)))

(defun flymake-perl-init ()
  (let* ((temp-file (flymake-init-create-temp-buffer-copy
                     'flymake-create-temp-inplace))
         (local-file (file-relative-name
                      temp-file
                      (file-name-directory buffer-file-name))))
    (list "perl" (list "-wc" local-file))))

(defun flymake-perl-load ()
  (interactive)
  (defadvice flymake-post-syntax-check (before flymake-force-check-was-interrupted)
    (setq flymake-check-was-interrupted t))
  (ad-activate 'flymake-post-syntax-check)
  (setq flymake-allowed-file-name-masks (append flymake-allowed-file-name-masks flymake-allowed-perl-file-name-masks))
  (setq flymake-err-line-patterns flymake-perl-err-line-patterns)
  (flymake-mode t))

(add-hook 'cperl-mode-hook '(lambda () (flymake-perl-load)))

でも、これだと単純に perl -wc しているだけで編集中の lib パスなどを @INC につっこまないため、その lib 以下にあるモジュールを use したりするとそこでエラーになってしまう。

なので今はモジュールやCatalystアプリの開発するときはいちいち emacs 上で M-x setenv してその lib パスを PERL5LIB にセットしている。。ちょうめんどくさい。。

そんでこれを自動化したいわけだがどうすればいいのかなぁ。

M-: (auto-save-buffers-enhanced-add-svk-checkout-path-into-include-regexps)

とすればいいらしい。メモメモ。

今は

(run-with-idle-timer 0.5 t 'auto-save-buffers "^/home/typester/dev/" "^$")

とかしてるけれど、その領域でもたまにsvn管理じゃないファイルつかったりするし、それで自動保存されると困るし。

とかで設定してるけどまったく使ってない。

• ref: hiChangeLog / 2007-04

Buffer `svk-commitvP9pW.tmp' still has clients; kill it? (yes or no)

などといわれるのをなくしたいのだが、どうすればいいのか！ 強制yesでいいんだけど。

それとも C-x # 的なもので保存せずに閉じるものあるのかな。

emacs + snippet.el の定型文補完（スニペット）で楽々HTML編集：Goodpic

を見て便利そうなので導入。

elisp よくわかんねーので、psgml-mode と cperl-mode で動かしたかっただけなのにものすごい時間かかった。。

; snippet.el
(require 'snippet)
(require 'psgml)
(snippet-with-abbrev-table 'xml-mode-abbrev-table
  ("ahref" .  "<a href=\"$${url}\" title=\"$${title}\">$${title}</a>"))

(defvar cperl-mode-abbrev-table nil
  "Abbrev table in use in CPerl mode.")
(define-abbrev-table 'cperl-mode-abbrev-table ())
(snippet-with-abbrev-table 'cperl-mode-abbrev-table
  ("formy" .  "for my $${item} ($${items}) {\n}")
  ("cataction"  .  "sub $${fn} :$${attribute} {\n$>my ($self, $c) = @_;\n}"))

こんなんでいけた。

psgmlのxml-modeは普通にやったら xml-mode-abbrev-table なんてねーよっておこられるので、先に (require 'psgml) しておいたらいけた。

cperl-mode も同じ方法でやろうとしたらなんかエラーになったのでソース見たら、cperl-mode-abbrev-table がすでに定義されてあったら cperl-mode 側では上書きしないっぽい感じになっていたのでてけとうに定義してやったらいけた。うむ、よくわからん。

まぁつかえたからいいや的な。

あとはabbrev-tableふやすだけ~。

をやめて

(ido-mode t)

をためしてみてる。

platypope.org / blog / I need a cool European accent

より。

iswitchbライクなバッファ切り替えと同じようなのをfind-fileでも使える。あとfind-file中にC-bするとバッファ切り替えに切り替わるのは人によっては便利かな。逆も可(バッファ切り替えじにC-fでfind-file)

どうなんだろうなこれは。すぐ戻すかもしれない。

あとnXML-modeもいれてみたけど、まだ使ってみていない。

The local variables list in clmemo.txt
contains values that may not be safe (*).

Do you want to apply it?  You can type
y  -- to apply the local variables list.
n  -- to ignore the local variables list.
!  -- to apply the local variables list, and permanently mark these
      values (*) as safe (in the future, they will be set automatically.)

    mode : change-log
  * clmemo-mode : t
    tab-width : 4
    left-margin : 4

とかでるようになったらしい。へぇ、いいね。

iswitchbとかuniquifyとかもemacsマニュアルに載ってたんだなぁ。ちゃんと読んだらだいぶ違いそうだ。