vine-default-base.el 4.9 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158
  1. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  2. ;; -*- coding: utf-8-unix -*-
  3. ;; FSF Emacs 23 用 Vine Linux 基本設定
  4. ;; Munehiro Yamamoto <munepi@cg8.so-net.ne.jp>
  5. ;; $Id: vine-default-base.el,v 1.4 2010/01/04 11:21:29 munepi Exp $
  6. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  7. ;; ;;; 言語環境の指定
  8. ;; (set-language-environment "Japanese")
  9. ;;; emacsclient サーバを起動
  10. ;(server-start)
  11. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  12. ;;; メニューバーを消す
  13. ;(menu-bar-mode 0)
  14. ;;; emacs -nw で起動した時にメニューバーを消す
  15. (unless window-system (menu-bar-mode 0))
  16. ;;; 画面最下行で[↓]を押したときのスクロール数
  17. ;(setq scroll-step 1)
  18. ;;; ツールバーを消す
  19. (tool-bar-mode 0)
  20. ;;; cursor の blink を止める
  21. (blink-cursor-mode 0)
  22. ;;; active でない window の空 cursor を出さない
  23. (setq cursor-in-non-selected-windows 0)
  24. ;;; フォントのスケールをしない
  25. (setq scalable-fonts-allowed 0)
  26. ;;; image.el における JPEG の判定基準を緩める
  27. ;(eval-after-load "image"
  28. ; '(setq image-type-regexps
  29. ; (cons (cons "^\377\330" 'jpeg) image-type-regexps)))
  30. ;;; 表示の行間を拡げる
  31. (setq line-spacing 2)
  32. ;;; タブ幅
  33. ;(setq tab-width 4)
  34. ;;; [Home] Key と [End] Key を従来の動作に戻す
  35. (define-key global-map [home] 'beginning-of-buffer)
  36. (define-key global-map [end] 'end-of-buffer)
  37. ;;; C-h と Del の入れ替え
  38. ;;; Help が Shift + Ctrl + h および Del に割当てられ、
  39. ;;; 前一文字削除が Ctrl + h に割当てられます
  40. ;(load-library "term/keyswap")
  41. ;(if (eq window-system 'x)
  42. ; (progn
  43. ; (define-key function-key-map [delete] [8])
  44. ; (put 'delete 'ascii-character 8)))
  45. ;;; Ctrl-H を前1文字削除に変更
  46. (define-key global-map "" 'backward-delete-char)
  47. ;; ;;; Ctrl-z で undo
  48. ;; (global-set-key "\C-z" 'undo)
  49. ;; ;;; \M-p, \M-n でパラグラフ単位で移動
  50. ;; (global-set-key "\M-p" 'backward-paragraph)
  51. ;; (global-set-key "\M-n" 'forward-paragraph)
  52. ;;; Emacs23 からは C-n や C-p での移動が物理行単位になっていたので、
  53. ;;; 以前と同じ論理行単位の移動へ変更
  54. (setq line-move-visual 0)
  55. ;;; スクロールバーを右側に表示する
  56. (set-scroll-bar-mode 'right)
  57. ;;; gzファイルも編集できるように
  58. (auto-compression-mode 1)
  59. ;;; visible-bell
  60. (setq visible-bell 1)
  61. ;;; 行番号を表示する
  62. (line-number-mode 1)
  63. ;; ;;; diff -up
  64. ;; (setq diff-switches "-up")
  65. ;;; Dired の設定
  66. ;; Dired のリストフォーマット設定 (ls へのオプション)
  67. ;; (setq dired-listing-switches "-aoFLt")
  68. ;; ls の出力を英語にする(ls を LANG=C で実行)
  69. (add-hook 'dired-mode-hook '(lambda ()(setenv "LANG" "C")))
  70. ;;; diredでディレクトリを先に表示
  71. (setq ls-lisp-dirs-first 1)
  72. ;; ;;; 一行が 80 字以上になった時には自動改行する
  73. ;; (setq fill-column 80)
  74. ;; (setq text-mode-hook 'turn-on-auto-fill)
  75. ;; (setq default-major-mode 'text-mode)
  76. ;; ;;; ステータスラインに時間を表示する
  77. ;; (if (or (and (>= emacs-major-version 20)
  78. ;; (not (equal (getenv "LANG") "ja_JP.UTF-8")))
  79. ;; (>= emacs-major-version 22))
  80. ;; (progn
  81. ;; (setq dayname-j-alist
  82. ;; '(("Sun" . "日") ("Mon" . "月") ("Tue" . "火") ("Wed" . "水")
  83. ;; ("Thu" . "木") ("Fri" . "金") ("Sat" . "土")))
  84. ;; (setq display-time-string-forms
  85. ;; '((format "%s年%s月%s日(%s) %s:%s %s"
  86. ;; year month day
  87. ;; (cdr (assoc dayname dayname-j-alist))
  88. ;; 24-hours minutes
  89. ;; load)))
  90. ;; ))
  91. ;; (display-time)
  92. ;;; 印刷設定
  93. ;(setq-default lpr-switches '("-Pepson"))
  94. (setq-default lpr-switches '("-2P"))
  95. (setq-default lpr-command "mpage")
  96. ;;; ps-print
  97. (setq ps-multibyte-buffer 'non-latin-printer)
  98. (if (>= emacs-major-version 21)
  99. (progn
  100. (require 'ps-mule)
  101. (defalias 'ps-mule-header-string-charsets 'ignore)))
  102. ;;; バッファの最後でnewlineで新規行を追加するのを禁止する
  103. (setq next-line-add-newlines 0)
  104. ;;; mark 領域に色付け
  105. ;(setq transient-mark-mode 1)
  106. ;; ;;; 最終更新日の自動挿入
  107. ;; ;;; ファイルの先頭から 8 行以内に Time-stamp: <> または
  108. ;; ;;; Time-stamp: " " と書いてあれば、セーブ時に自動的に日付が挿入されます
  109. ;; (if (not (memq 'time-stamp write-file-hooks))
  110. ;; (setq write-file-hooks
  111. ;; (cons 'time-stamp write-file-hooks)))
  112. ;;; shell-mode
  113. ;; shell の出力するエスケープシーケンスによる色付き文字を
  114. ;; 正しく表示する
  115. (autoload 'ansi-color-for-comint-mode-on "ansi-color" nil t)
  116. (add-hook 'shell-mode-hook 'ansi-color-for-comint-mode-on)
  117. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  118. (provide 'vine-default-base)
  119. ;; Local Variables:
  120. ;; mode: emacs-lisp
  121. ;; End: