プログラマ 福重 伸太朗 〜基本へ帰ろう〜 このページをアンテナに追加 RSSフィード

2007-08-21

Meadowのインストール、設定

パソコンが新しくなったので、Meadowを再インストールした。そのメモ。


1.インストーラーのダウンロード

http://www.meadowy.org/meadow/dists/

↑から【setup-ja.exe】をダウンロード

※僕は「/meadow/dists/2.10/setup-ja.ext」をダウンロードしました。

2.setup-ja.exeをダブルクリック

画面に従って、インストールする。

3..emacsの作成

 1) Meadow起動

 2) C-x C-fでHOMEに .emacsを作成して以下を記述します。

  例: c:/Meadow/.emacs

僕は、以下のように記述しました。

;;;; -*- mode: lisp-interaction; coding: iso-2022-7bit -*-

;;;
;;; Mule-UCS
;;;
(setq unicode-basic-translation-charset-order-list
      '(ascii
        latin-iso8859-1 latin-iso8859-2 latin-iso8859-3
        latin-iso8859-4 cyrillic-iso8859-5 greek-iso8859-7 
        hebrew-iso8859-8 latin-iso8859-9
        ipa thai-tis620 ethiopic indian-is13194 
        vietnamese-viscii-lower vietnamese-viscii-upper
        mule-unicode-0100-24ff
        japanese-jisx0208
        korean-ksc5601
        chinese-cns11643-1 chinese-cns11643-2 chinese-cns11643-3
        chinese-cns11643-4 chinese-cns11643-5 chinese-cns11643-6
        chinese-cns11643-7
        chinese-gb2312
        chinese-big5-1 chinese-big5-2
        chinese-sisheng
        japanese-jisx0212
        japanese-jisx0213-1 japanese-jisx0213-2
        latin-jisx0201 katakana-jisx0201
        ))
(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))))
;;; BDF
(setq bdf-use-intlfonts16 t)
(setq initial-frame-alist '((font . "intlfonts16")))

;;;
(setq default-frame-alist
      (append (list '(foreground-color . "black")
		    '(background-color . "white")
		    '(background-color . "gray")
		    '(border-color . "black")
		    '(mouse-color . "white")
		    '(cursor-color . "black")
		    '(width . 80)
		    '(height . 40)
		    '(top . 100)
		    '(left . 100))
	      default-frame-alist))

(if window-system
    (progn
      (setq font-lock-support-mode 'lazy-lock-mode)
      (global-font-lock-mode t)))

;;;
;;php-mode
;;;
(autoload 'php-mode "php-mode" "PHP mode" t)

(defcustom php-file-patterns (list "\\.php[s34]?\\'" "\\.phtml\\'" "\\.inc\\'")
  "*List of file patterns for which to automatically invoke php-mode."
  :type '(repeat (regexp :tag "Pattern"))
  :group 'php)

(let ((php-file-patterns-temp php-file-patterns))
  (while php-file-patterns-temp
    (add-to-list 'auto-mode-alist
                 (cons (car php-file-patterns-temp) 'php-mode))
    (setq php-file-patterns-temp (cdr php-file-patterns-temp))))

;;;
;;;ruby-mode
;;;
(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)))
            
;;;
;;;html-mode
;;;
(autoload '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 '(".tpl$" . html-helper-mode) auto-mode-alist))

;;; end of file

php-modeを利用する場合は、http://sourceforge.net/projects/php-mode/ から「php-mode.el」をダウンロードして、パスの通ったところに置く必要があります。ruby-modeも同様に、ruby-mode.elを利用しましょう。html-modeはhtml.elが必要です。

たとえば、C:\ruby\src\ruby-1.8.6\misc/ruby-mode.el を C:\Meadow\lisp\ フォルダへコピーします。

○参考ページ

no title

no title

Meadow/Emacs memo: プログラム関連 ― 各言語用

Mule-UCS Unofficial Site

no title

HTMLモード