.emacs (自分用)

gistfile1.el

;; load-path の設定
(setq load-path (append '("~/.emacs.d/elisp/"
			  "/usr/share/emacs23/site-lisp/ibus/"
			  "~/.emacs.d/elisp/twittering-mode/")
			  load-path))
;; ============================================
;; 見た目の設定
;; ============================================

;; ツールバーを表示しない
(tool-bar-mode -1)

;; メニューバーを表示しない
(menu-bar-mode -1)

;; *GNU Emacs* バッファを表示しない
(setq inhibit-startup-screen t)

;; 対応する括弧を光らせる
(show-paren-mode 1)

;; 現在行を目立たせる
(global-hl-line-mode)

;; 行番号を表示させる
(global-linum-mode t)

;; フォントを Ricty 12 に設定する
(set-frame-font "ricty-12")

;; ウィンドウタイトルの設定
(setq frame-title-format "%b")

;; ============================================
;; 雑多な設定
;; ============================================

;; 言語を日本語にする
(set-language-environment 'Japanese)

;; 極力 UTF-8 とする
(prefer-coding-system 'utf-8)

;; バックアップファイルを生成しない
(setq backup-inhibited t)

;; 終了時にオートセーブファイルを削除
(setq delete-auto-save-files t)

;; 外部アプリケーションとクリップボードを連携する
(global-set-key "\M-w" 'clipboard-kill-ring-save)
(global-set-key "\C-w" 'clipboard-kill-region)

;; デフォルトブラウザの設定
(setq browse-url-browser-function 'browse-url-generic
      browse-url-generic-program "chromium-browser")

;; ============================================
;; ibus-mode の設定
;; ============================================

(require 'ibus)
;; .emacs の読み込み後に自動的に ibus を有効にする
(add-hook 'after-init-hook 'ibus-mode-on)
;; Mark-set コマンドに C-SPC を使用する
(ibus-define-common-key ?\C-\s nil)
;; Undo コマンドに C-/ を使用する
(ibus-define-common-key ?\C-/ nil)
;; ibus の状態によってカーソルの色を変える
(setq ibus-cursor-color '("limegreen" "white" "blue"))
(global-set-key "\C-\\" 'ibus-toggle)

;; ============================================
;; install-elisp の設定
;; ============================================

;; install-elisp を読み込む
(require 'install-elisp)

;; Elisp ファイルをインストールする場所を指定
(setq install-elisp-repository-directory "~/.emacs/elisp/")

;; ============================================
;; twittering-mode の設定
;; ============================================

;; twittering-mode を読み込む
(require 'twittering-mode)

;; OAuth 認証を使う
(setq twittering-use-master-password t)

;; アイコンを表示する
(setq twittering-icon-mode t)

;; 自動更新のインターバルを設定する
(setq twittering-timer-interval 120)

;; 起動時に自動で開くtimelineの設定
(setq twittering-initial-timeline-spec-string
      '(":replies"
	":home"))