粘貼箱: .emacs(2013/10/09)

格式

Emacs Lisp

Post date

2013-10-09 18:34

Publication Period

Unlimited

 ;; -*- coding: utf-8 -*-
 
 (custom-set-variables
   ;; custom-set-variables was added by Custom.
   ;; If you edit it by hand, you could mess it up, so be careful.
   ;; Your init file should contain only one such instance.
   ;; If there is more than one, they won't work right.
  '(c-default-style (quote ((c-mode . "k&r") (c++-mode . "k&r") (java-mode . "java") (awk-mode . "awk") (other . "gnu"))))
  '(case-fold-search t)
  '(current-language-environment "English")
  '(js-indent-level 2)
  '(safe-local-variable-values (quote ((encoding . utf-8))))
  '(save-place t nil (saveplace))
  '(tab-stop-list (quote (4 8 12 16 20 24 28 32 36 40 44 48 52 56 60 64 68 72 76 80 84 88 92 96 100 104 108 112 116 120)))
  '(tool-bar-mode nil nil (tool-bar))
  '(transient-mark-mode t)
  '(uniquify-buffer-name-style (quote forward) nil (uniquify)))
 (custom-set-faces
   ;; custom-set-faces was added by Custom.
   ;; If you edit it by hand, you could mess it up, so be careful.
   ;; Your init file should contain only one such instance.
   ;; If there is more than one, they won't work right.
  )
 
 ;; .emacs.el
 ;; 共通設定
 (prefer-coding-system 'utf-8-unix)
 
 ;; 選択範囲の色を指定
 (set-face-background 'region "SkyBlue")
 (set-face-foreground 'region "black")
 
 ;; 行間を設定
 (setq-default line-spacing 10)
 
 ;; 起動時のウィンドウサイズ、色などを設定
 (if (boundp 'window-system)
         (setq default-frame-alist
                   (append (list
 ;                                       '(foreground-color . "black")  ; 文字色
 ;                                       '(background-color . "white")  ; 背景色
 ;                                       '(border-color     . "white")  ; ボーダー色
 ;                                       '(mouse-color      . "black")  ; マウスカーソルの色
 ;                                       '(cursor-color     . "black")  ; カーソルの色
 ;                                       '(cursor-type      . box)          ; カーソルの形状
                                    '(top . 40) ; ウィンドウの表示位置（Y座標）
                                    '(left . 0) ; ウィンドウの表示位置（X座標）
                                    '(width . 60) ; ウィンドウの幅（文字数）
                                    '(height . 66) ; ウィンドウの高さ（文字数）
                                    )
                                   default-frame-alist)))
 (setq initial-frame-alist default-frame-alist )
 (set-background-color "white")
 (set-foreground-color "black")
 
 ;; キーバインディング設定
 (global-set-key "\C-h" 'delete-backward-char)
 (global-set-key "\C-s" 'isearch-forward)
 (global-set-key "\M-s" 'search-forward)
 
 ;; *scratch* バッファを空に
 (setq initial-scratch-message "")
 
 ;; add ~/.emacs.d/lisp to load-path
 (add-to-list 'load-path "~/.emacs.d/lisp")
 
 ;; use whitespace instead of tab
 (setq indent-tabs-mode nil)
 (setq-default indent-tabs-mode nil)
 
 ;; Set the tab width
 (setq default-tab-width 4)
 (setq tab-width 4)
 (setq c-basic-indent 4)
 
 
 ;; キーワードのカラー表示を有効化
 ;; 「t」の部分を「nil」にするとカラー表示をOffにできる
 (global-font-lock-mode t)
 
 ;; テキストエンコーディングとしてUTF-8を優先的に使用する
 (prefer-coding-system 'utf-8-unix)
 
 ;; 起動時のメッセージを表示しない
 ;;「t」を「nil」にするとメッセージが表示される
 (setq inhibit-startup-message t)
 
 ;; 選択範囲をハイライトする
 ;;「t」を「nil」にするとハイライトなしに
 (setq-default transient-mark-mode t)
 
 ;;; 行番号・桁番号をモードラインに表示する・しない設定
 (line-number-mode t) ; 行番号。tなら表示、nilなら非表示
 (column-number-mode t) ; 桁番号。tなら表示、nilなら非表示
 
 ;; 対応するカッコを色表示する
 (show-paren-mode 1)
 
 ;; オートセーブOff
 ;; 「nil」を「t」にするとOnに
 (auto-save-mode nil)
 
 ;; バックアップファイルを作る
 ;; 「nil」を「t」にするとバックアップファイルを作らない
 (setq backup-inhibited nil)
 
 ;; モードラインに現在時刻を表示する
 (display-time)
 
 ;; カレントディレクトリをホームディレクトリに設定
 (cd "~/")
 
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; 言語別設定
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
 ;; for Perl
 (require 'cperl-mode)
 (setq auto-mode-alist
           (append '(("\\.pl$" . cperl-mode)
                 ("\\.pm$" . cperl-mode)
                 ("\\.mm$" . objc-mode)) auto-mode-alist))
 
 ;; for Python
 (add-hook 'python-mode-hook
           '(lambda()
                  (setq indent-tabs-mode nil)
                  (setq indent-level 4)
                  (setq python-indent 4)
                  (setq tab-width 4)))
 
 ;; for C
 (add-hook 'c-mode-hook
           '(lambda()
                  (setq tab-width 4)
                  (setq indent-tabs-mode nil)
                  (setq c-basic-offset 4)))
 
 ;; for C#
 (require 'csharp-mode)
 (setq auto-mode-alist
           (append '(("\\.cs$" . csharp-mode)) auto-mode-alist))
 
 ;; for PHP
 (load-library "php-mode")
 (require 'php-mode)
 (add-hook 'php-mode-hook 
           '(lambda () 
                          (make-local-variable 'tab-width)
                          (make-local-variable 'indent-tabs-mode)
              (setq tab-width 4) 
              (setq c-basic-offset 4)
              (setq indent-tabs-mode t)) 
           )
 
 ;; mmm-mode
 ;; refer http://www.xemacs.org/Documentation/packages/html/mmm_3.html
 (load-library "mmm-mode")
 (require 'mmm-mode)
 (setq mmm-global-mode 'maybe)
 (mmm-add-mode-ext-class nil "\\.php?\\'" 'html-php)
 (mmm-add-classes
  '((html-php
     :submode php-mode
     :front "<\\?\\(php\\)?"
     :back "\\?>")))
 (mmm-add-classes
  '((html-css
     :submode css-mode
     :front "<style[^>]*>"
     :back "</style>")))
 (add-hook 'mmm-html-php-class-hook 
           '(lambda () 
                          (make-local-variable 'tab-width)
                          (make-local-variable 'indent-tabs-mode)
              (setq tab-width 4) 
              (setq c-basic-offset 4)
              (setq indent-tabs-mode t)) 
           )
 
 (add-to-list 'auto-mode-alist '("\\.php?\\'" . xml-mode))
 
 ;; SGML/XML
 (autoload 'sgml-mode "psgml" "Major mode to edit SGML files." t)
 (autoload 'xml-mode "psgml" "Major mode to edit XML files." t)
 (setq auto-mode-alist
          (append (list (cons "\\.html\\'" 'xml-mode))
                           auto-mode-alist))
 (setq auto-mode-alist
          (append (list (cons "\\.shtml\\'" 'xml-mode))
                           auto-mode-alist))
 (setq auto-mode-alist
           (append (list (cons "\\.xml\\'" 'xml-mode))
                           auto-mode-alist))
 (add-hook 'nxml-mode-hook 
           '(lambda () 
                          (make-local-variable 'tab-width)
                          (make-local-variable 'indent-tabs-mode)
              (setq tab-width 4) 
              (setq c-basic-offset 4)
              (setq nxml-child-indent 4)
              (setq indent-tabs-mode t)) 
           )
 
 ; Emacsバージョン別の設定
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ; for NTEmacs 23
 (if (string-match "Emacs 23" (emacs-version))
         (progn
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
 ; イタリックやボールドフォントを標準フォントから作成する
 (setq w32-enable-synthesized-fonts t)
 
 ; 使用するフォントを指定
 ; 「meiryo」という名前で新たなフォントセットを定義
 ; 英字フォントとしてメイリオ、16ポイントを使用
 (create-fontset-from-ascii-font
  "-outline-メイリオ-normal-r-normal-normal-16-*-*-*-*-*-iso8859-1"
  nil "meiryo")
 
 ; myfont-meiryoの日本語フォントとしてメイリオを使用
 (set-fontset-font "fontset-meiryo"
                                   'japanese-jisx0208
                                   '("メイリオ" . "jisx0208-sjis"))
 
 ; myfont-meiryoのカタカナフォントとしてメイリオを使用
 (set-fontset-font "fontset-meiryo"
                                   'katakana-jisx0201
                                   '("メイリオ" . "jisx0201-katakana"))
 
 ; 「msgochic」という名前で新たなフォントセットを定義
 ; 英字フォントとしてＭＳ ゴシック、16ポイントを使用
 (create-fontset-from-ascii-font
  "-outline-ＭＳ ゴシック-normal-r-normal-normal-16-*-*-*-*-*-iso8859-1"
  nil "msgochic")
 
 ; myfont-msgochicの日本語フォントとしてメイリオを使用
 (set-fontset-font "fontset-msgochic"
                                   'japanese-jisx0208
                                   '("ＭＳ ゴシック" . "jisx0208-sjis"))
 
 ; myfont-msgochicのカタカナフォントとしてメイリオを使用
 (set-fontset-font "fontset-msgochic"
                                   'katakana-jisx0201
                                   '("ＭＳ ゴシック" . "jisx0201-katakana"))
 
 ; 定義したフォントセットを登録
 (add-to-list 'default-frame-alist
                          '(font . "fontset-msgochic"))
 
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;; NTEmacs 23の設定ここまで
           ) t)
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;