Meadow環境のインストールと設定

岡田　慧

注意

1. インストール後に /usr/local/Meadow/1.14/bin/OBJ/EXE/emacs.exe を /usr/local/Meadow/1.14/bin/MeadowNT.exe にコピーする．
2. 他のマシンでインストールする．

目次

1. はじめに
2. Meadowのインストール
3. Meadowのセットアップ

はじめに

MeadowはWindows上で稼動するGNU Emacsテキストエディタです．Meadowは， Emacs 20.x をベースに開発されています．Meadowを利用することで，Window 上でもUNIXでGNU Emacs を利用していたのと同じ感覚でプログラミングが可能 になります．

Meadowのインストール

1. インストールの前に

   Meadow は ftp://ftp.m17n.org/pub/mule/Windows/ にてアーカイ ブとして配布されています．配布されているのは，以下の４つのファイルです が，Meadowの実行に必要なのは，Meadow-1.14-i386-base.tar.gzです．

   • Meadow-1.14-i386-base.tar.gz: Meadow 基本部
     (バイトコンパイル済み lisp ライブラリを含む)
   • Meadow-1.14-i386-els.tar.gz: lisp ライブラリ
   • Meadow-1.14-leim.tar.gz: 多言語入力ライブラリ
   • Meadow-1.14-src.tar.gz: Meadow のソースファイル一式

   機械演習室では共有フォルダO:\soft-ensyu\meadowにおいてあります．

2. アーカイブの展開

   アーカイブを展開します．展開するには以下のコマンドを利用します． Cygwinでは，各ドライブを /cygdrive/[Drive Name]として 利用できます．ここでは，共有フォルダO:\soft-ensyu\meadowにある ファイルを展開したいので，以下のようになります．

   $ cd /usr/local/
   $ tar -xvzf /cygdrive/O/soft-ensyu/meadow/Meadow-1.14-i386-base.tar.gz
     

3. install.exeの実行

   P:/cygwin/usr/local/Meadow/1.14 にあるinstall.exeを実行します．

   Cygwinから実行してはいけません．必ず，Windowから実行する必要 があります．したがって，以下のinstallファイルをダブルクリック して実行してください．

   

   途中で以下の様に.emacsファイルを読み込むディレクトリを聞かれますので， P:/cygwin/home/[user-name] を指定してください．

   

   インストールが終了するとスタートアップメニューにMeadowが登録されます． Start -> Program -> Meadow -> Meadow を実行し，Meadowが立ち上がることを 確認してください．

Meadowの設定

1. .bash_loginの設定

   各自の.bash_login(P:\cygwin\home\[user name]\.bash_login)を編集し， 文章の最後に以下の内容を追加する．.bash_loginを修正した場合は， cygwinを再起動（デスクトップ上のCygwinをクリックする）するか， source .bash_login としないと，修正が反映されないので注意すること．

   alias emacs='/usr/local/Meadow/1.14/bin/MeadowNT.exe -l p:/cygwin/$HOME/.emacs'
     

   これにより，プロンプトから

   $ emacs &
     

   とするとMeadowを立ち上げることが出来るようになる．

2. .emacsの設定

   .emacs を設定し，Meadowをカスタマイズできます． .emacs は各自のホーム /home/[user-name] に置きます． 設定例を以下に示します．

   このファイルは O:\soft-ensyu\meadow\emacs.txtにおいてあります． これを，各自のホームディレクトリにコピーして，.emacs という名前に 変更してください．

   
   (display-time)
   (global-set-key "\C-h" 'backward-delete-char)
   (global-set-key "\M-g" 'goto-line)
   (global-font-lock-mode t)
   
   ;; Browser
   ;;
   ;;
   (setq browse-url-browser-function 'browse-url-msie)
   (setq browse-url-msie-program "C:\\Program Files\\Internet Explorer\\IEXPLORE.EXE")
   (defun browse-url-msie (url arg)
     (interactive (browse-url-interactive-arg "URL: "))
     (if browse-url-msie-program
         (let ((w32-start-process-show-window t))
   	(start-process (concat browse-url-msie-program url)
   		       nil browse-url-msie-program url))))
   (global-set-key [S-mouse-2] 'browse-url-at-mouse)
   
   ;; japanese mode
   ;;
   (set-language-environment "Japanese")
   (setq default-input-method "MW32-IME")
   (mw32-ime-initialize)
   (global-unset-key "\C-\\")
   (global-set-key "\C-\\" 'toggle-input-method)
   (setq-default mw32-ime-mode-line-state-indicator "[--]")
   (setq mw32-ime-mode-line-state-indicator-list '("[--]" "[あ]" "[--]"))
   
   ;;
   (setq shell-file-name "P:/cygwin/bin/bash.exe")
   (setq explicit-shell-file-name shell-file-name)
   (setq shell-command-option "-c")
   (modify-coding-system-alist 'process ".*sh\\.exe" 'undecided-unix)
   
   
   (when (not (boundp 'create-private-fontset))
     (setq create-private-fontset t)
     (create-fontset-from-request "private-fontset"
   			       '((width . 8)
   				 (height . 16)
   				 (fixed . t)
   			       (italic . nil))
   			       '((family . "ＭＳ ゴシック")
   				 (family . "Courier New")))
   
     (setq default-frame-alist
       (append (list '(foreground-color . "black")
   		  '(background-color . "LemonChiffon")
   		  '(border-color . "black")
   		  '(mouse-color . "white")
   		  '(cursor-color . "black")
   		  '(width . 80)
   		  '(height . 40)
   		  '(font . "private-fontset")
   		  )
   	    default-frame-alist))
     )