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