[Meadowで開発へ戻る]

Meadow2.10インストールと設定

Meadow 2.10正式版登場。2005年8月29日 Meadow 2.10-pre3登場。2005年4月5日 もうすぐリリース、プリテスト中。2005年2月頃 Meadow 2.10開発ブランチ登場。2004年6月5日

Emacs 21.4に対応したMeadow 2.10のインストールおよび設定について紹介します。

Meadow2.10の入手

バイナリの入手

バイナリの配布には、ネットインストール版によるインストーラを使用したインストール方法と、バイナリパッケージ(tar.gz形式）を展開する方法の2つの形式があります。

• Meadow Official Site
  http://www.meadowy.org/meadow/wiki/

ソースコードの入手

Meadow 2.10はソースコードでの配布と、本ページでは、ソースコードを入手して自分でビルドする方法およびバイナリを展開してインストールする方法を紹介します。

リポジトリから最新版ソースコードを入手

Meadow2.10のソースコードは、バージョン管理ツールSVNによって管理されています。MeadowのSVNリポジトリからソースファイル一式を入手します。

SVNによるソースのチェックアウト

$ svn co http://svn.meadowy.org/Meadow/branches/2.1/ Meadow-2.10-src

Meadow 2.10を動かすのに必要なライブラリの入手

Meadow 2.10を動かすには、以下のソフトウェアが別途必要です。

• ImageMagick 6.2.4-3-Q16

以下は正式版では未確認。

ソースコードからビルドする際に、ImageMagickのヘッダーファイルが必要となります。ImageMagickのヘッダーファイルは、通常のバイナリパッケージには含まれていないため、ImageMagickのソースを入手します。ImageMagickのサイトから、ImageMagick-Windows.zipを入手します。

各ツールのホームページ

• ImageMagick.org

Meadow2.10のインストール

注：ネットインストール版については、本ページでは未記載です。

ツール/ライブラリのインストール

Meadow本体をインストールする前に、まずImageMagickをインストールします。

1. ImageMagickのインストール
   入手したImageMagick-6.2.4-3-Q16-windows-dll.exeを起動すると、InstallShieldが上がるので、インストール先ディレクトリを指定してインストールします。デフォルトのC:\Program Files\ImageMagick-6.2.4-3-Q16でも構いません。環境変数PATHに反映するか聞かれたらチェックします。
2. ImageMagickソースのインストール
   入手したImageMagick-Windows.zip (ImageMagick-6.2.4-3.zip)をとりあえず1.のImageMagickをインストールしたディレクトリの中に展開します。そして、ソースのトップディレクトリの名前をincludeに変更します。
   1. C:\Program Files\ImageMagick-6.2.4-3-Q16の中に、ImageMagick-Windows.zipを解凍・展開します。するとC:\Program Files\ImageMagick-6.2.4-3-Q16\ImageMagick-6.2.4というディレクトリの中にソースファイルが展開されます。
   2. ディレクトリ名を、C:\Program Files\ImageMagick-6.2.4-3-Q16\ImageMagick-6.2.4 から、C:\Program Files\ImageMagick-6.2.4-3-Q16\include に変更します。

Meadow 2.10のバイナリアーカイブファイルからのインストール

Meadowはtar+gz形式で圧縮されているので、Cygwinのtarコマンド(GNUtar)等[*1]でビルド作業用ディレクトリに展開します。展開するディレクトリにはスペースや漢字等が含まれているとよろしくないので、Windowsアプリケーション類を入れるC:\Program Filesではなく、別にディレクトリを設けます。以降の説明では、D:ドライブに作ったディレクトリD:\workの下で作業し、D:\win32appの下[*2]へインストールすることとしています。

[*1] 一般的な圧縮解凍ツールでも展開可能かもしれませんが、TAR形式の扱いに難があるかもしれません。フルパス名が長すぎるとおかしな挙動をするものがあります（というか大抵が同じDLLを使うので同じ問題を抱えている）。

[*2] Cygwin上でE:\win32appを/win32appにマウントするようにしています。マウントしていない場合は、cd /cygdrive/d/win32app　のようにドライブ名を/cygdrive/[ドライブレター]と指定します。

アーカイブの展開

torutk$ cd /win32app
win32app$ tar xzf Meadow-2.10-i386-pre3.tar.gz
win32app$ 

install.exeの実行

win32app$ cd Meadow
Meadow$ ./install.exe
Enter the directory which Meadow read .emacs file from.
If you do not specify, Meadow reads .emacs file in following directory.
[E:\home\torutk] (HOME directory)
Meadow$ 

Meadow2のソースアーカイブファイルからのビルドとインストール

Cygwinでのビルド

Meadow-2.10-src$ cd nt
nt$ ./configure.meadow.bat --with-gcc --no-cygwin --no-debug --prefix d:/win32app/Meadow2
  :
nt$ make bootstrap
  :
nt$ make
  :
nt$ make install

VC++でのビルド

VC++ 6.0の場合

D:\tmp\Meadow-2.10-src> cd nt
D:\tmp\Meadow-2.10-src\nt> configure.meadow.bat --with-msvc --no-debug --prefix d:\win32app\Meadow2
  :
D:\tmp\Meadow-2.10-src\nt> nmake bootstrap BUILD_TYPE=spd
  :
D:\tmp\Meadow-2.10-src\nt> nmake all BUILD_TYPE=spd
  :
D:\tmp\Meadow-2.10-src\nt> nmake install BUILD_TYPE=spd

毎回BUILD_TYPE=spdを指定しているのは、なぜかconfigureで指定した--no-debugが反映されてなかったので。

VC++ Toolkit 2003の場合

afxres.hがない、setargv.objがない等によりビルドが失敗するので、以下の修正を行います。

1. nt\meadow.rcの修正

#ifndef __GNUC__
#include "afxres.h"
#endif

#ifndef __GNUC__
#include "WinUser.h"
#define IDC_STATIC -1
#endif

afxres.hのインクルードを削除し、代わりにWinUser.hをインクルード。さらにIDC_STATIC を定義。

#if !defined(AFX_RESOURCE_DLL) || defined(AFX_TARG_JPN)
#ifdef _WIN32
LANGUAGE LANG_JAPANESE, SUBLANG_DEFAULT
#pragma code_page(932)
#endif //_WIN32

#if !defined(AFX_RESOURCE_DLL) || defined(AFX_TARG_JPN)
#ifdef _WIN32
#endif //_WIN32

LANGUAGE行を削除。code_pageのpragma文を削除。

2. lib-src\makefile.ntを修正(setargv.objのみ削除）

LINK_FLAGS      = $(ARCH_LDFLAGS) -debug:PARTIAL -machine:$(ARCH) -subsystem:console -entry:mainCRTStartup setargv.obj

ALL             = $(BLD)\make-docfile.exe \

LINK_FLAGS      = $(ARCH_LDFLAGS) -debug:PARTIAL -machine:$(ARCH) -subsystem:console -entry:mainCRTStartup

ALL             = $(BLD)\make-docfile.exe \

3. src\makefile.ntを修正（setargv.objのみ削除）

#       libcmt.lib      \
        $(BASE_LIBS)    \
        $(ADVAPI32)     \
        user32.lib      \
        mpr.lib         \
        shell32.lib     \
        setargv.obj

#       libcmt.lib      \
        $(BASE_LIBS)    \
        $(ADVAPI32)     \
        user32.lib      \
        mpr.lib         \
        shell32.lib

ビルドの実施

D:\tmp\Meadow-2.10-src> cd nt
D:\tmp\Meadow-2.10-src\nt> configure.meadow.bat --with-msvc --no-debug --prefix d:\win32app\Meadow2
  --magick "C:\Program Files\ImageMagick-6.2.0-Q16"
  :
D:\tmp\Meadow-2.10-src\nt> nmake bootstrap BUILD_TYPE=spd
  :
D:\tmp\Meadow-2.10-src\nt> nmake all BUILD_TYPE=spd
  :
D:\tmp\Meadow-2.10-src\nt> nmake install BUILD_TYPE=spd

Meadow環境設定

Meadow2.10をインストールすると、次の表のようなディレクトリ構成になります。後に追加するelisp（Meadow/Emacsの拡張パッケージ)は、site-lispの下に展開します。

Meadowの実行ファイルは次の2つです。

設定の読み込み

1. コマンドラインオプション
2. site-start.el
3. .emacsまたは.emacs.el
4. default.el

コマンドラインオプションで-qを指定すると、.emacsとdefault.elを読み込みません。

設定ファイル.emacs

Meadow 2.10には、dot.emacs.jaという設定ファイルのテンプレートが添付されています。そこで、これをもとに必要な設定を追記していきます。

Meadow/Emacsでは、環境設定は各ユーザのホームディレクトリにおく.emacsファイルに行います。.emacsでloadpathを記述しなくてもrequireでsite-lisp以下にあるディレクトリからEmacs lispファイルを探して取り込むことができます。

torutk$ cd /win32app/Meadow
Meadow$ cp dot.emacs.ja ~/.emacs 

次に、.emacsファイルを編集していきます。

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

;; Author: Koichiro Ohba <koichiro@meadowy.org>
;;      Kyotaro HORIGUCHI <horiguti@meadowy.org>
;;      Hideyuki SHIRAI <shirai@meadowy.org>
;;      KOSEKI Yoshinori <kose@meadowy.org>
;;      and The Meadow Team.


;; ;;; Mule-UCS の設定
;; ;; ftp://ftp.m17n.org/pub/mule/Mule-UCS/
;; ;; (set-language-environment) の前に設定します
(require 'un-define)
(setq bitmap-alterable-charset 'tibetan-1-column)
(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
 "tt-font"
 '((spec
    ((:char-spec ascii :height any)
     strict
     (w32-logfont "ＭＳ ゴシック" 6 12 400 0 nil nil nil 0 1 3 49))
    ((:char-spec ascii :height any :weight bold)
     strict
     (w32-logfont "ＭＳ ゴシック" 7 12 700 0 nil nil nil 0 1 3 49))
    ((:char-spec ascii :height any :slant italic)
     strict
     (w32-logfont "ＭＳ ゴシック" 7 12 400 0   t nil nil 0 1 3 49))
    ((:char-spec ascii :height any :weight bold :slant italic)
     strict
     (w32-logfont "ＭＳ ゴシック" 7 12 700 0   t nil nil 0 1 3 49))
    ((:char-spec japanese-jisx0208 :height any)
     strict
     (w32-logfont "ＭＳ ゴシック" 0 13 400 0 nil nil nil 128 1 3 49))
    ((:char-spec japanese-jisx0208 :height any :weight bold)
     strict
     (w32-logfont "ＭＳ ゴシック" 0 13 700 0 nil nil nil 128 1 3 49)
     ((spacing . -1)))
    ((:char-spec japanese-jisx0208 :height any :slant italic)
     strict
     (w32-logfont "ＭＳ ゴシック" 0 13 400 0   t nil nil 128 1 3 49))
    ((:char-spec japanese-jisx0208 :height any :weight bold :slant italic)
     strict
     (w32-logfont "ＭＳ ゴシック" 0 13 700 0   t nil nil 128 1 3 49)
     ((spacing . -1))))))
(set-face-attribute 'variable-pitch nil :font "tt-font")

;; 初期フレームの設定
(setq default-frame-alist
      (append (list '(foreground-color . "black")
                    '(background-color . "AntiqueWhite")
                    '(border-color . "black")
                    '(mouse-color . "white")
                    '(cursor-color . "black")
                    '(font . "tt-font"); TrueType
                    '(width . 81)
                    '(height . 48)
                    '(top . 10)
                    '(left . 480))
              default-frame-alist))

;; ミニバッファ拡大抑止
(setq resize-mini-windows nil)

;; バックアップファイルを特定のディレクトリに生成する
(setq make-backup-files t)
(setq backup-directory-alist
      (cons (cons "\\.*$" (expand-file-name "~/backup"))
            backup-directory-alist))

;; ;;; shell の設定

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

; Meadowから起動するコマンド検索パスにCygwinを追加
(setq exec-path (append (list "d:/win32app/cygwin/bin")
                        exec-path))

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

;;; shell coding-system の設定
(add-hook 'shell-mode-hook
          (lambda ()
            (set-buffer-process-coding-system 'sjis-dos 'sjis-unix)))

;;; gnuserv
(require 'gnuserv)
(gnuserv-start)
(setq gnuserv-frame (selected-frame))

;;;動的略語補完の設定
;; 大文字小文字を区別する
(setq dabbrev-case-fold-search nil)
;; 日本語・英語混じり文での区切判定
(defadvice dabbrev-expand
  (around modify-regexp-for-japanese activate compile)
  "Modify `dabbrev-abbrev-char-regexp' dynamically for Japanese words."
  (if (bobp)
      ad-do-it
    (let ((dabbrev-abbrev-char-regexp
           (let ((c (char-category-set (char-before))))
             (cond 
              ((aref c ?a) "[-_A-Za-z0-9]") ; ASCII
              ((aref c ?j) ; Japanese
               (cond
                ((aref c ?K) "\\cK") ; katakana
                ((aref c ?A) "\\cA") ; 2byte alphanumeric
                ((aref c ?H) "\\cH") ; hiragana
                ((aref c ?C) "\\cC") ; kanji
                (t "\\cj")))
              ((aref c ?k) "\\ck") ; hankaku-kana
              ((aref c ?r) "\\cr") ; Japanese roman ?
              (t dabbrev-abbrev-char-regexp)))))
      ad-do-it)))

;; kill-ringに同じ内容の文字列を複数入れない
(defadvice kill-new (before ys:no-kill-new-duplication activate)
  (setq kill-ring (delete (ad-get-arg 0) kill-ring)))

(cd "~/")

[注記1]font設定はローレベルAPI使用

dot.emacs.jaのデフォルトのTrueTypeフォント設定では、アルファベットが"Courier New"となりますが、これは数字の'1'と小文字の'l'や、数字の'0'と大文字の'O'などが判別しずらいので、すべてMSゴシックにしています。

fontの設定方法は下記URLを参考にしています。

http://www4.kcn.ne.jp/%7Eboochang/emacs/meadow2-setup.html

http://www.boreas.dti.ne.jp/~miyoshi/Meadow2/index.html

[注記2]Meadowから利用するシェルの設定方法

UNIX　USER誌1999.9特集記事の解説によると、explicit-shell-file-nameで対話的に使うシェル・モードを設定、shell-file-nameで外部コマンドを呼び出す基となるシェルコマンドを設定、shell-command-optionで外部コマンドを呼び出す際のオプションを指定します。
呼び出す外部コマンドが環境変数PATHにないときは、exec-pathにコマンドへのパスを追加します。なお、bash上で他のCygwinコマンド群を実行するためには、.bashrcに/bin等のPATHを設定するよう追加しておく必要があります。（.bash_profileは読み込まれないため）
シェルモード上で起動するコマンドの入出力文字の符号方式をset-buffer-process-coding-systemで設定します。
カレントドライブ以外のファイル名補完を行うためにshell-file-name-charsによる設定を行います。
mw32scriptはMeadow固有の拡張モジュールです。

フォント設定

ハイレベルAPI

ローレベルAPI

東雲ビットマップフォント

KawaChokiサイトのEmacs/Meadow2で東雲フォントのページに分かりやすく解説されています。

フォントの入手

東雲ビットマップフォントファミリーのサイトから入手します。
http://openlab.ring.gr.jp/efont/shinonome/

• shinonome-0.9.10.tar.bz2

フォントの配置

上記フォントのアーカイブを解凍し、中にある"*.bdf"ファイルをMeadowのディレクトリ内の適当な場所に配置します。例えば、以下のディレクトリを作成します。

設定

（1）簡単な設定方法

KawaChokiサイトのEmacs/Meadow2で東雲フォントで公開されている"meadow2-shinonome-fontset.el"を入手してMeadowインストールディレクトリのsite-lispの中のディレクトリに置きます。

Meadow Netinstall版で用意されているmiscパッケージをインストールします。もし、Netinstall版のMeadow2を使っていなければ、Netinstall版公開サイトからmiscパッケージを直接ダウンロードして解凍し、中に入っているbdf.elファイルだけ取り出して、site-lispの中のディレクトリに置きます。

.emacsファイルに指定を追加します。

;;; BDFフォントの設定
;; $MEADOW/fonts/shinonome 以下に置いた場合は次行の設定不要
(setq bdf-font-directory-shinonome "D:/win32app/Meadow/fonts/shinonome")
;; 作成するフォントセット(不要ならnilにする)
(setq bdf-use-shinonome12 t
      bdf-use-shinonome12min t
      bdf-use-shinonome12maru t
      bdf-use-shinonome14 t
      bdf-use-shinonome14min t
      bdf-use-shinonome16 t
      bdf-use-shinonome16min t)
;; フォントセット作成ファイルをloadする
(load "meadow2-shinonome-fontset")

Meadow起動後、Shift＋右クリックで選択可能なフォント一覧に東雲フォントの設定が追加されています。

その他設定

[目次へ戻る]

追加EmacsLispパッケージ

Emacsでは、その機能を拡張するのに、lispで書かれたファイル(elispパッケージ)を使用します。拡張するためのlispファイルは、site-lispディレクトリ以下に起きます。

Elispパッケージ読み込みの抑制

あるディレクトリ以下に置かれたLispパッケージをEmacsが読み込まないようにする設定は、そのディレクトリ内に'.nosearch'というファイルを作成します。

apel-10.6の追加

apelを以下のディレクトリに展開されます。

apel-10.6を入手します。

http://cvs.m17n.org/elisp/APEL/

• ftp://ftp.m17n.org/pub/mule/apel/apel-10.6.tar.gz

作業用の空きディレクトリにおいて、tarでアーカイブを解凍します。

インストールには、Cygwinのmakeコマンドを使う方法と、apelが提供するインストール用Windowsバッチファイルを使う方法と2種類あります。

１．Cygwinのmakeコマンドを使う方法（UNIXと同じ方法）

デフォルトのMakefileがあるので、これを次のように修正します。(Meadow2.00b1での場合）

EMACS=d:/win32app/Meadow/bin/Meadow.exe
LISPDIR=d:/win32app/Meadow/site-lisp
VERSION_SPECIFIC_LISPDIR=$(LISPDIR)

そして、make installを実行します。

または、makeコマンド実行時にコマンドラインで上記を指定します。

$ make install EMACS=/win32app/Meadow/bin/Meadow.exe
 　LISPDIR=d:/win32app/Meadow/site-lisp
 　VERSION_SPECIFIC_LISPDIR=$(LISPDIR)

２．makeit.batを使う方法(Windows独自）

デフォルトのmakeit.batがあるので、これを次のように修正します。

set PREFIX=d:\win32app\Meadow
set EMACS=%PREFIX%\bin\Meadow.exe
set LISPDIR=%PREFIX%\site-lisp

まず、バイトコンパイルを実行します。この時点ではMeadowのディレクトリへのコピーは行われません。

D:\work\apel-10.6> makeit elc
   :

つぎに、インストールによってコピーされるファイルとコピー先の確認を実行します。

D:\work\apel-10.6> makeit what-where
   :

確認が良であれば、実際にインストールを実行します。

D:\work\apel-10.6> makeit install
   :

先ほど削除した2つのディレクトリに新しいapelがインストールされます。

Daredevil SKKの追加

skk-12系を入れてみます。Daredevilという開発コード名(?)が付けられているようです。

Daredevil SKK入手先

SKK Openlabのホームページから、Daredevil SKK を入手します。辿り方は、配布の"Main(Emacs Lisp Programs, tutorials, etc.)"→"Source archive directory"です。ddskk-yyyymmdd.tar.bz2と日付が付いたファイル名を入手します。なお、SKK用辞書ファイルも、同ページから、配布の"Dictionaries"→"Source archive directory"を辿ると入手できます。
http://openlab.ring.gr.jp/skk/index-j.html

Daredevil SKK インストール (Cygwin make)

Cygwinをインストールしていれば、Cygwin上でmakeコマンドを使ってSKKのインストールが実行できます。作業用の空きディレクトリにおいて、tarでアーカイブを解凍します。
また、辞書ファイルをdicディレクトリの中にコピーしておきます（例えばSKK-JISYO.L)。
SKK-CFGを次のように修正します。標準で用意されているSKK-CFGの中に、Meadow 1.14用の設定例がコメントアウトされた形で記述されているので、これをベースにMeadow2.x用に編集します。

;;; Meadow 1.14 用の設定例:
(setq APEL_SPECIFIC_LISPDIR "d:/win32app/Meadow/site-lisp/apel")
(setq LISPDIR "d:/win32app/Meadow/site-lisp")
(setq VERSION_SPECIFIC_LISPDIR "d:/win32app/Meadow/2.00/site-lisp")
(setq EMU_PREFIX "emu")
(setq SKK_DATADIR "d:/win32app/lib/skk")
(setq SKK_INFODIR "d:/win32app/Meadow/2.00/info")
(setq SKK_LISPDIR "d:/win32app/Meadow/site-lisp/skk")

その後、makeを実行します。

ddskk-12.2.0$ make EMACS=/win32app/Meadow/bin/Meadow.exe install
    :
ddskk-12.2.0$

Daredevil SKK インストール（makeit.bat)

Cygwinがなければ、バッチファイルを使ったインストールを実行します。アーカイブの展開と辞書ファイルのコピーまでは上記と一緒です。

makeit.batを次のように修正します。

set PREFIX=d:\win32app\Meadow2
set EMACS=%PREFIX%\bin\Meadow.exe
set LISPDIR=%PREFIX%\site-lisp
rem set VERSION_SPECIFIC_LISPDIR=%PREFIX%\2.00\site-lisp
set DEFAULT_MAKE_ARG=

まず、バイトコンパイルを実行します。この時点ではMeadowのディレクトリへのコピーは行われません。

D:\work\ddskk-20030504> makeit elc
   :

つぎに、インストールによってコピーされるファイルとコピー先の確認を実行します。

D:\work\ddskk-20030504> makeit what-where
   :

確認が良であれば、実際にインストールを実行します。

D:\work\ddskk-20030504> makeit install
   :

このインストールの際に、なぜかskk-setup.elとleim-list.elの2ファイルがコピーされません。そこで手作業でコピーします。

D:\work\ddskk-20030504> copy skk-setup.el d:\win32app\Meadow\site-lisp\skk
   :
D:\work\ddskk-20030504> copy leim-list.el d:\win32app\Meadow\site-lisp\skk

.emacs設定追加(Daredevil SKK)

Daredevil SKKでは、.emacsには何も記述しなくても設定が仕込まれます。

Mule-UCS current(2003/01/29版）の追加

MuleでUnicodeを直接扱えます。以下からアーカイブファイルを入手します。現在正式版は2001年4月にリリースされているMule-UCS-0.84ですが、Meadow上での動作で若干の問題[注記]があるため、test版を使用します。

ftp://ftp.m17n.org/pub/mule/Mule-UCS/test/Mule-UCS-current.tar.gz

[注記]Meadow上でShiftJIS(DOS改行）で編集途上のバッファがある状態でMeadowを終了するときに、Saveするとなぜか改行コードが(CR+CR+LF)となってしまう。

D:\win32app\Meadow\site-lispの下にMule-UCS-currentを展開します。そのままではMeadow起動時にエラーが出るので、必ずバイトコンパイルを実施します。(結構時間がかかります）

1. mucs-comp.el　を呼んでバイトコンパイル
2. x0213-comp.elを呼んでバイトコンパイル

site-lisp$ cd Mule-UCS-current
Mule-UCS-current$ /win32app/Meadow/2.00/bin/Meadow.exe
   -q --no-site-file -batch -l mucs-comp.el
   :
   :
Mule-UCS-current$ cd lisp/jisx0213
jisx0213$ /win32app/Meadow/2.00/bin/Meadow.exe
   -q --no-site-file -batch -l x0213-comp.el
   :
   :
jisx0213$

参考：「Windows98/2000上でのMeadowの動かし方」高橋誠さんのページにMule-UCSの設定があります。
http://homepage2.nifty.com/hobbit/html/meadow.htmll

.emacs設定追加

;; ;;; Mule-UCS の設定
;; ;; ftp://ftp.m17n.org/pub/mule/Mule-UCS/
;; ;; (set-language-environment) の前に設定します
(require 'un-define)
(require 'jisx0213)

physical-lineの追加

カーソルの移動を論理行ではなく物理行単位にしたいときに使用します。

http://www.taiyaki.org/elisp/physical-line/

から、physical-line.elを入手し、D:\win32app\Meadow\site-lispの下の適当なところに置きます。site-lisp直下でもよいですが、細かいelispファイルが増えるのを嫌ってsite-lisp\utilの中に置いています。

.emacs設定追加

;;;
;;; 物理行でスクロール  
;;; (by physical-line.el)
(load "physical-line")
; テキストモードでのスクロールは物理行とする
(add-hook 'text-mode-hook 
             'physical-line-mode-on)

html-helper-modeの追加

HTML編集で使用します。また、HTMLファイル中にスクリプトを記述するような場合に特に威力を発揮します。例えば、JSP(Java Server Page)、ASP、PHPなどです。JSPファイル編集においでJavaコード部分を編集するときは、JDEEと連動します。

html-helper-modeは古くからあるようですが、現在はバージョン3.x系が以下URLから入手できます。

http://www.gest.unipd.it/~saint/hth.html

上記サイトから、html-helper-mode.tar.gzと、合わせてtempo.el.gzを入手します。

.emacs設定追加

;;;
;;; HTML編集  
;;;
(autoload 'html-helper-mode "html-helper-mode" "Yay HTML" t)
(autoload 'jsp-html-helper-mode "html-helper-mode" "Yay HTML" t)
(setq auto-mode-alist
       (cons '("\.html$" . html-helper-mode)
       auto-mode-alist))
(setq auto-mode-alist
       (cons '("\.jsp$" . jsp-html-helper-mode)
       auto-mode-alist))
(add-hook 'html-helper-mode-hook
       '(lambda () (auto-fill-mode 0)))

使い方

JSPを編集中、スクリプトコードの個所にキャレットを置いて[F4]キーを押すと、<%と%>に囲まれたスクリプト部分だけがバッファに表示され、しかもJDEEの編集モードになっています。もう一回[F4]キーを押すと、ファイル全体が表示され、HTML/JSP helperモードに戻ります。

キーバインドの例（html）

スペルチェック

外部プログラムのispellと単語集が必要です。

ispellの入手とインストール

入手先：http://www.fsci.fuk.kindai.ac.jp/kakuto/soft.html

展開後、binの中にある実行ファイルをPATHの通った場所に起きます。面倒なのでMeadowのbinの中に放り込んでしまいました。
dicの中にあるenglish.hashファイルを、どこか適切な場所（デフォルト：c:\usr\local\lib)に起きます。今回はd:\win32app\lib\ispellディレクトリを作ってそこに放り込みました。

wordsの入手

入手先：http://sourceforge.net/projects/wordlist/

Ispell-EnWLを入手すればよいと思います。適切な場所に展開します。今回は上記のispellと同じ場所に放り込んでいます。

.emacs設定追加

;;; スペルチェック
; Encoded-KbdマイナーモードでispellのスペルチェックキーバインドM-$が
; 乗っ取られるのを防止
(define-key encoded-kbd-mode-map "\e" nil)
; 日本語をスキップ
(eval-after-load "ispell"
  '(add-to-list 'ispell-skip-region-alist '("[^\000-\3777]+")))
; スペルチェック辞書
(setenv "DICTIONARY" "d:/win32app/lib/ispell/english.hash")
(setq ispell-alternate-dictionary "d:/win32app/lib/ispell")
(setq ispell-grep-command "grep")

使い方

Eldav - WebDAVクライアント

外部コマンドのndが必要です。

ndの入手とインストール

入手先：http://www.gohome.org/nd/

nd-0.8.2.tar.gzを入手し、作業領域で展開し、ビルドします。

work$ tar xf nd-0.8.2.tar.gz
work$ cd nd-0.8.2
nd-0.8.2$ ./configure
    :
nd-0.8.2$ make
    :
nd-0.8.2$ make install
    :
nd-0.8.2$

/usr/local/bin　の下にnd.exeがインストールされます。

eldavの入手とインストール

入手先：http://www.gohome.org/eldav/

eldav-0.8.1.tar.gzを入手し、site-lisp下に解凍します。

.emacs設定追加

;;; Eldav - WebDAV client
;;; depends on nd
(require 'eldav)

ファイルを開く際に、:http://example.com/dav/foo.txt

のように指定することができます。

[目次へ戻る]

Meadowを便利に

ドラッグ&ドロップや送るメニューで複数のMeadowを起動しないようにする

普通にファイルをドラッグ&ドロップしたり、「送る」メニューにMeadowを追加して起動すると、新たなプロセスとしてMeadowが起動します。すると起動に時間がかかったりファイル編集の一貫性がずれたりと、いいことがありません。そこで、gnuservを使って普通のWindowsアプリケーションのようにドラッグ&ドロップや送るメニューで起動できるようにします。

http://shimooku.hp.infoseek.co.jp/

からgnuservを入手します。なかにある以下の実行ファイルを、環境変数PATHに設定されたディレクトリに置きます。（D:\win32app\Meadow\2.00b1\binをPATHに追加して、ここに置くと便利でしょう）

• gnuclient.exe
• gnuclientw.exe
• gnuserv.exe
• gnudoit.exe
• gnudoitw.exe

以下のelispファイルを、Meadowのロードパスの中に置きます。(例：D:\win32app\Meadow\site-lisp\utilの中）

• gnuserv.el

.emacs設定追加

;;;
;;; gnuserv  
;;;
(require 'gnuserv)
(gnuserv-start)
(setq gnuserv-frame (selected-frame))

環境変数追加

※環境変数に設定したくない場合、レジストリに設定することで対応できます。
　\HKEY_CURRENT_USER\Software\GNU\gnuserv
または
　\HKEY_LOCAL_MACHINE\Software\GNU\gnuserv

「送る」メニューへの追加

ファイルエクスプローラ等で右クリックした時に現れるポップアップメニューの「送る」の中にMeadowを追加します。まず、「スタート」メニューを右クリックしてエクスプローラを起動します。Windows2000ならば、C:\Documents and Settings\<ユーザ名>\スタートメニューが開かれていると思います。<ユーザ名>\SendToの中に、先ほどコピーしたgnuclientw.exeへのショートカットを作って置きます。このときアイコンもMeadowのものに設定しておくと見栄えが良いでしょう。

ドラッグ&ドロップ用アイコンをデスクトップに作成

gnuclientw.exeへのショートカットを作ります。