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 に完全移行してしまおうかと考え中。