今日の.emacs

;;emacs=""C:\emacs\22.1\bin\emacsclientw.exe" -n "$F"$R"
(server-start)


;; 配色
;(require 'color-theme)
;(color-theme-initialize)

;(color-theme-charcoal-black)
;(color-theme-classic)

;(color-theme-gnome2)
;(color-theme-kingsajz)
;(color-theme-shaman)


(cond
 ;; mac
 ((featurep 'mac-carbon)
  (mac-add-ignore-shortcut '(control))
  (keyboard-translate ?\¥ ?\\)
  (setq load-path
 (append (list (expand-file-name "~/elisp")) load-path)))
 ;; それ以外
 (t
  (setenv "PATH" (concat "C:\\UnxUtils\\usr\\local\\wbin;" (getenv "PATH")))))

(global-set-key "\C-x\C-b" 'ibuffer) ;バッファ選択に ibuffer
(partial-completion-mode t)  ;ファイル名の一部で補完
(setq dired-recursive-copies 'always) ;再帰コピー ok
(setq dired-recursive-deletes 'always) ;再帰削除 ok
(require 'dired-x)   ;dired を拡張
(setq dired-listing-switches "-l") ;'.' ファイルを最初は表示しない
(ffap-bindings)    ;find file at point
(setq read-file-name-completion-ignore-case t) ;大文字小文字を無視する(for linux)

(define-key minibuffer-local-completion-map "\C-w" 'backward-kill-word)
;; '.' を表示したい場合は C-u s で -la に変更

;; *scratch* バッファで kill-buffer したら無視
(add-hook 'kill-buffer-query-functions
          (lambda () (not (string= "*scratch*" (buffer-name)))))

;; rgrep 用のテンプレート（UnxUtils 用）
(setq grep-find-template
      "find . <X> -type f <F> -print0 | xargs -0 -s32000 grep <C> -nH -e <R> ")

;; find-dired 用のテンプレート（UnxUtils 用）
(setq find-ls-option
      '("-print0 | xargs -0 -s32000 ls -ld | sed -e \"s#\\\\#/#g;\" " . "-ld"))


;; C-* C-s でカーソル下の単語を検索（vim のまね)
(setq my-isearch-repeated nil)
(defun my-isearch-symbol (&optional repeat backward)
  (interactive "p")
  (and (eq repeat 1)
       (let ((wd (thing-at-point 'symbol)))
  (when wd
    (let ((rq_wd (regexp-quote wd)))
      (isearch-update-ring
       (concat (if (string= (substring rq_wd 0 1) "_")
     "\\W" "\\<")         rq_wd         (if (string= (substring rq_wd -1) "_")      "\\W" "\\>"))
       t)))))
  (cond (backward
  (setq my-isearch-repeated 'backward)
  (isearch-backward t))
 (t
  (setq my-isearch-repeated 'forward)
  (isearch-forward t)))
  (setq my-isearch-repeated nil))

(defun my-force-repeat ()
  (cond ((eq my-isearch-repeated 'forward)
  (isearch-repeat-forward))
 ((eq my-isearch-repeated 'backward)
  (isearch-repeat-backward))))

(add-hook 'isearch-mode-hook 'my-force-repeat)

(global-set-key [?\C-*] 'my-isearch-symbol)
(global-set-key [f5] 'my-isearch-symbol)
(global-set-key [f6] (lambda (&optional repeat)
         (interactive "p") (my-isearch-symbol repeat t)))
(define-key isearch-mode-map [f5]
  (lambda ()
    (interactive)
    (and (not isearch-forward) (isearch-repeat-forward))
    (isearch-repeat-forward)))
(define-key isearch-mode-map [f6]
  (lambda ()
    (interactive)
    (and isearch-forward (isearch-repeat-backward))
    (isearch-repeat-backward)))

;; viper
(when nil
  (setq viper-mode t)
  (require 'viper)
  (viper-buffer-search-enable)

  (defun my-viper-beginning-of-buffer ()
    (interactive)
    (beginning-of-buffer))
  (define-key viper-vi-global-user-map [?g?g] 'my-viper-beginning-of-buffer)

  (defun my-viper-moccur ()
    (interactive)
    (setq wd (thing-at-point 'symbol))
    (moccur (concat "\\<" wd "\\>") 0))
  (define-key viper-vi-global-user-map [?g?*] 'my-viper-moccur)

  (defun my-viper-star ()
    (interactive)
    (let ((wd (concat "\\<" (thing-at-point 'symbol) "\\>")))
      (setq viper-s-string wd)
      (setq viper-s-forward t)
      (viper-search wd t 1)))
  (define-key viper-vi-global-user-map [?*] 'my-viper-star)

  (defun my-viper-jump-tag ()
    (interactive)
    (let ((wd (thing-at-point 'symbol)))
      (find-tag wd)))
  (define-key viper-vi-global-user-map [?\C-\]] 'my-viper-jump-tag)

  (defun my-viper-jump-tag-next ()
    (interactive)
    (let ((wd (thing-at-point 'symbol)))
      (find-tag wd 0)))
  (define-key viper-vi-global-user-map [?\C-:] 'my-viper-jump-tag-next)

  (defun my-viper-pop-tag ()
    (interactive)
    (pop-tag-mark))
  (define-key viper-vi-global-user-map [?\C-t] 'my-viper-pop-tag)

  (defun my-viper-pop-mark ()
    (interactive)
    (set-mark-command -1))
  (define-key viper-vi-global-user-map [?\C-o] 'my-viper-pop-mark)

  (define-key viper-vi-global-user-map [?u] 'undo)
  (define-key viper-insert-global-user-map [backspace]
    'backward-delete-char-untabify)
  (define-key viper-insert-global-user-map [delete] 'delete-char)
  (define-key viper-emacs-global-user-map "\C-w\C-w" 'other-window)
  (define-key viper-vi-global-user-map "\C-w\C-w" 'other-window)
  (define-key viper-emacs-global-user-map "\C-w\C-o" 'delete-other-windows)
  (define-key viper-vi-global-user-map "\C-w\C-o" 'delete-other-windows)

  (define-key viper-dired-modifier-map "j" 'dired-next-line)
  (define-key viper-dired-modifier-map "k" 'dired-previous-line)
  (define-key viper-dired-modifier-map "/" 'dired-goto-file)
  (define-key viper-dired-modifier-map "l"
    '(lambda () (interactive) (dired-next-line 10)))
  (define-key viper-dired-modifier-map "h"
    '(lambda () (interactive) (dired-previous-line 10)))

  ;;%%% の viper-toggle-parse-sexp-ignore-comments を止める
  (viper-set-parsing-style-toggling-macro t)

  (setq ex-token-alist
 (append '(("buffer" (iswitchb-buffer))
    ("Buffer" (iswitchb-buffer-other-window))
    ("split" (split-window-vertically))
    ("vsplit" (split-window-horizontally))
    ("quit" (if (one-window-p)
         (ex-quit)
       (delete-window))))
  ex-token-alist))
  )

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; moccur
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(setq moccur-split-word t)
;(setq moccur-use-migemo t)
(setq color-moccur-default-ime-status nil)
(autoload 'moccur-grep "color-moccur" nil t)
(autoload 'moccur-grep-find "color-moccur" nil t)
(autoload 'isearch-moccur "color-moccur" nil t)
(autoload 'isearch-moccur-all "color-moccur" nil t)
(autoload 'occur-by-moccur "color-moccur" nil t)
(autoload 'moccur "color-moccur" nil t)
(autoload 'dmoccur "color-moccur" nil t)
(autoload 'dired-do-moccur "color-moccur" nil t)
(autoload 'Buffer-menu-moccur "color-moccur" nil t)
(autoload 'moccur-narrow-down "color-moccur" nil t)
(autoload 'grep-buffers "color-moccur" nil t)
(autoload 'search-buffers "color-moccur" nil t)
(autoload 'gresreg "gresreg" nil t)
(eval-after-load "color-moccur"
  '(require 'moccur-edit))
(eval-after-load "ibuffer"
  '(require 'color-moccur))
(setq *moccur-buffer-name-exclusion-list*
      '(".*TAGS.*" "*Completions*" "*Messages*"
 "newsrc.eld"
 " *migemo*" ".bbdb"))

(add-hook 'dired-mode-hook
   '(lambda ()
      (local-set-key "O" 'dired-do-moccur)))
(define-key Buffer-menu-mode-map "O" 'Buffer-menu-moccur)
;;(global-set-key "\M-f" 'grep-buffers)
(global-set-key "\M-o" 'occur-by-moccur)
(global-set-key "\C-c\C-x\C-o" 'moccur)
;;(global-set-key "\C-c\C-o" 'search-buffers)

(setq dmoccur-recursive-search t)


;; カーソル付近の単語をデフォルトの検索文字列とする
(setq moccur-grep-default-word-near-point t)

;; *.c 編集中のデフォルトファイルマスク： \.[HhCc]$
(add-hook
 'c-mode-common-hook
 '(lambda ()
    (setq moccur-grep-default-mask "\\.\[HhCc\]$")))
(add-hook
 'perl-mode-hook
 '(lambda ()
    (setq moccur-grep-default-mask "\\.pl$")))
(setq moccur-grep-following-mode-toggle t)


;;;;;;;;;;;;;;;;
;; ac-mode
;;;;;;;;;;;;;;;;
(autoload 'ac-mode "ac-mode" "Minor mode for advanced completion." t nil)

;;;;;;;;;;;;;;;;
;; lookup
;;;;;;;;;;;;;;;;
(setq load-path (cons "~/elisp/lookup/" load-path))
(setq Info-default-directory-list
      (cons "~/elisp/lookup/" Info-default-directory-list))

(autoload 'lookup-pattern "lookup" nil t)
(define-key ctl-x-map "\C-y" 'lookup-pattern)
(setq lookup-search-agents
      '(
 (ndeb "~/elisp/lookup/ASCDATES/")
 (ndeb "~/elisp/lookup/FUMEIKAI/")
 (ndeb "~/elisp/lookup/RYAKU/")
 (ndeb "~/elisp/lookup/WDIC/")
 (ndeb "~/elisp/lookup/WEB/")
 (ndeb "~/elisp/lookup/WORDNET/")
 ))

;;;;;;;;;;;;;;;;;;
;; sdic
;;;;;;;;;;;;;;;;;;
;;; sdic-mode 用の設定
(setq load-path (cons "~/elisp/sdic" load-path))
(autoload 'sdic-describe-word "sdic" "英単語の意味を調べる" t nil)
(global-set-key "\C-cw" 'sdic-describe-word)
(autoload 'sdic-describe-word-at-point "sdic" "カーソルの位置の英単語の意味を調べる" t nil)
(global-set-key "\C-cW" 'sdic-describe-word-at-point)
;; 英和検索で使用する辞書
(setq sdic-eiwa-dictionary-list
      '(
        (sdicf-client
         "~/elisp/sdic/gene.sdic")
        (sdicf-client
         "~/elisp/sdic/eedict.sdic")
        ))
;; 和英検索で使用する辞書
(setq sdic-waei-dictionary-list
      '(
        (sdicf-client
         "~/elisp/sdic/jedict.sdic")
        ))

;;;;;;;;;;;;;;;;;;;;
;; ruby-mode
;;;;;;;;;;;;;;;;;;;;
;; Ruby
(autoload 'ruby-mode "ruby-mode"
  "Mode for editing ruby source files" t)
(setq auto-mode-alist
      (append '(("\\.rb$" . ruby-mode)) auto-mode-alist))
(setq interpreter-mode-alist (append '(("ruby" . ruby-mode))
         interpreter-mode-alist))
(autoload 'run-ruby "inf-ruby"
  "Run an inferior Ruby process")
(autoload 'inf-ruby-keys "inf-ruby"
  "Set local key defs for inf-ruby in ruby-mode")
(add-hook 'ruby-mode-hook
   (lambda ()
     (inf-ruby-keys)))

;; ri
(setq ri-ruby-script (expand-file-name "~/elisp/ri-emacs.rb"))
(autoload 'ri (expand-file-name "~/elisp/ri-ruby.el") nil t)
(add-hook 'ruby-mode-hook (lambda ()
                              (local-set-key [\M-f1] 'ri)
                              (local-set-key "\M-\C-i" 'ri-ruby-complete-symbol)
                              (local-set-key [f4] 'ri-ruby-show-args)
                              ))

;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; etags-select
;;;;;;;;;;;;;;;;;;;;;;;;;;;
;(require 'etags-select)
(autoload 'etags-select-find-tag-at-point "etags-select"
  "for etags-select")
(global-set-key [f7] 'etags-select-find-tag-at-point)
(global-set-key [f8] 'pop-tag-mark)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(custom-set-variables
  ;; custom-set-variables was added by Custom.
  ;; If you edit it by hand, you could mess it up, so be careful.
  ;; Your init file should contain only one such instance.
  ;; If there is more than one, they won't work right.
 '(iswitchb-mode t)
 '(kill-whole-line t)
 '(view-read-only t))
(custom-set-faces
  ;; custom-set-faces was added by Custom.
  ;; If you edit it by hand, you could mess it up, so be careful.
  ;; Your init file should contain only one such instance.
  ;; If there is more than one, they won't work right.
 )

失われたac-mode

ac-mode.elをもらいにサイト訪れたらリンクが切れてた。

あれ？って思ってアドレスを見ると直前のページと違って
"www"が付いてる。

外してアクセスすると、、ありました。

http://taiyaki.org/elisp/ac-mode/src/

最近変わったのかな？

viper補強。。続き

他にも耐えられない部分が。。

• :b で iswitchb が動作しない
• :sp, :vs がない
• :q で window の分割がそのまま
  （複数開いている場合は減って欲しい）
  

以下が対策コード。
ついでに、たまに *scratch* を削除してしまうので無視に設定。

(setq ex-token-alist
    (append '(("buffer" (iswitchb-buffer))
  ("Buffer" (iswitchb-buffer-other-window))
  ("split" (split-window-vertically))
  ("vsplit" (split-window-horizontally))
  ("quit" (if (one-window-p)
       (ex-quit)
     (delete-window))))
       ex-token-alist))

;; *scratch* バッファで kill-buffer したら無視
(add-hook 'kill-buffer-query-functions
       (lambda () (not (string= "*scratch*" (buffer-name)))))

viperを少し補強

最近 emacs をお試し中。
でも小指が辛いので今のところ viper-mode が必須です。

今まで vim を使ってきたので、素の viper は以下の点で特に辛い。

• gg でバッファの一番上にカーソルが移動しない
• * で検索が開始できない
• C-], C-t でタグジャンプできない
• C-o で前のカーソル位置に戻れない
• backspace で改行が削除できない
• C-wC-w でウィンドウが移動できない
• uの連続でundo連続にならない
• %%% が定義されていて%の対応括弧への移動が遅い
  

体が vim に慣れすぎていて他にもいっぱいあるけど、
上記だけはカスタマイズしないと少しでも耐えられない。

とりあえず上記を実現。

  (defun my-viper-beginning-of-buffer ()
    (interactive)
    (beginning-of-buffer))
  (define-key viper-vi-global-user-map [?g?g] 'my-viper-beginning-of-buffer)

  (defun my-viper-star ()
    (interactive)
    (let ((wd (concat "\\<" (thing-at-point 'symbol) "\\>")))
      (setq viper-s-string wd)
      (setq viper-s-forward t)
      (viper-search wd t 1)))
  (define-key viper-vi-global-user-map [?*] 'my-viper-star)

  (defun my-viper-jump-tag ()
    (interactive)
    (setq wd (thing-at-point 'symbol))
    (find-tag wd))
  (define-key viper-vi-global-user-map [?\C-\]] 'my-viper-jump-tag)

  (defun my-viper-jump-tag-next ()
    (interactive)
    (setq wd (thing-at-point 'symbol))
    (find-tag wd 0))
  (define-key viper-vi-global-user-map [?\C-:] 'my-viper-jump-tag-next)

  (defun my-viper-pop-tag ()
    (interactive)
    (pop-tag-mark))
  (define-key viper-vi-global-user-map [?\C-t] 'my-viper-pop-tag)

  (defun my-viper-pop-mark ()
    (interactive)
    (set-mark-command -1))
  (define-key viper-vi-global-user-map [?\C-o] 'my-viper-pop-mark)

  (define-key viper-vi-global-user-map [?u] 'undo)
  (define-key viper-insert-global-user-map [backspace] 'backward-delete-char-untabify)
  (define-key viper-insert-global-user-map [delete] 'delete-char)
  (define-key viper-emacs-global-user-map "\C-w\C-w" 'other-window)
  (define-key viper-vi-global-user-map "\C-w\C-w" 'other-window)
  (define-key viper-emacs-global-user-map "\C-w\C-o" 'delete-other-windows)
  (define-key viper-vi-global-user-map "\C-w\C-o" 'delete-other-windows)

  ;; dired を少しだけ vi 風に
  (define-key viper-dired-modifier-map "j" 'dired-next-line)
  (define-key viper-dired-modifier-map "k" 'dired-previous-line)
  (define-key viper-dired-modifier-map "/" 'dired-goto-file)
  (define-key viper-dired-modifier-map "l" '(lambda () (interactive) (dired-next-line 10)))
  (define-key viper-dired-modifier-map "h" '(lambda () (interactive) (dired-previous-line 10)))

  ;;%%% の viper-toggle-parse-sexp-ignore-comments を止める
  (viper-set-parsing-style-toggling-macro t)

Windows 回復コンソール

Linux/Windows XP のデュアルブートにしていたノート PC を元に戻した。
嫁が動画作成にはまっていて容量不足が原因。

まぁ今は Mac があるから Linux はなくてもよいしね。

でも一つ問題があって、Windows の CD がありません。。。
領域を消すのは簡単なんだけど、やっぱり MBR を元に戻したい。
でも Windows の CD を使う方法しか知らなくて。。

リカバリ CD はあるんだけど、
これは HD の中身を初期状態にしてしまうため使えない。

いろいろ、四苦八苦して Windows CD がなくても
MBR を戻せたのでその方法をメモ。

(1) 回復コンソールをインストール
ファイル名を指定して実行（Win + R）で以下を実行。
C:\WINDOWS\I386\winnt32.exe /cmdcons

(2) 回復コンソールを起動
再起動して、ブートメニューから回復コンソールを選択。

(3) MBR を修復
fixmbr と入力して実行。

(4) 回復コンソールをメニューから削除
C:\boot.ini を編集。
以下の行を削除する。
C:\CMDCONS\BOOTSECT.DAT="Microsoft Windows XP 回復コンソール" /cmdcons

最後の (4) は必要ないかもしれないけど、
毎回選択するのも手間なので削除。

結構簡単。

Boot Camp

Mac に Windows をインストールするには Boot Camp を使う。
いわゆるデュアルブート環境が作成できる。

流行の VM 方式に比べると同時に使えないのが弱点だが、
ネイティブに実行されるため動作が速いという利点がある。

今回、MacBook + Vista DSP 版 + メモリ 2 GB で試してみた。

現在の最新は 1.4 となっている。
ガイドに従っていくだけで簡単にインストールできた。

以下は覚え書き。

• 32 GB を Vista に割り当てしようとすると、「移動できないファイルが～」みたいなエラーになってしまった。指示通りにバックアップして再度ファイルコピーするのは面倒なので、25 GB に変更してインストール。
• Boot Camp で作成した Windows 用のドライバ CD をインストールしなくても、ある程度動作するが、キーボードやマウスが若干おかしいし、無線LANも認識しない。インストールすれば OK。
• 「英数」キーを IME OFF に設定すると Mac っぽく IME を切り替えられる。「Microsoft IME のプロパティ」「編集操作」「キー設定」で無変換キーの割り当てを IME OFF に変更。
• Vista をインストールするだけで 10 GB 程度消費した。
• Aero もOK。パフォーマンスはプロセッサ 4.9、メモリ 4.5、グラフィックス 3.1（3D も同じ）、ハードディスク 4.3。なかなか優秀。視覚効果をフル設定しても特にもたつきは感じない。
• alt キーと win (command) キーは入れ替えたほうが Windows っぽい。レジストリを書き換えて入れ替え。「HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Keyboard Layout」に Scancode Map という名前で種類は REG_BINARY で追加。データは「00 00 00 00 00 00 00 00 03 00 5B E0 38 00 38 00 5B E0 00 00 00 00」。

MacPorts

MacPorts は数ある UNIX ツールの管理システムのようなもの。
これさえあれば、コマンド一つで vim や w3m 等をインストールできる。

【準備】
インストール説明のページに従って準備する。

簡単に説明すると、、、

(1) Xcode をインストール
OS CD に付属しているものではなく、
最新版をダウンロードしてインストールしておくのが無難。
ちょーでかいけど（約 1 GB）。

古い Xcode だと、いくつかのツールのインストールに失敗するみたい。

(2) X11 をインストール
OS CD の Disk1 から Optional Installs
・MacPorts をインストール

【使い方】
port コマンドの簡単な使い方