.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)
            ))

参考リンク_

戻る_