読者です 読者をやめる 読者になる 読者になる

Emacs導入

Emacs エディタ

ふと、テンプレート自動挿入機能が使いたくなったので、
この機会に本格的にEmacsを使ってみようとaquamacsから、CarbonEmacs http://homepage.mac.com/zenitani/emacs-j.html へと移行。

カレントディレクトリに.emacs.el ファイルを作り、こんな感じに設定しました。

;;行数表示
(line-number-mode t)

;; Macのキーバインドを使用、optionをメタキーにする
(mac-key-mode 1)
(setq mac-option-modifier 'meta) 

;;shift+カーソルキーで範囲選択
(setq pc-select-selection-keys-only t)
(pc-selection-mode 1)

;;ビープ音を消す
(setq visible-bell t) 

;; タブキー
(setq default-tab-width 2)
(setq indent-line-function 'indent-relative-maybe)

;; フォント設定
(if (eq window-system 'mac) (require 'carbon-font))
(fixed-width-set-fontset "hirakaku_w3" 10)
(setq fixed-width-rescale nil)

;; ウィンドウ設定
(if window-system (progn
  (set-background-color "Black")
  (set-foreground-color "White")
  (set-cursor-color "Gray")
))

;;テンプレート設定
(require 'autoinsert)
(setq auto-insert-directory "~/source/insert/")
(setq auto-insert-alist
      (append '( 
                ("\\.cpp" . "template.cpp")
               ) auto-insert-alist))
(add-hook 'find-file-hooks 'auto-insert)

;;透明度
(add-to-list 'default-frame-alist '(alpha . 85))

;; ビープ音を消す
(setq visible-bell t)

;; ElScreen タブ化
(require 'elscreen)
(if window-system
    (define-key elscreen-map "\C-z" 'iconify-or-deiconify-frame)
  (define-key elscreen-map "\C-z" 'suspend-emacs))