source: projects/specs/trunk/e/emacs25/vine-default-base.el @ 11706

Revision 11706, 4.8 KB checked in by iwaim, 6 years ago (diff)

new: emacs25

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