Emacs 復旧中
Snow Leopard の再インストールが完了したので、職場で使ってる Meadow の ~/.emacs を参考に再設定しています。若い頃はせっせと ~/.emacs のカスタマイズに励んだものですが、年を取ると段々とそういう作業が面倒臭くなってテキトーになっていきますね。bdf フォント等のどうしても譲れないところを除けば、キリキリ拘らないというか、許容範囲が広がったというか。昔に比べると随分スリムになりました。
;;; ~/.emacs (let* ((setup-user-information '(lambda () (setq user-full-name "Tomotaka SUWA") (setq user-mail-address "tomotaka.suwa@gmail.com"))) (setup-basic-behavior '(lambda () (set-language-environment "Japanese") (prefer-coding-system 'utf-8) (global-font-lock-mode t) (tool-bar-mode -1) (menu-bar-mode -1) (scroll-bar-mode -1) (setq-default indent-tabs-mode nil) (setq-default indicate-buffer-boundaries t) (show-paren-mode t) (setq show-paren-style 'mixed) (setq make-backup-files nil))) (setup-key-bindings '(lambda () (global-set-key [?\C-m] 'newline-and-indent) (global-set-key [?\C-'] 'other-window) (global-set-key [?\M-g] 'goto-line))) (setup-frame '(lambda () (setq default-frame-alist '((top . 0) (left . 100) (width . 120) (height . 60))) (setq frame-title-format (concat multiple-frames "%b - Emacs " emacs-version "/Mule " mule-version)))) (setup-programming-modes '(lambda () (add-hook 'c-mode-common-hook '(lambda () (c-set-style "stroustrup") (setq c-basic-offset 4))))) (setup-eshell '(lambda () (copy-face 'default 'eshell-prompt) (setq eshell-ls-use-colors nil) (setq eshell-ls-initial-args "-F") (setq eshell-save-history-on-exit t))) (setup-skk '(lambda () (setq skk-server-host "127.0.0.1") (setq skk-server-portnum 1178) (setq skk-dcomp-activate t) (setq skk-show-annotation t) (setq skk-use-jisx0201-input-method t))) (essential-settings '(setup-user-information setup-basic-behavior setup-key-bindings setup-frame)) (application-settings '(setup-programming-modes setup-eshell setup-skk))) ; here we go (mapc (lambda (setting) (funcall (symbol-value setting))) `(,@essential-settings ,@application-settings)))
Wanderlust の設定がまだなんですが、この際、Gmail に完全移行してしまおうかと考え中。