emacsの設定メモです。

carbon emacsとmeadowではデフォルトの設定が違う（carbon emacsはいろいろバンドルされてる）ので、まぁ適当に。

導入したのは

• emacs-rails一式
• snippet.el
• find-recursive.el
• ruby-model.el
• ruby-electric.el
• rubydb2x.el
• rubydb3x.el

ちなみにruby～はrubyのリポジトリのmiscからとってくる。
あんまし検索しても引っかからない。

.emacsファイルはホームディレクトリに置く。
ちなみにwindowsにはホームディレクトリとかいう概念がないので、自分で環境変数HOMEに設定。

.emacsの中身は付属のものをそれっぽく変更。こんな感じ。

;;;; -*- mode: emacs-lisp; coding: iso-2022-7bit -*-
;;;;
;;;; Copyright (C) 2001 The Meadow Team

;; Author: Koichiro Ohba
;;      Kyotaro HORIGUCHI
;;      Hideyuki SHIRAI
;;      KOSEKI Yoshinori
;;      and The Meadow Team.

;; ;;; Mule-UCS の設定
;; ;; ftp://ftp.m17n.org/pub/mule/Mule-UCS/ が オフィシャルサイトですが、
;; ;; http://www.meadowy.org/~shirai/elisp/mule-ucs.tar.gz に既知のパッチ
;; ;; をすべて適用したものがおいてあります。
;; ;; (set-language-environment) の前に設定します
;; (require ‘jisx0213)

;;; 日本語環境設定
(set-language-environment “Japanese”)

;;; IMEの設定
(mw32-ime-initialize)
(setq default-input-method “MW32-IME”)
(setq-default mw32-ime-mode-line-state-indicator “[--]“)
(setq mw32-ime-mode-line-state-indicator-list ‘(“[--]” “[あ]” “[--]“))
(add-hook ‘mw32-ime-on-hook
(function (lambda () (set-cursor-height 2))))
(add-hook ‘mw32-ime-off-hook
(function (lambda () (set-cursor-height 4))))

;; ;;; カーソルの設定
;; ;; (set-cursor-type ‘box)            ; Meadow-1.10互換 (SKK等で色が変る設定)
;; ;; (set-cursor-type ‘hairline-caret) ; 縦棒キャレット

;;; マウスカーソルを消す設定
(setq w32-hide-mouse-on-key t)
(setq w32-hide-mouse-timeout 5000)

;;; font-lockの設定
(global-font-lock-mode t)

;; ;;; TrueType フォント設定
;; (w32-add-font
;;  “private-fontset”
;;  ‘((spec
;;     ((:char-spec ascii :height 120)
;;      strict
;;      (w32-logfont “Courier New” 0 -13 400 0 nil nil nil 0 1 3 49))
;;     ((:char-spec ascii :height 120 :weight bold)
;;      strict
;;      (w32-logfont “Courier New” 0 -13 700 0 nil nil nil 0 1 3 49))
;;     ((:char-spec ascii :height 120 :slant italic)
;;      strict
;;      (w32-logfont “Courier New” 0 -13 400 0   t nil nil 0 1 3 49))
;;     ((:char-spec ascii :height 120 :weight bold :slant italic)
;;      strict
;;      (w32-logfont “Courier New” 0 -13 700 0   t nil nil 0 1 3 49))
;;     ((:char-spec japanese-jisx0208 :height 120)
;;      strict
;;      (w32-logfont “ＭＳ ゴシック” 0 -16 400 0 nil nil nil 128 1 3 49))
;;     ((:char-spec japanese-jisx0208 :height 120 :weight bold)
;;      strict
;;      (w32-logfont “ＭＳ ゴシック” 0 -16 700 0 nil nil nil 128 1 3 49)
;;      ((spacing . -1)))
;;     ((:char-spec japanese-jisx0208 :height 120 :slant italic)
;;      strict
;;      (w32-logfont “ＭＳ ゴシック” 0 -16 400 0   t nil nil 128 1 3 49))
;;     ((:char-spec japanese-jisx0208 :height 120 :weight bold :slant italic)
;;      strict
;;      (w32-logfont “ＭＳ ゴシック” 0 -16 700 0   t nil nil 128 1 3 49)
;;      ((spacing . -1))))))

;; (set-face-attribute ‘variable-pitch nil :family “*”)

