.emacs.el を一部サラスてみる

ずいぶん前にさらすのが流行ってたけど、いまさら、さらすwww
SnowLeopard なんだが、未だにCabonEmacs。CocoaEmacsにいずれ移る予定だけど、Caobonもまだ更新されている事です。

ただ、最近、困る事が1点ある。入力ソースの切り替えする時に、稀にEmacsがフリーズする事....。

やっぱり、Cabonだからなのか？それとも、前に入れたGoogle日本語入力のせいなのか、、、。ことえりに戻したんだけどね。。
Cabonだとインライン入力というか補完候補が、プルダウンで出なかったから。。

あまり時間も無いし頻発するわけでは無いので、、未だ放置。。。。

(add-to-list 'load-path "~/.emacs.d/elisp")

; バーは隠す
(menu-bar-mode -1)
(tool-bar-mode -1)

; モードライン
(column-number-mode t)
(line-number-mode t)

; recentf-mode
(recentf-mode t)

; 色
(global-font-lock-mode t)
(setq-default transient-mark-mode t)
(require 'font-lock)
;(set-face-foreground 'font-lock-comment-face "red")
(if window-system (progn
  ;; 文字の色を設定します。
  (add-to-list 'default-frame-alist '(foreground-color . "snow"))
  ;; 背景色を設定します。
  (add-to-list 'default-frame-alist '(background-color . "black"))
  ;; カーソルの色を設定します。
  (add-to-list 'default-frame-alist '(cursor-color . "yellow"))
  ;; モードラインの文字の色を設定します。
  (set-face-foreground 'modeline "black")
  ;; モードラインの背景色を設定します。
  (set-face-background 'modeline "yellow")

  (set-frame-parameter nil 'fullscreen 'fullboth)
))

; utf-8! utf-8!
(prefer-coding-system 'utf-8)

; dabbrev
(setq dabbrev-case-fold-search nil)

; kill tab
(setq-default indent-level 4)
(setq-default tab-width 4)
(setq-default indent-tabs-mode t)

; no backup!
(setq make-backup-files nil)

; 一行ずつスクロール
(setq scroll-step 1)

; 対応括弧ハイライト
(show-paren-mode t)

; iswitchb & uniquify
(iswitchb-mode 1)
(require 'uniquify)
(setq uniquify-buffer-name-style 'post-forward-angle-brackets)

; 日本語の特殊記号の幅がおかしいのをなおすtweak
; http://www.pqrs.org/~tekezo/emacs/doc/wide-character/index.html
(utf-translate-cjk-set-unicode-range
 '((#x00a2 . #x00a3)
   (#x00a7 . #x00a8)
   (#x00ac . #x00ac)
   (#x00b0 . #x00b1)
   (#x00b4 . #x00b4)
   (#x00b6 . #x00b6)
   (#x00d7 . #x00d7)
   (#X00f7 . #x00f7)
   (#x0370 . #x03ff)
   (#x0400 . #x04FF)
   (#x2000 . #x206F)
   (#x2100 . #x214F)
   (#x2190 . #x21FF)
   (#x2200 . #x22FF)
   (#x2300 . #x23FF)
   (#x2500 . #x257F)
   (#x25A0 . #x25FF)
   (#x2600 . #x26FF)
   (#x2e80 . #xd7a3) (#xff00 . #xffef)))

;; *scratch* バッファのモード指定
(setq initial-major-mode 'text-mode)

そのうち、.emacs系のファイルは、gitHUBあたりにでも移そう。。。