TeraTermでTERM=teraterm を使う

TeraTermでTERM=teraterm を使ってみたところ、emacsが結構イイ感じになった。

【UNIX(Solaris/Linux)側 】
１．ここからTera Term 用 TERMINFO ファイルをダウンロードする
    mkdir teracap
    cd teracap
    wget http://hp.vector.co.jp/authors/VA002416/teralin1.tgz
２．展開
    tar zxvf teralin1.tgz
３．インストール
    sudo tic teraterm.ti

【TeraTerm側 】
１．TERATERM.INIに以下を追記（または変更）
    AnswerBack=teraterm
    TermType=teraterm
    VTColor=0,0,0,192,192,192
    VTBoldColor=0,0,255,255,255,255
    VTBlinkColor=255,0,0,255,255,255
２．UNIX(Solaris/Linux)へ接続
３．emacsあたりを起動して確認

コンパイル機能のカスタマイズ

emacsのコンパイル機能を少しだけカスタマイズしてみた。
非常に簡単で、以下を.emacsに追加しただけ。

１．M-x compile したときのコンパイルウィンドウの高さが大きすぎるので、これを10行程度に変更
(setq compilation-window-height 10)

２．M-x compile したときのデフォルトコマンドを設定
(setq compile-command "make -f ")

少しは使いやすくなったかな。

参考図書：
入門 GNU Emacs

c-modeのインデントをTAB4にする

emacsのc-modeはデフォルトでインデント幅2になっているよぅなので、これをTAB4にしちゃいます。やっぱりTABは4でしょう:-)
以下を.emacsに追加するだけ。

(defun my-c-mode-hook ()
(c-set-style "linux")
(setq tab-width 4)
(setq c-basic-offset tab-width))
(add-hook 'c-mode-hook 'my-c-mode-hook)

簡単♪

modeいろいろ

Meadow/emacsを使っているうちに、modeをいろいろつ追加してきてました。.emacsファイルの整理をかねて、どんなのを追加したのかチェックしてみました。

css-mode：スタイルシート用
visual-basic-mode：VBとVBA用
jde-mode：Java用
multi-mode：複数のモード併用

multi-modeは結構簡単に設定できて便利です。以下はJSPとHTML＋JavaScriptの例です。

