vine-default-base.el 4.8 KB

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