author | Oleksandr Gavenko <gavenkoa@gmail.com> |
Mon, 25 Dec 2023 20:15:49 +0200 | |
changeset 1772 | d97be992a1f9 |
parent 1680 | 77bbb8dc0e0c |
permissions | -rw-r--r-- |
1142
7906db469af0
Switch to ido from iswitchb. Use ido key binding instead of ffap-bindings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
diff
changeset
|
1 |
;; -*- mode: emacs-lisp; coding: utf-8; fill-column: 78 -*- |
7906db469af0
Switch to ido from iswitchb. Use ido key binding instead of ffap-bindings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
diff
changeset
|
2 |
|
7906db469af0
Switch to ido from iswitchb. Use ido key binding instead of ffap-bindings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
diff
changeset
|
3 |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
7906db469af0
Switch to ido from iswitchb. Use ido key binding instead of ffap-bindings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
diff
changeset
|
4 |
|
7906db469af0
Switch to ido from iswitchb. Use ido key binding instead of ffap-bindings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
diff
changeset
|
5 |
(iswitchb-mode 1) |
7906db469af0
Switch to ido from iswitchb. Use ido key binding instead of ffap-bindings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
diff
changeset
|
6 |
|
7906db469af0
Switch to ido from iswitchb. Use ido key binding instead of ffap-bindings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
diff
changeset
|
7 |
(setq iswitchb-regexp t) |
7906db469af0
Switch to ido from iswitchb. Use ido key binding instead of ffap-bindings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
diff
changeset
|
8 |
(setq iswitchb-use-virtual-buffers t) |
7906db469af0
Switch to ido from iswitchb. Use ido key binding instead of ffap-bindings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
diff
changeset
|
9 |
(setq iswitchb-buffer-ignore |
7906db469af0
Switch to ido from iswitchb. Use ido key binding instead of ffap-bindings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
diff
changeset
|
10 |
'("^ " |
7906db469af0
Switch to ido from iswitchb. Use ido key binding instead of ffap-bindings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
diff
changeset
|
11 |
"^\\*Buffer" |
7906db469af0
Switch to ido from iswitchb. Use ido key binding instead of ffap-bindings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
diff
changeset
|
12 |
"^\\*Completions\\*" |
7906db469af0
Switch to ido from iswitchb. Use ido key binding instead of ffap-bindings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
diff
changeset
|
13 |
"^\\*tramp" |
7906db469af0
Switch to ido from iswitchb. Use ido key binding instead of ffap-bindings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
diff
changeset
|
14 |
"^\\*Dired log\\*" |
7906db469af0
Switch to ido from iswitchb. Use ido key binding instead of ffap-bindings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
diff
changeset
|
15 |
"^\\*Quail Completions\\*" |
7906db469af0
Switch to ido from iswitchb. Use ido key binding instead of ffap-bindings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
diff
changeset
|
16 |
"^\\*Disabled Command\\*" |
7906db469af0
Switch to ido from iswitchb. Use ido key binding instead of ffap-bindings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
diff
changeset
|
17 |
"^TAGS" |
7906db469af0
Switch to ido from iswitchb. Use ido key binding instead of ffap-bindings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
diff
changeset
|
18 |
)) |
7906db469af0
Switch to ido from iswitchb. Use ido key binding instead of ffap-bindings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
diff
changeset
|
19 |
|
7906db469af0
Switch to ido from iswitchb. Use ido key binding instead of ffap-bindings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
diff
changeset
|
20 |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
7906db469af0
Switch to ido from iswitchb. Use ido key binding instead of ffap-bindings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
diff
changeset
|
21 |
|
7906db469af0
Switch to ido from iswitchb. Use ido key binding instead of ffap-bindings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
diff
changeset
|
22 |
(require 'ffap) |
7906db469af0
Switch to ido from iswitchb. Use ido key binding instead of ffap-bindings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
diff
changeset
|
23 |
(ffap-bindings) |
7906db469af0
Switch to ido from iswitchb. Use ido key binding instead of ffap-bindings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
diff
changeset
|
24 |
|
7906db469af0
Switch to ido from iswitchb. Use ido key binding instead of ffap-bindings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
diff
changeset
|
25 |
;; I usually mistype "C-x C-f" to "C-x d" or "C-x C-d", so always use find-file, |
7906db469af0
Switch to ido from iswitchb. Use ido key binding instead of ffap-bindings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
diff
changeset
|
26 |
;; because when file if directory find-file load dired, if regular file open it. |
7906db469af0
Switch to ido from iswitchb. Use ido key binding instead of ffap-bindings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
diff
changeset
|
27 |
(global-set-key (kbd "C-x C-f") 'find-file-at-point) |
7906db469af0
Switch to ido from iswitchb. Use ido key binding instead of ffap-bindings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
diff
changeset
|
28 |
(global-set-key (kbd "C-x C-d") 'find-file-at-point) |
7906db469af0
Switch to ido from iswitchb. Use ido key binding instead of ffap-bindings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
diff
changeset
|
29 |
(global-set-key (kbd "C-x d") 'find-file-at-point) |
7906db469af0
Switch to ido from iswitchb. Use ido key binding instead of ffap-bindings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
diff
changeset
|
30 |
|
7906db469af0
Switch to ido from iswitchb. Use ido key binding instead of ffap-bindings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
diff
changeset
|
31 |
;; Stop 'ffap' in Dired as its suggestion is inconvenient. |
7906db469af0
Switch to ido from iswitchb. Use ido key binding instead of ffap-bindings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
diff
changeset
|
32 |
(define-key dired-mode-map (kbd "C-x C-f") 'find-file) |
7906db469af0
Switch to ido from iswitchb. Use ido key binding instead of ffap-bindings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
diff
changeset
|
33 |
(define-key dired-mode-map (kbd "C-x C-d") 'find-file) |
7906db469af0
Switch to ido from iswitchb. Use ido key binding instead of ffap-bindings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
diff
changeset
|
34 |
(define-key dired-mode-map (kbd "C-x d") 'find-file) |
7906db469af0
Switch to ido from iswitchb. Use ido key binding instead of ffap-bindings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
diff
changeset
|
35 |
|
7906db469af0
Switch to ido from iswitchb. Use ido key binding instead of ffap-bindings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
diff
changeset
|
36 |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
7906db469af0
Switch to ido from iswitchb. Use ido key binding instead of ffap-bindings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
diff
changeset
|
37 |
|
7906db469af0
Switch to ido from iswitchb. Use ido key binding instead of ffap-bindings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
diff
changeset
|
38 |
(mapc (lambda (ext) (add-to-list 'completion-ignored-extensions ext)) |
7906db469af0
Switch to ido from iswitchb. Use ido key binding instead of ffap-bindings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
diff
changeset
|
39 |
'( |
7906db469af0
Switch to ido from iswitchb. Use ido key binding instead of ffap-bindings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
diff
changeset
|
40 |
".class" "~" ".aux" |
7906db469af0
Switch to ido from iswitchb. Use ido key binding instead of ffap-bindings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
diff
changeset
|
41 |
".o" ".obj" ".map" ".lib" ".lo" ".la" ".a" ".bin" ".exe" |
7906db469af0
Switch to ido from iswitchb. Use ido key binding instead of ffap-bindings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
diff
changeset
|
42 |
;; Place dir at end to appear at the start of completion-ignored-extensions. |
7906db469af0
Switch to ido from iswitchb. Use ido key binding instead of ffap-bindings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
diff
changeset
|
43 |
"CVS/" ".hg/" ".svn/" ".git/" ".bzr/" |
7906db469af0
Switch to ido from iswitchb. Use ido key binding instead of ffap-bindings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
diff
changeset
|
44 |
) ) |
1199
dff272add01e
Move all configs to "~/.emacs.d/my".
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1142
diff
changeset
|
45 |
|
dff272add01e
Move all configs to "~/.emacs.d/my".
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1142
diff
changeset
|
46 |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
dff272add01e
Move all configs to "~/.emacs.d/my".
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1142
diff
changeset
|
47 |
|
dff272add01e
Move all configs to "~/.emacs.d/my".
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1142
diff
changeset
|
48 |
(defun my-find-subdirs (dir) |
dff272add01e
Move all configs to "~/.emacs.d/my".
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1142
diff
changeset
|
49 |
(if (file-directory-p dir) |
dff272add01e
Move all configs to "~/.emacs.d/my".
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1142
diff
changeset
|
50 |
(cons dir (apply 'append (mapcar 'my-find-subdirs (directory-files dir t "^[^.]")) ) ) |
dff272add01e
Move all configs to "~/.emacs.d/my".
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1142
diff
changeset
|
51 |
)) |
dff272add01e
Move all configs to "~/.emacs.d/my".
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1142
diff
changeset
|
52 |
(defun my-add-subdirs-to-load-path (dir) |
dff272add01e
Move all configs to "~/.emacs.d/my".
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1142
diff
changeset
|
53 |
(mapc |
dff272add01e
Move all configs to "~/.emacs.d/my".
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1142
diff
changeset
|
54 |
(lambda (d) |
dff272add01e
Move all configs to "~/.emacs.d/my".
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1142
diff
changeset
|
55 |
(add-to-list 'load-path d t) |
dff272add01e
Move all configs to "~/.emacs.d/my".
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1142
diff
changeset
|
56 |
(message "Load-path updated with: %s" d) |
dff272add01e
Move all configs to "~/.emacs.d/my".
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1142
diff
changeset
|
57 |
) |
dff272add01e
Move all configs to "~/.emacs.d/my".
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1142
diff
changeset
|
58 |
(my-find-subdirs dir)) ) |
dff272add01e
Move all configs to "~/.emacs.d/my".
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1142
diff
changeset
|
59 |
|
1675
08f7fd3c4d5b
Load more files for byte compilation check. Switched to my-lisp-* prefix.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1507
diff
changeset
|
60 |
(my-add-subdirs-to-load-path my-lisp-usr-home-dir) |
1199
dff272add01e
Move all configs to "~/.emacs.d/my".
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1142
diff
changeset
|
61 |
(my-add-subdirs-to-load-path my-lisp-dir) |
1219
68542ca74092
ansi-color-for-comint-mode-on
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1199
diff
changeset
|
62 |
|
68542ca74092
ansi-color-for-comint-mode-on
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1199
diff
changeset
|
63 |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
68542ca74092
ansi-color-for-comint-mode-on
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1199
diff
changeset
|
64 |
|
68542ca74092
ansi-color-for-comint-mode-on
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1199
diff
changeset
|
65 |
(add-hook 'comint-output-filter-functions 'comint-strip-ctrl-m) |
68542ca74092
ansi-color-for-comint-mode-on
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1199
diff
changeset
|
66 |
(add-hook 'comint-mode-hook 'ansi-color-for-comint-mode-on) |
68542ca74092
ansi-color-for-comint-mode-on
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1199
diff
changeset
|
67 |
|
1222
7a33c92b5d47
comint-strip-ctrl-m
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1219
diff
changeset
|
68 |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
7a33c92b5d47
comint-strip-ctrl-m
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1219
diff
changeset
|
69 |
;; For Cygwin. |
7a33c92b5d47
comint-strip-ctrl-m
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1219
diff
changeset
|
70 |
|
7a33c92b5d47
comint-strip-ctrl-m
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1219
diff
changeset
|
71 |
(add-hook 'comint-output-filter-functions 'comint-strip-ctrl-m) |
1304
8c1f6458c907
Do not highlight 64 equal characters.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1222
diff
changeset
|
72 |
|
8c1f6458c907
Do not highlight 64 equal characters.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1222
diff
changeset
|
73 |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
8c1f6458c907
Do not highlight 64 equal characters.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1222
diff
changeset
|
74 |
(message "TODO, XXX, FIXME highlight") |
8c1f6458c907
Do not highlight 64 equal characters.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1222
diff
changeset
|
75 |
|
8c1f6458c907
Do not highlight 64 equal characters.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1222
diff
changeset
|
76 |
(defface my-contrasty-face |
8c1f6458c907
Do not highlight 64 equal characters.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1222
diff
changeset
|
77 |
'((t :background "pink" :foreground "red" :weight bold)) |
8c1f6458c907
Do not highlight 64 equal characters.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1222
diff
changeset
|
78 |
"Font for showing conflicts." |
8c1f6458c907
Do not highlight 64 equal characters.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1222
diff
changeset
|
79 |
:group 'basic-faces) |
8c1f6458c907
Do not highlight 64 equal characters.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1222
diff
changeset
|
80 |
|
8c1f6458c907
Do not highlight 64 equal characters.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1222
diff
changeset
|
81 |
(dolist (mode (append my-devel-mode-list my-text-mode-list)) |
8c1f6458c907
Do not highlight 64 equal characters.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1222
diff
changeset
|
82 |
(font-lock-add-keywords |
8c1f6458c907
Do not highlight 64 equal characters.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1222
diff
changeset
|
83 |
mode |
8c1f6458c907
Do not highlight 64 equal characters.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1222
diff
changeset
|
84 |
`( |
8c1f6458c907
Do not highlight 64 equal characters.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1222
diff
changeset
|
85 |
;; 64 times, for highlight C-u C-u C-u <key> |
8c1f6458c907
Do not highlight 64 equal characters.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1222
diff
changeset
|
86 |
("\\([^[:space:]]\\)\\1\\{63\\}" 0 'my-contrasty-face t) )) ) |
1313
ec0316f8e223
Recipe to make mouse clicks work in xterm/iTerm.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1304
diff
changeset
|
87 |
|
ec0316f8e223
Recipe to make mouse clicks work in xterm/iTerm.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1304
diff
changeset
|
88 |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
ec0316f8e223
Recipe to make mouse clicks work in xterm/iTerm.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1304
diff
changeset
|
89 |
;; Make mouse clicks work in xterm (and iTerm). |
ec0316f8e223
Recipe to make mouse clicks work in xterm/iTerm.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1304
diff
changeset
|
90 |
|
ec0316f8e223
Recipe to make mouse clicks work in xterm/iTerm.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1304
diff
changeset
|
91 |
(when (not (window-system)) |
ec0316f8e223
Recipe to make mouse clicks work in xterm/iTerm.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1304
diff
changeset
|
92 |
(xterm-mouse-mode +1)) |
ec0316f8e223
Recipe to make mouse clicks work in xterm/iTerm.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1304
diff
changeset
|
93 |
|
1375
5959fa99a6f7
Unconditionally enable Org mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1313
diff
changeset
|
94 |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
5959fa99a6f7
Unconditionally enable Org mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1313
diff
changeset
|
95 |
(message "org-mode, GTD, PIM, organize, todo") |
5959fa99a6f7
Unconditionally enable Org mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1313
diff
changeset
|
96 |
|
5959fa99a6f7
Unconditionally enable Org mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1313
diff
changeset
|
97 |
(when (>= emacs-major-version 22) |
5959fa99a6f7
Unconditionally enable Org mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1313
diff
changeset
|
98 |
(require 'org)) |
5959fa99a6f7
Unconditionally enable Org mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1313
diff
changeset
|
99 |
|
5959fa99a6f7
Unconditionally enable Org mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1313
diff
changeset
|
100 |
(when (or (featurep 'org) (featurep 'org-install)) |
5959fa99a6f7
Unconditionally enable Org mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1313
diff
changeset
|
101 |
(message "Many lines here...")) |
5959fa99a6f7
Unconditionally enable Org mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1313
diff
changeset
|
102 |
|
1376
52d43b70cc7c
Exclusively use "org-capture". Although it is not available on Emacs 23 but I
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1375
diff
changeset
|
103 |
(cond |
52d43b70cc7c
Exclusively use "org-capture". Although it is not available on Emacs 23 but I
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1375
diff
changeset
|
104 |
((featurep 'org-capture) |
52d43b70cc7c
Exclusively use "org-capture". Although it is not available on Emacs 23 but I
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1375
diff
changeset
|
105 |
(setq org-default-notes-file my-org-agenda-todo-file) |
52d43b70cc7c
Exclusively use "org-capture". Although it is not available on Emacs 23 but I
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1375
diff
changeset
|
106 |
(setq org-capture-templates |
52d43b70cc7c
Exclusively use "org-capture". Although it is not available on Emacs 23 but I
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1375
diff
changeset
|
107 |
'(("t" "Todo" entry (file my-org-agenda-todo-file) "* %?\n SCHEDULED: %T"))) |
52d43b70cc7c
Exclusively use "org-capture". Although it is not available on Emacs 23 but I
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1375
diff
changeset
|
108 |
(define-key global-map "\C-vr" |
52d43b70cc7c
Exclusively use "org-capture". Although it is not available on Emacs 23 but I
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1375
diff
changeset
|
109 |
(lambda () (interactive) (org-capture nil "t"))) |
52d43b70cc7c
Exclusively use "org-capture". Although it is not available on Emacs 23 but I
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1375
diff
changeset
|
110 |
) |
52d43b70cc7c
Exclusively use "org-capture". Although it is not available on Emacs 23 but I
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1375
diff
changeset
|
111 |
((or (featurep 'remember) (fboundp 'remember)) |
52d43b70cc7c
Exclusively use "org-capture". Although it is not available on Emacs 23 but I
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1375
diff
changeset
|
112 |
(setq remember-annotation-functions '(org-remember-annotation)) |
52d43b70cc7c
Exclusively use "org-capture". Although it is not available on Emacs 23 but I
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1375
diff
changeset
|
113 |
(setq remember-handler-functions '(org-remember-handler)) |
52d43b70cc7c
Exclusively use "org-capture". Although it is not available on Emacs 23 but I
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1375
diff
changeset
|
114 |
(add-hook 'remember-mode-hook 'org-remember-apply-template) |
52d43b70cc7c
Exclusively use "org-capture". Although it is not available on Emacs 23 but I
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1375
diff
changeset
|
115 |
(define-key global-map "\C-vr" 'org-remember) |
52d43b70cc7c
Exclusively use "org-capture". Although it is not available on Emacs 23 but I
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1375
diff
changeset
|
116 |
(setq org-remember-templates |
52d43b70cc7c
Exclusively use "org-capture". Although it is not available on Emacs 23 but I
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1375
diff
changeset
|
117 |
;; With one item org-mode do not prompt choose template. |
52d43b70cc7c
Exclusively use "org-capture". Although it is not available on Emacs 23 but I
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1375
diff
changeset
|
118 |
`( |
52d43b70cc7c
Exclusively use "org-capture". Although it is not available on Emacs 23 but I
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1375
diff
changeset
|
119 |
("todo" ?t "* TODO %?" ,my-org-agenda-todo-file) |
52d43b70cc7c
Exclusively use "org-capture". Although it is not available on Emacs 23 but I
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1375
diff
changeset
|
120 |
;; ("note" ?n "* %?\n" ,my-org-agenda-note-file) |
52d43b70cc7c
Exclusively use "org-capture". Although it is not available on Emacs 23 but I
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1375
diff
changeset
|
121 |
)) |
52d43b70cc7c
Exclusively use "org-capture". Although it is not available on Emacs 23 but I
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1375
diff
changeset
|
122 |
(setq org-remember-store-without-prompt t) |
52d43b70cc7c
Exclusively use "org-capture". Although it is not available on Emacs 23 but I
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1375
diff
changeset
|
123 |
(org-remember-insinuate) |
52d43b70cc7c
Exclusively use "org-capture". Although it is not available on Emacs 23 but I
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1375
diff
changeset
|
124 |
)) |
1378
892deca62b56
Remove support for Emacs 21.x.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1376
diff
changeset
|
125 |
|
892deca62b56
Remove support for Emacs 21.x.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1376
diff
changeset
|
126 |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
892deca62b56
Remove support for Emacs 21.x.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1376
diff
changeset
|
127 |
(message "highlight selected text") |
892deca62b56
Remove support for Emacs 21.x.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1376
diff
changeset
|
128 |
|
892deca62b56
Remove support for Emacs 21.x.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1376
diff
changeset
|
129 |
(cond |
892deca62b56
Remove support for Emacs 21.x.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1376
diff
changeset
|
130 |
((= emacs-major-version 21) (pc-selection-mode)) |
892deca62b56
Remove support for Emacs 21.x.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1376
diff
changeset
|
131 |
((>= emacs-major-version 22) (pc-selection-mode 1)) ) |
892deca62b56
Remove support for Emacs 21.x.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1376
diff
changeset
|
132 |
|
892deca62b56
Remove support for Emacs 21.x.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1376
diff
changeset
|
133 |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
892deca62b56
Remove support for Emacs 21.x.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1376
diff
changeset
|
134 |
(message "keyboard, mouse") |
892deca62b56
Remove support for Emacs 21.x.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1376
diff
changeset
|
135 |
|
892deca62b56
Remove support for Emacs 21.x.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1376
diff
changeset
|
136 |
(setq my-russian-input-method 'russian-computer) |
892deca62b56
Remove support for Emacs 21.x.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1376
diff
changeset
|
137 |
(setq my-ukranian-input-method 'ukrainian-computer) |
892deca62b56
Remove support for Emacs 21.x.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1376
diff
changeset
|
138 |
(setq my-ipa-input-method 'ipa-x-sampa) |
892deca62b56
Remove support for Emacs 21.x.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1376
diff
changeset
|
139 |
(when (<= emacs-major-version 21) |
892deca62b56
Remove support for Emacs 21.x.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1376
diff
changeset
|
140 |
(setq my-russian-input-method 'cyrillic-jcuken) |
892deca62b56
Remove support for Emacs 21.x.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1376
diff
changeset
|
141 |
(setq my-ukranian-input-method 'cyrillic-jcuken)) |
892deca62b56
Remove support for Emacs 21.x.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1376
diff
changeset
|
142 |
(setq default-input-method my-russian-input-method) |
892deca62b56
Remove support for Emacs 21.x.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1376
diff
changeset
|
143 |
|
892deca62b56
Remove support for Emacs 21.x.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1376
diff
changeset
|
144 |
(defun my-toggle-input-method (&optional arg) |
892deca62b56
Remove support for Emacs 21.x.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1376
diff
changeset
|
145 |
(interactive "P") |
892deca62b56
Remove support for Emacs 21.x.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1376
diff
changeset
|
146 |
(if (numberp arg) |
892deca62b56
Remove support for Emacs 21.x.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1376
diff
changeset
|
147 |
(cond |
892deca62b56
Remove support for Emacs 21.x.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1376
diff
changeset
|
148 |
((eq arg 1) |
892deca62b56
Remove support for Emacs 21.x.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1376
diff
changeset
|
149 |
(activate-input-method nil)) |
892deca62b56
Remove support for Emacs 21.x.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1376
diff
changeset
|
150 |
((eq arg 2) |
892deca62b56
Remove support for Emacs 21.x.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1376
diff
changeset
|
151 |
(activate-input-method 'my-russian-input-method)) |
892deca62b56
Remove support for Emacs 21.x.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1376
diff
changeset
|
152 |
((eq arg 3) |
892deca62b56
Remove support for Emacs 21.x.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1376
diff
changeset
|
153 |
(activate-input-method 'my-ukranian-input-method)) |
892deca62b56
Remove support for Emacs 21.x.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1376
diff
changeset
|
154 |
((eq arg 4) |
892deca62b56
Remove support for Emacs 21.x.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1376
diff
changeset
|
155 |
(activate-input-method 'greek)) |
892deca62b56
Remove support for Emacs 21.x.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1376
diff
changeset
|
156 |
((eq arg 5) |
892deca62b56
Remove support for Emacs 21.x.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1376
diff
changeset
|
157 |
(activate-input-method 'my-ipa-input-method)) |
892deca62b56
Remove support for Emacs 21.x.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1376
diff
changeset
|
158 |
((eq arg 6) |
892deca62b56
Remove support for Emacs 21.x.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1376
diff
changeset
|
159 |
(activate-input-method 'TeX)) ) |
892deca62b56
Remove support for Emacs 21.x.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1376
diff
changeset
|
160 |
(toggle-input-method arg)) ) |
892deca62b56
Remove support for Emacs 21.x.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1376
diff
changeset
|
161 |
|
892deca62b56
Remove support for Emacs 21.x.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1376
diff
changeset
|
162 |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
892deca62b56
Remove support for Emacs 21.x.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1376
diff
changeset
|
163 |
(message "dired") |
892deca62b56
Remove support for Emacs 21.x.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1376
diff
changeset
|
164 |
|
892deca62b56
Remove support for Emacs 21.x.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1376
diff
changeset
|
165 |
(when (>= emacs-major-version 22) |
892deca62b56
Remove support for Emacs 21.x.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1376
diff
changeset
|
166 |
;; Enable 'a' command. |
892deca62b56
Remove support for Emacs 21.x.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1376
diff
changeset
|
167 |
(put 'dired-find-alternate-file 'disabled nil) |
892deca62b56
Remove support for Emacs 21.x.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1376
diff
changeset
|
168 |
) |
892deca62b56
Remove support for Emacs 21.x.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1376
diff
changeset
|
169 |
|
892deca62b56
Remove support for Emacs 21.x.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1376
diff
changeset
|
170 |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
892deca62b56
Remove support for Emacs 21.x.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1376
diff
changeset
|
171 |
(message "devel, programming") |
892deca62b56
Remove support for Emacs 21.x.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1376
diff
changeset
|
172 |
|
892deca62b56
Remove support for Emacs 21.x.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1376
diff
changeset
|
173 |
(when (>= emacs-major-version 22) |
892deca62b56
Remove support for Emacs 21.x.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1376
diff
changeset
|
174 |
(add-to-list 'magic-mode-alist '(my--c++-header-file-p . c++-mode)) |
892deca62b56
Remove support for Emacs 21.x.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1376
diff
changeset
|
175 |
) |
892deca62b56
Remove support for Emacs 21.x.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1376
diff
changeset
|
176 |
|
892deca62b56
Remove support for Emacs 21.x.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1376
diff
changeset
|
177 |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
892deca62b56
Remove support for Emacs 21.x.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1376
diff
changeset
|
178 |
(message "desktop") |
892deca62b56
Remove support for Emacs 21.x.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1376
diff
changeset
|
179 |
|
892deca62b56
Remove support for Emacs 21.x.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1376
diff
changeset
|
180 |
(when (>= emacs-major-version 22) |
892deca62b56
Remove support for Emacs 21.x.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1376
diff
changeset
|
181 |
(require 'desktop) |
892deca62b56
Remove support for Emacs 21.x.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1376
diff
changeset
|
182 |
(add-to-list 'desktop-path desktop-dirname) |
892deca62b56
Remove support for Emacs 21.x.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1376
diff
changeset
|
183 |
(setq desktop-restore-frames nil) |
892deca62b56
Remove support for Emacs 21.x.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1376
diff
changeset
|
184 |
(desktop-save-mode 1) |
892deca62b56
Remove support for Emacs 21.x.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1376
diff
changeset
|
185 |
(setq |
892deca62b56
Remove support for Emacs 21.x.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1376
diff
changeset
|
186 |
desktop-globals-to-save |
892deca62b56
Remove support for Emacs 21.x.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1376
diff
changeset
|
187 |
(append |
892deca62b56
Remove support for Emacs 21.x.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1376
diff
changeset
|
188 |
'((file-name-history . 100) |
892deca62b56
Remove support for Emacs 21.x.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1376
diff
changeset
|
189 |
(compile-history . 100) |
892deca62b56
Remove support for Emacs 21.x.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1376
diff
changeset
|
190 |
(command-history . 100) |
892deca62b56
Remove support for Emacs 21.x.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1376
diff
changeset
|
191 |
(extended-command-history . 100) |
892deca62b56
Remove support for Emacs 21.x.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1376
diff
changeset
|
192 |
(shell-command-history . 100) |
892deca62b56
Remove support for Emacs 21.x.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1376
diff
changeset
|
193 |
(search-ring . 20) |
892deca62b56
Remove support for Emacs 21.x.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1376
diff
changeset
|
194 |
(query-replace-history . 100) |
892deca62b56
Remove support for Emacs 21.x.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1376
diff
changeset
|
195 |
(regexp-history . 100) |
892deca62b56
Remove support for Emacs 21.x.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1376
diff
changeset
|
196 |
(grep-history . 100) |
892deca62b56
Remove support for Emacs 21.x.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1376
diff
changeset
|
197 |
(minibuffer-history . 100) |
892deca62b56
Remove support for Emacs 21.x.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1376
diff
changeset
|
198 |
tags-file-name |
892deca62b56
Remove support for Emacs 21.x.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1376
diff
changeset
|
199 |
register-alist) |
892deca62b56
Remove support for Emacs 21.x.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1376
diff
changeset
|
200 |
desktop-globals-to-save)) |
892deca62b56
Remove support for Emacs 21.x.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1376
diff
changeset
|
201 |
) |
1379
d9e284adf519
Emacs 23.1 no longer need codepage-setup. Unlikely I would use old Emacs 22 on Windows...
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1378
diff
changeset
|
202 |
|
d9e284adf519
Emacs 23.1 no longer need codepage-setup. Unlikely I would use old Emacs 22 on Windows...
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1378
diff
changeset
|
203 |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
d9e284adf519
Emacs 23.1 no longer need codepage-setup. Unlikely I would use old Emacs 22 on Windows...
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1378
diff
changeset
|
204 |
(message "coding system, charset, locale, lang") |
d9e284adf519
Emacs 23.1 no longer need codepage-setup. Unlikely I would use old Emacs 22 on Windows...
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1378
diff
changeset
|
205 |
|
d9e284adf519
Emacs 23.1 no longer need codepage-setup. Unlikely I would use old Emacs 22 on Windows...
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1378
diff
changeset
|
206 |
;; Emacs 23.1 no longer need codepage-setup. |
d9e284adf519
Emacs 23.1 no longer need codepage-setup. Unlikely I would use old Emacs 22 on Windows...
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1378
diff
changeset
|
207 |
(when (<= emacs-major-version 22) |
d9e284adf519
Emacs 23.1 no longer need codepage-setup. Unlikely I would use old Emacs 22 on Windows...
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1378
diff
changeset
|
208 |
(codepage-setup 866) |
d9e284adf519
Emacs 23.1 no longer need codepage-setup. Unlikely I would use old Emacs 22 on Windows...
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1378
diff
changeset
|
209 |
(codepage-setup 1251) |
d9e284adf519
Emacs 23.1 no longer need codepage-setup. Unlikely I would use old Emacs 22 on Windows...
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1378
diff
changeset
|
210 |
) |
1380
1affd280b1e6
I have no needs to use my jdone mode anymore.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1379
diff
changeset
|
211 |
|
1affd280b1e6
I have no needs to use my jdone mode anymore.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1379
diff
changeset
|
212 |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
1affd280b1e6
I have no needs to use my jdone mode anymore.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1379
diff
changeset
|
213 |
(message "jdone") |
1affd280b1e6
I have no needs to use my jdone mode anymore.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1379
diff
changeset
|
214 |
|
1affd280b1e6
I have no needs to use my jdone mode anymore.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1379
diff
changeset
|
215 |
(ignore-errors |
1affd280b1e6
I have no needs to use my jdone mode anymore.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1379
diff
changeset
|
216 |
(require 'jdone) |
1affd280b1e6
I have no needs to use my jdone mode anymore.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1379
diff
changeset
|
217 |
(jdone-setup-key-binding) |
1affd280b1e6
I have no needs to use my jdone mode anymore.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1379
diff
changeset
|
218 |
(jdone-integrate-hook) |
1affd280b1e6
I have no needs to use my jdone mode anymore.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1379
diff
changeset
|
219 |
) |
1383
f2b6754654a4
I don't like yasnippet because it require file name matches abbreviation.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1380
diff
changeset
|
220 |
|
f2b6754654a4
I don't like yasnippet because it require file name matches abbreviation.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1380
diff
changeset
|
221 |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
f2b6754654a4
I don't like yasnippet because it require file name matches abbreviation.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1380
diff
changeset
|
222 |
(message "yasnippet") |
f2b6754654a4
I don't like yasnippet because it require file name matches abbreviation.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1380
diff
changeset
|
223 |
|
f2b6754654a4
I don't like yasnippet because it require file name matches abbreviation.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1380
diff
changeset
|
224 |
(setq my-yas-root-directory "~/.emacs.d/my-yas") |
f2b6754654a4
I don't like yasnippet because it require file name matches abbreviation.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1380
diff
changeset
|
225 |
(setq yas/ignore-filenames-as-triggers t) |
f2b6754654a4
I don't like yasnippet because it require file name matches abbreviation.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1380
diff
changeset
|
226 |
|
f2b6754654a4
I don't like yasnippet because it require file name matches abbreviation.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1380
diff
changeset
|
227 |
;; (my--eval-after-load yasnippet |
f2b6754654a4
I don't like yasnippet because it require file name matches abbreviation.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1380
diff
changeset
|
228 |
;; (cond |
f2b6754654a4
I don't like yasnippet because it require file name matches abbreviation.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1380
diff
changeset
|
229 |
;; ((listp yas/root-directory) (add-to-list 'yas/root-directory my-yas-root-directory)) |
f2b6754654a4
I don't like yasnippet because it require file name matches abbreviation.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1380
diff
changeset
|
230 |
;; ((stringp yas/root-directory) (setq yas/root-directory (list my-yas-root-directory yas/root-directory))) |
f2b6754654a4
I don't like yasnippet because it require file name matches abbreviation.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1380
diff
changeset
|
231 |
;; (t (error "I expect that yas/root-directory is a list of string")) ) |
f2b6754654a4
I don't like yasnippet because it require file name matches abbreviation.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1380
diff
changeset
|
232 |
;; (mapc 'yas/load-directory yas/root-directory)) |
1384
a952b43af57f
Suppress another: Warning: assignment to free variable
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1383
diff
changeset
|
233 |
|
a952b43af57f
Suppress another: Warning: assignment to free variable
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1383
diff
changeset
|
234 |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
a952b43af57f
Suppress another: Warning: assignment to free variable
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1383
diff
changeset
|
235 |
(message "ECB") |
a952b43af57f
Suppress another: Warning: assignment to free variable
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1383
diff
changeset
|
236 |
|
a952b43af57f
Suppress another: Warning: assignment to free variable
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1383
diff
changeset
|
237 |
(setq ecb-tip-of-the-day nil) |
1385
5f96b8d649ba
Even on Windows I prefer UTF-8 fro SVN/CVS.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1384
diff
changeset
|
238 |
|
5f96b8d649ba
Even on Windows I prefer UTF-8 fro SVN/CVS.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1384
diff
changeset
|
239 |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
5f96b8d649ba
Even on Windows I prefer UTF-8 fro SVN/CVS.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1384
diff
changeset
|
240 |
(message "vc-mode, VCS, version control, cvs, svn, mercurial, hg, bazaar, bzr, git, fossil") |
5f96b8d649ba
Even on Windows I prefer UTF-8 fro SVN/CVS.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1384
diff
changeset
|
241 |
|
5f96b8d649ba
Even on Windows I prefer UTF-8 fro SVN/CVS.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1384
diff
changeset
|
242 |
(when (equal window-system 'w32) |
5f96b8d649ba
Even on Windows I prefer UTF-8 fro SVN/CVS.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1384
diff
changeset
|
243 |
(modify-coding-system-alist 'process "cvs" '(cp1251-dos . cp1251-dos)) |
5f96b8d649ba
Even on Windows I prefer UTF-8 fro SVN/CVS.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1384
diff
changeset
|
244 |
(modify-coding-system-alist 'process "svn" '(cp1251 . cp1251)) |
5f96b8d649ba
Even on Windows I prefer UTF-8 fro SVN/CVS.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1384
diff
changeset
|
245 |
(setq vc-svn-checkin-switches '("--encoding" "UTF-8")) |
5f96b8d649ba
Even on Windows I prefer UTF-8 fro SVN/CVS.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1384
diff
changeset
|
246 |
) |
1387
3dec99863e5d
Set valued via defvar instead of setq to avoid Warning: assignment to free variable.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1385
diff
changeset
|
247 |
|
3dec99863e5d
Set valued via defvar instead of setq to avoid Warning: assignment to free variable.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1385
diff
changeset
|
248 |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
3dec99863e5d
Set valued via defvar instead of setq to avoid Warning: assignment to free variable.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1385
diff
changeset
|
249 |
(message "fortune") |
3dec99863e5d
Set valued via defvar instead of setq to avoid Warning: assignment to free variable.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1385
diff
changeset
|
250 |
(setq fortune-file "~/XXX") |
1389 | 251 |
|
252 |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
|
253 |
(message "bbdb") |
|
254 |
||
255 |
(eval-when 'compile (require 'bbdb nil t)) |
|
256 |
||
257 |
(setq |
|
258 |
bbdb-offer-save 1 |
|
259 |
bbdb-use-pop-up t |
|
260 |
bbdb-electric-p t |
|
261 |
bbdb-popup-target-lines 1 |
|
262 |
) |
|
263 |
||
264 |
(setq bbdb-complete-name-full-completion t) |
|
265 |
(setq bbdb-completion-type 'primary-or-name) |
|
266 |
(setq bbdb-complete-name-allow-cycling t) |
|
267 |
||
268 |
(setq bbdb-file "~/.gnus/bbdb") |
|
269 |
||
270 |
;; (bbdb-initialize 'gnus 'message) |
|
271 |
;; (bbdb-insinuate-message) |
|
272 |
;; (add-hook 'gnus-startup-hook 'bbdb-insinuate-gnus) |
|
1390 | 273 |
|
274 |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
|
275 |
(message "rcirc") |
|
276 |
||
277 |
(eval-when 'compile (require 'rcirc)) |
|
278 |
||
279 |
;; Turn on logging everything to a special buffer, for debugging. |
|
280 |
;; (setq rcirc-debug-flag t) |
|
281 |
||
282 |
(add-hook 'rcirc-mode-hook (lambda () (rcirc-track-minor-mode 1))) |
|
283 |
(setq rcirc-time-format "%H:%M ") |
|
284 |
(defun rcirc-handler-301 (process cmd sender args) |
|
285 |
"/away message handler.") |
|
286 |
||
287 |
(setq rcirc-default-server "irc.freenode.net") |
|
288 |
(setq rcirc-default-port 6667) |
|
289 |
(setq rcirc-default-nick user-nick) |
|
290 |
(setq rcirc-default-user-full-name user-full-name) |
|
1391
32cc6f1ac5dc
I am no loger using psvn, DVC.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1390
diff
changeset
|
291 |
|
32cc6f1ac5dc
I am no loger using psvn, DVC.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1390
diff
changeset
|
292 |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
32cc6f1ac5dc
I am no loger using psvn, DVC.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1390
diff
changeset
|
293 |
(message "psvn") |
32cc6f1ac5dc
I am no loger using psvn, DVC.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1390
diff
changeset
|
294 |
|
32cc6f1ac5dc
I am no loger using psvn, DVC.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1390
diff
changeset
|
295 |
(setq svn-status-verbose t) |
32cc6f1ac5dc
I am no loger using psvn, DVC.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1390
diff
changeset
|
296 |
(setq svn-status-hide-unmodified t) |
32cc6f1ac5dc
I am no loger using psvn, DVC.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1390
diff
changeset
|
297 |
|
32cc6f1ac5dc
I am no loger using psvn, DVC.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1390
diff
changeset
|
298 |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
32cc6f1ac5dc
I am no loger using psvn, DVC.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1390
diff
changeset
|
299 |
(message "DVC") |
32cc6f1ac5dc
I am no loger using psvn, DVC.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1390
diff
changeset
|
300 |
|
32cc6f1ac5dc
I am no loger using psvn, DVC.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1390
diff
changeset
|
301 |
(when (featurep 'dvc-emacs) |
32cc6f1ac5dc
I am no loger using psvn, DVC.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1390
diff
changeset
|
302 |
(setq dvc-tips-enabled nil) |
32cc6f1ac5dc
I am no loger using psvn, DVC.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1390
diff
changeset
|
303 |
) |
1399
b3d77cc49d66
Remove mail settings examples. Corresponding code already is used.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1391
diff
changeset
|
304 |
|
b3d77cc49d66
Remove mail settings examples. Corresponding code already is used.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1391
diff
changeset
|
305 |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
b3d77cc49d66
Remove mail settings examples. Corresponding code already is used.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1391
diff
changeset
|
306 |
|
b3d77cc49d66
Remove mail settings examples. Corresponding code already is used.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1391
diff
changeset
|
307 |
(setq smtpmail-smtp-server "192.168.0.xxx") |
b3d77cc49d66
Remove mail settings examples. Corresponding code already is used.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1391
diff
changeset
|
308 |
(setq smtpmail-smtp-service "25") |
1435
55307015efd0
Use Terminus font under X and fallback to misc-fixed.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1399
diff
changeset
|
309 |
|
55307015efd0
Use Terminus font under X and fallback to misc-fixed.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1399
diff
changeset
|
310 |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
55307015efd0
Use Terminus font under X and fallback to misc-fixed.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1399
diff
changeset
|
311 |
(message "font selection") |
55307015efd0
Use Terminus font under X and fallback to misc-fixed.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1399
diff
changeset
|
312 |
|
55307015efd0
Use Terminus font under X and fallback to misc-fixed.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1399
diff
changeset
|
313 |
(defvar my-preferred-font |
55307015efd0
Use Terminus font under X and fallback to misc-fixed.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1399
diff
changeset
|
314 |
(cond |
55307015efd0
Use Terminus font under X and fallback to misc-fixed.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1399
diff
changeset
|
315 |
((eq window-system 'x) |
55307015efd0
Use Terminus font under X and fallback to misc-fixed.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1399
diff
changeset
|
316 |
"-misc-fixed-medium-r-normal--14-*-*-*-c-*-iso10646-1") |
55307015efd0
Use Terminus font under X and fallback to misc-fixed.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1399
diff
changeset
|
317 |
((eq window-system 'w32) |
55307015efd0
Use Terminus font under X and fallback to misc-fixed.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1399
diff
changeset
|
318 |
"Courier New-10:antialias=none") |
55307015efd0
Use Terminus font under X and fallback to misc-fixed.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1399
diff
changeset
|
319 |
(t nil))) |
55307015efd0
Use Terminus font under X and fallback to misc-fixed.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1399
diff
changeset
|
320 |
(when my-preferred-font |
55307015efd0
Use Terminus font under X and fallback to misc-fixed.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1399
diff
changeset
|
321 |
(set-frame-font my-preferred-font) |
55307015efd0
Use Terminus font under X and fallback to misc-fixed.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1399
diff
changeset
|
322 |
(set-fontset-font "fontset-default" 'latin my-preferred-font) |
55307015efd0
Use Terminus font under X and fallback to misc-fixed.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1399
diff
changeset
|
323 |
(set-fontset-font "fontset-default" 'phonetic my-preferred-font) |
55307015efd0
Use Terminus font under X and fallback to misc-fixed.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1399
diff
changeset
|
324 |
(set-fontset-font "fontset-default" 'cyrillic my-preferred-font) |
55307015efd0
Use Terminus font under X and fallback to misc-fixed.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1399
diff
changeset
|
325 |
(set-fontset-font "fontset-default" 'greek my-preferred-font)) |
1436
bbc10fe15aa5
Decide to use "DejaVu Sans Mono-11" as default font. It has same width as
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1435
diff
changeset
|
326 |
|
bbc10fe15aa5
Decide to use "DejaVu Sans Mono-11" as default font. It has same width as
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1435
diff
changeset
|
327 |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
bbc10fe15aa5
Decide to use "DejaVu Sans Mono-11" as default font. It has same width as
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1435
diff
changeset
|
328 |
(message "font selection") |
bbc10fe15aa5
Decide to use "DejaVu Sans Mono-11" as default font. It has same width as
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1435
diff
changeset
|
329 |
|
bbc10fe15aa5
Decide to use "DejaVu Sans Mono-11" as default font. It has same width as
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1435
diff
changeset
|
330 |
(cond |
bbc10fe15aa5
Decide to use "DejaVu Sans Mono-11" as default font. It has same width as
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1435
diff
changeset
|
331 |
((eq window-system 'x) |
bbc10fe15aa5
Decide to use "DejaVu Sans Mono-11" as default font. It has same width as
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1435
diff
changeset
|
332 |
(set-frame-font "-*-terminus-*-*-*--14-*-*-*-c-*-*-*") |
bbc10fe15aa5
Decide to use "DejaVu Sans Mono-11" as default font. It has same width as
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1435
diff
changeset
|
333 |
(setq-default line-spacing nil) |
bbc10fe15aa5
Decide to use "DejaVu Sans Mono-11" as default font. It has same width as
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1435
diff
changeset
|
334 |
(set-fontset-font nil 'cyrillic "-*-terminus-*-*-*--14-*-*-*-c-*-*-*") |
bbc10fe15aa5
Decide to use "DejaVu Sans Mono-11" as default font. It has same width as
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1435
diff
changeset
|
335 |
(set-fontset-font nil 'greek "-*-terminus-*-*-*--14-*-*-*-c-*-*-*") |
bbc10fe15aa5
Decide to use "DejaVu Sans Mono-11" as default font. It has same width as
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1435
diff
changeset
|
336 |
(set-fontset-font nil nil "-misc-fixed-*-*-*--13-*-*-*-*-*-*-*") |
bbc10fe15aa5
Decide to use "DejaVu Sans Mono-11" as default font. It has same width as
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1435
diff
changeset
|
337 |
(set-fontset-font nil 'phonetic "-misc-fixed-*-*-*--13-*-*-*-*-*-*-*") |
bbc10fe15aa5
Decide to use "DejaVu Sans Mono-11" as default font. It has same width as
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1435
diff
changeset
|
338 |
(set-fontset-font nil 'symbol "-misc-fixed-*-*-*--13-*-*-*-*-*-*-*") |
bbc10fe15aa5
Decide to use "DejaVu Sans Mono-11" as default font. It has same width as
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1435
diff
changeset
|
339 |
;; MODIFIER LETTER is not present in terminus, this includes ˌːˈ characters. |
bbc10fe15aa5
Decide to use "DejaVu Sans Mono-11" as default font. It has same width as
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1435
diff
changeset
|
340 |
(set-fontset-font nil '(#x02C0 . #x02FF) "-misc-fixed-*-*-*--13-*-*-*-*-*-*-*") ) |
bbc10fe15aa5
Decide to use "DejaVu Sans Mono-11" as default font. It has same width as
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1435
diff
changeset
|
341 |
((eq window-system 'w32) |
bbc10fe15aa5
Decide to use "DejaVu Sans Mono-11" as default font. It has same width as
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1435
diff
changeset
|
342 |
(set-frame-font "Courier New-10:antialias=none") )) |
bbc10fe15aa5
Decide to use "DejaVu Sans Mono-11" as default font. It has same width as
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1435
diff
changeset
|
343 |
|
1445
b1f7af188fa2
icomplete mostly as powerful as smex. That's why I removed external dependency.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1436
diff
changeset
|
344 |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
b1f7af188fa2
icomplete mostly as powerful as smex. That's why I removed external dependency.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1436
diff
changeset
|
345 |
(message "smex") |
b1f7af188fa2
icomplete mostly as powerful as smex. That's why I removed external dependency.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1436
diff
changeset
|
346 |
|
b1f7af188fa2
icomplete mostly as powerful as smex. That's why I removed external dependency.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1436
diff
changeset
|
347 |
;; icomplete also allow flex matching with '*', try 'M-x *copy*as TAB' |
b1f7af188fa2
icomplete mostly as powerful as smex. That's why I removed external dependency.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1436
diff
changeset
|
348 |
|
b1f7af188fa2
icomplete mostly as powerful as smex. That's why I removed external dependency.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1436
diff
changeset
|
349 |
;; `smex' is alternative for `icomplete'. |
b1f7af188fa2
icomplete mostly as powerful as smex. That's why I removed external dependency.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1436
diff
changeset
|
350 |
;; https://github.com/nonsequitur/smex/ |
b1f7af188fa2
icomplete mostly as powerful as smex. That's why I removed external dependency.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1436
diff
changeset
|
351 |
;; It is based on `ido'. |
b1f7af188fa2
icomplete mostly as powerful as smex. That's why I removed external dependency.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1436
diff
changeset
|
352 |
(ignore-errors |
b1f7af188fa2
icomplete mostly as powerful as smex. That's why I removed external dependency.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1436
diff
changeset
|
353 |
(require 'smex) |
b1f7af188fa2
icomplete mostly as powerful as smex. That's why I removed external dependency.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1436
diff
changeset
|
354 |
(smex-initialize) |
b1f7af188fa2
icomplete mostly as powerful as smex. That's why I removed external dependency.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1436
diff
changeset
|
355 |
(global-set-key (kbd "M-X") 'smex)) |
b1f7af188fa2
icomplete mostly as powerful as smex. That's why I removed external dependency.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1436
diff
changeset
|
356 |
|
1494
874f705f7be4
Use own implementation of ag frontend.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1445
diff
changeset
|
357 |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
1495
d76487c37e61
Fix typo. Add promising but not worked option.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1494
diff
changeset
|
358 |
(message "ag") |
1494
874f705f7be4
Use own implementation of ag frontend.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1445
diff
changeset
|
359 |
|
874f705f7be4
Use own implementation of ag frontend.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1445
diff
changeset
|
360 |
(ignore-errors (require 'ag)) |
874f705f7be4
Use own implementation of ag frontend.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1445
diff
changeset
|
361 |
|
874f705f7be4
Use own implementation of ag frontend.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1445
diff
changeset
|
362 |
(defun my/ag (regex) |
874f705f7be4
Use own implementation of ag frontend.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1445
diff
changeset
|
363 |
"Search with ag from project roor without prefix and from |
874f705f7be4
Use own implementation of ag frontend.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1445
diff
changeset
|
364 |
`default-directory' with prefix." |
874f705f7be4
Use own implementation of ag frontend.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1445
diff
changeset
|
365 |
(interactive (list (ag/read-from-minibuffer "Search regex"))) |
874f705f7be4
Use own implementation of ag frontend.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1445
diff
changeset
|
366 |
(if current-prefix-arg |
874f705f7be4
Use own implementation of ag frontend.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1445
diff
changeset
|
367 |
(let ((current-prefix-arg nil)) (ag-regexp regex default-directory)) |
874f705f7be4
Use own implementation of ag frontend.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1445
diff
changeset
|
368 |
(ag-project-regexp regex))) |
874f705f7be4
Use own implementation of ag frontend.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1445
diff
changeset
|
369 |
|
1495
d76487c37e61
Fix typo. Add promising but not worked option.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1494
diff
changeset
|
370 |
(setq ag-group-matches t) |
1494
874f705f7be4
Use own implementation of ag frontend.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1445
diff
changeset
|
371 |
(setq ag-highlight-search t) |
874f705f7be4
Use own implementation of ag frontend.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1445
diff
changeset
|
372 |
(when (featurep 'ag) |
874f705f7be4
Use own implementation of ag frontend.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1445
diff
changeset
|
373 |
(global-set-key [f7] 'my/ag)) |
1507
6f939639c52a
No need to custom implementation of zgrep, zrgrep is bundled with v23.2.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1495
diff
changeset
|
374 |
|
6f939639c52a
No need to custom implementation of zgrep, zrgrep is bundled with v23.2.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1495
diff
changeset
|
375 |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
6f939639c52a
No need to custom implementation of zgrep, zrgrep is bundled with v23.2.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1495
diff
changeset
|
376 |
(message "rgrep") |
6f939639c52a
No need to custom implementation of zgrep, zrgrep is bundled with v23.2.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1495
diff
changeset
|
377 |
|
6f939639c52a
No need to custom implementation of zgrep, zrgrep is bundled with v23.2.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1495
diff
changeset
|
378 |
(global-set-key [f7] 'rgrep) |
6f939639c52a
No need to custom implementation of zgrep, zrgrep is bundled with v23.2.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1495
diff
changeset
|
379 |
|
6f939639c52a
No need to custom implementation of zgrep, zrgrep is bundled with v23.2.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1495
diff
changeset
|
380 |
(defun lzgrep () |
6f939639c52a
No need to custom implementation of zgrep, zrgrep is bundled with v23.2.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1495
diff
changeset
|
381 |
(interactive) |
6f939639c52a
No need to custom implementation of zgrep, zrgrep is bundled with v23.2.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1495
diff
changeset
|
382 |
(let ( (grep-template "zgrep <C> -nH -e <R> <F>") (grep-find-ignored-files nil) ) |
6f939639c52a
No need to custom implementation of zgrep, zrgrep is bundled with v23.2.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1495
diff
changeset
|
383 |
(cl-flet ( (grep-compute-defaults () nil) ) |
6f939639c52a
No need to custom implementation of zgrep, zrgrep is bundled with v23.2.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1495
diff
changeset
|
384 |
(call-interactively #'lgrep)))) |
6f939639c52a
No need to custom implementation of zgrep, zrgrep is bundled with v23.2.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1495
diff
changeset
|
385 |
|
6f939639c52a
No need to custom implementation of zgrep, zrgrep is bundled with v23.2.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1495
diff
changeset
|
386 |
(defun rzgrep () |
6f939639c52a
No need to custom implementation of zgrep, zrgrep is bundled with v23.2.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1495
diff
changeset
|
387 |
(interactive) |
6f939639c52a
No need to custom implementation of zgrep, zrgrep is bundled with v23.2.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1495
diff
changeset
|
388 |
(let ( (grep-find-template "find . -type f <F> -exec zgrep <C> -nH -e <R> {} +") (grep-find-ignored-files nil) ) |
6f939639c52a
No need to custom implementation of zgrep, zrgrep is bundled with v23.2.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1495
diff
changeset
|
389 |
(cl-flet ( (grep-compute-defaults () nil) ) |
6f939639c52a
No need to custom implementation of zgrep, zrgrep is bundled with v23.2.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1495
diff
changeset
|
390 |
(call-interactively #'rgrep)))) |
1680
77bbb8dc0e0c
Disabled activation of CEDET and Semantic. It consumes 48% of startup time.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1675
diff
changeset
|
391 |
|
77bbb8dc0e0c
Disabled activation of CEDET and Semantic. It consumes 48% of startup time.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1675
diff
changeset
|
392 |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
77bbb8dc0e0c
Disabled activation of CEDET and Semantic. It consumes 48% of startup time.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1675
diff
changeset
|
393 |
(message "CEDET, semantic, SRecord") |
77bbb8dc0e0c
Disabled activation of CEDET and Semantic. It consumes 48% of startup time.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1675
diff
changeset
|
394 |
|
77bbb8dc0e0c
Disabled activation of CEDET and Semantic. It consumes 48% of startup time.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1675
diff
changeset
|
395 |
;; For debug use 'semantic-debug-idle-function' and 'semantic-debug-idle-work-function'. |
77bbb8dc0e0c
Disabled activation of CEDET and Semantic. It consumes 48% of startup time.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1675
diff
changeset
|
396 |
|
77bbb8dc0e0c
Disabled activation of CEDET and Semantic. It consumes 48% of startup time.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1675
diff
changeset
|
397 |
(eval-when 'compile |
77bbb8dc0e0c
Disabled activation of CEDET and Semantic. It consumes 48% of startup time.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1675
diff
changeset
|
398 |
(require 'cedet nil t) |
77bbb8dc0e0c
Disabled activation of CEDET and Semantic. It consumes 48% of startup time.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1675
diff
changeset
|
399 |
(require 'srecode nil t) |
77bbb8dc0e0c
Disabled activation of CEDET and Semantic. It consumes 48% of startup time.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1675
diff
changeset
|
400 |
(require 'srecode/table nil t) |
77bbb8dc0e0c
Disabled activation of CEDET and Semantic. It consumes 48% of startup time.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1675
diff
changeset
|
401 |
(require 'semantic nil t) |
77bbb8dc0e0c
Disabled activation of CEDET and Semantic. It consumes 48% of startup time.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1675
diff
changeset
|
402 |
(require 'semantic/idle nil t) |
77bbb8dc0e0c
Disabled activation of CEDET and Semantic. It consumes 48% of startup time.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1675
diff
changeset
|
403 |
(require 'ede/linux nil t)) |
77bbb8dc0e0c
Disabled activation of CEDET and Semantic. It consumes 48% of startup time.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1675
diff
changeset
|
404 |
|
77bbb8dc0e0c
Disabled activation of CEDET and Semantic. It consumes 48% of startup time.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1675
diff
changeset
|
405 |
(eval-and-compile |
77bbb8dc0e0c
Disabled activation of CEDET and Semantic. It consumes 48% of startup time.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1675
diff
changeset
|
406 |
(when (or |
77bbb8dc0e0c
Disabled activation of CEDET and Semantic. It consumes 48% of startup time.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1675
diff
changeset
|
407 |
(and (= emacs-major-version 23) (>= emacs-minor-version 2)) |
77bbb8dc0e0c
Disabled activation of CEDET and Semantic. It consumes 48% of startup time.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1675
diff
changeset
|
408 |
(>= emacs-major-version 24) ) |
77bbb8dc0e0c
Disabled activation of CEDET and Semantic. It consumes 48% of startup time.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1675
diff
changeset
|
409 |
(require 'cedet) |
77bbb8dc0e0c
Disabled activation of CEDET and Semantic. It consumes 48% of startup time.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1675
diff
changeset
|
410 |
(require 'mode-local))) |
77bbb8dc0e0c
Disabled activation of CEDET and Semantic. It consumes 48% of startup time.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1675
diff
changeset
|
411 |
|
77bbb8dc0e0c
Disabled activation of CEDET and Semantic. It consumes 48% of startup time.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1675
diff
changeset
|
412 |
(defun my-srecode-reload-templates () |
77bbb8dc0e0c
Disabled activation of CEDET and Semantic. It consumes 48% of startup time.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1675
diff
changeset
|
413 |
"Reload all templates under `srecode-map-load-path'. Useful |
77bbb8dc0e0c
Disabled activation of CEDET and Semantic. It consumes 48% of startup time.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1675
diff
changeset
|
414 |
during template developing." |
77bbb8dc0e0c
Disabled activation of CEDET and Semantic. It consumes 48% of startup time.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1675
diff
changeset
|
415 |
(interactive) |
77bbb8dc0e0c
Disabled activation of CEDET and Semantic. It consumes 48% of startup time.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1675
diff
changeset
|
416 |
(setq srecode-mode-table-list nil |
77bbb8dc0e0c
Disabled activation of CEDET and Semantic. It consumes 48% of startup time.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1675
diff
changeset
|
417 |
srecode-current-map nil) |
77bbb8dc0e0c
Disabled activation of CEDET and Semantic. It consumes 48% of startup time.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1675
diff
changeset
|
418 |
(srecode-map-update-map) ) |
77bbb8dc0e0c
Disabled activation of CEDET and Semantic. It consumes 48% of startup time.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1675
diff
changeset
|
419 |
|
77bbb8dc0e0c
Disabled activation of CEDET and Semantic. It consumes 48% of startup time.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1675
diff
changeset
|
420 |
(defun my-c-mode-cedet-hook () |
77bbb8dc0e0c
Disabled activation of CEDET and Semantic. It consumes 48% of startup time.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1675
diff
changeset
|
421 |
;; (local-set-key [C-return] 'semantic-complete-symbol) |
77bbb8dc0e0c
Disabled activation of CEDET and Semantic. It consumes 48% of startup time.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1675
diff
changeset
|
422 |
;; (local-set-key [C-return] 'semantic-complete-analyze-inline) |
77bbb8dc0e0c
Disabled activation of CEDET and Semantic. It consumes 48% of startup time.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1675
diff
changeset
|
423 |
;; (local-set-key "." 'semantic-complete-self-insert) |
77bbb8dc0e0c
Disabled activation of CEDET and Semantic. It consumes 48% of startup time.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1675
diff
changeset
|
424 |
;; (local-set-key ">" 'semantic-complete-self-insert) |
77bbb8dc0e0c
Disabled activation of CEDET and Semantic. It consumes 48% of startup time.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1675
diff
changeset
|
425 |
) |
77bbb8dc0e0c
Disabled activation of CEDET and Semantic. It consumes 48% of startup time.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1675
diff
changeset
|
426 |
(add-hook 'c-mode-common-hook 'my-c-mode-cedet-hook) |
77bbb8dc0e0c
Disabled activation of CEDET and Semantic. It consumes 48% of startup time.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1675
diff
changeset
|
427 |
|
77bbb8dc0e0c
Disabled activation of CEDET and Semantic. It consumes 48% of startup time.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1675
diff
changeset
|
428 |
(when (featurep 'cedet) |
77bbb8dc0e0c
Disabled activation of CEDET and Semantic. It consumes 48% of startup time.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1675
diff
changeset
|
429 |
(require 'semantic) |
77bbb8dc0e0c
Disabled activation of CEDET and Semantic. It consumes 48% of startup time.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1675
diff
changeset
|
430 |
(global-semantic-idle-scheduler-mode 1) |
77bbb8dc0e0c
Disabled activation of CEDET and Semantic. It consumes 48% of startup time.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1675
diff
changeset
|
431 |
(global-semantic-idle-summary-mode 1) |
77bbb8dc0e0c
Disabled activation of CEDET and Semantic. It consumes 48% of startup time.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1675
diff
changeset
|
432 |
(global-semantic-idle-completions-mode -1) |
77bbb8dc0e0c
Disabled activation of CEDET and Semantic. It consumes 48% of startup time.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1675
diff
changeset
|
433 |
(global-semantic-mru-bookmark-mode 1) |
77bbb8dc0e0c
Disabled activation of CEDET and Semantic. It consumes 48% of startup time.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1675
diff
changeset
|
434 |
;; (setq semantic-stickyfunc-sticky-classes '(function type variable include package)) |
77bbb8dc0e0c
Disabled activation of CEDET and Semantic. It consumes 48% of startup time.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1675
diff
changeset
|
435 |
(global-semantic-stickyfunc-mode -1) |
77bbb8dc0e0c
Disabled activation of CEDET and Semantic. It consumes 48% of startup time.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1675
diff
changeset
|
436 |
(global-semantic-highlight-func-mode -1) |
77bbb8dc0e0c
Disabled activation of CEDET and Semantic. It consumes 48% of startup time.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1675
diff
changeset
|
437 |
(global-semantic-decoration-mode 1) |
77bbb8dc0e0c
Disabled activation of CEDET and Semantic. It consumes 48% of startup time.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1675
diff
changeset
|
438 |
(when (fboundp 'global-semantic-idle-local-symbol-highlight-mode) |
77bbb8dc0e0c
Disabled activation of CEDET and Semantic. It consumes 48% of startup time.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1675
diff
changeset
|
439 |
(global-semantic-idle-local-symbol-highlight-mode 1)) |
77bbb8dc0e0c
Disabled activation of CEDET and Semantic. It consumes 48% of startup time.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1675
diff
changeset
|
440 |
(setq semantic-idle-scheduler-idle-time 10) |
77bbb8dc0e0c
Disabled activation of CEDET and Semantic. It consumes 48% of startup time.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1675
diff
changeset
|
441 |
(setq semantic-idle-scheduler-work-idle-time 60) |
77bbb8dc0e0c
Disabled activation of CEDET and Semantic. It consumes 48% of startup time.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1675
diff
changeset
|
442 |
(setq semantic-idle-scheduler-max-buffer-size 100000) |
77bbb8dc0e0c
Disabled activation of CEDET and Semantic. It consumes 48% of startup time.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1675
diff
changeset
|
443 |
;; (setq semantic-idle-work-parse-neighboring-files-flag nil) |
77bbb8dc0e0c
Disabled activation of CEDET and Semantic. It consumes 48% of startup time.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1675
diff
changeset
|
444 |
;; semantic-dependency-system-include-path, semantic-customize-system-include-path |
77bbb8dc0e0c
Disabled activation of CEDET and Semantic. It consumes 48% of startup time.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1675
diff
changeset
|
445 |
;; file local project unloaded system recursive |
77bbb8dc0e0c
Disabled activation of CEDET and Semantic. It consumes 48% of startup time.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1675
diff
changeset
|
446 |
(setq-mode-local c-mode semanticdb-find-default-throttle '(file local)) |
77bbb8dc0e0c
Disabled activation of CEDET and Semantic. It consumes 48% of startup time.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1675
diff
changeset
|
447 |
(add-hook 'c-mode-hook (lambda nil (semantic-add-system-include "~/.emacs.d/include" 'c-mode))) |
77bbb8dc0e0c
Disabled activation of CEDET and Semantic. It consumes 48% of startup time.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1675
diff
changeset
|
448 |
(add-hook 'c-mode-hook (lambda nil (semantic-add-system-include "~/.emacs.d/include" 'c++-mode))) |
77bbb8dc0e0c
Disabled activation of CEDET and Semantic. It consumes 48% of startup time.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1675
diff
changeset
|
449 |
(global-semanticdb-minor-mode 1) |
77bbb8dc0e0c
Disabled activation of CEDET and Semantic. It consumes 48% of startup time.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1675
diff
changeset
|
450 |
(ignore-errors |
77bbb8dc0e0c
Disabled activation of CEDET and Semantic. It consumes 48% of startup time.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1675
diff
changeset
|
451 |
(global-cedet-m3-minor-mode 1)) |
77bbb8dc0e0c
Disabled activation of CEDET and Semantic. It consumes 48% of startup time.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1675
diff
changeset
|
452 |
(semantic-mode 1) |
77bbb8dc0e0c
Disabled activation of CEDET and Semantic. It consumes 48% of startup time.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1675
diff
changeset
|
453 |
(global-ede-mode 1) |
77bbb8dc0e0c
Disabled activation of CEDET and Semantic. It consumes 48% of startup time.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1675
diff
changeset
|
454 |
(require 'srecode) |
77bbb8dc0e0c
Disabled activation of CEDET and Semantic. It consumes 48% of startup time.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1675
diff
changeset
|
455 |
(defvar srecode-map-load-path nil) |
77bbb8dc0e0c
Disabled activation of CEDET and Semantic. It consumes 48% of startup time.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1675
diff
changeset
|
456 |
(add-to-list 'srecode-map-load-path (locate-user-emacs-file "srecode/")) |
77bbb8dc0e0c
Disabled activation of CEDET and Semantic. It consumes 48% of startup time.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1675
diff
changeset
|
457 |
(global-srecode-minor-mode 1) |
77bbb8dc0e0c
Disabled activation of CEDET and Semantic. It consumes 48% of startup time.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1675
diff
changeset
|
458 |
(add-hook 'prog-mode-hook 'srecode-minor-mode) |
77bbb8dc0e0c
Disabled activation of CEDET and Semantic. It consumes 48% of startup time.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1675
diff
changeset
|
459 |
(ignore-errors |
77bbb8dc0e0c
Disabled activation of CEDET and Semantic. It consumes 48% of startup time.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1675
diff
changeset
|
460 |
(cedet-ectag-version-check) |
77bbb8dc0e0c
Disabled activation of CEDET and Semantic. It consumes 48% of startup time.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1675
diff
changeset
|
461 |
(semantic-load-enable-primary-ectags-support)) |
77bbb8dc0e0c
Disabled activation of CEDET and Semantic. It consumes 48% of startup time.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1675
diff
changeset
|
462 |
(ignore-errors |
77bbb8dc0e0c
Disabled activation of CEDET and Semantic. It consumes 48% of startup time.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1675
diff
changeset
|
463 |
(cedet-gnu-global-version-check) |
77bbb8dc0e0c
Disabled activation of CEDET and Semantic. It consumes 48% of startup time.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1675
diff
changeset
|
464 |
(require 'cedet-global) |
77bbb8dc0e0c
Disabled activation of CEDET and Semantic. It consumes 48% of startup time.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1675
diff
changeset
|
465 |
(semanticdb-enable-gnu-global-databases 'c-mode) |
77bbb8dc0e0c
Disabled activation of CEDET and Semantic. It consumes 48% of startup time.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1675
diff
changeset
|
466 |
(semanticdb-enable-gnu-global-databases 'c++-mode)) |
77bbb8dc0e0c
Disabled activation of CEDET and Semantic. It consumes 48% of startup time.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1675
diff
changeset
|
467 |
(ignore-errors |
77bbb8dc0e0c
Disabled activation of CEDET and Semantic. It consumes 48% of startup time.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1675
diff
changeset
|
468 |
(require 'cedet-java)) |
77bbb8dc0e0c
Disabled activation of CEDET and Semantic. It consumes 48% of startup time.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1675
diff
changeset
|
469 |
(setq project-linux-build-directory-default 'same |
77bbb8dc0e0c
Disabled activation of CEDET and Semantic. It consumes 48% of startup time.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1675
diff
changeset
|
470 |
project-linux-architecture-default "x86") |
77bbb8dc0e0c
Disabled activation of CEDET and Semantic. It consumes 48% of startup time.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1675
diff
changeset
|
471 |
;; (require 'semantic/db-javap) |
77bbb8dc0e0c
Disabled activation of CEDET and Semantic. It consumes 48% of startup time.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1675
diff
changeset
|
472 |
;; (add-to-list 'ede-locate-setup-options 'ede-locate-idutils) |
77bbb8dc0e0c
Disabled activation of CEDET and Semantic. It consumes 48% of startup time.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1675
diff
changeset
|
473 |
;; (add-to-list 'ede-locate-setup-options 'ede-locate-global) |
77bbb8dc0e0c
Disabled activation of CEDET and Semantic. It consumes 48% of startup time.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1675
diff
changeset
|
474 |
;; (ignore-errors (require 'cedet-idutils)) |
77bbb8dc0e0c
Disabled activation of CEDET and Semantic. It consumes 48% of startup time.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1675
diff
changeset
|
475 |
(ignore-errors |
77bbb8dc0e0c
Disabled activation of CEDET and Semantic. It consumes 48% of startup time.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1675
diff
changeset
|
476 |
(require 'semantic/ia) |
77bbb8dc0e0c
Disabled activation of CEDET and Semantic. It consumes 48% of startup time.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1675
diff
changeset
|
477 |
(define-key semantic-mode-map (kbd "C-c , .") 'semantic-ia-fast-jump) |
77bbb8dc0e0c
Disabled activation of CEDET and Semantic. It consumes 48% of startup time.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1675
diff
changeset
|
478 |
(define-key semantic-mode-map (kbd "C-c , d") 'semantic-ia-show-doc) |
77bbb8dc0e0c
Disabled activation of CEDET and Semantic. It consumes 48% of startup time.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1675
diff
changeset
|
479 |
(define-key semantic-mode-map (kbd "C-c , D") 'semantic-ia-show-summary) |
77bbb8dc0e0c
Disabled activation of CEDET and Semantic. It consumes 48% of startup time.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1675
diff
changeset
|
480 |
(define-key semantic-mode-map (kbd "C-c , ?") 'semantic-ia-complete-symbol-menu) |
77bbb8dc0e0c
Disabled activation of CEDET and Semantic. It consumes 48% of startup time.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1675
diff
changeset
|
481 |
;; (define-key semantic-mode-map [(control return)] 'semantic-ia-complete-symbol) |
77bbb8dc0e0c
Disabled activation of CEDET and Semantic. It consumes 48% of startup time.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1675
diff
changeset
|
482 |
;; (define-key semantic-mode-map (kbd "C-c , C") 'semantic-ia-describe-class) |
77bbb8dc0e0c
Disabled activation of CEDET and Semantic. It consumes 48% of startup time.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1675
diff
changeset
|
483 |
;; semantic-decoration-include-visit |
77bbb8dc0e0c
Disabled activation of CEDET and Semantic. It consumes 48% of startup time.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1675
diff
changeset
|
484 |
;; semantic-analyze-proto-impl-toggle |
77bbb8dc0e0c
Disabled activation of CEDET and Semantic. It consumes 48% of startup time.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1675
diff
changeset
|
485 |
) |
77bbb8dc0e0c
Disabled activation of CEDET and Semantic. It consumes 48% of startup time.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1675
diff
changeset
|
486 |
;; END OF: (when (featurep 'cedet) ...) |
77bbb8dc0e0c
Disabled activation of CEDET and Semantic. It consumes 48% of startup time.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1675
diff
changeset
|
487 |
) |