.emacs-obsolete
author Oleksandr Gavenko <gavenkoa@gmail.com>
Mon, 25 Dec 2023 20:15:49 +0200
changeset 1772 d97be992a1f9
parent 1680 77bbb8dc0e0c
permissions -rw-r--r--
Introduced Org state FAILED.
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
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
6004ef18bbe2 I don't use bbdb.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1387
diff changeset
   251
6004ef18bbe2 I don't use bbdb.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1387
diff changeset
   252
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
6004ef18bbe2 I don't use bbdb.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1387
diff changeset
   253
(message "bbdb")
6004ef18bbe2 I don't use bbdb.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1387
diff changeset
   254
6004ef18bbe2 I don't use bbdb.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1387
diff changeset
   255
(eval-when 'compile (require 'bbdb nil t))
6004ef18bbe2 I don't use bbdb.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1387
diff changeset
   256
6004ef18bbe2 I don't use bbdb.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1387
diff changeset
   257
(setq
6004ef18bbe2 I don't use bbdb.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1387
diff changeset
   258
 bbdb-offer-save 1
6004ef18bbe2 I don't use bbdb.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1387
diff changeset
   259
 bbdb-use-pop-up t
6004ef18bbe2 I don't use bbdb.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1387
diff changeset
   260
 bbdb-electric-p t
6004ef18bbe2 I don't use bbdb.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1387
diff changeset
   261
 bbdb-popup-target-lines  1
6004ef18bbe2 I don't use bbdb.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1387
diff changeset
   262
 )
6004ef18bbe2 I don't use bbdb.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1387
diff changeset
   263
6004ef18bbe2 I don't use bbdb.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1387
diff changeset
   264
(setq bbdb-complete-name-full-completion t)
6004ef18bbe2 I don't use bbdb.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1387
diff changeset
   265
(setq bbdb-completion-type 'primary-or-name)
6004ef18bbe2 I don't use bbdb.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1387
diff changeset
   266
(setq bbdb-complete-name-allow-cycling t)
6004ef18bbe2 I don't use bbdb.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1387
diff changeset
   267
6004ef18bbe2 I don't use bbdb.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1387
diff changeset
   268
(setq bbdb-file "~/.gnus/bbdb")
6004ef18bbe2 I don't use bbdb.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1387
diff changeset
   269
6004ef18bbe2 I don't use bbdb.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1387
diff changeset
   270
;; (bbdb-initialize 'gnus 'message)
6004ef18bbe2 I don't use bbdb.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1387
diff changeset
   271
;; (bbdb-insinuate-message)
6004ef18bbe2 I don't use bbdb.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1387
diff changeset
   272
;; (add-hook 'gnus-startup-hook 'bbdb-insinuate-gnus)
1390
edcad6180e5e I don't use rcirc.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1389
diff changeset
   273
edcad6180e5e I don't use rcirc.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1389
diff changeset
   274
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
edcad6180e5e I don't use rcirc.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1389
diff changeset
   275
(message "rcirc")
edcad6180e5e I don't use rcirc.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1389
diff changeset
   276
edcad6180e5e I don't use rcirc.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1389
diff changeset
   277
(eval-when 'compile (require 'rcirc))
edcad6180e5e I don't use rcirc.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1389
diff changeset
   278
edcad6180e5e I don't use rcirc.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1389
diff changeset
   279
;; Turn on logging everything to a special buffer, for debugging.
edcad6180e5e I don't use rcirc.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1389
diff changeset
   280
;; (setq rcirc-debug-flag t)
edcad6180e5e I don't use rcirc.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1389
diff changeset
   281
edcad6180e5e I don't use rcirc.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1389
diff changeset
   282
(add-hook 'rcirc-mode-hook (lambda () (rcirc-track-minor-mode 1)))
edcad6180e5e I don't use rcirc.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1389
diff changeset
   283
(setq rcirc-time-format "%H:%M ")
edcad6180e5e I don't use rcirc.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1389
diff changeset
   284
(defun rcirc-handler-301 (process cmd sender args)
edcad6180e5e I don't use rcirc.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1389
diff changeset
   285
  "/away message handler.")
edcad6180e5e I don't use rcirc.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1389
diff changeset
   286
edcad6180e5e I don't use rcirc.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1389
diff changeset
   287
(setq rcirc-default-server "irc.freenode.net")
edcad6180e5e I don't use rcirc.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1389
diff changeset
   288
(setq rcirc-default-port 6667)
edcad6180e5e I don't use rcirc.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1389
diff changeset
   289
(setq rcirc-default-nick user-nick)
edcad6180e5e I don't use rcirc.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1389
diff changeset
   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
  )