2009/09/07

.emacsのオレオレ設定(Meadow)

WS0805

 

スプラッシュの非表示(起動時のメッセージ)

(setq inhibit-startup-message t)
これ↓を消す
WS0806

透明化

(setq default-frame-alist
      (append (list
               '(alpha . (85 75))) default-frame-alist))

メニューバーの非表示

(menu-bar-mode -1)

ツールバーの非表示

(tool-bar-mode -1)

タイトルバーに開いているファイルの名前を表示


(setq frame-title-format "%b (%f)")

テーマ(配色)

[emacs]テーマ(色調)を変える

日時を表示(ラインバー)

WS0807
(setq display-time-string-forms
  '((substring year -2) "/" month "/" day " " dayname " " 24-hours ":" minutes))
(display-time)

起動時のウィンドウサイズ指定

マイナスを指定するとTop -> Bottom, Left -> Right。
(setq initial-frame-alist
      (append
       '((top . -15)
         (left . -15)
         (width . 45)
         (height . 35)) initial-frame-alist))

マウスカーソルの非表示

(setq w32-hide-mouse-on-key t)
(setq w32-hide-mouse-timeout 5000)

キャレットの位置(座標)の表示

WS0808
(column-number-mode t)
(line-number-mode t)

スクロール行数を1行にする

(setq scroll-step 1)

行番号を表示

wb-line-number
(require 'wb-line-number)
(setq truncate-partial-width-windows nil)
(set-scroll-bar-mode nil)
(setq wb-line-number-scroll-bar t)
(wb-line-number-toggle)
(global-set-key [f11] 'wb-line-number-toggle)

リージョン(選択範囲)の削除

region選択状態でC-dで削除できるように。
(delete-selection-mode 1)

カレントバッファを切り替えるC-oの逆の動作をC-pに割り当てる

(global-set-key "\C-xp" (lambda () (interactive) (other-window -1)))

UndoをC-zに割り当てる

(define-key global-map "\C-z" 'undo)

リージョン(選択範囲)を適切な位置までインデントする

(define-key global-map "\C-ci" 'indent-region)

C-hにBackspaceと同じ動作を割り当てる(前の一文字を削除)

(keyboard-translate ?\C-h ?\C-?)

C-kの切り取り範囲をキャレットの位置以降ではなく行全体にする

;; C-k kill line + next-line-code
(setq kill-whole-line t)
(defun kill-whole-line (&optional numlines)
  "One line is deleted wherever there is a cursor."
  (interactive "p")
  (setq pos (current-column))
  (beginning-of-line)
  (kill-line numlines)
  (move-to-column pos))
(define-key esc-map "k" 'kill-whole-line)

C-c;でリージョン(選択範囲)をコメントアウトする

(define-key global-map "\C-c;" 'comment-region)

C-c:でリージョン(選択範囲)のコメントアウトを解除する

(define-key global-map "\C-c:" 'uncomment-region)

C-oで日本語入力を切り替える(半角/全角ボタンを割り当てる)

(define-key global-map "\C-o" 'toggle-input-method)

カレントディレクトリを指定する

(cd "c:\\")

tab幅を指定する

(setq-default tab-width 4)
(setq tab-stop-list
  '(2 4 8 10 12 14 16 18 20 22 24 26 28 30 32 34 36 38 40 42 44 46 48 50 52 54 56 58 60))

tab押下時にスペースに置き換える

(setq-default indent-tabs-mode nil)
(setq indent-line-function 'indent-relative-maybe)

バックアップファイルを生成しない

(setq backup-inhibited t)

Shellを指定する

(setq explicit-shell-file-name "CMD.EXE")
(setq shell-file-name "CMD.EXE")
(setq shell-command-switch "\\/c")

Shellの文字エンコードを変更する

(add-hook 'shell-mode-hook
(lambda ()
  (set-buffer-process-coding-system 'sjis-unix 'sjis-unix )))

Telnetの文字エンコードを変更する

(add-hook telnet-mode-hook
(lambda ()
  (set-buffer-process-coding-system 'sjis-unix 'sjis-unix )))

自動保存ファイルを生成しない

(setq delete-auto-save-files t)


その他


使用頻度が高いのはgauche、js2-mode、js-console。

入門 GNU Emacs 第3版リスト遊び―Emacsで学ぶLispの世界 (ASCII SOFTWARE SCIENCE Language)入門Meadow/Emacs

0 件のコメント:

コメントを投稿