;; ;;; BDF フォント設定
;;
;; ;;; (方法その1) Netinstall パッケージを使う方法
;; ;;; misc と intlfonts パッケージを入れます。
;; ;;; .emacsの設定
;; (setq bdf-use-intlfonts16 t)
;; (setq initial-frame-alist ‘((font . “intlfonts16″)))
;;
;; ;;; (方法その1′)
;; ;;; intlfonts-file-16dot-alist の形式で bdf-fontset-alist を書き、
;; ;;; 次を設定すれば良い。
;; ;;;  (require ‘bdf)
;; ;;;  (bdf-configure-fontset “bdf-fontset” bdf-fontset-alist)
;; ;;; 詳細は $MEADOW/pkginfo/auto-autoloads.el と $MEADOW/site-lisp/bdf.el を
;; ;;; 参照のこと。
;;
;; ;;; (方法その2)
;; ;;; フォントの指定方法は次のサンプルを参考にする。
;; ;;; normal, bold, italic, bold-itaric フォントを指定する必要あり。
;; (setq bdf-font-directory “c:/Meadow/fonts/intlfonts/”)
;; (w32-add-font “bdf-fontset”
;; `((spec
;;    ;; ascii
;;    ((:char-spec ascii :height any :weight normal :slant normal)
;;     strict (bdf-font ,(expand-file-name “lt1-16-etl.bdf” bdf-font-directory)))
;;    ((:char-spec ascii :height any :weight bold :slant normal)
;;     strict (bdf-font ,(expand-file-name “lt1-16b-etl.bdf” bdf-font-directory)))
;;    ((:char-spec ascii :height any :weight normal :slant any)
;;     strict (bdf-font ,(expand-file-name “lt1-16i-etl.bdf” bdf-font-directory)))
;;    ((:char-spec ascii :height any :weight bold :slant any)
;;     strict (bdf-font ,(expand-file-name “lt1-16bi-etl.bdf” bdf-font-directory)))
;;    ;; katakana-jisx0201
;;    ((:char-spec katakana-jisx0201 :height any :weight normal :slant normal)
;;     strict (bdf-font ,(expand-file-name “8x16rk.bdf” bdf-font-directory))
;;     ((encoding . 1-byte-set-msb)))
;;    ((:char-spec katakana-jisx0201 :height any :weight bold :slant normal)
;;     strict (bdf-font ,(expand-file-name “8x16rk.bdf” bdf-font-directory))
;;     ((encoding . 1-byte-set-msb)))
;;    ((:char-spec katakana-jisx0201 :height any :weight normal :slant any)
;;     strict (bdf-font ,(expand-file-name “8x16rk.bdf” bdf-font-directory))
;;     ((encoding . 1-byte-set-msb)))
;;    ((:char-spec katakana-jisx0201 :height any :weight bold :slant any)
;;     strict (bdf-font ,(expand-file-name “8x16rk.bdf” bdf-font-directory))
;;     ((encoding . 1-byte-set-msb)))
;;    ;; latin-jisx0201
;;    ((:char-spec latin-jisx0201 :height any :weight normal :slant normal)
;;     strict (bdf-font ,(expand-file-name “8x16rk.bdf” bdf-font-directory)))
;;    ((:char-spec latin-jisx0201 :height any :weight bold :slant normal)
;;     strict (bdf-font ,(expand-file-name “8x16rk.bdf” bdf-font-directory)))
;;    ((:char-spec latin-jisx0201 :height any :weight normal :slant any)
;;     strict (bdf-font ,(expand-file-name “8x16rk.bdf” bdf-font-directory)))
;;    ((:char-spec latin-jisx0201 :height any :weight bold :slant any)
;;     strict (bdf-font ,(expand-file-name “8x16rk.bdf” bdf-font-directory)))
;;    ;; japanese-jisx0208
;;    ((:char-spec japanese-jisx0208 :height any :weight normal :slant normal)
;;     strict (bdf-font ,(expand-file-name “j90-16.bdf” bdf-font-directory)))
;;    ((:char-spec japanese-jisx0208 :height any :weight bold :slant normal)
;;     strict (bdf-font ,(expand-file-name “j90-16.bdf” bdf-font-directory)))
;;    ((:char-spec japanese-jisx0208 :height any :weight normal :slant any)
;;     strict (bdf-font ,(expand-file-name “j90-16.bdf” bdf-font-directory)))
;;    ((:char-spec japanese-jisx0208 :height any :weight bold :slant any)
;;     strict (bdf-font ,(expand-file-name “j90-16b.bdf” bdf-font-directory))))))

;; 初期フレームの設定
(setq default-frame-alist
(append (list ‘(foreground-color . “white”)
‘(background-color . “black”)
‘(background-color . “gray”)
‘(border-color . “black”)
‘(mouse-color . “white”)
‘(cursor-color . “white”)
;;            ‘(ime-font . (w32-logfont “ＭＳ ゴシック”
;;                          0 16 400 0 nil nil nil
;;                          128 1 3 49)) ; TrueType のみ
;;            ‘(font . “bdf-fontset”)    ; BDF
;;            ‘(font . “private-fontset”); TrueType
‘(width . 80)
‘(height . 40)
‘(top . 100)
‘(left . 100))
default-frame-alist))

;; ;;; shell の設定

;; ;;; Cygwin の bash を使う場合
;; (setq explicit-shell-file-name “bash”)
;; (setq shell-file-name “sh”)
;; (setq shell-command-switch “-c”)

;; ;;; Virtually UN*X!にある tcsh.exe を使う場合
;; (setq explicit-shell-file-name “tcsh.exe”)
;; (setq shell-file-name “tcsh.exe”)
;; (setq shell-command-switch “-c”)

;; ;;; WindowsNT に付属の CMD.EXE を使う場合。
;; (setq explicit-shell-file-name “CMD.EXE”)
;; (setq shell-file-name “CMD.EXE”)
;; (setq shell-command-switch “\\/c”)

;;; argument-editing の設定
(require ‘mw32script)
(mw32script-init)

;; ;;; browse-url の設定
;; (global-set-key [S-mouse-2] ‘browse-url-at-mouse)

;; ;;; 印刷の設定
;; ;; この設定で M-x print-buffer RET などでの印刷ができるようになります
;; ;;
;; ;;  notepad に与えるパラメータの形式の設定
;; (define-process-argument-editing “notepad”
;;   (lambda (x) (general-process-argument-editing-function x nil t)))
;;
;; (defun w32-print-region (start end
;;                   &optional lpr-prog delete-text buf display
;;                   &rest rest)
;;   (interactive)
;;   (let ((tmpfile (convert-standard-filename (buffer-name)))
;;        (w32-start-process-show-window t)
;;        ;; もし、dos 窓が見えていやな人は上記の `t’ を `nil’ にします
;;        ;; ただし、`nil’ にすると Meadow が固まる環境もあるかもしれません
;;        (coding-system-for-write w32-system-coding-system))
;;     (while (string-match “[/\\]” tmpfile)
;;      (setq tmpfile (replace-match “_” t nil tmpfile)))
;;     (setq tmpfile (expand-file-name (concat “_” tmpfile “_”)
;;                        temporary-file-directory))
;;     (write-region start end tmpfile nil ‘nomsg)
;;     (call-process “notepad” nil nil nil “/p” tmpfile)
;;     (and (file-readable-p tmpfile) (file-writable-p tmpfile)
;;         (delete-file tmpfile))))
;;
;; (setq print-region-function ‘w32-print-region)

