.emacs(2013/10/09-2)

格式
Emacs Lisp
Post date
2013-10-09 18:42
Publication Period
Unlimited
  1. ;; -*- coding: utf-8 -*-
  2. (custom-set-variables
  3. ;; custom-set-variables was added by Custom.
  4. ;; If you edit it by hand, you could mess it up, so be careful.
  5. ;; Your init file should contain only one such instance.
  6. ;; If there is more than one, they won't work right.
  7. '(c-default-style (quote ((c-mode . "k&r") (c++-mode . "k&r") (java-mode . "java") (awk-mode . "awk") (other . "gnu"))))
  8. '(case-fold-search t)
  9. '(current-language-environment "English")
  10. '(js-indent-level 2)
  11. '(safe-local-variable-values (quote ((encoding . utf-8))))
  12. '(save-place t nil (saveplace))
  13. '(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)))
  14. '(tool-bar-mode nil nil (tool-bar))
  15. '(transient-mark-mode t)
  16. '(uniquify-buffer-name-style (quote forward) nil (uniquify)))
  17. (custom-set-faces
  18. ;; custom-set-faces was added by Custom.
  19. ;; If you edit it by hand, you could mess it up, so be careful.
  20. ;; Your init file should contain only one such instance.
  21. ;; If there is more than one, they won't work right.
  22. )
  23. ;; .emacs.el
  24. ;; 共通設定
  25. (prefer-coding-system 'utf-8-unix)
  26. ;; 選択範囲の色を指定
  27. (set-face-background 'region "SkyBlue")
  28. (set-face-foreground 'region "black")
  29. ;; 行間を設定
  30. (setq-default line-spacing 10)
  31. ;; 起動時のウィンドウサイズ、色などを設定
  32. (if (boundp 'window-system)
  33. (setq default-frame-alist
  34. (append (list
  35. ;; '(foreground-color . "black") ;; 文字色
  36. ;; '(background-color . "white") ;; 背景色
  37. ;; '(border-color . "white") ;; ボーダー色
  38. ;; '(mouse-color . "black") ;; マウスカーソルの色
  39. ;; '(cursor-color . "black") ; カーソルの色
  40. ;; '(cursor-type . box) ; カーソルの形状
  41. '(top . 40) ;; ウィンドウの表示位置(Y座標)
  42. '(left . 0) ;; ウィンドウの表示位置(X座標)
  43. '(width . 60) ;; ウィンドウの幅(文字数)
  44. '(height . 66) ;; ウィンドウの高さ(文字数)
  45. )
  46. default-frame-alist)))
  47. (setq initial-frame-alist default-frame-alist )
  48. (set-background-color "white")
  49. (set-foreground-color "black")
  50. ;; キーバインディング設定
  51. (global-set-key "\C-h" 'delete-backward-char)
  52. (global-set-key "\C-s" 'isearch-forward)
  53. (global-set-key "\M-s" 'search-forward)
  54. ;; *scratch* バッファを空に
  55. (setq initial-scratch-message "")
  56. ;; add ~/.emacs.d/lisp to load-path
  57. (add-to-list 'load-path "~/.emacs.d/lisp")
  58. ;; use whitespace instead of tab
  59. (setq indent-tabs-mode nil)
  60. (setq-default indent-tabs-mode nil)
  61. ;; Set the tab width
  62. (setq default-tab-width 4)
  63. (setq tab-width 4)
  64. (setq c-basic-indent 4)
  65. ;; キーワードのカラー表示を有効化
  66. ;; 「t」の部分を「nil」にするとカラー表示をOffにできる
  67. (global-font-lock-mode t)
  68. ;; テキストエンコーディングとしてUTF-8を優先的に使用する
  69. (prefer-coding-system 'utf-8-unix)
  70. ;; 起動時のメッセージを表示しない
  71. ;;「t」を「nil」にするとメッセージが表示される
  72. (setq inhibit-startup-message t)
  73. ;; 選択範囲をハイライトする
  74. ;;「t」を「nil」にするとハイライトなしに
  75. (setq-default transient-mark-mode t)
  76. ;;; 行番号・桁番号をモードラインに表示する・しない設定
  77. (line-number-mode t) ; 行番号。tなら表示、nilなら非表示
  78. (column-number-mode t) ; 桁番号。tなら表示、nilなら非表示
  79. ;; 対応するカッコを色表示する
  80. (show-paren-mode 1)
  81. ;; オートセーブOff
  82. ;; 「nil」を「t」にするとOnに
  83. (auto-save-mode nil)
  84. ;; バックアップファイルを作る
  85. ;; 「nil」を「t」にするとバックアップファイルを作らない
  86. (setq backup-inhibited nil)
  87. ;; モードラインに現在時刻を表示する
  88. (display-time)
  89. ;; カレントディレクトリをホームディレクトリに設定
  90. (cd "~/")
  91. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  92. ;; 言語別設定
  93. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  94. ;; for Perl
  95. (require 'cperl-mode)
  96. (setq auto-mode-alist
  97. (append '(("\\.pl$" . cperl-mode)
  98. ("\\.pm$" . cperl-mode)
  99. ("\\.mm$" . objc-mode)) auto-mode-alist))
  100. ;; for Python
  101. (add-hook 'python-mode-hook
  102. '(lambda()
  103. (setq indent-tabs-mode nil)
  104. (setq indent-level 4)
  105. (setq python-indent 4)
  106. (setq tab-width 4)))
  107. ;; for C
  108. (add-hook 'c-mode-hook
  109. '(lambda()
  110. (setq tab-width 4)
  111. (setq indent-tabs-mode nil)
  112. (setq c-basic-offset 4)))
  113. ;; for C#
  114. (require 'csharp-mode)
  115. (setq auto-mode-alist
  116. (append '(("\\.cs$" . csharp-mode)) auto-mode-alist))
  117. ;; for PHP
  118. (load-library "php-mode")
  119. (require 'php-mode)
  120. (add-hook 'php-mode-hook
  121. '(lambda ()
  122. (make-local-variable 'tab-width)
  123. (make-local-variable 'indent-tabs-mode)
  124. (setq tab-width 4)
  125. (setq c-basic-offset 4)
  126. (setq indent-tabs-mode t))
  127. )
  128. ;; mmm-mode
  129. ;; refer http://www.xemacs.org/Documentation/packages/html/mmm_3.html
  130. (load-library "mmm-mode")
  131. (require 'mmm-mode)
  132. (setq mmm-global-mode 'maybe)
  133. (mmm-add-mode-ext-class nil "\\.php?\\'" 'html-php)
  134. (mmm-add-classes
  135. '((html-php
  136. :submode php-mode
  137. :front "<\\?\\(php\\)?"
  138. :back "\\?>")))
  139. (mmm-add-classes
  140. '((html-css
  141. :submode css-mode
  142. :front "<style[^>]*>"
  143. :back "</style>")))
  144. (add-hook 'mmm-html-php-class-hook
  145. '(lambda ()
  146. (make-local-variable 'tab-width)
  147. (make-local-variable 'indent-tabs-mode)
  148. (setq tab-width 4)
  149. (setq c-basic-offset 4)
  150. (setq indent-tabs-mode t))
  151. )
  152. (add-to-list 'auto-mode-alist '("\\.php?\\'" . xml-mode))
  153. ;; SGML/XML
  154. (autoload 'sgml-mode "psgml" "Major mode to edit SGML files." t)
  155. (autoload 'xml-mode "psgml" "Major mode to edit XML files." t)
  156. (setq auto-mode-alist
  157. (append (list (cons "\\.html\\'" 'xml-mode))
  158. auto-mode-alist))
  159. (setq auto-mode-alist
  160. (append (list (cons "\\.shtml\\'" 'xml-mode))
  161. auto-mode-alist))
  162. (setq auto-mode-alist
  163. (append (list (cons "\\.xml\\'" 'xml-mode))
  164. auto-mode-alist))
  165. (add-hook 'nxml-mode-hook
  166. '(lambda ()
  167. (make-local-variable 'tab-width)
  168. (make-local-variable 'indent-tabs-mode)
  169. (setq tab-width 4)
  170. (setq c-basic-offset 4)
  171. (setq nxml-child-indent 4)
  172. (setq indent-tabs-mode t))
  173. )
  174. ;; Emacsバージョン別の設定
  175. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  176. ;; for NTEmacs 23
  177. (if (string-match "Emacs 23" (emacs-version))
  178. (progn
  179. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  180. ;; イタリックやボールドフォントを標準フォントから作成する
  181. (setq w32-enable-synthesized-fonts t)
  182. ;; 使用するフォントを指定
  183. ;; 「meiryo」という名前で新たなフォントセットを定義
  184. ;; 英字フォントとしてメイリオ、16ポイントを使用
  185. (create-fontset-from-ascii-font
  186. "-outline-メイリオ-normal-r-normal-normal-16-*-*-*-*-*-iso8859-1"
  187. nil "meiryo")
  188. ;; myfont-meiryoの日本語フォントとしてメイリオを使用
  189. (set-fontset-font "fontset-meiryo"
  190. 'japanese-jisx0208
  191. '("メイリオ" . "jisx0208-sjis"))
  192. ;; myfont-meiryoのカタカナフォントとしてメイリオを使用
  193. (set-fontset-font "fontset-meiryo"
  194. 'katakana-jisx0201
  195. '("メイリオ" . "jisx0201-katakana"))
  196. ;; 「msgochic」という名前で新たなフォントセットを定義
  197. ;; 英字フォントとしてMS ゴシック、16ポイントを使用
  198. (create-fontset-from-ascii-font
  199. "-outline-MS ゴシック-normal-r-normal-normal-16-*-*-*-*-*-iso8859-1"
  200. nil "msgochic")
  201. ;; myfont-msgochicの日本語フォントとしてメイリオを使用
  202. (set-fontset-font "fontset-msgochic"
  203. 'japanese-jisx0208
  204. '("MS ゴシック" . "jisx0208-sjis"))
  205. ;; myfont-msgochicのカタカナフォントとしてメイリオを使用
  206. (set-fontset-font "fontset-msgochic"
  207. 'katakana-jisx0201
  208. '("MS ゴシック" . "jisx0201-katakana"))
  209. ;; 定義したフォントセットを登録
  210. (add-to-list 'default-frame-alist
  211. '(font . "fontset-msgochic"))
  212. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  213. ;;; NTEmacs 23の設定ここまで
  214. ) t)
  215. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
下載 Printable view

網址

Embed with JavaScript

Embed with iframe

Raw text