.emacs設定（Emacs 22.1）
ちょい技_
emacsで全角スペース入力_
Shift + z スペース
.emacsメモ（Emacs 22）_
.emacsの編集を反映させる方法_
.emacsを編集したあとは必ず M-x eval-bufferをemacs上で実行し、変更結果を反映させてください。うまく反映できない場合には、emacsを立ち上げ直してください。
migemo（ローマ字で日本語を検索）_
;; migemo の設定 (load "migemo.elc") ;; キャッシュを有効に (setq migemo-use-pattern-alist t) (setq migemo-use-frequent-pattern-alist t)
anthy + eggで漢字変換_
(set-input-method "japanese-egg-anthy") (toggle-input-method nil)
lookup.elで辞書_
(autoload 'lookup "lookup" nil t)
(autoload 'lookup-region "lookup" nil t)
(autoload 'lookup-pattern "lookup" nil t)
(define-key ctl-x-map "l" 'lookup)
(define-key ctl-x-map "y" 'lookup-region)
(define-key ctl-x-map "\C-y" 'lookup-pattern)
(setq lookup-search-agents
'(
(ndeb "/home/Dict/ldoce4")
(ndeb "/home/Dict/cobuild")
(ndeb "/home/Dict/kojien")
)
)
(setq lookup-default-dictionary-options
'((:stemmer . stem-english)))
(setq lookup-use-kakasi nil)
eggを使っている場合に句読点を「，」と「．」にする_
.emacsに以下を追加
(setq its-hira-period "．") (setq its-hira-comma "，")
emacs からのプリントアウトの設定_
;; emacs からのプリントアウトの設定 ;; コマンドは M-x ps-print-buffer (setq ps-multibyte-buffer 'non-latin-printer) (require 'ps-mule) (defalias 'ps-mule-header-string-charsets 'ignore)
ファイルの先頭が #! で始まるファイルに実行権限ををつける_
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;; ファイルの先頭が #! で始まるファイルに実行権限を
;; をつける。
;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(add-hook 'after-save-hook
'(lambda ()
(save-restriction
(widen)
(if (string= "#!" (buffer-substring 1 (min 3 (point-max))))
(let ((name (buffer-file-name)))
(or (char-equal ?. (string-to-char (file-name-nondirectory name)))
(let ((mode (file-modes name)))
(set-file-modes name (logior mode (logand (/ mode 4) 73)))
(message (concat "Wrote " name " (+x)"))))
)))))
背景、文字、カーソルの色_
;; color (set-background-color "black") (set-foreground-color "white") (set-cursor-color "white")
Ruby-mode_
;; Ruby-mode
(autoload 'ruby-mode "ruby-mode" "Mode for editing ruby source files")
(setq auto-mode-alist
(append '(("\\.rb$" . ruby-mode)) auto-mode-alist))
(setq interpreter-mode-alist (append '(("^#!.*ruby" . ruby-mode)) interpreter-mode-alist))
(add-hook 'ruby-mode-hook
'(lambda ()
(inf-ruby-keys)
(setq tab-width 2)))
(setq ruby-indent-level 2)
;; end Ruby-mode setting
全角スペースなどを可視化_
;;(defface my-face-r-1 '((t (:background "gray15"))) nil)
(defface my-face-b-1 '((t (:background "gray"))) nil) ; color of zenkaku-space
(defface my-face-b-2 '((t (:background "gray26"))) nil) ; color of tab
(defface my-face-u-1 '((t (:foreground "SteelBlue" :underline t))) nil)
;;(defvar my-face-r-1 'my-face-r-1)
(defvar my-face-b-1 'my-face-b-1)
(defvar my-face-b-2 'my-face-b-2)
(defvar my-face-u-1 'my-face-u-1)
(defadvice font-lock-mode (before my-font-lock-mode ())
(font-lock-add-keywords
major-mode
'(("\t" 0 my-face-b-2 append)
(" " 0 my-face-b-1 append)
("[ \t]+$" 0 my-face-u-1 append)
;;("[\r]*\n" 0 my-face-r-1 append)
)))
(ad-enable-advice 'font-lock-mode 'before 'my-font-lock-mode)
(ad-activate 'font-lock-mode)
;; settings for text file
(add-hook 'text-mode-hook
'(lambda ()
(progn
(font-lock-mode t)
(font-lock-fontify-buffer))))
cperl-mode + perlplus.el_
Meadow/Emacs memo：Perl 関連の Elisp / 機能に従い、cperl-modeを設定する。
次に、perlplus.elをダウンロードする。
% cd /tmp % wget http://www.gentei.org/~yuuji/software/perlplus.el % sudo cp ./perlplus.el /usr/share/emacs/site-lisp
そして、.emacsのcperl-modeの設定部分を以下のようにする。（interpreter-mode-alistが上のページと異なる。Meadow/Emacs memo：ファイル名とモードの関連付けを参照）
;; cperl-mode
(setq auto-mode-alist
(append '(("\\.\\([pP][Llm]\\|al\\)$" . cperl-mode)) auto-mode-alist ))
(setq interpreter-mode-alist
(append '(("perl" . cperl-mode))
interpreter-mode-alist))
(add-hook 'cperl-mode-hook
(lambda ()
(set-face-bold-p 'cperl-array-face nil)
(set-face-background 'cperl-array-face "black")
(set-face-bold-p 'cperl-hash-face nil)
(set-face-italic-p 'cperl-hash-face nil)
(set-face-background 'cperl-hash-face "black")
(require 'perlplus)
(local-set-key "\M-\t" 'perlplus-complete-symbol)
(perlplus-setup)
))