author | Oleksandr Gavenko <gavenkoa@gmail.com> |
Mon, 28 Dec 2009 19:03:58 +0200 | |
changeset 226 | 14a0e2402d66 |
parent 225 | 6935ff56bf31 |
child 227 | cc94c73ddf20 |
permissions | -rw-r--r-- |
0 | 1 |
;; -*- mode: lisp; coding: cp1251 -*- |
6 | 2 |
;; |
42
04fd7747bc49
Update copyright notice.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
40
diff
changeset
|
3 |
;; Copyright (C) 2008 by Oleksandr Gavenko <gavenkoa@gmail.com> |
6 | 4 |
;; |
121 | 5 |
;; This file formed from parts and ideas from many sites/docs and |
110
6b6e3f8cb371
Set copyright notice.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
109
diff
changeset
|
6 |
;; placed in public domain. |
6b6e3f8cb371
Set copyright notice.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
109
diff
changeset
|
7 |
;; |
83
d2eaf2ed6d1c
Added basic jabber customization.
gavenkoa@gavenko.bifit.int
parents:
82
diff
changeset
|
8 |
;; .emacs file for GNU Emacs. |
d2eaf2ed6d1c
Added basic jabber customization.
gavenkoa@gavenko.bifit.int
parents:
82
diff
changeset
|
9 |
;; |
111
fcea9d3b79e1
Rename -my{-pre/-post} to {-pre/-post}.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
109
diff
changeset
|
10 |
;; ~/.emacs load this file after ~/.emacs-pre, but before ~/.emacs-post. |
0 | 11 |
|
12 |
;; ====================================================================== |
|
7
8eae4300e86f
Перебил сочетание клавиш C-x C-d для вызова dired, вместо dir-list.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
6
diff
changeset
|
13 |
;; Debugging. |
0 | 14 |
|
175
a505ab71060a
Make comment shorter.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
174
diff
changeset
|
15 |
;; Shut off message buffer by setting nil. |
0 | 16 |
(setq message-log-max 100) |
17 |
||
18 |
;; Set the debug option to enable a backtrace when a problem occurs. |
|
19 |
(setq debug-on-error nil) ; t/nil |
|
20 |
||
21 |
;; ====================================================================== |
|
7
8eae4300e86f
Перебил сочетание клавиш C-x C-d для вызова dired, вместо dir-list.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
6
diff
changeset
|
22 |
;; . |
8eae4300e86f
Перебил сочетание клавиш C-x C-d для вызова dired, вместо dir-list.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
6
diff
changeset
|
23 |
;; View. |
0 | 24 |
|
151 | 25 |
(menu-bar-mode -1) |
26 |
(tool-bar-mode -1) |
|
27 |
(tooltip-mode -1) |
|
28 |
(scroll-bar-mode 1) |
|
0 | 29 |
|
30 |
(if window-system |
|
218
1a48dde2dfa3
See what I am typing immediately (for keystroke in minibuffer).
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
217
diff
changeset
|
31 |
;; For graphical environment. |
0 | 32 |
(progn |
33 |
;; |
|
34 |
(set-background-color "white") |
|
35 |
(set-foreground-color "black") |
|
36 |
;; |
|
37 |
(set-cursor-color "brown") |
|
38 |
;;(setq blink-matching-delay 0.01) |
|
39 |
;; ! |
|
40 |
;; (blink-cursor-mode nil) |
|
41 |
;; (set-face-font 'default "7x14") |
|
177
b309d63ae93a
Set fringe-mode explicitly.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
176
diff
changeset
|
42 |
(fringe-mode 'default) |
0 | 43 |
) |
218
1a48dde2dfa3
See what I am typing immediately (for keystroke in minibuffer).
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
217
diff
changeset
|
44 |
;; For tty. |
0 | 45 |
(progn |
46 |
) |
|
47 |
) |
|
48 |
||
218
1a48dde2dfa3
See what I am typing immediately (for keystroke in minibuffer).
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
217
diff
changeset
|
49 |
;; See what I am typing immediately (for keystroke in minibuffer). |
1a48dde2dfa3
See what I am typing immediately (for keystroke in minibuffer).
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
217
diff
changeset
|
50 |
(setq echo-keystrokes 0.2) |
1a48dde2dfa3
See what I am typing immediately (for keystroke in minibuffer).
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
217
diff
changeset
|
51 |
|
85 | 52 |
;; ---------------------------------------------------------------------- |
53 |
;; Silent runing. |
|
54 |
||
55 |
;; (setq inhibit-splash-screen t) ; nonexist on 21.4.1 |
|
56 |
(setq inhibit-startup-message t) |
|
57 |
||
58 |
;; ====================================================================== |
|
59 |
;; GNU Serv. |
|
60 |
||
61 |
;; (load "~/emacs/bin/gnuserv/gnuserv.el") |
|
62 |
;; (require 'gnuserv) |
|
63 |
;; (setq gnuserv-frame (selected-frame)) |
|
64 |
||
183
6454364c25cf
Suppress error (error "The directory ~/.emacs.d/server is unsafe") on windows.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
182
diff
changeset
|
65 |
(require 'server) |
6454364c25cf
Suppress error (error "The directory ~/.emacs.d/server is unsafe") on windows.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
182
diff
changeset
|
66 |
(when (and (= emacs-major-version 23) (equal window-system 'w32)) |
6454364c25cf
Suppress error (error "The directory ~/.emacs.d/server is unsafe") on windows.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
182
diff
changeset
|
67 |
(defun server-ensure-safe-dir (dir) "Noop" t)) ; Suppress error directory ~/.emacs.d/server is unsafe on windows. |
6454364c25cf
Suppress error (error "The directory ~/.emacs.d/server is unsafe") on windows.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
182
diff
changeset
|
68 |
|
85 | 69 |
(server-start) |
70 |
||
71 |
;; (desktop-load-default) |
|
72 |
;; (desktop-read) |
|
73 |
||
0 | 74 |
;; ====================================================================== |
171
2f2aae1d394c
Set read-quoted-char-radix.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
169
diff
changeset
|
75 |
;; standart/general settings |
0 | 76 |
|
77 |
(setq kill-whole-line t) |
|
78 |
||
79 |
;; show column & line numbers in status bar |
|
80 |
(setq column-number-mode t) |
|
81 |
(setq line-number-mode t) |
|
82 |
||
102
25585e240b4a
Move customization from .emacs (custom-set-variables) to .emacs-my. Remove duplication.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
101
diff
changeset
|
83 |
(setq view-read-only t) |
25585e240b4a
Move customization from .emacs (custom-set-variables) to .emacs-my. Remove duplication.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
101
diff
changeset
|
84 |
|
132
3f6b8e1a3656
Set frame-title-format.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
127
diff
changeset
|
85 |
(setq frame-title-format "Emacs - %b") |
3f6b8e1a3656
Set frame-title-format.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
127
diff
changeset
|
86 |
|
208
7f2831d8e9cb
Do not end file with newline.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
207
diff
changeset
|
87 |
;; Control if end of file end with newline. |
7f2831d8e9cb
Do not end file with newline.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
207
diff
changeset
|
88 |
;; See also 'mode-require-final-newline'. |
7f2831d8e9cb
Do not end file with newline.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
207
diff
changeset
|
89 |
(add-hook 'text-mode-hook (lambda () (setq require-final-newline nil))) |
174
87a5496d252c
Added require-final-newline mention.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
173
diff
changeset
|
90 |
|
171
2f2aae1d394c
Set read-quoted-char-radix.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
169
diff
changeset
|
91 |
(setq read-quoted-char-radix 16) |
2f2aae1d394c
Set read-quoted-char-radix.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
169
diff
changeset
|
92 |
|
35
691635158df5
More pretty buffer switch and naming.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
34
diff
changeset
|
93 |
;; ---------------------------------------------------------------------- |
691635158df5
More pretty buffer switch and naming.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
34
diff
changeset
|
94 |
;; Switching, creating, selecting buffers. |
34 | 95 |
(iswitchb-mode 1) |
122
680d4677e3fe
Extend innore buffers by iswitch.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
121
diff
changeset
|
96 |
(setq iswitchb-buffer-ignore nil) |
680d4677e3fe
Extend innore buffers by iswitch.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
121
diff
changeset
|
97 |
(mapc (lambda (arg) (add-to-list 'iswitchb-buffer-ignore arg)) |
680d4677e3fe
Extend innore buffers by iswitch.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
121
diff
changeset
|
98 |
'("^ " |
680d4677e3fe
Extend innore buffers by iswitch.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
121
diff
changeset
|
99 |
"^\*Buffer" |
680d4677e3fe
Extend innore buffers by iswitch.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
121
diff
changeset
|
100 |
"^\*Completions\*" |
123
7c1f68e5b898
Extend innore buffers by iswitch.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
122
diff
changeset
|
101 |
"^\*tramp" |
7c1f68e5b898
Extend innore buffers by iswitch.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
122
diff
changeset
|
102 |
"^\*Dired log\*" |
7c1f68e5b898
Extend innore buffers by iswitch.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
122
diff
changeset
|
103 |
"^\*Help\*" |
122
680d4677e3fe
Extend innore buffers by iswitch.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
121
diff
changeset
|
104 |
"^\*Quail Completions\*" |
123
7c1f68e5b898
Extend innore buffers by iswitch.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
122
diff
changeset
|
105 |
"^\*Disabled Command\*" |
7c1f68e5b898
Extend innore buffers by iswitch.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
122
diff
changeset
|
106 |
"^\*vc\*" |
7c1f68e5b898
Extend innore buffers by iswitch.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
122
diff
changeset
|
107 |
)) |
34 | 108 |
|
35
691635158df5
More pretty buffer switch and naming.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
34
diff
changeset
|
109 |
(require 'uniquify) |
691635158df5
More pretty buffer switch and naming.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
34
diff
changeset
|
110 |
(setq uniquify-buffer-name-style 'post-forward) |
691635158df5
More pretty buffer switch and naming.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
34
diff
changeset
|
111 |
|
691635158df5
More pretty buffer switch and naming.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
34
diff
changeset
|
112 |
(global-set-key "\C-x\C-b" 'buffer-menu) |
691635158df5
More pretty buffer switch and naming.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
34
diff
changeset
|
113 |
|
0 | 114 |
;; ---------------------------------------------------------------------- |
7
8eae4300e86f
Перебил сочетание клавиш C-x C-d для вызова dired, вместо dir-list.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
6
diff
changeset
|
115 |
;; Scrolling |
0 | 116 |
|
127 | 117 |
(setq-default |
118 |
;; The number of lines to try scrolling a window by when point moves out. |
|
119 |
scroll-step 1 |
|
120 |
scroll-conservatively 100 |
|
121 |
;; i , |
|
122 |
scroll-margin 2 |
|
123 |
scroll-preserve-screen-position t |
|
124 |
) |
|
125 |
||
126 |
;; ---------------------------------------------------------------------- |
|
217
1c42ba3ac4ba
Case insensitive search. Group search customization together.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
216
diff
changeset
|
127 |
;; search |
1c42ba3ac4ba
Case insensitive search. Group search customization together.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
216
diff
changeset
|
128 |
(setq case-fold-search t) |
1c42ba3ac4ba
Case insensitive search. Group search customization together.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
216
diff
changeset
|
129 |
|
1c42ba3ac4ba
Case insensitive search. Group search customization together.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
216
diff
changeset
|
130 |
;; ---------------------------------------------------------------------- |
1c42ba3ac4ba
Case insensitive search. Group search customization together.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
216
diff
changeset
|
131 |
;; *Occur* |
1c42ba3ac4ba
Case insensitive search. Group search customization together.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
216
diff
changeset
|
132 |
(global-set-key [f7] 'occur) ; Key binding as in mc |
1c42ba3ac4ba
Case insensitive search. Group search customization together.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
216
diff
changeset
|
133 |
|
1c42ba3ac4ba
Case insensitive search. Group search customization together.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
216
diff
changeset
|
134 |
;; ---------------------------------------------------------------------- |
0 | 135 |
;; *Text* |
136 |
(setq default-major-mode 'text-mode) |
|
137 |
||
138 |
;; ---------------------------------------------------------------------- |
|
64
54ef0d72488f
More pretty with selecting.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
63
diff
changeset
|
139 |
;; syntax highlighting |
0 | 140 |
(setq font-lock-maximum-decoration t) |
141 |
(global-font-lock-mode 1 t) |
|
142 |
||
143 |
;; ---------------------------------------------------------------------- |
|
65
fe5b010623cd
More pretty with selecting.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
64
diff
changeset
|
144 |
;; highlight selected text |
64
54ef0d72488f
More pretty with selecting.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
63
diff
changeset
|
145 |
|
145
b1fdfc950089
More correct code for pc-select.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
144
diff
changeset
|
146 |
;; 1/-1, when the mark is active, the region is highlighted. |
b1fdfc950089
More correct code for pc-select.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
144
diff
changeset
|
147 |
(transient-mark-mode 1) |
64
54ef0d72488f
More pretty with selecting.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
63
diff
changeset
|
148 |
(delete-selection-mode 1) ; 1/-1 |
80
bfc8c3d03527
Correct code to remove warning in *Messages* when loading .emacs-my.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
79
diff
changeset
|
149 |
|
64
54ef0d72488f
More pretty with selecting.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
63
diff
changeset
|
150 |
;; Order of next item is important. |
145
b1fdfc950089
More correct code for pc-select.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
144
diff
changeset
|
151 |
(require 'pc-select) |
b1fdfc950089
More correct code for pc-select.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
144
diff
changeset
|
152 |
;; To avoid some key bindings as F6, etc. Must set before 'pc-selection-mode' invoke. |
b1fdfc950089
More correct code for pc-select.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
144
diff
changeset
|
153 |
(setq pc-select-selection-keys-only t) |
b1fdfc950089
More correct code for pc-select.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
144
diff
changeset
|
154 |
(pc-selection-mode 1) |
64
54ef0d72488f
More pretty with selecting.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
63
diff
changeset
|
155 |
|
146
506d2883199f
kill/yank func also use/update CLIPBOARD selsction on X window.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
145
diff
changeset
|
156 |
(when (eq window-system 'x) |
506d2883199f
kill/yank func also use/update CLIPBOARD selsction on X window.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
145
diff
changeset
|
157 |
(setq x-select-enable-clipboard t) ; from Emacs 21.2.1 and newer |
506d2883199f
kill/yank func also use/update CLIPBOARD selsction on X window.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
145
diff
changeset
|
158 |
) |
64
54ef0d72488f
More pretty with selecting.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
63
diff
changeset
|
159 |
|
54ef0d72488f
More pretty with selecting.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
63
diff
changeset
|
160 |
;; ---------------------------------------------------------------------- |
102
25585e240b4a
Move customization from .emacs (custom-set-variables) to .emacs-my. Remove duplication.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
101
diff
changeset
|
161 |
;; line |
1
30e99e01ddc4
add auto-mode-alist for bat-files and load mercurial
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
0
diff
changeset
|
162 |
(if window-system |
0 | 163 |
(progn |
164 |
(global-hl-line-mode t) |
|
165 |
(custom-set-faces '(hl-line ((t (:inherit highlight :background "light yellow"))))) |
|
166 |
) |
|
167 |
) |
|
168 |
||
169 |
;; ---------------------------------------------------------------------- |
|
102
25585e240b4a
Move customization from .emacs (custom-set-variables) to .emacs-my. Remove duplication.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
101
diff
changeset
|
170 |
;; paren, brace |
0 | 171 |
|
172 |
(show-paren-mode 1) ; Parenthesis matching via highlighting. |
|
173 |
;; (setq show-paren-style 'expression) ; |
|
174 |
(setq show-paren-style (quote parenthesis)) |
|
175 |
||
176 |
;; ====================================================================== |
|
64
54ef0d72488f
More pretty with selecting.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
63
diff
changeset
|
177 |
;; Keyboard, mouse. |
0 | 178 |
|
52
b0b45dae5d8c
Now C-\ switch to win type keyboard layout.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
51
diff
changeset
|
179 |
;; cyrillic-jcuken for 567 is :,. |
b0b45dae5d8c
Now C-\ switch to win type keyboard layout.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
51
diff
changeset
|
180 |
;; russian-computer for 567 is %^& |
113
78dfaf5e7f04
cyrillic-jcuken is more pretty input method!
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
112
diff
changeset
|
181 |
(setq default-input-method 'cyrillic-jcuken) |
52
b0b45dae5d8c
Now C-\ switch to win type keyboard layout.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
51
diff
changeset
|
182 |
|
0 | 183 |
;; (pc-bindings-mode) ; Myself define keybinding, see |
184 |
||
185 |
;; ---------------------------------------------------------------------- |
|
186 |
;; Completition |
|
226
14a0e2402d66
partial-completion-mode cause bug in read-file-name with Emacs v22.3.1 (but not with v23.1).
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
225
diff
changeset
|
187 |
|
14a0e2402d66
partial-completion-mode cause bug in read-file-name with Emacs v22.3.1 (but not with v23.1).
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
225
diff
changeset
|
188 |
;; partial-completion-mode cause bug in read-file-name with Emacs v22.3.1 (but not with v23.1). |
14a0e2402d66
partial-completion-mode cause bug in read-file-name with Emacs v22.3.1 (but not with v23.1).
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
225
diff
changeset
|
189 |
;; read-file-name used in rgrep, so I disable partial-completion-mode. |
14a0e2402d66
partial-completion-mode cause bug in read-file-name with Emacs v22.3.1 (but not with v23.1).
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
225
diff
changeset
|
190 |
(partial-completion-mode nil) ; For example, M-x p-c-m expands to M-x partial-completion-mode |
0 | 191 |
|
192 |
;; ---------------------------------------------------------------------- |
|
193 |
;; Mouse |
|
194 |
||
195 |
;; Scroll Bar gets dragged by mouse butn 1 |
|
196 |
(global-set-key [vertical-scroll-bar down-mouse-1] 'scroll-bar-drag) |
|
197 |
;; Paste at point NOT at cursor |
|
151 | 198 |
(setq mouse-yank-at-point t) |
0 | 199 |
(mouse-wheel-mode 1) |
200 |
||
201 |
;; ---------------------------------------------------------------------- |
|
202 |
;; Key Binding (Short-keys). |
|
203 |
||
204 |
(global-set-key [home] 'beginning-of-line) |
|
205 |
(global-set-key [end] 'end-of-line) |
|
206 |
(global-set-key [C-home] 'beginning-of-buffer) |
|
207 |
(global-set-key [C-end] 'end-of-buffer) |
|
208 |
(global-set-key [C-delete] 'kill-word) |
|
209 |
(global-set-key [delete] 'delete-char) |
|
210 |
;; (global-set-key [backspace] 'backward-delete-char-untabify) ; not work properly in *info* mode |
|
211 |
||
212 |
;; setting some f[1-12] keys |
|
213 |
(global-set-key [f1] 'help) |
|
214 |
(global-set-key [f2] 'save-buffer) |
|
2
98c662ae8707
Incremental search by F3, decr by S-F3 now. Impruved grep-find search.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
1
diff
changeset
|
215 |
;; (global-set-key [xxx] 'ediff-buffers) |
0 | 216 |
(global-set-key [f4] 'ispell-buffer) |
134
a071b60e4339
Set key binding to rename buffer.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
125
diff
changeset
|
217 |
(global-set-key [S-f6] 'rename-buffer) |
0 | 218 |
(global-set-key [f8] 'kill-this-buffer) |
219 |
(global-set-key [M-f4] 'save-buffers-kill-emacs) |
|
18
91626ebef652
Added hotkey for wrap long line.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
17
diff
changeset
|
220 |
(global-set-key [f6] 'toggle-truncate-lines) |
0 | 221 |
|
222 |
;; frames, windows manipulation, switch buffers |
|
223 |
(global-set-key [?\C-x right] 'next-buffer) |
|
224 |
(global-set-key [?\C-x left] 'previous-buffer) |
|
225 |
||
187
3a0f6acd7e2b
I usually mistype "C-x C-f" to "C-x d" or "C-x C-d", correct this.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
186
diff
changeset
|
226 |
;; I usually mistype "C-x C-f" to "C-x d" or "C-x C-d", so always use find-file, |
3a0f6acd7e2b
I usually mistype "C-x C-f" to "C-x d" or "C-x C-d", correct this.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
186
diff
changeset
|
227 |
;; because when file if directory find-file load dired, if regular file open it. |
3a0f6acd7e2b
I usually mistype "C-x C-f" to "C-x d" or "C-x C-d", correct this.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
186
diff
changeset
|
228 |
(global-set-key (kbd "C-x C-f") 'find-file) |
3a0f6acd7e2b
I usually mistype "C-x C-f" to "C-x d" or "C-x C-d", correct this.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
186
diff
changeset
|
229 |
(global-set-key (kbd "C-x C-d") 'find-file) |
3a0f6acd7e2b
I usually mistype "C-x C-f" to "C-x d" or "C-x C-d", correct this.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
186
diff
changeset
|
230 |
(global-set-key (kbd "C-x d") 'find-file) |
8
c33aa66ebb2e
Added highlight for TODO, FIXME, tabs etc.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
7
diff
changeset
|
231 |
|
0 | 232 |
(global-set-key (kbd "\e\eg") 'goto-line) |
233 |
(global-set-key (kbd "\e\er") 'query-replace-regexp) |
|
234 |
||
81
0ce6eaf6f26c
Disable C-z, it ugly.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
80
diff
changeset
|
235 |
;; Disable C-z, it ugly. |
0ce6eaf6f26c
Disable C-z, it ugly.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
80
diff
changeset
|
236 |
(if window-system (global-set-key (kbd "C-z") 'nil)) |
0ce6eaf6f26c
Disable C-z, it ugly.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
80
diff
changeset
|
237 |
|
0 | 238 |
;; (global-set-key [language-change] 'ignore) |
239 |
||
240 |
;; ====================================================================== |
|
7
8eae4300e86f
Перебил сочетание клавиш C-x C-d для вызова dired, вместо dir-list.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
6
diff
changeset
|
241 |
;; Coding system, charset, locale, lang. |
80
bfc8c3d03527
Correct code to remove warning in *Messages* when loading .emacs-my.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
79
diff
changeset
|
242 |
|
162
0ac8d1f4304d
Emacs 23.1 no longer need codepage-setup.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
157
diff
changeset
|
243 |
;; Emacs 23.1 no longer need codepage-setup. |
0ac8d1f4304d
Emacs 23.1 no longer need codepage-setup.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
157
diff
changeset
|
244 |
(when (<= emacs-major-version 22) |
0ac8d1f4304d
Emacs 23.1 no longer need codepage-setup.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
157
diff
changeset
|
245 |
(codepage-setup 866) |
0ac8d1f4304d
Emacs 23.1 no longer need codepage-setup.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
157
diff
changeset
|
246 |
(codepage-setup 1251) |
0ac8d1f4304d
Emacs 23.1 no longer need codepage-setup.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
157
diff
changeset
|
247 |
) |
0 | 248 |
|
53 | 249 |
;; Comment because prefer-coding-system will be ignored. |
250 |
;; (setq-default coding-system-for-read 'cp1251-dos) |
|
251 |
;; (setq-default coding-system-for-write 'cp1251-dos) |
|
0 | 252 |
|
253 |
;; (setq locale-coding-system 'cp1251-dos) |
|
254 |
;; (set-terminal-coding-system 'cp1251) |
|
255 |
;; (set-keyboard-coding-system 'cp1251) |
|
256 |
||
257 |
(prefer-coding-system 'koi8-r-dos) |
|
258 |
(prefer-coding-system 'utf-16-le) |
|
259 |
(prefer-coding-system 'cp866-dos) |
|
4
46543c097be0
Transfer changer from .eamcs_unix, add case for w32 or other system.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
3
diff
changeset
|
260 |
|
46543c097be0
Transfer changer from .eamcs_unix, add case for w32 or other system.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
3
diff
changeset
|
261 |
(modify-coding-system-alist 'file "\\.el" 'iso-2022-7bit) |
192
8b4811c64ec4
Correct copy/paste coding in windows.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
191
diff
changeset
|
262 |
(cond |
106
0591d06cf752
Решил проблему copy/paste в X. Решил проблему поиска в UTF-8 буфере.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
102
diff
changeset
|
263 |
((equal window-system 'w32) ; also (string-equal system-type "windows-nt") |
4
46543c097be0
Transfer changer from .eamcs_unix, add case for w32 or other system.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
3
diff
changeset
|
264 |
(progn |
192
8b4811c64ec4
Correct copy/paste coding in windows.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
191
diff
changeset
|
265 |
(set-selection-coding-system 'utf-16le-dos) |
106
0591d06cf752
Решил проблему copy/paste в X. Решил проблему поиска в UTF-8 буфере.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
102
diff
changeset
|
266 |
(prefer-coding-system 'utf-8-unix) |
0591d06cf752
Решил проблему copy/paste в X. Решил проблему поиска в UTF-8 буфере.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
102
diff
changeset
|
267 |
(prefer-coding-system 'cp1251-dos) |
0591d06cf752
Решил проблему copy/paste в X. Решил проблему поиска в UTF-8 буфере.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
102
diff
changeset
|
268 |
)) |
0591d06cf752
Решил проблему copy/paste в X. Решил проблему поиска в UTF-8 буфере.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
102
diff
changeset
|
269 |
((equal window-system 'x) |
0591d06cf752
Решил проблему copy/paste в X. Решил проблему поиска в UTF-8 буфере.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
102
diff
changeset
|
270 |
(progn |
4
46543c097be0
Transfer changer from .eamcs_unix, add case for w32 or other system.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
3
diff
changeset
|
271 |
(prefer-coding-system 'cp1251-dos) |
46543c097be0
Transfer changer from .eamcs_unix, add case for w32 or other system.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
3
diff
changeset
|
272 |
(prefer-coding-system 'utf-8-unix) |
106
0591d06cf752
Решил проблему copy/paste в X. Решил проблему поиска в UTF-8 буфере.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
102
diff
changeset
|
273 |
(setq selection-coding-system 'ctext-with-extensions) |
0591d06cf752
Решил проблему copy/paste в X. Решил проблему поиска в UTF-8 буфере.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
102
diff
changeset
|
274 |
(setq x-select-request-type '(UTF8_STRING COMPOUND_TEXT TEXT STRING)) |
4
46543c097be0
Transfer changer from .eamcs_unix, add case for w32 or other system.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
3
diff
changeset
|
275 |
(modify-coding-system-alist 'process ".*" 'utf-8-unix) |
106
0591d06cf752
Решил проблему copy/paste в X. Решил проблему поиска в UTF-8 буфере.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
102
diff
changeset
|
276 |
)) |
0591d06cf752
Решил проблему copy/paste в X. Решил проблему поиска в UTF-8 буфере.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
102
diff
changeset
|
277 |
(t |
0591d06cf752
Решил проблему copy/paste в X. Решил проблему поиска в UTF-8 буфере.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
102
diff
changeset
|
278 |
(progn |
0591d06cf752
Решил проблему copy/paste в X. Решил проблему поиска в UTF-8 буфере.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
102
diff
changeset
|
279 |
;; (set-selection-coding-system 'utf-8-unix) |
0591d06cf752
Решил проблему copy/paste в X. Решил проблему поиска в UTF-8 буфере.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
102
diff
changeset
|
280 |
(prefer-coding-system 'cp1251-dos) |
0591d06cf752
Решил проблему copy/paste в X. Решил проблему поиска в UTF-8 буфере.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
102
diff
changeset
|
281 |
(prefer-coding-system 'utf-8-unix) |
0591d06cf752
Решил проблему copy/paste в X. Решил проблему поиска в UTF-8 буфере.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
102
diff
changeset
|
282 |
(modify-coding-system-alist 'process ".*" 'utf-8-unix) |
0591d06cf752
Решил проблему copy/paste в X. Решил проблему поиска в UTF-8 буфере.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
102
diff
changeset
|
283 |
)) |
4
46543c097be0
Transfer changer from .eamcs_unix, add case for w32 or other system.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
3
diff
changeset
|
284 |
) |
0 | 285 |
|
286 |
;; XXXXXXXXXXXXXXXXXXXXXXXX |
|
287 |
||
288 |
;; To open from command line file, which names has extended opcode |
|
289 |
;; (set-file-name-coding-system 'cp1251) |
|
290 |
||
52
b0b45dae5d8c
Now C-\ switch to win type keyboard layout.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
51
diff
changeset
|
291 |
;; (set-language-environment "Russian") ; XXX not used as set default coding system to koi8-r. |
0 | 292 |
|
293 |
;; ====================================================================== |
|
294 |
;; |
|
295 |
;; NON-STANDARD VARIABLES |
|
296 |
||
297 |
;; ====================================================================== |
|
298 |
;; |
|
299 |
;; STANDARD VARIABLES |
|
300 |
||
301 |
(if (boundp 'confirm-kill-emacs) |
|
302 |
(setq confirm-kill-emacs 'yes-or-no-p)) |
|
303 |
||
304 |
;; Try to speed things up, especially in VM. |
|
305 |
(setq gc-cons-threshold 2000000) |
|
306 |
||
307 |
;; Don't beep in my headphones! |
|
84 | 308 |
(setq ring-bell-function '(lambda () "Empty ring-bell-function." nil)) |
309 |
(setq visible-bell t) ; With default ring-bell-function in text terminal |
|
310 |
; revert screen if press [end] or [home] |
|
0 | 311 |
|
312 |
;; Prompt before evaluating local bits of lisp. This stops people |
|
313 |
;; putting things at the end of files which delete all your files! |
|
314 |
(setq enable-local-variables t |
|
315 |
enable-local-eval 1) |
|
316 |
||
317 |
;; ====================================================================== |
|
318 |
;; |
|
319 |
;; STANDARD LIBRARIES |
|
320 |
||
321 |
(require 'jka-compr) ; Automatic decompression, hooks for tar-mode. |
|
322 |
(if (fboundp 'auto-compression-mode) |
|
323 |
(auto-compression-mode 1)) |
|
324 |
||
325 |
;; ---------------------------------------------------------------------- |
|
326 |
;; *Recentf* |
|
109
75b4bf140e73
Prevent TRAMP to login on remote host when loading.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
108
diff
changeset
|
327 |
|
0 | 328 |
(require 'recentf) |
109
75b4bf140e73
Prevent TRAMP to login on remote host when loading.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
108
diff
changeset
|
329 |
;; Prevent TRAMP to login on remote host when loading. |
75b4bf140e73
Prevent TRAMP to login on remote host when loading.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
108
diff
changeset
|
330 |
;; Its take time and ask passwords! |
75b4bf140e73
Prevent TRAMP to login on remote host when loading.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
108
diff
changeset
|
331 |
(setq recentf-auto-cleanup 'never) |
0 | 332 |
(recentf-mode t) |
333 |
(setq recentf-max-saved-items 200) |
|
334 |
(global-set-key (kbd "\e\eq") 'recentf-open-files) |
|
335 |
||
336 |
;; ---------------------------------------------------------------------- |
|
337 |
;; revert |
|
338 |
(global-set-key [f5] 'revert-buffer) |
|
339 |
(setq revert-without-query (quote (".*"))) |
|
340 |
(setq auto-revert-interval 2) |
|
341 |
||
342 |
;; ====================================================================== |
|
7
8eae4300e86f
Перебил сочетание клавиш C-x C-d для вызова dired, вместо dir-list.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
6
diff
changeset
|
343 |
;; Convenient |
0 | 344 |
|
345 |
;; ---------------------------------------------------------------------- |
|
346 |
;; Completion |
|
153
a03216c9fa8c
Delete dust. Correct 'completion-ignored-extensions' list.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
152
diff
changeset
|
347 |
|
0 | 348 |
(require 'icomplete) ; Interactive completion in minibuffer. |
153
a03216c9fa8c
Delete dust. Correct 'completion-ignored-extensions' list.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
152
diff
changeset
|
349 |
(icomplete-mode 1) |
0 | 350 |
|
153
a03216c9fa8c
Delete dust. Correct 'completion-ignored-extensions' list.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
152
diff
changeset
|
351 |
(setq completion-ignored-extensions |
a03216c9fa8c
Delete dust. Correct 'completion-ignored-extensions' list.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
152
diff
changeset
|
352 |
'("CVS/" ".hg/" ".svn/" ".git/" ".bzr/" |
a03216c9fa8c
Delete dust. Correct 'completion-ignored-extensions' list.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
152
diff
changeset
|
353 |
".o" "~" ".bin" ".bak" ".obj" ".map" ".a" ".ln" ".blg" ".bbl" ".elc" |
a03216c9fa8c
Delete dust. Correct 'completion-ignored-extensions' list.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
152
diff
changeset
|
354 |
".lof" ".glo" ".idx" ".lot" ".fmt" ".tfm" ".class" ".fas" ".lib" ".x86f" ".sparcf" |
a03216c9fa8c
Delete dust. Correct 'completion-ignored-extensions' list.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
152
diff
changeset
|
355 |
".lo" ".la" ".toc" ".log" ".aux" ".cp" ".fn" ".ky" ".pg" ".tp" ".vr" ".cps" |
a03216c9fa8c
Delete dust. Correct 'completion-ignored-extensions' list.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
152
diff
changeset
|
356 |
".fns" ".kys" ".pgs" ".tps" ".vrs")) |
0 | 357 |
|
358 |
;; ---------------------------------------------------------------------- |
|
359 |
;; *grep* |
|
360 |
(setq grep-command "find . -name '*' -exec grep -nH '' {} ;" |
|
223
64c9bc1e5847
Added .git for exclude from grep find.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
222
diff
changeset
|
361 |
grep-find-command "find . '(' -name .svn -o -name CVS -o -name .hg -o -name _darcs -o -name .git ')' -prune -o -type f -name '*' -print0 | xargs -0 -e grep -nH " |
5
ddf0660702ec
Correct work grep-find for grep then do not understand --color.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
4
diff
changeset
|
362 |
grep-highlight-matches nil ; do not set t because some grep do not has --color options |
0 | 363 |
grep-use-null-device t) |
364 |
||
365 |
;; ---------------------------------------------------------------------- |
|
366 |
;; Music |
|
367 |
(setq gnus-audio-au-player "winamp.exe" |
|
368 |
gnus-audio-directory "D:\\music" |
|
369 |
gnus-audio-wav-player "winamp.exe") |
|
370 |
||
97
fe4102cad849
Open egg files as archive.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
92
diff
changeset
|
371 |
;; ---------------------------------------------------------------------- |
fe4102cad849
Open egg files as archive.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
92
diff
changeset
|
372 |
;; archive |
fe4102cad849
Open egg files as archive.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
92
diff
changeset
|
373 |
|
fe4102cad849
Open egg files as archive.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
92
diff
changeset
|
374 |
(modify-coding-system-alist 'file "\\.\\(war\\|ear\\|sar\\|egg\\)\\'" 'no-conversion) |
fe4102cad849
Open egg files as archive.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
92
diff
changeset
|
375 |
|
fe4102cad849
Open egg files as archive.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
92
diff
changeset
|
376 |
(add-to-list 'auto-mode-alist '("\\.\\(war\\|ear\\|sar\\|egg\\)\\'" . archive-mode)) |
0 | 377 |
|
98
5223817dad90
Use mozilla browser. Not tested for Windows.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
97
diff
changeset
|
378 |
;; ---------------------------------------------------------------------- |
5223817dad90
Use mozilla browser. Not tested for Windows.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
97
diff
changeset
|
379 |
;; browser |
5223817dad90
Use mozilla browser. Not tested for Windows.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
97
diff
changeset
|
380 |
|
138
90fda97adcb1
Setup browse-url func for linux and windows.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
120
diff
changeset
|
381 |
(cond |
90fda97adcb1
Setup browse-url func for linux and windows.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
120
diff
changeset
|
382 |
((equal window-system 'w32) |
90fda97adcb1
Setup browse-url func for linux and windows.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
120
diff
changeset
|
383 |
(setq browse-url-browser-function 'browse-url-default-windows-browser)) |
90fda97adcb1
Setup browse-url func for linux and windows.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
120
diff
changeset
|
384 |
(t |
90fda97adcb1
Setup browse-url func for linux and windows.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
120
diff
changeset
|
385 |
(setq browse-url-browser-function 'browse-url-mozilla))) |
98
5223817dad90
Use mozilla browser. Not tested for Windows.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
97
diff
changeset
|
386 |
|
0 | 387 |
;; ====================================================================== |
7
8eae4300e86f
Перебил сочетание клавиш C-x C-d для вызова dired, вместо dir-list.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
6
diff
changeset
|
388 |
;; TIME SETTING |
0 | 389 |
|
390 |
;; ---------------------------------------------------------------------- |
|
391 |
;; Time |
|
116 | 392 |
|
120
5b02710b7ffc
display-time-format " %H:%M " sometimes buggy.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
119
diff
changeset
|
393 |
;; Also useful such format: |
5b02710b7ffc
display-time-format " %H:%M " sometimes buggy.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
119
diff
changeset
|
394 |
;; (setq display-time-format " %H:%M %d-%m-%y ") |
125
8d96347feb02
Dont show load average.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
124
diff
changeset
|
395 |
(setq display-time-24hr-format t) |
8d96347feb02
Dont show load average.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
124
diff
changeset
|
396 |
(setq display-time-default-load-average nil) |
116 | 397 |
(display-time) |
0 | 398 |
|
399 |
;; ---------------------------------------------------------------------- |
|
400 |
;; Calendar |
|
401 |
;; (setq mark-holidays-in-calendar t) |
|
402 |
;; (setq all-christian-calendar-holidays t) |
|
403 |
;; (setq calendar-date-display-form (quote ((format "%04s-%02d-%02d" year (string-to-int month) (string-to-int day))))) |
|
404 |
;; (setq calendar-time-display-form (quote (24-hours ":" minutes (if time-zone " (") time-zone (if time-zone ")")))) |
|
49
71cec5d9c60f
Set week start with Monday.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
48
diff
changeset
|
405 |
(setq calendar-week-start-day 1) |
71cec5d9c60f
Set week start with Monday.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
48
diff
changeset
|
406 |
(setq european-calendar-style t) |
0 | 407 |
|
408 |
;; ====================================================================== |
|
409 |
;; |
|
410 |
;; STANDARD HOOKS |
|
411 |
||
412 |
(add-hook 'write-file-hooks 'time-stamp) |
|
413 |
||
414 |
;; ====================================================================== |
|
7
8eae4300e86f
Перебил сочетание клавиш C-x C-d для вызова dired, вместо dir-list.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
6
diff
changeset
|
415 |
;; *auto-fill* |
0 | 416 |
|
102
25585e240b4a
Move customization from .emacs (custom-set-variables) to .emacs-my. Remove duplication.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
101
diff
changeset
|
417 |
(setq-default fill-column 78) |
25585e240b4a
Move customization from .emacs (custom-set-variables) to .emacs-my. Remove duplication.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
101
diff
changeset
|
418 |
|
148
7df64d2c9f3d
Remove unused key binding. Added more docs.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
147
diff
changeset
|
419 |
;; By default used American convention - sentence and with two spaces. Change |
7df64d2c9f3d
Remove unused key binding. Added more docs.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
147
diff
changeset
|
420 |
;; it to one space. Has affect on filling and M-a, M-e commands. |
102
25585e240b4a
Move customization from .emacs (custom-set-variables) to .emacs-my. Remove duplication.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
101
diff
changeset
|
421 |
(setq sentence-end-double-space nil) |
25585e240b4a
Move customization from .emacs (custom-set-variables) to .emacs-my. Remove duplication.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
101
diff
changeset
|
422 |
|
0 | 423 |
;; Turn on auto-fill mode |
424 |
(add-hook 'html-mode-hook 'turn-on-auto-fill) |
|
102
25585e240b4a
Move customization from .emacs (custom-set-variables) to .emacs-my. Remove duplication.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
101
diff
changeset
|
425 |
(add-hook 'text-mode-hook 'turn-on-auto-fill) |
0 | 426 |
|
427 |
;; ---------------------------------------------------------------------- |
|
205 | 428 |
;; unknown |
0 | 429 |
|
430 |
;; (require 'desire) |
|
431 |
;; (add-to-list 'desire-load-path |
|
9 | 432 |
;; (expand-file-name "~/share/emacs/desire")) |
0 | 433 |
;; (add-to-list 'auto-mode-alist |
9 | 434 |
;; (cons (concat (regexp-quote desire-extension) "\\'") |
435 |
;; 'emacs-lisp-mode)) |
|
0 | 436 |
|
437 |
;; (desire 'browse-url) |
|
438 |
;; (desire 'mailcrypt) |
|
439 |
;; (desire 'gnus) |
|
440 |
;; (desire 'message) |
|
441 |
;; (desire 'sendmail) |
|
205 | 442 |
;; (desire 'bbdb "bbdb") |
443 |
;; (desire 'pilot) |
|
0 | 444 |
;; (desire 'bibtex) |
445 |
;; (desire 'eiffel-mode) |
|
446 |
;; (desire 'emacs-w3m) |
|
447 |
;; (desire 'eudc) |
|
448 |
;; (desire 'filladapt) |
|
449 |
;;;; (desire 'hugs-mode) |
|
450 |
;; (desire 'mpg123) |
|
451 |
;; (desire 'php-mode) |
|
452 |
;; (desire 'ps-print) |
|
453 |
;; (require 'chord-mode) ; edit guitar music. |
|
454 |
;; (require 'discography) ; variant of BibTeX mode for discographies. |
|
455 |
||
456 |
;; ====================================================================== |
|
457 |
;; unNOVICEd commands... |
|
458 |
;; |
|
154 | 459 |
;; The following commands are usually disabled by default. Enable them... |
0 | 460 |
|
461 |
(put 'eval-expression 'disabled nil) |
|
462 |
(put 'downcase-region 'disabled nil) |
|
463 |
(put 'upcase-region 'disabled nil) |
|
464 |
(put 'narrow-to-page 'disabled nil) |
|
465 |
(put 'narrow-to-region 'disabled nil) |
|
466 |
||
467 |
;; ====================================================================== |
|
7
8eae4300e86f
Перебил сочетание клавиш C-x C-d для вызова dired, вместо dir-list.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
6
diff
changeset
|
468 |
;; TEX |
0 | 469 |
(setq tex-run-command "initex") |
470 |
||
471 |
||
472 |
;; ====================================================================== |
|
7
8eae4300e86f
Перебил сочетание клавиш C-x C-d для вызова dired, вместо dir-list.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
6
diff
changeset
|
473 |
;; AUC TeX |
0 | 474 |
|
475 |
;(add-hook 'LaTeX-mode-hook 'LaTeX-install-toolbar) |
|
476 |
;; (setq TeX-parse-self t) ; Enable parse on load. |
|
477 |
;; (setq TeX-auto-save t) ; Enable parse on save. |
|
478 |
;; (setq-default TeX-master nil) ; Query for master file. Finally, if you often use \include or \input, you should make AUCTEX aware of the multi-file document structure |
|
479 |
||
480 |
;(setq TeX-PDF-mode t) |
|
481 |
;(setq TeX-interactive-mode t) |
|
482 |
;(setq TeX-source-specials-mode 1) |
|
483 |
||
484 |
;; |
|
485 |
;;; some more menu entries in the command list: |
|
486 |
;;; see tex-mik.el from package auctex: %v is defined in tex-mik.el |
|
487 |
;;; other variables are defined in tex.el from auctex |
|
488 |
;;; the meaning of some auctex-varibles: |
|
489 |
;symbols defined in tex.el and tex-mik.el: |
|
490 |
;%b name slave tex-file %t name master tex-file |
|
491 |
;%d dvi-file %f ps-file |
|
492 |
;%l "latex --src-specials" |
|
493 |
;%n line number %p printcommand %q "lpq" |
|
494 |
;%r (TeX-style-check TeX-print-style) |
|
495 |
;%s master-file-name without extention |
|
496 |
;%v yap command view line |
|
497 |
;(eval-after-load "tex" |
|
498 |
; '(progn |
|
499 |
; (add-to-list 'TeX-command-list |
|
9 | 500 |
; (list "->PS landscape for pdf" |
501 |
; "dvips %d -N0 -Ppdf -G0 -T 297mm,210mm -o %f " |
|
502 |
; 'TeX-run-command nil t)) |
|
0 | 503 |
; (add-to-list 'TeX-command-list |
9 | 504 |
; (list "All Texify run-viewer" |
505 |
; "texify --tex-opt=--src --run-viewer --clean %s.tex" |
|
506 |
; 'TeX-run-command nil t)))) |
|
0 | 507 |
|
508 |
||
509 |
;; ====================================================================== |
|
510 |
;; |
|
511 |
;; Reftex activation (Reftex is included with Emacs 21.1) |
|
512 |
||
513 |
;; (autoload 'reftex-mode "reftex" "RefTeX Minor Mode" t) |
|
514 |
;; (autoload 'turn-on-reftex "reftex" "RefTeX Minor Mode" nil) |
|
515 |
;; (autoload 'reftex-citation "reftex-cite" "Make citation" nil) |
|
516 |
;; (autoload 'reftex-index-phrase-mode "reftex-index" "Phrase mode" t) |
|
517 |
;; (add-hook 'LaTeX-mode-hook 'turn-on-reftex) ; with AUCTeX LaTeX mode |
|
518 |
;; (add-hook 'latex-mode-hook 'turn-on-reftex) ; with Emacs latex mode |
|
519 |
||
520 |
;; ====================================================================== |
|
521 |
;; |
|
522 |
;; PreviewLatex |
|
523 |
||
524 |
;(load "preview-latex.el" nil t t) |
|
525 |
||
526 |
;(add-hook 'LaTeX-mode-hook #'LaTeX-preview-setup) |
|
527 |
;(autoload 'LaTeX-preview-setup "preview") |
|
528 |
||
529 |
||
530 |
;; ====================================================================== |
|
531 |
;; |
|
532 |
;; Info |
|
533 |
||
534 |
(require 'info) |
|
25
e67fed7ec1f2
Определил путь к info-файлам для Windows.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
24
diff
changeset
|
535 |
(if (equal window-system 'w32) |
e67fed7ec1f2
Определил путь к info-файлам для Windows.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
24
diff
changeset
|
536 |
(progn |
141
c88281ec188e
Temporary comment Info-directory-list assignment for Windows. Need more
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
140
diff
changeset
|
537 |
;; TODO Write which func to find runemacs.exe dir. |
c88281ec188e
Temporary comment Info-directory-list assignment for Windows. Need more
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
140
diff
changeset
|
538 |
;; (setq Info-directory-list (list (expand-file-name "~/../bin/emacs/info"))) |
c88281ec188e
Temporary comment Info-directory-list assignment for Windows. Need more
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
140
diff
changeset
|
539 |
;; (add-to-list 'Info-directory-list (expand-file-name "~/../bin/MinGW/info") t) ; t - append to the end |
25
e67fed7ec1f2
Определил путь к info-файлам для Windows.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
24
diff
changeset
|
540 |
)) |
0 | 541 |
|
542 |
;; ====================================================================== |
|
156
55aed5f25591
Added customisation for woman.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
143
diff
changeset
|
543 |
;; man, woman |
55aed5f25591
Added customisation for woman.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
143
diff
changeset
|
544 |
(require 'woman) |
55aed5f25591
Added customisation for woman.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
143
diff
changeset
|
545 |
(setq woman-use-own-frame nil) |
55aed5f25591
Added customisation for woman.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
143
diff
changeset
|
546 |
(setq woman-fill-frame t) |
55aed5f25591
Added customisation for woman.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
143
diff
changeset
|
547 |
|
55aed5f25591
Added customisation for woman.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
143
diff
changeset
|
548 |
;; ====================================================================== |
205 | 549 |
;; shell, sh, bash |
0 | 550 |
|
202
a89804893475
Remove duplicated string.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
200
diff
changeset
|
551 |
;; Setup Emacs to run bash as its primary shell. |
0 | 552 |
;; (setq binary-process-input t) |
553 |
;; (setq shell-file-name "bash") |
|
554 |
;; (setq shell-command-switch "-c") |
|
555 |
;; (setenv "SHELL" shell-file-name) |
|
556 |
||
207 | 557 |
(when (eq window-system 'w32) ; may require Cygwin or MSYS |
203
47d088c870f7
Use bash for shell on Windows.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
202
diff
changeset
|
558 |
(setq explicit-shell-file-name "bash") |
211
a07b53a7b415
Don't cd to home dir by C-x shell (removed "--login" switch from args).
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
208
diff
changeset
|
559 |
(setq explicit-bash-args '("-i")) |
a07b53a7b415
Don't cd to home dir by C-x shell (removed "--login" switch from args).
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
208
diff
changeset
|
560 |
(setq explicit-sh-args '("-i")) |
222
1e9b259f8abe
Set ptoper search pattern for find-dired (in find-dired code there is exist
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
220
diff
changeset
|
561 |
(setq find-ls-option '("-exec ls -ld {} ;" . "-ld")) |
211
a07b53a7b415
Don't cd to home dir by C-x shell (removed "--login" switch from args).
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
208
diff
changeset
|
562 |
) |
1
30e99e01ddc4
add auto-mode-alist for bat-files and load mercurial
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
0
diff
changeset
|
563 |
|
0 | 564 |
;; ====================================================================== |
205 | 565 |
;; spell, ispall, aspell |
0 | 566 |
|
105
52a334c6c908
As spell programm use ispell.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
104
diff
changeset
|
567 |
(setq ispell-program-name "ispell") |
0 | 568 |
;(setq ispell-dictionary "russianw"); default dictionary |
569 |
;(setq ispell-local-dictionary "russianw"); default dictionary |
|
570 |
;(add-hook 'text-mode-hook 'flyspell-mode) |
|
571 |
;(setq flyspell-default-dictionary "russianw") |
|
572 |
;(setq flyspell-delay '1) |
|
573 |
;; (setq ispell-local-dictionary-alist |
|
9 | 574 |
;; '((nil ; default (english.aff) |
0 | 575 |
;; "[A-Za-z]" "[^A-Za-z]" "[']" nil ("-B") nil iso-8859-1) |
9 | 576 |
;; ("UK-xlg" ; english large version |
0 | 577 |
;; "[A-Za-z]" "[^A-Za-z]" "[']" nil ("-B" "-d" "UK-xlg") nil iso-8859-1) |
9 | 578 |
;; ("US-xlg" ; american large version |
0 | 579 |
;; "[A-Za-z]" "[^A-Za-z]" "[']" nil ("-B" "-d" "US-xlg") nil iso-8859-1) |
580 |
;; ) |
|
581 |
;; ) |
|
582 |
||
583 |
;; ====================================================================== |
|
67
33caed66cee4
Set align for org-mode tags.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
66
diff
changeset
|
584 |
;; GTD, PIM, organize, todo mode. |
48
5aa6729514f6
Add customize for org mode. Place todo higlight вместе с org mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
47
diff
changeset
|
585 |
|
5aa6729514f6
Add customize for org mode. Place todo higlight вместе с org mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
47
diff
changeset
|
586 |
;; ---------------------------------------------------------------------- |
5aa6729514f6
Add customize for org mode. Place todo higlight вместе с org mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
47
diff
changeset
|
587 |
;; org-mode |
79
f80cd58e09cb
Use buildin and installed version of org-mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
78
diff
changeset
|
588 |
|
108
1559bb79bdd1
Enable org mode for >= emacs22.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
107
diff
changeset
|
589 |
(if (>= emacs-major-version 22) |
1559bb79bdd1
Enable org mode for >= emacs22.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
107
diff
changeset
|
590 |
(progn |
1559bb79bdd1
Enable org mode for >= emacs22.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
107
diff
changeset
|
591 |
(require 'org) |
1559bb79bdd1
Enable org mode for >= emacs22.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
107
diff
changeset
|
592 |
)) |
1559bb79bdd1
Enable org mode for >= emacs22.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
107
diff
changeset
|
593 |
|
57
635e1a8a3ed9
Remove org-todo-keywords because of format incompatibility between versions.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
56
diff
changeset
|
594 |
;; XXX org-todo-keywords '((sequence "TODO" "START" "|" "DONE")) org-version 4.67c |
60
eb8bd05481a8
Размышления о том как устанавливается org-todo-keywords.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
59
diff
changeset
|
595 |
;; XXX (setq org-todo-keywords '("TODO" "START" "DONE")) org-version 6.05b |
79
f80cd58e09cb
Use buildin and installed version of org-mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
78
diff
changeset
|
596 |
(if (or (featurep 'org) (featurep 'org-install)) |
48
5aa6729514f6
Add customize for org mode. Place todo higlight вместе с org mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
47
diff
changeset
|
597 |
(progn |
5aa6729514f6
Add customize for org mode. Place todo higlight вместе с org mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
47
diff
changeset
|
598 |
(add-to-list 'auto-mode-alist '("\\.org$" . org-mode)) |
66
661801050393
Store all org-mode file in .gtd dirs.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
65
diff
changeset
|
599 |
(setq org-directory (expand-file-name "~/.gtd")) |
661801050393
Store all org-mode file in .gtd dirs.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
65
diff
changeset
|
600 |
(setq org-default-notes-file (expand-file-name "~/.gtd/notes")) |
74
55deb80345ab
Some enhancement for org-mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
73
diff
changeset
|
601 |
(setq org-agenda-ndays 14 |
55deb80345ab
Some enhancement for org-mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
73
diff
changeset
|
602 |
org-deadline-warning-days 7 |
48
5aa6729514f6
Add customize for org mode. Place todo higlight вместе с org mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
47
diff
changeset
|
603 |
org-agenda-show-all-dates t |
5aa6729514f6
Add customize for org mode. Place todo higlight вместе с org mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
47
diff
changeset
|
604 |
org-agenda-skip-deadline-if-done t |
5aa6729514f6
Add customize for org mode. Place todo higlight вместе с org mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
47
diff
changeset
|
605 |
org-agenda-skip-scheduled-if-done t |
5aa6729514f6
Add customize for org mode. Place todo higlight вместе с org mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
47
diff
changeset
|
606 |
org-agenda-start-on-weekday nil |
5aa6729514f6
Add customize for org mode. Place todo higlight вместе с org mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
47
diff
changeset
|
607 |
org-reverse-note-order t |
74
55deb80345ab
Some enhancement for org-mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
73
diff
changeset
|
608 |
org-hide-leading-stars t |
67
33caed66cee4
Set align for org-mode tags.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
66
diff
changeset
|
609 |
org-tags-column 64 |
33caed66cee4
Set align for org-mode tags.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
66
diff
changeset
|
610 |
) |
69
754d413dcff2
Aded global key binding for GTD.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
68
diff
changeset
|
611 |
(define-key global-map "\C-ca" 'org-agenda) |
66
661801050393
Store all org-mode file in .gtd dirs.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
65
diff
changeset
|
612 |
(setq org-agenda-files '("~/.gtd/todo.org")) )) |
48
5aa6729514f6
Add customize for org mode. Place todo higlight вместе с org mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
47
diff
changeset
|
613 |
|
5aa6729514f6
Add customize for org mode. Place todo higlight вместе с org mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
47
diff
changeset
|
614 |
;; ---------------------------------------------------------------------- |
68 | 615 |
;; remember-mode |
616 |
(if (featurep 'remember) |
|
617 |
(progn |
|
618 |
(setq remember-annotation-functions '(org-remember-annotation)) |
|
619 |
(setq remember-handler-functions '(org-remember-handler)) |
|
620 |
(add-hook 'remember-mode-hook 'org-remember-apply-template) |
|
69
754d413dcff2
Aded global key binding for GTD.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
68
diff
changeset
|
621 |
(define-key global-map "\C-cr" 'org-remember) |
68 | 622 |
(setq org-remember-templates |
76
3b9b47be4951
With one item emacs do not prompt choose template.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
75
diff
changeset
|
623 |
;; With one item emacs do not prompt choose template. |
70
e0962e157772
Correct path to GTD files.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
69
diff
changeset
|
624 |
'((?t "* TODO %?" "~/.gtd/todo.org") |
76
3b9b47be4951
With one item emacs do not prompt choose template.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
75
diff
changeset
|
625 |
;; (?j "* %^{topic}\n %T\n" "~/.gtd/journal.org") |
72
03586585c558
Move customization to right place.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
70
diff
changeset
|
626 |
)) |
03586585c558
Move customization to right place.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
70
diff
changeset
|
627 |
(setq |
03586585c558
Move customization to right place.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
70
diff
changeset
|
628 |
org-remember-store-without-prompt t |
03586585c558
Move customization to right place.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
70
diff
changeset
|
629 |
) )) |
68 | 630 |
|
631 |
;; ---------------------------------------------------------------------- |
|
48
5aa6729514f6
Add customize for org mode. Place todo higlight вместе с org mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
47
diff
changeset
|
632 |
;; TODO, XXX, FIXME highlight. |
5aa6729514f6
Add customize for org mode. Place todo higlight вместе с org mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
47
diff
changeset
|
633 |
;; Show blanks and FIXME |
5aa6729514f6
Add customize for org mode. Place todo higlight вместе с org mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
47
diff
changeset
|
634 |
;; http://www.emacswiki.org/cgi-bin/wiki/EightyColumnRule |
5aa6729514f6
Add customize for org mode. Place todo higlight вместе с org mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
47
diff
changeset
|
635 |
|
5aa6729514f6
Add customize for org mode. Place todo higlight вместе с org mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
47
diff
changeset
|
636 |
(defface my-tab-face |
5aa6729514f6
Add customize for org mode. Place todo higlight вместе с org mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
47
diff
changeset
|
637 |
'((t :background "gray")) |
5aa6729514f6
Add customize for org mode. Place todo higlight вместе с org mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
47
diff
changeset
|
638 |
"Face for showing TABs." |
5aa6729514f6
Add customize for org mode. Place todo higlight вместе с org mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
47
diff
changeset
|
639 |
:group 'basic-faces) |
5aa6729514f6
Add customize for org mode. Place todo higlight вместе с org mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
47
diff
changeset
|
640 |
|
5aa6729514f6
Add customize for org mode. Place todo higlight вместе с org mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
47
diff
changeset
|
641 |
(defface my-todo-face |
5aa6729514f6
Add customize for org mode. Place todo higlight вместе с org mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
47
diff
changeset
|
642 |
'((t :foreground "red" :weight bold)) |
5aa6729514f6
Add customize for org mode. Place todo higlight вместе с org mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
47
diff
changeset
|
643 |
"Font for showing TODO words." |
5aa6729514f6
Add customize for org mode. Place todo higlight вместе с org mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
47
diff
changeset
|
644 |
:group 'basic-faces) |
5aa6729514f6
Add customize for org mode. Place todo higlight вместе с org mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
47
diff
changeset
|
645 |
|
5aa6729514f6
Add customize for org mode. Place todo higlight вместе с org mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
47
diff
changeset
|
646 |
(defface my-conflict-face |
5aa6729514f6
Add customize for org mode. Place todo higlight вместе с org mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
47
diff
changeset
|
647 |
'((t :background "pink" :foreground "red" :weight bold)) |
5aa6729514f6
Add customize for org mode. Place todo higlight вместе с org mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
47
diff
changeset
|
648 |
"Font for showing conflicts." |
5aa6729514f6
Add customize for org mode. Place todo higlight вместе с org mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
47
diff
changeset
|
649 |
:group 'basic-faces) |
5aa6729514f6
Add customize for org mode. Place todo higlight вместе с org mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
47
diff
changeset
|
650 |
|
144
41a4cd881b9e
Added makfile-mode to list for highlighting TABs.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
143
diff
changeset
|
651 |
(defvar my-devel-mode-list |
41a4cd881b9e
Added makfile-mode to list for highlighting TABs.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
143
diff
changeset
|
652 |
'(sh-mode script-mode java-mode c-mode outline-mode text-mode |
41a4cd881b9e
Added makfile-mode to list for highlighting TABs.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
143
diff
changeset
|
653 |
lisp-mode makefile-mode makefile-gmake-mode python-mode) |
41a4cd881b9e
Added makfile-mode to list for highlighting TABs.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
143
diff
changeset
|
654 |
"List of development modes." ) |
41a4cd881b9e
Added makfile-mode to list for highlighting TABs.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
143
diff
changeset
|
655 |
|
48
5aa6729514f6
Add customize for org mode. Place todo higlight вместе с org mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
47
diff
changeset
|
656 |
(add-hook 'font-lock-mode-hook (function (lambda () |
137
d86c2e8f0e36
Highlight TODO and FIXME only in desired modes.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
136
diff
changeset
|
657 |
(when (or |
144
41a4cd881b9e
Added makfile-mode to list for highlighting TABs.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
143
diff
changeset
|
658 |
(member major-mode my-devel-mode-list) |
137
d86c2e8f0e36
Highlight TODO and FIXME only in desired modes.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
136
diff
changeset
|
659 |
) |
48
5aa6729514f6
Add customize for org mode. Place todo higlight вместе с org mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
47
diff
changeset
|
660 |
(font-lock-add-keywords nil |
5aa6729514f6
Add customize for org mode. Place todo higlight вместе с org mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
47
diff
changeset
|
661 |
'( |
5aa6729514f6
Add customize for org mode. Place todo higlight вместе с org mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
47
diff
changeset
|
662 |
("\t+" 0 'my-tab-face t) |
5aa6729514f6
Add customize for org mode. Place todo higlight вместе с org mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
47
diff
changeset
|
663 |
("\\<\\(FIXME:?\\|XXX:?\\|TODO:?\\)\\>" 1 'my-todo-face t) |
5aa6729514f6
Add customize for org mode. Place todo higlight вместе с org mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
47
diff
changeset
|
664 |
("\\(=\\{7,\\}\\|<\\{7,\\}\\|>\\{7,\\}\\)" 1 'my-conflict-face t) |
5aa6729514f6
Add customize for org mode. Place todo higlight вместе с org mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
47
diff
changeset
|
665 |
)))))) |
5aa6729514f6
Add customize for org mode. Place todo higlight вместе с org mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
47
diff
changeset
|
666 |
|
5aa6729514f6
Add customize for org mode. Place todo higlight вместе с org mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
47
diff
changeset
|
667 |
;; ====================================================================== |
83
d2eaf2ed6d1c
Added basic jabber customization.
gavenkoa@gavenko.bifit.int
parents:
82
diff
changeset
|
668 |
;; communication |
d2eaf2ed6d1c
Added basic jabber customization.
gavenkoa@gavenko.bifit.int
parents:
82
diff
changeset
|
669 |
|
d2eaf2ed6d1c
Added basic jabber customization.
gavenkoa@gavenko.bifit.int
parents:
82
diff
changeset
|
670 |
;; ---------------------------------------------------------------------- |
d2eaf2ed6d1c
Added basic jabber customization.
gavenkoa@gavenko.bifit.int
parents:
82
diff
changeset
|
671 |
;; jabber |
d2eaf2ed6d1c
Added basic jabber customization.
gavenkoa@gavenko.bifit.int
parents:
82
diff
changeset
|
672 |
(when (featurep 'jabber) |
215 | 673 |
(setq |
674 |
jabber-history-enabled t |
|
675 |
jabber-use-global-history nil |
|
676 |
jabber-backlog-number 15 |
|
677 |
jabber-backlog-days 30 |
|
678 |
jabber-alert-presence-message-function (lambda (who oldstatus newstatus statustext) nil) |
|
679 |
) |
|
83
d2eaf2ed6d1c
Added basic jabber customization.
gavenkoa@gavenko.bifit.int
parents:
82
diff
changeset
|
680 |
) |
d2eaf2ed6d1c
Added basic jabber customization.
gavenkoa@gavenko.bifit.int
parents:
82
diff
changeset
|
681 |
|
214
f4234e15d891
Fix prompt format (prompt and text stay on two line, not one).
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
211
diff
changeset
|
682 |
(setq my-chat-prompt "[%t] %n>\n") |
f4234e15d891
Fix prompt format (prompt and text stay on two line, not one).
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
211
diff
changeset
|
683 |
(when (featurep 'jabber) |
f4234e15d891
Fix prompt format (prompt and text stay on two line, not one).
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
211
diff
changeset
|
684 |
(setq |
f4234e15d891
Fix prompt format (prompt and text stay on two line, not one).
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
211
diff
changeset
|
685 |
jabber-chat-foreign-prompt-format my-chat-prompt |
f4234e15d891
Fix prompt format (prompt and text stay on two line, not one).
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
211
diff
changeset
|
686 |
jabber-chat-local-prompt-format my-chat-prompt |
f4234e15d891
Fix prompt format (prompt and text stay on two line, not one).
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
211
diff
changeset
|
687 |
jabber-groupchat-prompt-format my-chat-prompt |
f4234e15d891
Fix prompt format (prompt and text stay on two line, not one).
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
211
diff
changeset
|
688 |
jabber-muc-private-foreign-prompt-format "[%t] %g/%n>\n" |
f4234e15d891
Fix prompt format (prompt and text stay on two line, not one).
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
211
diff
changeset
|
689 |
) |
83
d2eaf2ed6d1c
Added basic jabber customization.
gavenkoa@gavenko.bifit.int
parents:
82
diff
changeset
|
690 |
) |
d2eaf2ed6d1c
Added basic jabber customization.
gavenkoa@gavenko.bifit.int
parents:
82
diff
changeset
|
691 |
|
182
8a8bf4f3e7c2
Correctly set fsm var.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
181
diff
changeset
|
692 |
;; fsm used in emacs jabber |
8a8bf4f3e7c2
Correctly set fsm var.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
181
diff
changeset
|
693 |
(when (featurep 'fsm) |
8a8bf4f3e7c2
Correctly set fsm var.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
181
diff
changeset
|
694 |
(setq fsm-debug nil) ; Disable *fsm-debug* buffer. |
8a8bf4f3e7c2
Correctly set fsm var.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
181
diff
changeset
|
695 |
) |
83
d2eaf2ed6d1c
Added basic jabber customization.
gavenkoa@gavenko.bifit.int
parents:
82
diff
changeset
|
696 |
|
142
adfc0c678483
Basic customisation for rcirc.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
141
diff
changeset
|
697 |
;; ---------------------------------------------------------------------- |
adfc0c678483
Basic customisation for rcirc.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
141
diff
changeset
|
698 |
;; rcirc |
adfc0c678483
Basic customisation for rcirc.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
141
diff
changeset
|
699 |
|
adfc0c678483
Basic customisation for rcirc.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
141
diff
changeset
|
700 |
;; Turn on logging everything to a special buffer, for debugging. |
adfc0c678483
Basic customisation for rcirc.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
141
diff
changeset
|
701 |
;; (setq rcirc-debug-flag t) |
adfc0c678483
Basic customisation for rcirc.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
141
diff
changeset
|
702 |
|
adfc0c678483
Basic customisation for rcirc.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
141
diff
changeset
|
703 |
(add-hook 'rcirc-mode-hook (lambda () (rcirc-track-minor-mode 1))) |
adfc0c678483
Basic customisation for rcirc.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
141
diff
changeset
|
704 |
(setq rcirc-time-format "%H:%M ") |
adfc0c678483
Basic customisation for rcirc.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
141
diff
changeset
|
705 |
(defun rcirc-handler-301 (process cmd sender args) |
adfc0c678483
Basic customisation for rcirc.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
141
diff
changeset
|
706 |
"/away message handler.") |
adfc0c678483
Basic customisation for rcirc.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
141
diff
changeset
|
707 |
|
83
d2eaf2ed6d1c
Added basic jabber customization.
gavenkoa@gavenko.bifit.int
parents:
82
diff
changeset
|
708 |
;; ====================================================================== |
0 | 709 |
;; VCS, version control, cvs, svn. |
710 |
||
30
762d326dca54
Now .emacs only contain emacs custom settings and load my lisp code from separate file.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
29
diff
changeset
|
711 |
(if (equal window-system 'w32) |
762d326dca54
Now .emacs only contain emacs custom settings and load my lisp code from separate file.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
29
diff
changeset
|
712 |
(progn |
762d326dca54
Now .emacs only contain emacs custom settings and load my lisp code from separate file.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
29
diff
changeset
|
713 |
(modify-coding-system-alist 'process "cvs" '(cp1251-dos . cp1251-dos)) |
762d326dca54
Now .emacs only contain emacs custom settings and load my lisp code from separate file.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
29
diff
changeset
|
714 |
(modify-coding-system-alist 'process "svn" '(cp866-dos . cp1251-dos)) |
762d326dca54
Now .emacs only contain emacs custom settings and load my lisp code from separate file.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
29
diff
changeset
|
715 |
)) |
0 | 716 |
|
717 |
;; (setq-default vc-svn-register-switches "--encoding cp1251") |
|
718 |
(setq-default vc-svn-register-switches nil) |
|
719 |
||
19
a8e7a6e94341
Теперь белый фон для annotated.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
18
diff
changeset
|
720 |
(if window-system |
163
f9b21d24bbf4
Change color map for vc (C-x v g).
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
162
diff
changeset
|
721 |
(progn |
f9b21d24bbf4
Change color map for vc (C-x v g).
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
162
diff
changeset
|
722 |
(custom-set-variables |
f9b21d24bbf4
Change color map for vc (C-x v g).
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
162
diff
changeset
|
723 |
'(vc-annotate-very-old-color "#0b5b20") |
f9b21d24bbf4
Change color map for vc (C-x v g).
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
162
diff
changeset
|
724 |
'(vc-annotate-background "white") |
f9b21d24bbf4
Change color map for vc (C-x v g).
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
162
diff
changeset
|
725 |
'(vc-annotate-color-map |
f9b21d24bbf4
Change color map for vc (C-x v g).
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
162
diff
changeset
|
726 |
(quote ( |
f9b21d24bbf4
Change color map for vc (C-x v g).
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
162
diff
changeset
|
727 |
(20 . "#EE0000") |
f9b21d24bbf4
Change color map for vc (C-x v g).
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
162
diff
changeset
|
728 |
(40 . "#E0800D") |
f9b21d24bbf4
Change color map for vc (C-x v g).
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
162
diff
changeset
|
729 |
(60 . "#D3001A") |
f9b21d24bbf4
Change color map for vc (C-x v g).
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
162
diff
changeset
|
730 |
(80 . "#C68027") |
f9b21d24bbf4
Change color map for vc (C-x v g).
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
162
diff
changeset
|
731 |
(100 . "#B90034") |
f9b21d24bbf4
Change color map for vc (C-x v g).
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
162
diff
changeset
|
732 |
(120 . "#AB8042") |
f9b21d24bbf4
Change color map for vc (C-x v g).
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
162
diff
changeset
|
733 |
(140 . "#9E004F") |
f9b21d24bbf4
Change color map for vc (C-x v g).
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
162
diff
changeset
|
734 |
(160 . "#91805C") |
f9b21d24bbf4
Change color map for vc (C-x v g).
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
162
diff
changeset
|
735 |
(180 . "#840069") |
f9b21d24bbf4
Change color map for vc (C-x v g).
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
162
diff
changeset
|
736 |
(200 . "#778077") |
f9b21d24bbf4
Change color map for vc (C-x v g).
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
162
diff
changeset
|
737 |
(220 . "#690084") |
f9b21d24bbf4
Change color map for vc (C-x v g).
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
162
diff
changeset
|
738 |
(240 . "#5C8091") |
f9b21d24bbf4
Change color map for vc (C-x v g).
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
162
diff
changeset
|
739 |
(260 . "#4F009E") |
f9b21d24bbf4
Change color map for vc (C-x v g).
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
162
diff
changeset
|
740 |
(280 . "#4280AB") |
f9b21d24bbf4
Change color map for vc (C-x v g).
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
162
diff
changeset
|
741 |
(300 . "#3400B9") |
f9b21d24bbf4
Change color map for vc (C-x v g).
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
162
diff
changeset
|
742 |
(320 . "#2780C6") |
f9b21d24bbf4
Change color map for vc (C-x v g).
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
162
diff
changeset
|
743 |
(340 . "#1A00D3") |
f9b21d24bbf4
Change color map for vc (C-x v g).
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
162
diff
changeset
|
744 |
(360 . "#0D80E0")))) |
f9b21d24bbf4
Change color map for vc (C-x v g).
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
162
diff
changeset
|
745 |
) |
f9b21d24bbf4
Change color map for vc (C-x v g).
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
162
diff
changeset
|
746 |
) |
19
a8e7a6e94341
Теперь белый фон для annotated.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
18
diff
changeset
|
747 |
) |
a8e7a6e94341
Теперь белый фон для annotated.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
18
diff
changeset
|
748 |
|
91 | 749 |
;; ---------------------------------------------------------------------- |
197
2abcea5b91db
Added settings for psvn.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
192
diff
changeset
|
750 |
;; psvn |
2abcea5b91db
Added settings for psvn.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
192
diff
changeset
|
751 |
(setq svn-status-verbose t) |
2abcea5b91db
Added settings for psvn.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
192
diff
changeset
|
752 |
(setq svn-status-hide-unmodified t) |
2abcea5b91db
Added settings for psvn.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
192
diff
changeset
|
753 |
|
2abcea5b91db
Added settings for psvn.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
192
diff
changeset
|
754 |
;; ---------------------------------------------------------------------- |
91 | 755 |
;; DVC |
756 |
||
757 |
(when (featurep 'dvc-emacs) |
|
758 |
(setq dvc-tips-enabled nil) |
|
759 |
) |
|
760 |
||
0 | 761 |
;; ====================================================================== |
204
4545865a64c3
Move bat file mode code.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
203
diff
changeset
|
762 |
;; devel, prog, programming |
0 | 763 |
|
764 |
(add-to-list 'auto-mode-alist '("\\.cu$" . c-mode)) |
|
765 |
||
172
fcea80b465b9
Comment customisation.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
167
diff
changeset
|
766 |
(setq-default comment-style (quote indent)) |
fcea80b465b9
Comment customisation.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
167
diff
changeset
|
767 |
(setq-default comment-column 44) |
180
75ce786c1148
set comment-fill-column to 100.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
179
diff
changeset
|
768 |
(setq-default comment-fill-column 100) |
54 | 769 |
|
201
8531f8af6528
Allow long line coment in c/lisp code.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
200
diff
changeset
|
770 |
(mapc (lambda (mode) |
8531f8af6528
Allow long line coment in c/lisp code.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
200
diff
changeset
|
771 |
(add-hook mode |
8531f8af6528
Allow long line coment in c/lisp code.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
200
diff
changeset
|
772 |
(lambda () |
8531f8af6528
Allow long line coment in c/lisp code.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
200
diff
changeset
|
773 |
(setq fill-column 110) ) |
8531f8af6528
Allow long line coment in c/lisp code.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
200
diff
changeset
|
774 |
)) |
8531f8af6528
Allow long line coment in c/lisp code.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
200
diff
changeset
|
775 |
'(c-mode-hook lisp-mode-hook)) |
8531f8af6528
Allow long line coment in c/lisp code.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
200
diff
changeset
|
776 |
|
0 | 777 |
(setq-default show-trailing-whitespace t) |
778 |
||
779 |
;; ---------------------------------------------------------------------- |
|
7
8eae4300e86f
Перебил сочетание клавиш C-x C-d для вызова dired, вместо dir-list.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
6
diff
changeset
|
780 |
;; Diff, patch |
0 | 781 |
(setq diff-switches "-u") |
782 |
||
783 |
;; ---------------------------------------------------------------------- |
|
784 |
;; Indent |
|
785 |
||
786 |
(setq standard-indent 4) |
|
787 |
(setq c-basic-offset 4) |
|
22
8ca8997d9f1d
Определил размер отступа для sh-mode.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
21
diff
changeset
|
788 |
(setq sh-basic-offset 2) |
0 | 789 |
(setq sgml-basic-offset 4) |
790 |
||
791 |
;; TAB (tab settings) |
|
792 |
(setq-default tab-width 4) |
|
793 |
(setq-default indent-tabs-mode nil) ; t - \t |
|
794 |
(setq tab-always-indent t) |
|
795 |
(setq c-tab-always-indent t) |
|
188
e36736f245fd
Start tab-stop-list with zero.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
162
diff
changeset
|
796 |
(let ( (line-width 400) i ) |
e36736f245fd
Start tab-stop-list with zero.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
162
diff
changeset
|
797 |
(setq i (* (ceiling line-width 4) 4)) |
73
73e42aa11b3c
Correct initial asigned with nil.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
72
diff
changeset
|
798 |
(setq tab-stop-list nil) |
188
e36736f245fd
Start tab-stop-list with zero.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
162
diff
changeset
|
799 |
(while (>= i 0) |
e36736f245fd
Start tab-stop-list with zero.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
162
diff
changeset
|
800 |
(setq tab-stop-list (cons i tab-stop-list)) |
e36736f245fd
Start tab-stop-list with zero.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
162
diff
changeset
|
801 |
(setq i (- i 4)))) |
0 | 802 |
|
803 |
;; ---------------------------------------------------------------------- |
|
804 |
;; Diff. |
|
805 |
(setq ediff-diff-options "") |
|
806 |
||
807 |
;; ---------------------------------------------------------------------- |
|
808 |
;; *Compile* |
|
809 |
(setq compile-auto-highlight t |
|
810 |
compile-command "make ") |
|
811 |
;; compilation window shall scroll down if not 0 |
|
812 |
(setq compilation-scroll-output 1) |
|
813 |
||
28
b05bcec107fd
Correct coding (aotu determine CR/LF).
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
27
diff
changeset
|
814 |
;; My funny error messages. |
20
fde58d93c047
Добавил подсветку для output-файлов cl в compile-mode.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
19
diff
changeset
|
815 |
;; XXX hook. |
fde58d93c047
Добавил подсветку для output-файлов cl в compile-mode.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
19
diff
changeset
|
816 |
(require 'compile) |
38
90354c640342
Prevent error on debian from non-exist `compilation-error-regexp-alist-alist'.
sasha@rocky
parents:
36
diff
changeset
|
817 |
(add-to-list 'compilation-error-regexp-alist '("^\\( +\\[csc\\] \\|\\)\\(.*\\)(\\([0-9]*\\),\\([0-9]*\\)):" 2 3 4)) |
90354c640342
Prevent error on debian from non-exist `compilation-error-regexp-alist-alist'.
sasha@rocky
parents:
36
diff
changeset
|
818 |
(add-to-list 'compilation-error-regexp-alist '("^ *\\(.*\\)(\\([0-9]*\\)) +:" 1 2)) |
185
9c2934c3d8ca
Parsing KEIL compiler error.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
183
diff
changeset
|
819 |
(add-to-list 'compilation-error-regexp-alist '("^\"?\\([^\"]*\\)\"?,\\([0-9]*\\) .*\\[.*\\]: " 1 2)) ; KEIL compiler |
38
90354c640342
Prevent error on debian from non-exist `compilation-error-regexp-alist-alist'.
sasha@rocky
parents:
36
diff
changeset
|
820 |
;; (add-to-list 'compilation-mode-font-lock-keywords '("\\(/[Oo][Uu][Tt]:[^ ]+\\)" . 1)) |
90354c640342
Prevent error on debian from non-exist `compilation-error-regexp-alist-alist'.
sasha@rocky
parents:
36
diff
changeset
|
821 |
;; (add-to-list 'compilation-mode-font-lock-keywords '("[ ]\\(/F[oe][^ ]+\\)" . 1)) |
0 | 822 |
|
823 |
;; ---------------------------------------------------------------------- |
|
196
154d8ebf534b
Added matches for makefile-gmake-mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
192
diff
changeset
|
824 |
;; makefile, make |
154d8ebf534b
Added matches for makefile-gmake-mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
192
diff
changeset
|
825 |
|
154d8ebf534b
Added matches for makefile-gmake-mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
192
diff
changeset
|
826 |
(add-to-list 'auto-mode-alist '("\\(Makefile\\|Makefile\\..+\\)\\'" . makefile-gmake-mode)) |
154d8ebf534b
Added matches for makefile-gmake-mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
192
diff
changeset
|
827 |
|
154d8ebf534b
Added matches for makefile-gmake-mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
192
diff
changeset
|
828 |
;; ---------------------------------------------------------------------- |
0 | 829 |
;; asm |
36
4261883ccdb6
Use C-style comment in asm files.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
35
diff
changeset
|
830 |
;; (setq-default asm-comment-char 59) |
4261883ccdb6
Use C-style comment in asm files.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
35
diff
changeset
|
831 |
(add-hook 'asm-mode-hook '(lambda () (setq comment-start "/*") (setq comment-end "*/")) t) |
0 | 832 |
|
186
8c74e1ac4da1
Added association for IAR asm file.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
185
diff
changeset
|
833 |
(add-to-list 'auto-mode-alist '("\\.\\([sS]79\\|[sS]\\)\\'" . asm-mode)) |
8c74e1ac4da1
Added association for IAR asm file.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
185
diff
changeset
|
834 |
|
176
69d65b8a0a25
Added example for unset-key.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
175
diff
changeset
|
835 |
;; (add-hook 'asm-mode-hook '(lambda () (local-unset-key ":"))) |
69d65b8a0a25
Added example for unset-key.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
175
diff
changeset
|
836 |
;; (add-hook 'asm-mode-hook '(lambda () (local-set-key ":" ":"))) |
69d65b8a0a25
Added example for unset-key.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
175
diff
changeset
|
837 |
|
0 | 838 |
;; ---------------------------------------------------------------------- |
205 | 839 |
;; lisp |
0 | 840 |
(setq list-command-history-max 256) |
841 |
||
842 |
;; ---------------------------------------------------------------------- |
|
179
77fdd4bce6c8
c++-mode and objc-mode use "my" style.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
178
diff
changeset
|
843 |
;; C, c-mode, C++, c++-mode |
173
04b974b118c2
cc-mode customisations.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
172
diff
changeset
|
844 |
|
0 | 845 |
(setq c-echo-syntactic-information-p t) |
173
04b974b118c2
cc-mode customisations.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
172
diff
changeset
|
846 |
(add-hook 'c-mode-common-hook |
04b974b118c2
cc-mode customisations.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
172
diff
changeset
|
847 |
(lambda () |
04b974b118c2
cc-mode customisations.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
172
diff
changeset
|
848 |
;; Automatically inserte newlines after special characters such as brace, comma, semi-colon, and colon. |
04b974b118c2
cc-mode customisations.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
172
diff
changeset
|
849 |
(c-toggle-auto-newline -1) |
04b974b118c2
cc-mode customisations.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
172
diff
changeset
|
850 |
;; Delete all preceding whitespace by DEL. |
04b974b118c2
cc-mode customisations.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
172
diff
changeset
|
851 |
(c-toggle-hungry-state -1) |
04b974b118c2
cc-mode customisations.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
172
diff
changeset
|
852 |
)) |
0 | 853 |
|
854 |
(defconst my-c-style |
|
129
23d028bad418
More regular indent.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
128
diff
changeset
|
855 |
'((c-tab-always-indent . t) |
0 | 856 |
(c-comment-only-line-offset . 4) |
129
23d028bad418
More regular indent.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
128
diff
changeset
|
857 |
(c-hanging-braces-alist |
131
bd2400a18295
Practice alphabetical order.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
130
diff
changeset
|
858 |
. ( |
bd2400a18295
Practice alphabetical order.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
130
diff
changeset
|
859 |
(brace-list-open) |
bd2400a18295
Practice alphabetical order.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
130
diff
changeset
|
860 |
(substatement-open after) |
bd2400a18295
Practice alphabetical order.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
130
diff
changeset
|
861 |
)) |
129
23d028bad418
More regular indent.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
128
diff
changeset
|
862 |
(c-hanging-colons-alist |
131
bd2400a18295
Practice alphabetical order.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
130
diff
changeset
|
863 |
. ( |
bd2400a18295
Practice alphabetical order.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
130
diff
changeset
|
864 |
(access-label after) |
bd2400a18295
Practice alphabetical order.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
130
diff
changeset
|
865 |
(case-label after) |
129
23d028bad418
More regular indent.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
128
diff
changeset
|
866 |
(inher-intro) |
23d028bad418
More regular indent.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
128
diff
changeset
|
867 |
(label after) |
131
bd2400a18295
Practice alphabetical order.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
130
diff
changeset
|
868 |
(member-init-intro before) |
bd2400a18295
Practice alphabetical order.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
130
diff
changeset
|
869 |
)) |
129
23d028bad418
More regular indent.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
128
diff
changeset
|
870 |
(c-cleanup-list |
131
bd2400a18295
Practice alphabetical order.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
130
diff
changeset
|
871 |
. ( |
bd2400a18295
Practice alphabetical order.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
130
diff
changeset
|
872 |
defun-close-semi |
129
23d028bad418
More regular indent.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
128
diff
changeset
|
873 |
empty-defun-braces |
131
bd2400a18295
Practice alphabetical order.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
130
diff
changeset
|
874 |
scope-operator |
bd2400a18295
Practice alphabetical order.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
130
diff
changeset
|
875 |
)) |
129
23d028bad418
More regular indent.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
128
diff
changeset
|
876 |
(c-offsets-alist |
131
bd2400a18295
Practice alphabetical order.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
130
diff
changeset
|
877 |
. ( |
129
23d028bad418
More regular indent.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
128
diff
changeset
|
878 |
(arglist-close . c-lineup-arglist) |
23d028bad418
More regular indent.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
128
diff
changeset
|
879 |
(arglist-cont-nonempty . ++) |
131
bd2400a18295
Practice alphabetical order.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
130
diff
changeset
|
880 |
(arglist-intro . ++) |
bd2400a18295
Practice alphabetical order.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
130
diff
changeset
|
881 |
(block-open . 0) |
bd2400a18295
Practice alphabetical order.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
130
diff
changeset
|
882 |
(case-label . 0) |
bd2400a18295
Practice alphabetical order.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
130
diff
changeset
|
883 |
(comment-intro . 0) |
bd2400a18295
Practice alphabetical order.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
130
diff
changeset
|
884 |
(func-decl-cont . ++) |
129
23d028bad418
More regular indent.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
128
diff
changeset
|
885 |
(inexpr-class . 0) |
131
bd2400a18295
Practice alphabetical order.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
130
diff
changeset
|
886 |
(inline-open . 0) |
bd2400a18295
Practice alphabetical order.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
130
diff
changeset
|
887 |
(knr-argdecl-intro . -) |
129
23d028bad418
More regular indent.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
128
diff
changeset
|
888 |
(label . 0) |
131
bd2400a18295
Practice alphabetical order.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
130
diff
changeset
|
889 |
(statement-block-intro . +) |
bd2400a18295
Practice alphabetical order.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
130
diff
changeset
|
890 |
(statement-cont . ++) |
129
23d028bad418
More regular indent.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
128
diff
changeset
|
891 |
(substatement-open . 0) |
131
bd2400a18295
Practice alphabetical order.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
130
diff
changeset
|
892 |
)) |
0 | 893 |
(c-echo-syntactic-information-p . t)) |
894 |
"My C Programming Style") |
|
895 |
||
128
5a3df58678d2
Switch from c-initialization-hook to c-mode-common-hook because otherwise
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
127
diff
changeset
|
896 |
(add-hook 'c-mode-common-hook |
5a3df58678d2
Switch from c-initialization-hook to c-mode-common-hook because otherwise
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
127
diff
changeset
|
897 |
(lambda () (c-add-style "my" my-c-style t))) |
179
77fdd4bce6c8
c++-mode and objc-mode use "my" style.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
178
diff
changeset
|
898 |
(setq c-default-style '((java-mode . "my") (c-mode . "my") (csharp-mode . "my") (c++-mode . "my") (objc-mode . "my") (other . "my"))) |
0 | 899 |
|
900 |
;; ---------------------------------------------------------------------- |
|
204
4545865a64c3
Move bat file mode code.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
203
diff
changeset
|
901 |
;; bat file, batch |
4545865a64c3
Move bat file mode code.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
203
diff
changeset
|
902 |
|
4545865a64c3
Move bat file mode code.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
203
diff
changeset
|
903 |
(when (provide 'bat-mode) |
4545865a64c3
Move bat file mode code.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
203
diff
changeset
|
904 |
(progn |
4545865a64c3
Move bat file mode code.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
203
diff
changeset
|
905 |
(add-to-list 'auto-mode-alist '("\\.[bB][aA][tT]\\'" . bat-mode)) |
4545865a64c3
Move bat file mode code.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
203
diff
changeset
|
906 |
(add-to-list 'auto-mode-alist '("\\.[cC][mM][dD]\\'" . bat-mode)) |
4545865a64c3
Move bat file mode code.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
203
diff
changeset
|
907 |
)) |
4545865a64c3
Move bat file mode code.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
203
diff
changeset
|
908 |
|
4545865a64c3
Move bat file mode code.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
203
diff
changeset
|
909 |
;; ---------------------------------------------------------------------- |
23 | 910 |
;; *csharp*, c-sharp |
204
4545865a64c3
Move bat file mode code.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
203
diff
changeset
|
911 |
|
0 | 912 |
(autoload 'csharp-mode "csharp-mode" "Major mode for editing C# code." t) |
913 |
(add-to-list 'auto-mode-alist '("\\.cs$" . csharp-mode)) |
|
914 |
||
915 |
;; ---------------------------------------------------------------------- |
|
916 |
;; *Java* |
|
917 |
;; Update the Emacs load-path to include the path to |
|
918 |
;; the JDE and its require packages. This code assumes |
|
919 |
;; that you have installed the packages in the emacs/site |
|
920 |
;; subdirectory of your home directory. |
|
921 |
;; (add-to-list 'load-path (expand-file-name "~/emacs/site/semantic")) |
|
922 |
;; (add-to-list 'load-path (expand-file-name "~/emacs/site/speedbar")) |
|
923 |
;; (add-to-list 'load-path (expand-file-name "~/emacs/site/elib-1.0")) |
|
924 |
;; (add-to-list 'load-path (expand-file-name "~/emacs/site/eieio")) |
|
925 |
;; (add-to-list 'load-path (expand-file-name "~/emacs/site/jde-2.3.5.1/lisp")) |
|
926 |
||
927 |
;; Load CEDET |
|
928 |
;; (load-file "~/emacs/site/common/cedet.el") |
|
929 |
;; Enabling SEMANTIC minor modes. See semantic/INSTALL for more ideas. |
|
930 |
;; (semantic-load-enable-code-helpers) |
|
931 |
||
932 |
;; If you want Emacs to defer loading the JDE until you open a |
|
933 |
;; Java file, edit the following line |
|
934 |
;; (setq defer-loading-jde nil) |
|
935 |
;; to read: |
|
936 |
;; |
|
937 |
;; (setq defer-loading-jde t) |
|
938 |
;; |
|
939 |
||
940 |
;; (if defer-loading-jde |
|
941 |
;; (progn |
|
942 |
;; (autoload 'jde-mode "jde" "JDE mode." t) |
|
943 |
;; (add-to-list 'auto-mode-alist '("\\.java\\'" . jde-mode)) |
|
944 |
;; (require 'jde))) |
|
945 |
||
946 |
||
947 |
;; Sets the basic indentation for Java source files |
|
948 |
;; to two spaces. |
|
949 |
;; (defun my-jde-mode-hook () |
|
950 |
;; (setq c-basic-offset 2)) |
|
951 |
||
952 |
;; (add-hook 'jde-mode-hook 'my-jde-mode-hook) |
|
953 |
||
954 |
;; (require 'jde) |
|
955 |
||
956 |
;; ******************** |
|
957 |
;; ECB |
|
958 |
;; ******************* |
|
959 |
||
102
25585e240b4a
Move customization from .emacs (custom-set-variables) to .emacs-my. Remove duplication.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
101
diff
changeset
|
960 |
(setq ecb-tip-of-the-day nil) |
0 | 961 |
;; (add-to-list 'load-path "~/emacs/site/ecb-2.32") |
962 |
;; (require 'ecb) |
|
963 |
||
102
25585e240b4a
Move customization from .emacs (custom-set-variables) to .emacs-my. Remove duplication.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
101
diff
changeset
|
964 |
;; (global-set-key (kbd "\e\eE") 'ecb-activate) |
0 | 965 |
|
104
e921a5d906ca
Use highlighting on sgml modes!
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
102
diff
changeset
|
966 |
;; ---------------------------------------------------------------------- |
e921a5d906ca
Use highlighting on sgml modes!
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
102
diff
changeset
|
967 |
;; html |
e921a5d906ca
Use highlighting on sgml modes!
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
102
diff
changeset
|
968 |
|
e921a5d906ca
Use highlighting on sgml modes!
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
102
diff
changeset
|
969 |
;; ---------------------------------------------------------------------- |
e921a5d906ca
Use highlighting on sgml modes!
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
102
diff
changeset
|
970 |
;; xml |
e921a5d906ca
Use highlighting on sgml modes!
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
102
diff
changeset
|
971 |
|
e921a5d906ca
Use highlighting on sgml modes!
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
102
diff
changeset
|
972 |
;; ---------------------------------------------------------------------- |
e921a5d906ca
Use highlighting on sgml modes!
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
102
diff
changeset
|
973 |
;; psgml |
e921a5d906ca
Use highlighting on sgml modes!
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
102
diff
changeset
|
974 |
(setq sgml-set-face t) ; for highlighting in sgml |
e921a5d906ca
Use highlighting on sgml modes!
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
102
diff
changeset
|
975 |
|
0 | 976 |
;; ====================================================================== |
7
8eae4300e86f
Перебил сочетание клавиш C-x C-d для вызова dired, вместо dir-list.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
6
diff
changeset
|
977 |
;; Printing |
0 | 978 |
|
979 |
;; Use Notepad to print plain text files to the default Windows printer |
|
980 |
;(setq lpr-command "notepad") |
|
981 |
;(setq lpr-headers-switches '("/p")) ; \ mis-use these |
|
982 |
;(setq lpr-switches nil) ; / two variables |
|
9 | 983 |
;(setq printer-name nil) ; notepad takes the default |
0 | 984 |
;(setq lpr-printer-switch "/P") ;; run notepad as batch printer |
985 |
;; |
|
986 |
;; |
|
987 |
;(setq printer-name "~/myprint.txt") |
|
988 |
;(setq ps-printer-name nil) |
|
989 |
;(setq ps-print-header nil) |
|
990 |
;; |
|
991 |
;;; some more menu entries in the command list: |
|
992 |
;;; see tex-mik.el from package auctex: %v is defined in tex-mik.el |
|
993 |
;;; other variables are defined in tex.el from auctex |
|
994 |
;;; the meaning of some auctex-varibles: |
|
995 |
;symbols defined in tex.el and tex-mik.el: |
|
996 |
;%b name slave tex-file %t name master tex-file |
|
997 |
;%d dvi-file %f ps-file |
|
998 |
;%l "latex --src-specials" |
|
999 |
;%n line number %p printcommand %q "lpq" |
|
1000 |
;%r (TeX-style-check TeX-print-style) |
|
1001 |
;%s master-file-name without extention |
|
1002 |
;%v yap command view line |
|
1003 |
;(eval-after-load "tex" |
|
1004 |
; '(progn |
|
1005 |
; (add-to-list 'TeX-command-list |
|
9 | 1006 |
; (list "->PS landscape for pdf" |
1007 |
; "dvips %d -N0 -Ppdf -G0 -T 297mm,210mm -o %f " |
|
1008 |
; 'TeX-run-command nil t)) |
|
0 | 1009 |
; (add-to-list 'TeX-command-list |
9 | 1010 |
; (list "All Texify run-viewer" |
1011 |
; "texify --tex-opt=--src --run-viewer --clean %s.tex" |
|
1012 |
; 'TeX-run-command nil t)))) |
|
0 | 1013 |
|
102
25585e240b4a
Move customization from .emacs (custom-set-variables) to .emacs-my. Remove duplication.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
101
diff
changeset
|
1014 |
;; ---------------------------------------------------------------- |
25585e240b4a
Move customization from .emacs (custom-set-variables) to .emacs-my. Remove duplication.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
101
diff
changeset
|
1015 |
;; SQL |
25585e240b4a
Move customization from .emacs (custom-set-variables) to .emacs-my. Remove duplication.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
101
diff
changeset
|
1016 |
|
25585e240b4a
Move customization from .emacs (custom-set-variables) to .emacs-my. Remove duplication.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
101
diff
changeset
|
1017 |
;; (desire 'sql-mode) |
25585e240b4a
Move customization from .emacs (custom-set-variables) to .emacs-my. Remove duplication.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
101
diff
changeset
|
1018 |
(setq sql-password "") |
0 | 1019 |
|
1020 |
;; ====================================================================== |
|
1021 |
;; |
|
1022 |
;; CUA - Windows |
|
1023 |
;; Ctr-c,v,x,d windows CUA |
|
1024 |
||
1025 |
;; 21.3 |
|
1026 |
||
1027 |
;(require 'cua) |
|
1028 |
;(CUA-mode t) |
|
1029 |
;; CUA |
|
1030 |
;(setq CUA-mode-normal-cursor-color "black") |
|
1031 |
;(setq CUA-mode-overwrite-cursor-color "red") |
|
1032 |
;(setq CUA-mode-read-only-cursor-color "green") |
|
1033 |
;(CUA-keypad-mode 'numeric t); . - |
|
1034 |
;(CUA-keypad-mode 'prefix t); . - (-2) |
|
1035 |
||
1036 |
;; 21.3.50 |
|
1037 |
||
1038 |
;(require 'cua-base) |
|
1039 |
;(cua-mode t) |
|
1040 |
;; CUA |
|
1041 |
;(setq cua-normal-cursor-color "black") |
|
1042 |
;(setq cua-overwrite-cursor-color "red") |
|
1043 |
;(setq cua-read-only-cursor-color "green") |
|
1044 |
||
1045 |
;; ====================================================================== |
|
7
8eae4300e86f
Перебил сочетание клавиш C-x C-d для вызова dired, вместо dir-list.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
6
diff
changeset
|
1046 |
;; Backup |
0 | 1047 |
|
75
cd964a1d58b9
Use backup for files.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
74
diff
changeset
|
1048 |
(setq |
147 | 1049 |
backup-by-copying t ; don't clobber symlinks |
75
cd964a1d58b9
Use backup for files.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
74
diff
changeset
|
1050 |
backup-directory-alist '(("." . "~/.backup")) ; don't litter my fs tree |
82
1a705650ca56
Delete excess backup versions silently, else it prompt to delete ~/.recentf.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
81
diff
changeset
|
1051 |
delete-old-versions t ; delete excess backup versions silently |
75
cd964a1d58b9
Use backup for files.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
74
diff
changeset
|
1052 |
kept-old-versions 1 ; store first original version |
cd964a1d58b9
Use backup for files.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
74
diff
changeset
|
1053 |
kept-new-versions 3 ; store last 3 version |
cd964a1d58b9
Use backup for files.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
74
diff
changeset
|
1054 |
version-control t) ; use versioned backups |
0 | 1055 |
|
150 | 1056 |
;; ====================================================================== |
1057 |
;; auto save |
|
1058 |
||
1059 |
(setq auto-save-default t) |
|
1060 |
;; If nil autosave to different than original to buffer file. |
|
1061 |
(setq auto-save-visited-file-name nil) |
|
1062 |
;; Note: if you kill unsaved file auto save file not deleted. |
|
1063 |
(setq delete-auto-save-files t) |
|
0 | 1064 |
|
1065 |
;; ====================================================================== |
|
40 | 1066 |
;; Setup user info. |
17
4f97bf9a25d5
Удалил строки, содержащие абсолютные пути в windows.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
16
diff
changeset
|
1067 |
|
0 | 1068 |
(cd "~/") |
51 | 1069 |
(setq user-full-name "Oleksandr Gavenko") |
1070 |
(setq user-mail-address "gavenkoa@gmail.com") |
|
1071 |
(setenv "ORGANIZATION" (concat user-full-name " <" user-mail-address ">")) |
|
0 | 1072 |
|
1073 |
(message ".emacs loaded OK.") |
|
1074 |
||
1075 |
;; |
|
1076 |
;; End loading... |