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