;; ;;; fakecygpty の設定
;; ;; この設定で cygwin の仮想端末を要求するプログラムを Meadow から
;; ;; 扱えるようになります
;; (setq mw32-process-wrapper-alist
;;       ‘((“/\\(bash\\|tcsh\\|svn\\|ssh\\|gpg[esvk]?\\)\\.exe” .
;;       (nil . (“fakecygpty.exe” . set-process-connection-type-pty)))))

(setq load-path (cons “~/.emacs.d/rails” load-path))
(setq load-path (cons “~/.emacs.d” load-path))

(defun try-complete-abbrev (old)
(if (expand-abbrev) t nil))

(setq hippie-expand-try-functions-list
‘(try-complete-abbrev
try-complete-file-name
try-expand-dabbrev))

(require ‘rails)

(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))

;;;
;;; end of file
;;;

windowsは、なぜかドットで始まるファイル名を許可してくれないので、適当なエディタを使って作るかコマンドラインから打つ。
なぜかそれだと作れる（謎

EmacsLispの文法は正直よくわからんけど、load-pathというのがライブラリへのパスになるらしいので、それが追加されるようにうまく設定。

ところで、なぜかこのまま実行するとエラーになるので、ruby-model.elを書き換える。

(defconst ruby-mode-revision “$Revision$”)

↓

(defconst ruby-mode-revision “3540″)

雰囲気的に$Revision$が数字に変わるはずだったのに変わらなかったというよくわかんない感じなので適当にそれっぽい数字入れただけです。根拠なし。しかし動く（謎

あとECBとかも入れてみたい。

けどこの設定あとでcarbon emacsの方でもやるんだよなぁ。
まぁいいか。

追記:

carbon emacsの方がosXとの親和性という意味でいい気がします。
meadowの方はwindowsで動いてるemacsというような感触がします。

どうなんでしょう？

あと、snippet.elやばいね。rt→render :text見たいないな省略表記を直してくれる。
これ完全に覚えればものすごい速さでコーディングできるだろうな・・・・

cpコマンドでコピーしようとすると-fスイッチが無視されていちいち上書き確認されてしまう。

何でかなーと思っていたら、どうやら普通にcpとうつとcpコマンド本体ではなく、そのエイリアス（/bin/cp -i）が実行されるらしい。
つまり直接/bin/cpを実行すれば上書き確認なしでコピーできます。

知らんかった。

subversionに日本語ファイル名ががんがん入っているので日本語の設定をしないとやっていきない。