JSP
 (defun jsp-mode ()
  (multi-mode 1
     'html-mode
     '("<%" java-mode)
     '("%>" html-mode)))
 (setq auto-mode-alist (append '(("\\.jsp$" . jsp-mode)) auto-mode-alist))

HTML+JavaScript
 (defun mhtml-mode ()
   (multi-mode 1
     'html-mode
     '("<SCRIPT" java-mode)
     '("/SCRIPT>" html-mode)))
(setq auto-mode-alist (append '(("\\.\\(htm\\|html\\|shtm\\|shtml\\)$" . mhtml-mode)) auto-mode-alist))

これから設定しようとしているもの

csharp-mode：C#用

りなざうでWanderlust

やっとザウルスにWanderlustをインストールしました。ipkファイルを探したのですが、最新版というのがみつからなかったのと、makeとかを入れてないので、チマチマと手でインストールしました。はっきりいって面倒なので、導入をためらっている人も多いかと思いますので、ipkファイルを作りました。WikiのWanderlust on Zaurus にありますが、一応、直リンしておきます。

Wanderlust ipkファイルダウンロード
・Wanderlust for Zaurul full set
　（apel 10.6 / flim 1.14.7 / semi 1.14.5 / wl 2.10.1）
　wanderlust_2.10.1_arm.ipk
・apel 10.6
　apel_10.6_arm.ipk
・flim 1.14.7
　flim_1.14.7_arm.ipk
・semi 1.14.5
　semi_1.14.5_arm.ipk
・wl 2.10.1
　wl_2.10.1_arm.ipk

.emacs for りなざう

りなざうのemacsのdot.emacsは、とりあえず下記くらいの設定でいいんじゃないかな、と。セルフ開発環境を入れたらまた考えます。

;; 日本語設定
(set-buffer-file-coding-system 'euc-jp-unix)
(set-terminal-coding-system 'euc-japan)
(set-language-environment "Japanese")
(set-keyboard-coding-system 'euc-jp)

;; Menuでメニューポップアップ
(global-set-key [f11] 'tmm-menubar)

;; ペン対応
(xterm-mouse-mode 1)

;; カラー表示
(global-font-lock-mode t)

;; C-x C-bでバッファメニューをアクティブにする
(global-set-key "\C-x\C-b" 'buffer-menu)

;; diredでディレクトリを先に表示
(setq ls-lisp-dirs-first t)

;; リージョンのカラー表示
(transient-mark-mode 1)

;; 対応する括弧のハイライト
(show-paren-mode)

JDEEのインストール

本格的にJava開発をやることになりそうなので、週末を利用してMeadowにJava開発環境を整えてみました。JDEEっつーのがいいらしいので、とりあえずインストール。基本的にsite-lispディレクトリへ展開してバイトコンパイルすればいいみたいです。eclipseはどーももっさりした感じがするので、JDEEでサクサクできるようになるといいかなぁ。

１．ダウンロード
　speedbar
　eieio
　semantic
　Emacs Lisp library (elib)
　JDEE

２．展開
  cd c:/Meadow/site-lisp
  gzip -dc c:/temp/speedbar-0.14beta4.tar.gz | tar -xvf -
  gzip -dc c:/temp/eieio-0.17.tar.gz | tar -xvf -
  gzip -dc c:/temp/semantic-1.4.4.tar.gz | tar -xvf -
  gzip -dc c:/temp/elib-1.0.tar.gz| tar -xvf -
  gzip -dc c:/temp/jde-latest.tar.gz | tar -xvf -

３．インストール＆コンパイル（順番厳守）
  #speedbar
  cd c:/Meadow/site-lisp
  cd speedbar-0.14beta4
  make EMACS=/cygdrive/c/Meadow/2.00b2/bin/meadow.exe
  #eieio
  cd c:/Meadow/site-lisp
  cd eieio-0.17
  make EMACS=/cygdrive/c/Meadow/2.00b2/bin/meadow.exe \
   LOADPATH=../speedbar-0.14beta4
  #semantic
  cd c:/Meadow/site-lisp
  cd semantic-1.4.4
  make EMACS=/cygdrive/c/Meadow/2.00b2/bin/meadow.exe \
   "LOADPATH=../eieio-0.17 ../speedbar-0.14beta4"
  #elib
  cd c:/Meadow/site-lisp
  cd elib-1.0
  make EMACS=/cygdrive/c/Meadow/2.00b2/bin/meadow.exe
  #JDEE
  cd c:/Meadow/site-lisp
  cd jdee-2.3.2/lisp
  make EMACS=/cygdrive/c/Meadow/2.00b2/bin/meadow.exe \
   EIEIO=../../eieio-0.17 ELIB=../../elib-1.0 \
   SEMANTIC=../../semantic-1.4.4 \
   SPEEDBAR=../../speedbar-0.14beta4

この後、.emacsに
(require 'jde)
を追加すれば、.javaファイルを開くとjde-modeになります。

デバッグとかは細かい設定が別途必要ですが、とりあえずC-c C-v C-cでコンパイル、C-c C-v C-rで実行できました。

Meadowのフォントを変える

Meadowのフォント設定は結構難しいというか面倒なので、同僚が使ってたものをコピペして使っていました。こいつはMS ゴシックの設定で、別に不満もなく普通に使っていたのですが、ふとしたことからプログラマ向けかもしれない固定ピッチフォントというのを見つけました。こいつがなんとEPSONの98互換機のフォントだというじゃないですか！
PC98x1時代にはEPSON互換機で暮らした私としては、ぜひ使わねば！ということで、Meadowで使えるようにしました。

１．Fixed98Epson.lzhをダウソ
２．Fixed98Epsonをインスコ
３．Fixed98Epsonフォントセットを作る（以下の設定を.emacsに追加）
(w32-add-font
 "fontset-fixepson12"
 '((strict-spec
  ((:char-spec ascii :height any)
   (w32-logfont "Fixed98Epson" 0 -12 400 0 nil nil nil 128 1 1 49))
  ((:char-spec ascii :height any :weight bold)
   (w32-logfont "Fixed98Epson" 0 -12 700 0 nil nil nil 128 1 1 49))
  ((:char-spec ascii :height any :slant italic)
   (w32-logfont "Fixed98Epson" 0 -12 400 0 t nil nil 128 1 1 49))
  ((:char-spec ascii :height any :weight bold :slant italic)
   (w32-logfont "Fixed98Epson" 0 -12 700 0 t nil nil 128 1 1 49))
  ((:char-spec japanese-jisx0208 :height any)
   (w32-logfont "Fixed98Epson" 0 -12 400 0 nil nil nil 128 1 1 49))
  ((:char-spec japanese-jisx0208 :height any :weight bold)
   (w32-logfont "Fixed98Epson" 0 -12 700 0 nil nil nil 128 1 1 49)
   ((spacing . -1)))
  ((:char-spec japanese-jisx0208 :height any :slant italic)
   (w32-logfont "Fixed98Epson" 0 -12 400 0 t nil nil 128 1 1 49))
  ((:char-spec japanese-jisx0208 :height any :weight bold :slant italic)
   (w32-logfont "Fixed98Epson" 0 -12 700 0 t nil nil 128 1 1 49)
   ((spacing . -1)))
  ((:char-spec katakana-jisx0201 :height any)
   (w32-logfont "Fixed98Epson" 0 -12 400 0 nil nil nil 128 1 1 49))
  ((:char-spec katakana-jisx0201 :height any :weight bold)
   (w32-logfont "Fixed98Epson" 0 -12 700 0 nil nil nil 128 1 1 49)
   ((spacing . -1)))
  ((:char-spec katakana-jisx0201 :height any :slant italic)
   (w32-logfont "Fixed98Epson" 0 -12 400 0 t nil nil 128 1 1 49))
  ((:char-spec katakana-jisx0201 :height any :weight bold :slant italic)
   (w32-logfont "Fixed98Epson" 0 -12 700 0 t nil nil 128 1 1 49)
   ((spacing . -1)))
)))
４．フレームのフォントセットを変更
(setq default-frame-alist
 (append (list
  '(font . "fontset-fixepson12")
  '(ime-font . (w32-logfont "Fixed98Epson" 0 -12 400 0 nil nil nil 128 1 1 49))
  …
 )
 default-frame-alist))

PukiWikiを立てた

早速PukiWikiでWikiを立ててみました。名前は「ぬぞうWiki」です（ｗ。
インストールはマニュアルが整備されているので、非常に簡単です。更新も簡単なので、いままで作っては放置していたホームページのようにはならないんじゃないかなぁ、と思います。
blogはしばらくココログを使うことにしました。テンプレートめんどくさい…

Becky!→Wanderlustのメール移行

一通りWanderlustの整備が終わったので、次はBecky!からMeadow＋Wanderlustへのメール移行をしなければなりません。メール数が７万を超えているので、いるいらないの取捨選択が不可能に近いので、全部移行対象です。
いろいろ試行錯誤した結果、以下の手順で移行させました。
やってることはmbox形式でエクスポート→MHへ変換→Wanderlustの.folderに追加です。
当然ですが、コンパイルなどの一連の作業はCygwinで行っています。

１．Becky!のメールをmbox形式でエクスポート
    標準のエクスポートでOKですが、フォルダが多い場合は面倒なので、CircleBeckyを使うと簡単です。

２．incmの取得
    incm 0.5

３．incmのコンパイル
    make
    cp incm.exe /usr/local/bin

４．メール出力先作成
    cd ~
    mkdir Mail
    cd Mail
    mkdir inbox_becky
    …

５．メール変換
    incm -b -d 受信箱.mbox -i ~/Mail/inbox_becky
    …

６．.folderに以下を追加
    +inbox_becky "Beckyの受信箱"
    …

他にもemlで出力→ファイル名変更（以下を実行）という手もあります。
seq=1; for i in *.eml; do mv "$i" $seq; seq=`expr $seq + 1`; done

移行した結果、スレッドがうまく繋がらなかったのですが、もともとスレッド表示をあまり使っていなかったのと、手作業で修正するとしても、かなりの量があるので、とりあえず放置してます。ちなみに新しく受信したメールはスレッドが繋がってます。

Wanderlust Tips (2)

フォルダとサマリで選択したラインがboldになってずれたので、boldしないようにして、サマリでは選択行の背景色を変える
(custom-set-faces
'(wl-highlight-folder-path-face ((t (:underline t))))
'(wl-highlight-summary-displaying-face ((t (:background "light goldenrod"))))
)

メニュー方式でカスタマイズする
M-x customize-group RET wl RET

全ファイルを自動リファイル対象にする
(setq wl-summary-auto-refile-skip-marks nil)

Wanderlust Tips (1)

Wanderlustのカスタマイズあれこれ…

;; Bcc: を自動的につける
(setq wl-bcc "メールアドレス")

;;表示ヘッダの設定
;; とりあえず全部非表示
(setq wl-message-ignored-field-list
'(".*"))
;; 必要そうなものだけ表示に変える
(setq wl-message-visible-field-list
'("^To"
"^From"
"^Subject"
"^Date"
"^Cc"
))

;; サマリバッファの左にフォルダバッファを表示する (3ペイン表示)
(setq wl-stay-folder-window t)
(setq wl-folder-window-width 35) ;; フォルダ一覧の横幅 24 文字分

;; 添付ファイルがある場合は「@」を表示
(setq wl-summary-line-format "%n%T%P%1@%Y/%M/%D(%W)%h:%m %t%[%17(%c %f%) %] %#%~%s")
(setq wl-summary-line-format-spec-alist
(append wl-summary-line-format-spec-alist
'((?@ (wl-summary-line-attached)))))

;; 関係する全ての人に返信
(setq wl-draft-reply-without-argument-list
'(("Followup-To" . (nil nil ("Followup-To")))
("Newsgroups" . (nil nil ("Newsgroups")))
("Mail-Followup-To" . (("Mail-Followup-To") nil ("Newsgroups")))
("Reply-To" . (("Reply-To") ("To" "Cc") nil))
("From" . (("From") ("To" "Cc") ("Newsgroups")))
))

Wanderlustで日本語名のファイルを添付

Wanderlustをインストールした後、じつはしばらく使っていなかったのですが、最近時間ができてきたのでちょこちょこと.wlやら.foldesやら.addressesをいじりはじめました。
送受信のテストをしてたら日本語ファイルを添付（C-c C-x TAB）したときにファイル名とか表示がおかしい！調べてみるとFLIMではなくLIMITを使えば直るとのことで、FLIMをLIMITに入れ替えました。

１．LIMITをダウンロード
　　LIMIT

２．make＆install
　　make install EMACS=/cygdrive/c/Meadow/2.00b2/bin/meadow.exe PREFIX=c:/Meadow LISPDIR=c:/Meadow/site-lisp VERSION_SPECIFIC_LISPDIR=c:/Meadow/2.00b2/site-lisp

これでとりあえず日本語ファイルを添付して送受信できました。
次はメールデータの移行かな。大量にあるから面倒

Meadowで文字コードを自動認識

.emacsに以下を追加。順番厳守らしい。

(require 'un-define)
(require 'jisx0213)
(set-language-environment "Japanese")

これでutf-8、shift_JIS、JISコードを自動判別してくれるはずです。

emacsのdiredでファイルが読めない問題

emacsのdiredでカーソル行のファイルを選択しても、ファイルが無いといわれて読めないことがある。どうもdiredで表示される日付の形式が英語（C）と違うかららしい。 これを解消するには

１．localeをCにする
２．dired-move-to-filename-regexpを設定する

のどちらかを行う必要があります。１は簡単なので２のほうでやってみます。
２の方法でやるには、以下の内容をdired-mode.elとか適当な名前を付けたファイルに保存して、.emacsで読み込むだけです。

///////////ここから///////////
;; Dired mode の変更
(setq dired-move-to-filename-regexp
      (let* ((l "\\([A-Za-z]\\|[^\0-\177]\\)")
        (month (concat l l "+[.]?,? *"))
        (k "[^\0-\177]")
        (s " ")
        (yyyy "[0-9][0-9][0-9][0-9]")
        (mm "[ 0-1][0-9]")
        (dd "[ 0-3][0-9][.]?")
        (HH:MM "[ 0-2][0-9]:[0-5][0-9]")
        (western (concat "\\(" month s dd "\\|" dd s month "\\)"
               s "\\(" HH:MM "\\|" s "?" yyyy "\\|" yyyy s "\\)"))
        (japanese (concat mm k s dd k s "\\(" s HH:MM "\\|" yyyy k "\\)"))
        (debianjp (concat mm k s dd s "\\(" HH:MM "\\|" s yyyy "\\)")))
    (concat ".*[0-9]" s "\\(" western "\\|" japanese "\\|" debianjp "\\)" s)))
;; vc-dired-mode
(defadvice vc-dired-mode
  (after vc-dired-mode-fix-filname-regexp activate compile)
  (setq dired-move-to-filename-regexp
    (let*
       ((l "\\([A-Za-z]\\|[^\0-\177]\\)")
        (month (concat l l "+ *"))
        (k "[^\0-\177]")
        (s " ")
        (yyyy "[0-9][0-9][0-9][0-9]")
        (mm "[ 0-1][0-9]")
        (dd "[ 0-3][0-9]")
        (HH:MM "[ 0-2][0-9]:[0-5][0-9]")
        (western (concat "\\(" month s dd "\\|" dd s month "\\)"
               s "\\(" HH:MM "\\|" s yyyy"\\|" yyyy s "\\)"))
        (japanese (concat mm k s dd k s "\\(" s HH:MM "\\|" yyyy k "\\)"))
        (debianjp (concat mm k s dd s "\\(" HH:MM "\\|" s yyyy "\\)")))
     (concat s "\\(" western "\\|" japanese "\\|" debianjp "\\)" s))))
///////////ここまで///////////

.emacsで読み込むには
(load "dired-mode.el")
とかします。

Wanderlust on Meadow

今回はりなざうではなくてWindowsの話。りなざうで使うメーラーをWanderlustにしようかと思ったのですが、じつは本格的に使ったことがないので、とりあえずMeadow＋Wanderlustで実験してみてから導入することにしました。以下Wanderlustインストール備忘録

１．パッケージダウンロード
　Wanderlust、APEL　10.6、FLIM 1.14.5、SEMI 1.14.5

２．APELインストール
　make install EMACS=/cygdrive/c/Meadow/2.00b2/bin/meadow.exe PREFIX=c:/Meadow LISPDIR=c:/Meadow/site-lisp VERSION_SPECIFIC_LISPDIR=c:/Meadow/2.00b2/site-lisp

３．FLIMインストール
　make install EMACS=/cygdrive/c/Meadow/2.00b2/bin/meadow.exe PREFIX=c:/Meadow LISPDIR=c:/Meadow/site-lisp VERSION_SPECIFIC_LISPDIR=c:/Meadow/2.00b2/site-lisp

４．SEMIインストール
　make install EMACS=/cygdrive/c/Meadow/2.00b2/bin/meadow.exe PREFIX=c:/Meadow LISPDIR=c:/Meadow/site-lisp VERSION_SPECIFIC_LISPDIR=c:/Meadow/2.00b2/site-lisp

５．Wanderlustインストール
　make install EMACS=/cygdrive/c/Meadow/2.00b2/bin/meadow.exe LISPDIR=c:/Meadow/site-lisp
　
６．各種設定ファイルのコピー
　sample/jaにあるファイルを$HOMEへコピー。このとき、dotを消す。
　dot.wl→.wl、dot.folders→.folders、dot.addresses→.addresses

この後Meadowを再起動し、M-x wl とするとwanderlustが起動する。
さて、この後はどうしたものか…
意外と初心者向けのサイトがないので作りますかな。

emacs用キーバインド(Control/Alt)

emacsを入れたのでCtrlとAltを使うことが多くなったわけですが、最初はCtrlは[カナ/ひら]、Altは[Cancel]で使ってました。しかし、これだと微妙に使いづらいので、ほぼ使わないに等しい[Calendar]と[Address]に、それぞれCtrlとAltを割り当てることにしました（割り当てにはkeyhelperを利用）。

１．[Calendar]をControlに割り当て
　　<define key="F9" type="Control" mapping="True" toggle="True">

２．[Address]をAltに割り当て
　　<define key="F10" type="Alt" mapping="True" toggle="True">

emacs on ザウルス

Linuxといえばemacsでしょう。というわけでemacsをインストールしてみた。とはいってもipkファイル（６本）をダウンロードしてインストールしただけ。どれかが本体メモリにのみインストール可だったけど、ほとんどはSDメモリにインストールできました。
少々驚いたのはカラーが８色しか使えないらしいということ。M-x list-colors-displayをしたところ、基本８色のみ表示。これだとhi-lineしたときに緑の文字がかくれてしまうんだよな～。もう少し調べてみないとダメだこりゃ。で、りなざう用dot.emacsファイルはいろいろと調整中。次はインラインで日本語変換できるようにしないと…