.emacs （dotemacs）

Emacs患者のはやさん(id:hayamiz)がいじってくれた「.emacs」を公開しますね.適宜へんこういたしまする。ところではじめて.emacsをいじろうとおもったとき、「ファイルを「~/」におかなくてならない」ということを調べるのに3時間ぐらいかかりました。誰かに聞けばいいのに。

;; path（パスを通します。この下に追加した*.elを置きます）
(add-to-list 'load-path "~/emacs-el")

;; settings for utf-8（日本語を使えるようにします）
(set-language-environment 'Japanese)
(set-terminal-coding-system 'utf-8)
(setq file-name-coding-system 'utf-8)
(set-clipboard-coding-system 'utf-8)
(setq default-buffer-file-coding-system 'utf-8)
(prefer-coding-system 'utf-8)

;;; SKKをつかえるようにします。
(require 'skk) (setq skk-large-jisyo "/usr/share/skk/SKK-JISYO.L")

;;; font（デフォルトのフォントを指定します。）
(progn
  (set-face-font 'defaulthttp://hayamin.com/wiliki.cgi?twittering-mode
		 "-shinonome-gothic-medium-r-normal--14-*-*-*-*-*-*-*")
  (set-face-font 'bold
		 "-shinonome-gothic-bold-r-normal--14-*-*-*-*-*-*-*")
  (set-face-font 'italic
		 "-shinonome-gothic-medium-i-normal--14-*-*-*-*-*-*-*")
  (set-face-font 'bold-italic
		 "-shinonome-gothic-bold-i-normal--14-*-*-*-*-*-*-*"))

;;; font coloring
(global-font-lock-mode t)

;; color-theme.el(~/emacs-elに置いてあるテーマです。本体についてはgoogle先生のほうがよくご存知のはずです。聞いてください。)
(require 'color-theme)
(color-theme-lisper-black)

;; auto-insert-mode
(auto-insert-mode t)
(setq auto-insert-query nil)

;; NO scroll-bar
(if (fboundp 'scroll-bar-mode) (scroll-bar-mode -1))

;; NO tool-bar
; (if (fboundp 'tool-bar-mode) (tool-bar-mode -1))

;; NO menu-bar
(if (fboundp 'menu-bar-mode) (menu-bar-mode -1))

;;; mouse-wheel ON（マウスのホイールを使えるようにします）
(mouse-wheel-mode t)
(setq mouse-wheel-follow-mouse t)

;; right-side > return（右端で折り返します。）
(setq truncate-lines nil)
(setq truncate-partial-width-windows nil)

;; Backspace > del region （バックスペースで消せるように。）
(defadvice backward-delete-char-untabify
  (around ys:backward-delete-region activate)
  (if (and transient-mark-mode mark-active)
      (delete-region (region-beginning) (region-end))
    ad-do-it))

;; c-mode-hock（C言語のインデントの設定）
(defun my-c-mode-hook ()
  (c-set-style "stroustrup")
  (setq indent-tabs-mode nil)
  (setq c-basic-offset 4)
  (c-toggle-auto-state -1)
  (define-key c-mode-base-map "\C-m" 'newline-and-indent))
(add-hook 'c-mode-hook 'my-c-mode-hook)

;; c++-mode-hock（C＋＋のインデントの設定）
(defun my-c++-mode-hook ()
  (c-set-style "stroustrup")
  (setq indent-tabs-mode nil)
  (setq c-basic-offset 4)
  (c-toggle-auto-state -1)
  (define-key c-mode-base-map "\C-m" 'newline-and-indent))
(add-hook 'c++-mode-hook 'my-c++-mode-hook)


;; python-mode-hock（Pythonの設定）
(add-hook 'python-mode-hook
          '(lambda()
             (setq indent-tabs-mode nil)))

;;ruby-mode
(autoload 'ruby-mode "ruby-mode"
  "Mode for editing ruby source files" t)
(setq auto-mode-alist
      (append '(("\\.rb$" . ruby-mode)) auto-mode-alist))
(setq interpreter-mode-alist (append '(("ruby" . ruby-mode))
                                     interpreter-mode-alist))
(autoload 'run-ruby "inf-ruby"
  "Run an inferior Ruby process")
(autoload 'inf-ruby-keys "inf-ruby"
  "Set local key defs for inf-ruby in ruby-mode")
(add-hook 'ruby-mode-hook
          '(lambda ()
            (inf-ruby-keys)))

;; *.texで自動的にYaTeXモード
(setq auto-mode-alist
      (cons (cons "\\.tex$" 'yatex-mode) auto-mode-alist))
(autoload 'yatex-mode "yatex" "Yet Another LaTeX mode" t)

;;; elscleen.el(タブを使えるようにするものです。)
(load "elscreen")

;;; Twittering mode
(require 'twittering-mode)
(setq twittering-username "username")
(setq twittering-password "passwd")
(twittering-icon-mode t)

;;; window size/position(起動時のウィンドウ位置とサイズの指定)
(set-frame-position (selected-frame) 7 2)
(set-frame-width (selected-frame) 138)
(set-frame-height (selected-frame) 45)