以下のページ参照。日本語以外の部分も何かと参考になる。

MacのUnix環境を整える。MacPorts( 旧 DarwinPorts) / ターミナル設定 / emacs など

念のためそのまま引用

OSXのUnixコンソールである、terminal.app の設定をします。まずは日本語関係。ターミナル・メニューの「ターミナル > ウィンドウ設定 > ディスプレイ」で以下をチェック。

• 日本語や中国語などにワイドグリフを使用する
• ワイドグリフは2桁とカウントする

ホームディレクトリに、.inputrcというファイルを作り、以下を記述。

set output-meta on
set convert-meta off
set meta-flag on

同じくホームディレクトリに、 .bash_profile で以下を記述。

export LANG=ja_JP.utf-8

とくにLANGを設定しておかないとsubversionはまともに動かない。

SSIDというのがネットワーク名のことだったらしい。

片っ端から組み合わせ入れて、あたるまでやりました。

乙、自分。

railsではアップロードされたファイルは自動的にtempfileクラスにぶち込まれて、一時ファイルとして扱われる。
行き先は環境によりけりだけど、ドキュメントを参照のこと。

ポイントはこの添付ファイルがいつまで保持されるか。

ファイルをアップロードした後、確認画面に遷移して、OKだったらファイルを保存する。

というのがわりと理想形なのだけど、そうでないと一時ファイルのフォルダを作って、アップして、さらに自分でガーベッジコレクションまで実装しないといけない。

単純にめんどいｗ

セッション間でファイルを保存することができないのが原因なんだけど、どうにかならないかなぁと考えてます。

Rails Wikiで発見。
いろいろ考えているけどこれでだめなら自力実装（まぁ小一時間くらいでできるとは思うけど・・・

HowToUseFileColumn

けどこれプラグインなのかぁ・・・

正直テンションあがらんけど、自力実装しよう。

いわずと知れた37signalsが出しているソフトウェア開発に関する本getting realがいつのまにかオンラインで無料になっていたようです。

知らなんだ・・・

中身は読んでいないけど、一読の価値ありと勝手に思っています。

URLをメモ

Getting Real

Here are the 16 chapters and 91 essays that make up the book.

とりあえず使ってみた感想としては、遊びで使う分には十分に動く。
正直それ以上のコメントはしようがないなぁ。

β版だからしょうがないけど、俺が想定していた使い方（ゲストOSをテストサーバとして使う）は、ちょっとまだ難しいようです。

特に

Host-to-guest networking might not work in Bridged mode.
When the physical host ethernet adapter that VMware Fusion bridges to (usually “en0″) supports hardware TCP and UDP checksum offload, any TCP or UDP communication betwen the host and the guest will fail when the guest is configured to use a bridged network adapter.

If you need communication between the Mac OS X host and the guest, you can either set up port forwarding by editing /Libraries/Application Support/VMware Fusion/nat.conf and connect to the forwarded port on the Mac OS host (for host-to-guest communication), or use the real IP address of the host (for example, associated with “en0″) from the guest (for guest-to-host communication).

The host-only networking option is not implemented for this beta release.
For this beta release, only the NAT and bridged networking options are implemented.

Bridged networking does not work on hosts with a wireless Ethernet connection.
For this beta release, bridged networking works only for hosts with a wired Ethernet connection. Work is in progress on this problem.

のあたりは致命的ですね。

とりあえず、この辺の設定をすれば動くのかもしれない？が割とめんどくさそうなので萎えです。

とりあえずWindowsでVMWareを使っているのでfusionの公式版がでるまでのつなぎとして、Parallelsを買うか、他のLinux関連の仮想方法を考えてみます。

やっぱりOSの違うものを使おうとすると乗り換えコストかかるもんだなぁ。

WinSCPにかわるSCPクライアントを探していたのだけど割とすぐに見つかる。

FUGU

なんか一部で日本語ファイル名がうまくいかないという情報もあったけど、うちの環境だとうまく行きました。

はっきりとした原因はわかりませんが、うちの環境が全てUTF8で構築されているのはうまくいっている要因かもしれないです。

セットアップしたことメモっておかないと忘れそうなのでメモ。
ちなみに、正直インストールの仕方も全然わからんかったw

まず、AppleCareのアクティベーション。
これは一回やったらもう一回やる必要なし。

そのあとFirefoxインストール。

finkというDebianライクなパッケージ管理システム導入。

そのあとapt-getでsubversionとクライアントをインストール。

なぜか日本語のリポジトリがうまく落ちてこないので

export LANG=ja_JP.UTF-8

を設定。だけどなぜか日本語のフォルダがうまく表示されない・・・
とりあえずリポジトリからファイルの取得はできた。

そのあとオークラ大先生おすすめのquicksilver導入。

とりあえず、これだけあれば開発に必要な最低限のものはそろった。