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