.emacs-my
author Oleksandr Gavenko <gavenkoa@gmail.com>
Sun, 14 May 2023 16:40:00 +0300
changeset 1771 e60fb6cd150e
parent 1770 2b93801abc3c
child 1772 d97be992a1f9
permissions -rw-r--r--
In Emacs 28 it loads files referenced by diff-mode, polluting buffer list & recentf, and significantly slowing Emacs in Cygwin. https://debbugs.gnu.org/cgi/bugreport.cgi?bug=62749 https://emacs.stackexchange.com/questions/76728/modern-emacs-keeps-opening-related-file-from-vc-diff-buffer/
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
718
19ab21ec7640 Define own outline-regex to easy view file structure.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 717
diff changeset
     1
;; -*- mode: emacs-lisp; coding: utf-8; fill-column: 78 -*-
6
d1c4515c3cfa Add copyright notice.
Oleksander Gavenko <gavenko_a@3g.ua>
parents: 5
diff changeset
     2
;;
302
e93ff9360a51 Point to README from config file.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 299
diff changeset
     3
;; Config file for GNU Emacs.
83
d2eaf2ed6d1c Added basic jabber customization.
gavenkoa@gavenko.bifit.int
parents: 82
diff changeset
     4
;;
351
e30e4bd7e85e Small spell correction.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 348
diff changeset
     5
;; For load order see README.
0
aef1d0017234 Initial commit.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
diff changeset
     6
1738
1f9eaaf10690 Increased GC threshold. Fixed unbalanced parentheses.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1734
diff changeset
     7
;; Try to speed things up, especially in VM.
1f9eaaf10690 Increased GC threshold. Fixed unbalanced parentheses.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1734
diff changeset
     8
(setq gc-cons-threshold 6000000)
1f9eaaf10690 Increased GC threshold. Fixed unbalanced parentheses.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1734
diff changeset
     9
1683
40ff440156af cl-lib is pretty widespread now, no need for with-no-warnings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1682
diff changeset
    10
(require 'cl-lib)
1282
c4bc43d16082 Disable byte-compilation warnings:
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1281
diff changeset
    11
718
19ab21ec7640 Define own outline-regex to easy view file structure.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 717
diff changeset
    12
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1600
64b0c8d9821d Introduced key binding to open helper buffer baked by file (so will not be lost as with *scratch*).
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1597
diff changeset
    13
(message "silent runing")
64b0c8d9821d Introduced key binding to open helper buffer baked by file (so will not be lost as with *scratch*).
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1597
diff changeset
    14
64b0c8d9821d Introduced key binding to open helper buffer baked by file (so will not be lost as with *scratch*).
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1597
diff changeset
    15
(setq inhibit-splash-screen t)
64b0c8d9821d Introduced key binding to open helper buffer baked by file (so will not be lost as with *scratch*).
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1597
diff changeset
    16
(setq inhibit-startup-message t)
1602
c1c4e95f4618 inhibit-startup-buffer-menu
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1601
diff changeset
    17
(setq inhibit-startup-buffer-menu t)
1600
64b0c8d9821d Introduced key binding to open helper buffer baked by file (so will not be lost as with *scratch*).
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1597
diff changeset
    18
64b0c8d9821d Introduced key binding to open helper buffer baked by file (so will not be lost as with *scratch*).
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1597
diff changeset
    19
(setq initial-scratch-message nil)
1601
85ff4f99ebd0 initial-major-mode is fundamental-mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1600
diff changeset
    20
(setq initial-major-mode (quote fundamental-mode))
1600
64b0c8d9821d Introduced key binding to open helper buffer baked by file (so will not be lost as with *scratch*).
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1597
diff changeset
    21
64b0c8d9821d Introduced key binding to open helper buffer baked by file (so will not be lost as with *scratch*).
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1597
diff changeset
    22
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1694
7145e9a4cf34 Moved setting for backups, auto saving, locking earlier.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1693
diff changeset
    23
(message "backuping")
7145e9a4cf34 Moved setting for backups, auto saving, locking earlier.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1693
diff changeset
    24
7145e9a4cf34 Moved setting for backups, auto saving, locking earlier.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1693
diff changeset
    25
;; Keep it above modes saving state into files or you'll see files like ".recentf~" in "~/.emacs.d".
7145e9a4cf34 Moved setting for backups, auto saving, locking earlier.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1693
diff changeset
    26
(setq
7145e9a4cf34 Moved setting for backups, auto saving, locking earlier.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1693
diff changeset
    27
 make-backup-files t
7145e9a4cf34 Moved setting for backups, auto saving, locking earlier.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1693
diff changeset
    28
 ;; In other case (by renaming) you loose original file creation date.
7145e9a4cf34 Moved setting for backups, auto saving, locking earlier.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1693
diff changeset
    29
 backup-by-copying t
7145e9a4cf34 Moved setting for backups, auto saving, locking earlier.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1693
diff changeset
    30
 backup-directory-alist '(("." . "~/.emacs.d/.backup")) ; don't litter my fs tree
7145e9a4cf34 Moved setting for backups, auto saving, locking earlier.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1693
diff changeset
    31
 delete-old-versions t                         ; delete excess backup versions silently
7145e9a4cf34 Moved setting for backups, auto saving, locking earlier.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1693
diff changeset
    32
 kept-old-versions 1                           ; store first original version
7145e9a4cf34 Moved setting for backups, auto saving, locking earlier.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1693
diff changeset
    33
 kept-new-versions 3                           ; store last 3 version
7145e9a4cf34 Moved setting for backups, auto saving, locking earlier.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1693
diff changeset
    34
 version-control t)                            ; use versioned backups
7145e9a4cf34 Moved setting for backups, auto saving, locking earlier.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1693
diff changeset
    35
7145e9a4cf34 Moved setting for backups, auto saving, locking earlier.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1693
diff changeset
    36
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
7145e9a4cf34 Moved setting for backups, auto saving, locking earlier.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1693
diff changeset
    37
(message "lockfile")
7145e9a4cf34 Moved setting for backups, auto saving, locking earlier.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1693
diff changeset
    38
7145e9a4cf34 Moved setting for backups, auto saving, locking earlier.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1693
diff changeset
    39
;; (info "(elisp) File Locks")
7145e9a4cf34 Moved setting for backups, auto saving, locking earlier.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1693
diff changeset
    40
7145e9a4cf34 Moved setting for backups, auto saving, locking earlier.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1693
diff changeset
    41
;; Disable stupid file locking. It breaks editing WSL files from Cygwin Emacs.
7145e9a4cf34 Moved setting for backups, auto saving, locking earlier.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1693
diff changeset
    42
;; https://emacs.stackexchange.com/questions/61962/what-is-interlocking-about
7145e9a4cf34 Moved setting for backups, auto saving, locking earlier.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1693
diff changeset
    43
;; https://cygwin.com/pipermail/cygwin/2020-November/246887.html
7145e9a4cf34 Moved setting for backups, auto saving, locking earlier.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1693
diff changeset
    44
(setq create-lockfiles nil)
7145e9a4cf34 Moved setting for backups, auto saving, locking earlier.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1693
diff changeset
    45
7145e9a4cf34 Moved setting for backups, auto saving, locking earlier.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1693
diff changeset
    46
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
7145e9a4cf34 Moved setting for backups, auto saving, locking earlier.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1693
diff changeset
    47
(message "auto save")
7145e9a4cf34 Moved setting for backups, auto saving, locking earlier.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1693
diff changeset
    48
7145e9a4cf34 Moved setting for backups, auto saving, locking earlier.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1693
diff changeset
    49
;; Disable auto saving, files "#name#" might trigger false rebuild if there is
7145e9a4cf34 Moved setting for backups, auto saving, locking earlier.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1693
diff changeset
    50
;; some file watcher. Also those files looks like garbage in other tools/IDE.
7145e9a4cf34 Moved setting for backups, auto saving, locking earlier.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1693
diff changeset
    51
(setq auto-save-default nil)
7145e9a4cf34 Moved setting for backups, auto saving, locking earlier.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1693
diff changeset
    52
;; If nil autosave to a different file than the original.
7145e9a4cf34 Moved setting for backups, auto saving, locking earlier.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1693
diff changeset
    53
(setq auto-save-visited-file-name nil)
7145e9a4cf34 Moved setting for backups, auto saving, locking earlier.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1693
diff changeset
    54
(setq auto-save-interval 300)
7145e9a4cf34 Moved setting for backups, auto saving, locking earlier.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1693
diff changeset
    55
;; Note: if you kill unsaved file auto save file not deleted.
7145e9a4cf34 Moved setting for backups, auto saving, locking earlier.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1693
diff changeset
    56
(setq delete-auto-save-files t)
7145e9a4cf34 Moved setting for backups, auto saving, locking earlier.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1693
diff changeset
    57
7145e9a4cf34 Moved setting for backups, auto saving, locking earlier.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1693
diff changeset
    58
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1600
64b0c8d9821d Introduced key binding to open helper buffer baked by file (so will not be lost as with *scratch*).
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1597
diff changeset
    59
(message "helper buffers")
64b0c8d9821d Introduced key binding to open helper buffer baked by file (so will not be lost as with *scratch*).
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1597
diff changeset
    60
64b0c8d9821d Introduced key binding to open helper buffer baked by file (so will not be lost as with *scratch*).
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1597
diff changeset
    61
(define-key global-map "\C-v" nil)
64b0c8d9821d Introduced key binding to open helper buffer baked by file (so will not be lost as with *scratch*).
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1597
diff changeset
    62
(define-key global-map "\C-vt" (lambda nil (interactive) (switch-to-buffer "*scratch*")))
64b0c8d9821d Introduced key binding to open helper buffer baked by file (so will not be lost as with *scratch*).
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1597
diff changeset
    63
64b0c8d9821d Introduced key binding to open helper buffer baked by file (so will not be lost as with *scratch*).
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1597
diff changeset
    64
(defvar my-work-file (expand-file-name "~/work.txt"))
64b0c8d9821d Introduced key binding to open helper buffer baked by file (so will not be lost as with *scratch*).
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1597
diff changeset
    65
(setq initial-buffer-choice my-work-file)
1603
23bc0ad590b9 I need to visit work file with UTF-8 support.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1602
diff changeset
    66
(define-key global-map "\C-vw" (lambda nil (interactive) (find-file my-work-file)))
1600
64b0c8d9821d Introduced key binding to open helper buffer baked by file (so will not be lost as with *scratch*).
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1597
diff changeset
    67
64b0c8d9821d Introduced key binding to open helper buffer baked by file (so will not be lost as with *scratch*).
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1597
diff changeset
    68
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1620
a20b6c6e82a3 Moved save-place to a separate section.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1619
diff changeset
    69
(message "save-place")
a20b6c6e82a3 Moved save-place to a separate section.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1619
diff changeset
    70
a20b6c6e82a3 Moved save-place to a separate section.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1619
diff changeset
    71
;; `save-place-file' in ".emacs".
a20b6c6e82a3 Moved save-place to a separate section.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1619
diff changeset
    72
(save-place-mode 1) ; since v25.1
a20b6c6e82a3 Moved save-place to a separate section.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1619
diff changeset
    73
a20b6c6e82a3 Moved save-place to a separate section.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1619
diff changeset
    74
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
611
49c993d41d3f Firstly enable 'recentf' to easy access to recently edited file when Emacs
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 610
diff changeset
    75
(message "recentf")
49c993d41d3f Firstly enable 'recentf' to easy access to recently edited file when Emacs
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 610
diff changeset
    76
1254
19c7b3be9b3a Define special macro to avoid warning about "assignment to free variable".
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1253
diff changeset
    77
(eval-and-compile
19c7b3be9b3a Define special macro to avoid warning about "assignment to free variable".
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1253
diff changeset
    78
  (require 'recentf))
19c7b3be9b3a Define special macro to avoid warning about "assignment to free variable".
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1253
diff changeset
    79
1639
9b97a088274e Added comment how to reload recentf.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1638
diff changeset
    80
;; (recentf-load-list)
1253
504c216e8d21 Move '.recentf' and '~/.irc' to '~/.emacs.d'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1240
diff changeset
    81
(setq recentf-save-file (concat user-emacs-directory ".recentf"))
1148
9659883a1bec Add ``recentf-exclude`` to prevent opening unwanted files from temporary copy.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1147
diff changeset
    82
9659883a1bec Add ``recentf-exclude`` to prevent opening unwanted files from temporary copy.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1147
diff changeset
    83
;; Prevent TRAMP to login on remote host when loading. Its take time and ask passwords!
9659883a1bec Add ``recentf-exclude`` to prevent opening unwanted files from temporary copy.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1147
diff changeset
    84
(setq recentf-keep '(file-remote-p file-readable-p))
9659883a1bec Add ``recentf-exclude`` to prevent opening unwanted files from temporary copy.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1147
diff changeset
    85
(setq recentf-exclude                   ; Use ``M-x recentf-cleanup`` to update recentf-list.
9659883a1bec Add ``recentf-exclude`` to prevent opening unwanted files from temporary copy.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1147
diff changeset
    86
      '("/devel/[^/]*-\\(orig\\|tmp\\|xxx\\)"
1202
17ed3f571ca4 Add shortcut for recentf.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1201
diff changeset
    87
        "/devel/my-\\(merge\\|pull\\)/"
1334
6e334301afb1 Update paths because I move my base development directory up one level.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1333
diff changeset
    88
        "/.cache/"
1202
17ed3f571ca4 Add shortcut for recentf.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1201
diff changeset
    89
        "\\.png\\'"))
1329
a2f8f3f1f0ef Place related recentf settings together.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1328
diff changeset
    90
1148
9659883a1bec Add ``recentf-exclude`` to prevent opening unwanted files from temporary copy.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1147
diff changeset
    91
(setq recentf-max-saved-items 10000)
1329
a2f8f3f1f0ef Place related recentf settings together.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1328
diff changeset
    92
(setq recentf-max-menu-items 40)
a2f8f3f1f0ef Place related recentf settings together.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1328
diff changeset
    93
(setq recentf-show-file-shortcuts-flag nil)
1148
9659883a1bec Add ``recentf-exclude`` to prevent opening unwanted files from temporary copy.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1147
diff changeset
    94
1677
bfa894057550 Added note about recentf-auto-cleanup.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1673
diff changeset
    95
;; Need to be defined before loading "recentf" because default value is
bfa894057550 Added note about recentf-auto-cleanup.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1673
diff changeset
    96
;; "mode", meaning cleanup when turning the mode on.
bfa894057550 Added note about recentf-auto-cleanup.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1673
diff changeset
    97
(setq recentf-auto-cleanup 600)
1682
32e95bb034b6 Disable population of `file-name-history', it causes calls to
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1680
diff changeset
    98
;; Disable population of `file-name-history', it causes calls to
32e95bb034b6 Disable population of `file-name-history', it causes calls to
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1680
diff changeset
    99
;;   abbreviate-file-name => file-name-case-insensitive-p => tramp-autoload-file-name-handler
32e95bb034b6 Disable population of `file-name-history', it causes calls to
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1680
diff changeset
   100
;; taking 41% of startup time.
32e95bb034b6 Disable population of `file-name-history', it causes calls to
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1680
diff changeset
   101
;; `ido-switch-buffer' doesn't depends on `file-name-history', nothing to lose.
32e95bb034b6 Disable population of `file-name-history', it causes calls to
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1680
diff changeset
   102
(setq recentf-initialize-file-name-history nil)
1677
bfa894057550 Added note about recentf-auto-cleanup.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1673
diff changeset
   103
bfa894057550 Added note about recentf-auto-cleanup.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1673
diff changeset
   104
(recentf-mode 1)
1148
9659883a1bec Add ``recentf-exclude`` to prevent opening unwanted files from temporary copy.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1147
diff changeset
   105
1202
17ed3f571ca4 Add shortcut for recentf.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1201
diff changeset
   106
(global-set-key (kbd "\e\eq") 'recentf-open-files)
17ed3f571ca4 Add shortcut for recentf.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1201
diff changeset
   107
(global-set-key [?\s-q] 'recentf-open-files)
611
49c993d41d3f Firstly enable 'recentf' to easy access to recently edited file when Emacs
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 610
diff changeset
   108
1148
9659883a1bec Add ``recentf-exclude`` to prevent opening unwanted files from temporary copy.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1147
diff changeset
   109
;; (setq recentf-menu-filter 'recentf-arrange-by-dir) ; Too slow with dir widgets.
1153
516ab8f13ece Don't sort ``recentf-list`` so ``recentf-open-files`` show files in historical order!
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1150
diff changeset
   110
;; Don't sort ``recentf-list`` so ``recentf-open-files`` show files in historical order!
516ab8f13ece Don't sort ``recentf-list`` so ``recentf-open-files`` show files in historical order!
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1150
diff changeset
   111
(setq recentf-menu-filter nil)
1141
294e4bafc4a5 Set recentf-menu-filter as recentf-arrange-by-dir to avoid shown duplicate
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1140
diff changeset
   112
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
   113
(defun my-recentf-clean-project (dir)
1208
e2ce4a60af3e my-recentf.clean-project
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1207
diff changeset
   114
  "Remove from recentf all files that belong to DIR directory."
e2ce4a60af3e my-recentf.clean-project
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1207
diff changeset
   115
  (interactive (list (read-directory-name "Exclude all paths")))
e2ce4a60af3e my-recentf.clean-project
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1207
diff changeset
   116
  (let ( recentf-exclude )
e2ce4a60af3e my-recentf.clean-project
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1207
diff changeset
   117
    (setq recentf-exclude (list (concat "^" (regexp-quote (expand-file-name dir)))))
e2ce4a60af3e my-recentf.clean-project
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1207
diff changeset
   118
    (recentf-cleanup) ))
e2ce4a60af3e my-recentf.clean-project
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1207
diff changeset
   119
718
19ab21ec7640 Define own outline-regex to easy view file structure.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 717
diff changeset
   120
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1374
313e428cf77c Add (eval-when 'compile ...) to reduce number of Warning: reference to free variable.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1373
diff changeset
   121
(message "revert buffer, auto-revert")
313e428cf77c Add (eval-when 'compile ...) to reduce number of Warning: reference to free variable.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1373
diff changeset
   122
1685
6a740def74e8 Fixed error 'eval-when is not defined' after switching to cl-lib.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1684
diff changeset
   123
(cl-eval-when (compile) (require 'autorevert))
658
b8a1ffa6408f Make revert buffer available more early.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 657
diff changeset
   124
b8a1ffa6408f Make revert buffer available more early.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 657
diff changeset
   125
(global-set-key [f5]    'revert-buffer)
1692
d627cd09b5e3 Simplified expression.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1691
diff changeset
   126
(setq revert-without-query '(".*"))
658
b8a1ffa6408f Make revert buffer available more early.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 657
diff changeset
   127
(setq auto-revert-interval 2)
b8a1ffa6408f Make revert buffer available more early.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 657
diff changeset
   128
1583
5811230692a3 Added docs about global-auto-revert-mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1582
diff changeset
   129
;; (setq global-auto-revert-mode 1)
5811230692a3 Added docs about global-auto-revert-mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1582
diff changeset
   130
718
19ab21ec7640 Define own outline-regex to easy view file structure.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 717
diff changeset
   131
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
545
24992bae7599 Use 'message' instead of comment to easy debug where error occurred.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 544
diff changeset
   132
(message "debugging")
0
aef1d0017234 Initial commit.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
diff changeset
   133
175
a505ab71060a Make comment shorter.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 174
diff changeset
   134
;; Shut off message buffer by setting nil.
252
330b4cdfaddf Increase log message count.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 251
diff changeset
   135
(setq message-log-max 512)
0
aef1d0017234 Initial commit.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
diff changeset
   136
1709
5946ac9f14c7 Docs: improved comment.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1708
diff changeset
   137
;; Prevent Emacs from loading 'default.el', which is loaded after '.emacs'.
539
4e0728ed912a Document 'inhibit-default-init'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 538
diff changeset
   138
(setq inhibit-default-init nil)         ; t/nil
4e0728ed912a Document 'inhibit-default-init'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 538
diff changeset
   139
1761
ea34f404a5f9 Suppress popping a warnings buffer when Emacs installs packages.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1758
diff changeset
   140
(setq warning-suppress-types '(comp))
ea34f404a5f9 Suppress popping a warnings buffer when Emacs installs packages.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1758
diff changeset
   141
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
   142
(defun my-eval-buffer ()
1416
6f00eaa73a10 Functions to re-evaluate buffer/library with re-assigning `defvar` values.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1415
diff changeset
   143
  "Evaluate entire buffer with re-assigning values to `defvar' / `defcustom'.
6f00eaa73a10 Functions to re-evaluate buffer/library with re-assigning `defvar` values.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1415
diff changeset
   144
Useful during package development."
6f00eaa73a10 Functions to re-evaluate buffer/library with re-assigning `defvar` values.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1415
diff changeset
   145
  (interactive)
6f00eaa73a10 Functions to re-evaluate buffer/library with re-assigning `defvar` values.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1415
diff changeset
   146
  (save-excursion
1417
920558cbf675 Fix: Warning: `beginning-of-buffer' is for interactive use only; use `(goto-char (point-min))' instead.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1416
diff changeset
   147
    (goto-char (point-min))
1416
6f00eaa73a10 Functions to re-evaluate buffer/library with re-assigning `defvar` values.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1415
diff changeset
   148
    (while (not (eobp))
6f00eaa73a10 Functions to re-evaluate buffer/library with re-assigning `defvar` values.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1415
diff changeset
   149
      (eval-defun nil)
6f00eaa73a10 Functions to re-evaluate buffer/library with re-assigning `defvar` values.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1415
diff changeset
   150
      (end-of-defun))))
6f00eaa73a10 Functions to re-evaluate buffer/library with re-assigning `defvar` values.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1415
diff changeset
   151
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
   152
(defun my-load-library (library)
1416
6f00eaa73a10 Functions to re-evaluate buffer/library with re-assigning `defvar` values.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1415
diff changeset
   153
  "Evaluate entire library with re-assigning values to `defvar' / `defcustom'.
6f00eaa73a10 Functions to re-evaluate buffer/library with re-assigning `defvar` values.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1415
diff changeset
   154
Useful during package development."
6f00eaa73a10 Functions to re-evaluate buffer/library with re-assigning `defvar` values.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1415
diff changeset
   155
  (interactive
6f00eaa73a10 Functions to re-evaluate buffer/library with re-assigning `defvar` values.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1415
diff changeset
   156
   (list (completing-read "Load library: "
6f00eaa73a10 Functions to re-evaluate buffer/library with re-assigning `defvar` values.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1415
diff changeset
   157
                          (apply-partially 'locate-file-completion-table
6f00eaa73a10 Functions to re-evaluate buffer/library with re-assigning `defvar` values.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1415
diff changeset
   158
                                           load-path
6f00eaa73a10 Functions to re-evaluate buffer/library with re-assigning `defvar` values.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1415
diff changeset
   159
                                           '("" ".el")))))
6f00eaa73a10 Functions to re-evaluate buffer/library with re-assigning `defvar` values.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1415
diff changeset
   160
  (with-temp-buffer
6f00eaa73a10 Functions to re-evaluate buffer/library with re-assigning `defvar` values.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1415
diff changeset
   161
    (insert-file-contents (locate-file library load-path '("" ".el")))
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
   162
    (my-eval-buffer)))
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
   163
718
19ab21ec7640 Define own outline-regex to easy view file structure.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 717
diff changeset
   164
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
545
24992bae7599 Use 'message' instead of comment to easy debug where error occurred.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 544
diff changeset
   165
(message "user info")
531
a6466b47121e Move user info to top.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 530
diff changeset
   166
1685
6a740def74e8 Fixed error 'eval-when is not defined' after switching to cl-lib.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1684
diff changeset
   167
(cl-eval-when (compile) (require 'info))
1374
313e428cf77c Add (eval-when 'compile ...) to reduce number of Warning: reference to free variable.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1373
diff changeset
   168
1718
9d72f4424570 Removed mentioning of author and copyright from all files' headers.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1717
diff changeset
   169
;; Following variables are loaded by (load my-lisp-auth t) from init.el:
9d72f4424570 Removed mentioning of author and copyright from all files' headers.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1717
diff changeset
   170
;; user-full-name  user-mail-address  user-nick  user-home-page
774
ebfb1eb5cf56 Set following in ~/.emacs-auth.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 773
diff changeset
   171
1282
c4bc43d16082 Disable byte-compilation warnings:
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1281
diff changeset
   172
(defvar user-nick (user-login-name)
c4bc43d16082 Disable byte-compilation warnings:
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1281
diff changeset
   173
  "My nick name.")
930
ab0ce5cb09bf Add link to my home page in Organization mail header.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 929
diff changeset
   174
;; auto-insert and copyright package use this to insert copyright owner. Gnus
ab0ce5cb09bf Add link to my home page in Organization mail header.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 929
diff changeset
   175
;; uses this for Organization header.
ab0ce5cb09bf Add link to my home page in Organization mail header.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 929
diff changeset
   176
(setenv "ORGANIZATION"
ab0ce5cb09bf Add link to my home page in Organization mail header.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 929
diff changeset
   177
        (concat
ab0ce5cb09bf Add link to my home page in Organization mail header.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 929
diff changeset
   178
         user-full-name
ab0ce5cb09bf Add link to my home page in Organization mail header.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 929
diff changeset
   179
         " <" user-mail-address  ">"
ab0ce5cb09bf Add link to my home page in Organization mail header.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 929
diff changeset
   180
         (when (boundp 'user-home-page) (concat ", " user-home-page))))
531
a6466b47121e Move user info to top.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 530
diff changeset
   181
718
19ab21ec7640 Define own outline-regex to easy view file structure.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 717
diff changeset
   182
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1660
969cca2050e2 Ensure the help doesn't trigger autoloading.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1656
diff changeset
   183
(message "autoload")
969cca2050e2 Ensure the help doesn't trigger autoloading.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1656
diff changeset
   184
969cca2050e2 Ensure the help doesn't trigger autoloading.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1656
diff changeset
   185
;; Ensure the help doesn't trigger autoloading.
969cca2050e2 Ensure the help doesn't trigger autoloading.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1656
diff changeset
   186
(setq help-enable-autoload nil)
969cca2050e2 Ensure the help doesn't trigger autoloading.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1656
diff changeset
   187
(setq help-enable-completion-autoload nil)
969cca2050e2 Ensure the help doesn't trigger autoloading.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1656
diff changeset
   188
969cca2050e2 Ensure the help doesn't trigger autoloading.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1656
diff changeset
   189
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
670
d10f2e70ff5e Redefine action to put 'html' tag in sgml-mode (more pretty look).
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 669
diff changeset
   190
(message "my defun, defmacro, defvar")
d10f2e70ff5e Redefine action to put 'html' tag in sgml-mode (more pretty look).
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 669
diff changeset
   191
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
   192
(defmacro my-filter (pred list)
1017
7b1ae3e0c9e3 Omit condition from loop.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1016
diff changeset
   193
  "Construct list with elements from LIST which satisfy PRED."
1018
94b0ca71a583 Fix (info "(elisp) Surprising Local Vars").
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1017
diff changeset
   194
  (let ( (r (make-symbol "r_")) )
94b0ca71a583 Fix (info "(elisp) Surprising Local Vars").
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1017
diff changeset
   195
    `(let ( (,r (list nil)) )
94b0ca71a583 Fix (info "(elisp) Surprising Local Vars").
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1017
diff changeset
   196
       (mapc (lambda (item)
94b0ca71a583 Fix (info "(elisp) Surprising Local Vars").
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1017
diff changeset
   197
               (when (,pred item)
94b0ca71a583 Fix (info "(elisp) Surprising Local Vars").
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1017
diff changeset
   198
                 (nconc ,r (cons item nil))))
94b0ca71a583 Fix (info "(elisp) Surprising Local Vars").
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1017
diff changeset
   199
             ,list)
94b0ca71a583 Fix (info "(elisp) Surprising Local Vars").
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1017
diff changeset
   200
       (cdr ,r))))
670
d10f2e70ff5e Redefine action to put 'html' tag in sgml-mode (more pretty look).
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 669
diff changeset
   201
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
   202
(defun my-fold (f x list)
716
a3f42d9dd281 my-percent-decode
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 715
diff changeset
   203
  "Recursively applies (F i j) to LIST starting with X.
a3f42d9dd281 my-percent-decode
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 715
diff changeset
   204
For example, (fold F X '(1 2 3)) computes (F (F (F X 1) 2) 3)."
a3f42d9dd281 my-percent-decode
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 715
diff changeset
   205
  (let ((li list) (x2 x))
a3f42d9dd281 my-percent-decode
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 715
diff changeset
   206
    (while li
a3f42d9dd281 my-percent-decode
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 715
diff changeset
   207
      (setq x2 (funcall f x2 (pop li)))
a3f42d9dd281 my-percent-decode
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 715
diff changeset
   208
      )
a3f42d9dd281 my-percent-decode
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 715
diff changeset
   209
    x2
a3f42d9dd281 my-percent-decode
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 715
diff changeset
   210
    ) )
a3f42d9dd281 my-percent-decode
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 715
diff changeset
   211
1631
f6eae5ebf7d9 Add association if `key' is not in `alist' and replace all accociation with
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1630
diff changeset
   212
(defun my-assoc-push (key value alist)
f6eae5ebf7d9 Add association if `key' is not in `alist' and replace all accociation with
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1630
diff changeset
   213
  "Add association if `key' is not in `alist' and replace all
f6eae5ebf7d9 Add association if `key' is not in `alist' and replace all accociation with
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1630
diff changeset
   214
accociation with single, if there is `key'."
f6eae5ebf7d9 Add association if `key' is not in `alist' and replace all accociation with
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1630
diff changeset
   215
  (when (not (symbolp alist)) (error "alist is not a symbol."))
f6eae5ebf7d9 Add association if `key' is not in `alist' and replace all accociation with
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1630
diff changeset
   216
  (set alist
f6eae5ebf7d9 Add association if `key' is not in `alist' and replace all accociation with
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1630
diff changeset
   217
       (cons (cons key value)
f6eae5ebf7d9 Add association if `key' is not in `alist' and replace all accociation with
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1630
diff changeset
   218
             (cl-remove key (symbol-value alist) :key #'car :test #'equal))))
f6eae5ebf7d9 Add association if `key' is not in `alist' and replace all accociation with
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1630
diff changeset
   219
720
e50b78c6a53d Fix: ignore-errors does not defined under Emacs 22.2.1 (on Debian).
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 699
diff changeset
   220
(unless (fboundp 'ignore-errors)
e50b78c6a53d Fix: ignore-errors does not defined under Emacs 22.2.1 (on Debian).
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 699
diff changeset
   221
  (defmacro ignore-errors (&rest body)
e50b78c6a53d Fix: ignore-errors does not defined under Emacs 22.2.1 (on Debian).
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 699
diff changeset
   222
    "Execute BODY; if an error occurs, return nil.
e50b78c6a53d Fix: ignore-errors does not defined under Emacs 22.2.1 (on Debian).
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 699
diff changeset
   223
Otherwise, return result of last form in BODY."
e50b78c6a53d Fix: ignore-errors does not defined under Emacs 22.2.1 (on Debian).
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 699
diff changeset
   224
    (declare (debug t) (indent 0))
e50b78c6a53d Fix: ignore-errors does not defined under Emacs 22.2.1 (on Debian).
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 699
diff changeset
   225
    `(condition-case nil (progn ,@body) (error nil)))
e50b78c6a53d Fix: ignore-errors does not defined under Emacs 22.2.1 (on Debian).
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 699
diff changeset
   226
  )
e50b78c6a53d Fix: ignore-errors does not defined under Emacs 22.2.1 (on Debian).
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 699
diff changeset
   227
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
   228
(defun my-lookup-key (key)
1016
6c3765dd9ed2 Search for KEY in all known keymaps.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1015
diff changeset
   229
  "Search for KEY in all known keymaps."
1468
0959998f028d Return list instead printing to *Message* buffer in my/lookup-key.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1467
diff changeset
   230
  (let (result)
0959998f028d Return list instead printing to *Message* buffer in my/lookup-key.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1467
diff changeset
   231
    (mapatoms (lambda (ob) (when (and (boundp ob)
0959998f028d Return list instead printing to *Message* buffer in my/lookup-key.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1467
diff changeset
   232
                                 (keymapp (symbol-value ob))
0959998f028d Return list instead printing to *Message* buffer in my/lookup-key.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1467
diff changeset
   233
                                 (functionp (lookup-key (symbol-value ob) key)))
0959998f028d Return list instead printing to *Message* buffer in my/lookup-key.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1467
diff changeset
   234
                        (push ob result)))
0959998f028d Return list instead printing to *Message* buffer in my/lookup-key.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1467
diff changeset
   235
              obarray)
0959998f028d Return list instead printing to *Message* buffer in my/lookup-key.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1467
diff changeset
   236
    (remove-if-not 'identity result) ))
1016
6c3765dd9ed2 Search for KEY in all known keymaps.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1015
diff changeset
   237
1734
ae2c6a001464 Add some standard places to PATH if they are not set by login script.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1733
diff changeset
   238
ae2c6a001464 Add some standard places to PATH if they are not set by login script.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1733
diff changeset
   239
(defun my-path-append-to-beginning (pathenv path)
ae2c6a001464 Add some standard places to PATH if they are not set by login script.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1733
diff changeset
   240
  "Append PATH to the beginning of PATHENV, pruning existing entries."
ae2c6a001464 Add some standard places to PATH if they are not set by login script.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1733
diff changeset
   241
  (let* ( (pathenv (concat ":" pathenv ":"))
ae2c6a001464 Add some standard places to PATH if they are not set by login script.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1733
diff changeset
   242
	  (beg (cl-search (concat ":" path ":") pathenv))
ae2c6a001464 Add some standard places to PATH if they are not set by login script.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1733
diff changeset
   243
	  lh rh )
ae2c6a001464 Add some standard places to PATH if they are not set by login script.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1733
diff changeset
   244
    (when beg
ae2c6a001464 Add some standard places to PATH if they are not set by login script.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1733
diff changeset
   245
      (setq lh (substring pathenv 0 beg))
ae2c6a001464 Add some standard places to PATH if they are not set by login script.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1733
diff changeset
   246
      (setq rh (substring pathenv (1+ (cl-search ":" pathenv :start2 (1+ beg))) nil))
ae2c6a001464 Add some standard places to PATH if they are not set by login script.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1733
diff changeset
   247
      (setq pathenv (concat lh ":" rh)))
ae2c6a001464 Add some standard places to PATH if they are not set by login script.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1733
diff changeset
   248
    ;; pathenv keeps ":" as a prefix (OK for the next concat) and suffix (need one to strip).
ae2c6a001464 Add some standard places to PATH if they are not set by login script.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1733
diff changeset
   249
    (setq pathenv (substring pathenv 0 (1- (length pathenv))))
ae2c6a001464 Add some standard places to PATH if they are not set by login script.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1733
diff changeset
   250
    (concat path pathenv)))
ae2c6a001464 Add some standard places to PATH if they are not set by login script.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1733
diff changeset
   251
ae2c6a001464 Add some standard places to PATH if they are not set by login script.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1733
diff changeset
   252
;; (my-path-append-to-beginning "a:b:c" "a")
ae2c6a001464 Add some standard places to PATH if they are not set by login script.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1733
diff changeset
   253
;; (my-path-append-to-beginning "a:b:c" "b")
ae2c6a001464 Add some standard places to PATH if they are not set by login script.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1733
diff changeset
   254
;; (my-path-append-to-beginning "a:b:c" "c")
ae2c6a001464 Add some standard places to PATH if they are not set by login script.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1733
diff changeset
   255
;; (my-path-append-to-beginning "a:b:c" "d")
ae2c6a001464 Add some standard places to PATH if they are not set by login script.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1733
diff changeset
   256
718
19ab21ec7640 Define own outline-regex to easy view file structure.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 717
diff changeset
   257
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1255
abba187b8cab Move elisp tuning upper to get better support for debugging when init
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1254
diff changeset
   258
(message "lisp, elisp")
abba187b8cab Move elisp tuning upper to get better support for debugging when init
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1254
diff changeset
   259
1685
6a740def74e8 Fixed error 'eval-when is not defined' after switching to cl-lib.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1684
diff changeset
   260
(cl-eval-when (compile) (require 'chistory))
1374
313e428cf77c Add (eval-when 'compile ...) to reduce number of Warning: reference to free variable.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1373
diff changeset
   261
1255
abba187b8cab Move elisp tuning upper to get better support for debugging when init
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1254
diff changeset
   262
(setq list-command-history-max 256)
abba187b8cab Move elisp tuning upper to get better support for debugging when init
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1254
diff changeset
   263
abba187b8cab Move elisp tuning upper to get better support for debugging when init
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1254
diff changeset
   264
(add-hook 'emacs-lisp-mode-hook 'turn-on-eldoc-mode)
abba187b8cab Move elisp tuning upper to get better support for debugging when init
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1254
diff changeset
   265
(add-hook 'lisp-interaction-mode-hook 'turn-on-eldoc-mode)
abba187b8cab Move elisp tuning upper to get better support for debugging when init
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1254
diff changeset
   266
(add-hook 'ielm-mode-hook 'turn-on-eldoc-mode)
abba187b8cab Move elisp tuning upper to get better support for debugging when init
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1254
diff changeset
   267
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
   268
(defun my-emacs-lisp-mode-hook ()
1255
abba187b8cab Move elisp tuning upper to get better support for debugging when init
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1254
diff changeset
   269
  (setq tab-width 8))
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
   270
(add-hook 'emacs-lisp-mode-hook 'my-emacs-lisp-mode-hook)
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
   271
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
   272
(defun my-elisp-find-tag ()
1255
abba187b8cab Move elisp tuning upper to get better support for debugging when init
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1254
diff changeset
   273
  (interactive)
abba187b8cab Move elisp tuning upper to get better support for debugging when init
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1254
diff changeset
   274
  (require 'etags)
abba187b8cab Move elisp tuning upper to get better support for debugging when init
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1254
diff changeset
   275
  (ring-insert find-tag-marker-ring (point-marker))
abba187b8cab Move elisp tuning upper to get better support for debugging when init
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1254
diff changeset
   276
  (unless (find-variable-at-point)
abba187b8cab Move elisp tuning upper to get better support for debugging when init
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1254
diff changeset
   277
    (find-function-at-point)
abba187b8cab Move elisp tuning upper to get better support for debugging when init
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1254
diff changeset
   278
    ))
abba187b8cab Move elisp tuning upper to get better support for debugging when init
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1254
diff changeset
   279
;; Goto elisp definition.
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
   280
(define-key emacs-lisp-mode-map (kbd "M-.") 'my-elisp-find-tag)
1255
abba187b8cab Move elisp tuning upper to get better support for debugging when init
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1254
diff changeset
   281
abba187b8cab Move elisp tuning upper to get better support for debugging when init
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1254
diff changeset
   282
(if (not (fboundp 'global-prettify-symbols-mode))
abba187b8cab Move elisp tuning upper to get better support for debugging when init
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1254
diff changeset
   283
    ;; http://www.emacswiki.org/emacs/PrettyLambda
abba187b8cab Move elisp tuning upper to get better support for debugging when init
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1254
diff changeset
   284
    (font-lock-add-keywords
abba187b8cab Move elisp tuning upper to get better support for debugging when init
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1254
diff changeset
   285
     'emacs-lisp-mode
abba187b8cab Move elisp tuning upper to get better support for debugging when init
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1254
diff changeset
   286
     `(("(\\<\\(lambda\\)\\>"
abba187b8cab Move elisp tuning upper to get better support for debugging when init
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1254
diff changeset
   287
        (1 (progn (compose-region (match-beginning 1) (match-end 1) ,(make-char 'greek-iso8859-7 107)) font-lock-keyword-face)) )))
abba187b8cab Move elisp tuning upper to get better support for debugging when init
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1254
diff changeset
   288
  (global-prettify-symbols-mode 1))
abba187b8cab Move elisp tuning upper to get better support for debugging when init
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1254
diff changeset
   289
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
   290
(defun my-dump-funcs ()
1255
abba187b8cab Move elisp tuning upper to get better support for debugging when init
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1254
diff changeset
   291
  "Dump all function calls in current buffer. Useful to explore
abba187b8cab Move elisp tuning upper to get better support for debugging when init
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1254
diff changeset
   292
elisp API from somebody else files."
abba187b8cab Move elisp tuning upper to get better support for debugging when init
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1254
diff changeset
   293
  (interactive)
abba187b8cab Move elisp tuning upper to get better support for debugging when init
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1254
diff changeset
   294
  (let* ( (cur-buffer (current-buffer)) (new-buffer (get-buffer-create (concat (buffer-name cur-buffer) "-funcs.el"))) symb )
abba187b8cab Move elisp tuning upper to get better support for debugging when init
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1254
diff changeset
   295
    (while (search-forward-regexp "([[:alnum:]*]" nil t)
abba187b8cab Move elisp tuning upper to get better support for debugging when init
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1254
diff changeset
   296
      (setq symb (thing-at-point 'symbol))
abba187b8cab Move elisp tuning upper to get better support for debugging when init
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1254
diff changeset
   297
      (with-current-buffer new-buffer
1282
c4bc43d16082 Disable byte-compilation warnings:
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1281
diff changeset
   298
        (insert symb)
1255
abba187b8cab Move elisp tuning upper to get better support for debugging when init
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1254
diff changeset
   299
        (insert-char ?\n 1)))
abba187b8cab Move elisp tuning upper to get better support for debugging when init
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1254
diff changeset
   300
    (switch-to-buffer new-buffer)
abba187b8cab Move elisp tuning upper to get better support for debugging when init
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1254
diff changeset
   301
    (shell-command-on-region (point-min) (point-max) "sort -u" nil t)
abba187b8cab Move elisp tuning upper to get better support for debugging when init
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1254
diff changeset
   302
    ))
abba187b8cab Move elisp tuning upper to get better support for debugging when init
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1254
diff changeset
   303
abba187b8cab Move elisp tuning upper to get better support for debugging when init
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1254
diff changeset
   304
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
545
24992bae7599 Use 'message' instead of comment to easy debug where error occurred.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 544
diff changeset
   305
(message "mode groups")
333
14b07ca8335a Set margin only for desired modes! Do not frustrate calendar any more.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 332
diff changeset
   306
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
   307
(defmacro my-defun-rename-symb-tree (name doc func)
606
959d64f49788 Generalize code.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 605
diff changeset
   308
  "Travel by TREE and applies FUNC to each symbol."
959d64f49788 Generalize code.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 605
diff changeset
   309
  `(defun ,name (tree)
959d64f49788 Generalize code.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 605
diff changeset
   310
     ,doc
959d64f49788 Generalize code.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 605
diff changeset
   311
     (cond
959d64f49788 Generalize code.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 605
diff changeset
   312
      ((symbolp tree)
959d64f49788 Generalize code.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 605
diff changeset
   313
       (,func tree)
959d64f49788 Generalize code.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 605
diff changeset
   314
       )
959d64f49788 Generalize code.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 605
diff changeset
   315
      ((listp tree)
959d64f49788 Generalize code.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 605
diff changeset
   316
       (mapcar ',name tree)
959d64f49788 Generalize code.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 605
diff changeset
   317
       )
1257
a17e5b709fa7 Fix warning from checkdoc.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1256
diff changeset
   318
      (t (error "Only tree of symbols allowed"))
606
959d64f49788 Generalize code.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 605
diff changeset
   319
      )))
605
c228c0414e0b Generalize logic to rename symbols.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 604
diff changeset
   320
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
   321
(my-defun-rename-symb-tree
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
   322
 my-feature2mode
606
959d64f49788 Generalize code.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 605
diff changeset
   323
 "Convert TREE of features to TREE of modes for these features. Single symbol allowed."
959d64f49788 Generalize code.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 605
diff changeset
   324
 (lambda (symb) (intern (concat (symbol-name symb) "-mode"))))
605
c228c0414e0b Generalize logic to rename symbols.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 604
diff changeset
   325
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
   326
(my-defun-rename-symb-tree
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
   327
 my-mode2hook
606
959d64f49788 Generalize code.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 605
diff changeset
   328
 "Convert TREE of modes to TREE of hooks for these modes. Single symbol allowed."
959d64f49788 Generalize code.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 605
diff changeset
   329
 (lambda (symb) (intern (concat (symbol-name symb) "-hook")))
959d64f49788 Generalize code.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 605
diff changeset
   330
 )
605
c228c0414e0b Generalize logic to rename symbols.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 604
diff changeset
   331
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
   332
(my-defun-rename-symb-tree
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
   333
 my-mode2modemap
606
959d64f49788 Generalize code.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 605
diff changeset
   334
 "Convert TREE of modes to TREE of keymaps for these modes. Single symbol allowed."
959d64f49788 Generalize code.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 605
diff changeset
   335
 (lambda (symb) (intern (concat (symbol-name symb) "-map")))
959d64f49788 Generalize code.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 605
diff changeset
   336
 )
493
4f91b5ccab17 'my-modelist-to-hooklist' convert list of MODES to list of hooks for these
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 492
diff changeset
   337
1589
ae79beae573a Enable TODO highlighting in all prod modes without listing all modes.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1588
diff changeset
   338
(defvar my-prog-mode-list
ae79beae573a Enable TODO highlighting in all prod modes without listing all modes.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1588
diff changeset
   339
  '(nsis-mode
1189
dd8bad2fe8ae show whitespaces in wesnoth-mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1188
diff changeset
   340
    html-mode nxml-mode wesnoth-mode
737
fb4d18368c1f Add 'LilyPond-mode' to 'my-devel-mode-list' for enabling scroll-margin.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 736
diff changeset
   341
    LilyPond-mode
866
b6b520b4e11e Add 'texinfo-mode' to 'my-devel-mode-list' for TODO highlighting.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 865
diff changeset
   342
    texinfo-mode
1589
ae79beae573a Enable TODO highlighting in all prod modes without listing all modes.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1588
diff changeset
   343
    gadict-mode)
333
14b07ca8335a Set margin only for desired modes! Do not frustrate calendar any more.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 332
diff changeset
   344
  "List of development modes.")
14b07ca8335a Set margin only for desired modes! Do not frustrate calendar any more.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 332
diff changeset
   345
1589
ae79beae573a Enable TODO highlighting in all prod modes without listing all modes.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1588
diff changeset
   346
(defvar my-prog-hook-list
ae79beae573a Enable TODO highlighting in all prod modes without listing all modes.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1588
diff changeset
   347
   (my-mode2hook my-prog-mode-list)
493
4f91b5ccab17 'my-modelist-to-hooklist' convert list of MODES to list of hooks for these
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 492
diff changeset
   348
  "List of development mode hooks.")
4f91b5ccab17 'my-modelist-to-hooklist' convert list of MODES to list of hooks for these
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 492
diff changeset
   349
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
   350
(defvar my-text-mode-list
1589
ae79beae573a Enable TODO highlighting in all prod modes without listing all modes.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1588
diff changeset
   351
  '(text-mode
631
eb5ce5b0b208 Add 'html-mode' to devel mode list.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 629
diff changeset
   352
    outline-mode
665
9761254a1260 Maintaining the table of contents up-to-date.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 664
diff changeset
   353
    rst-mode
723
ff912b026ad2 Move 'diff-mode' to 'my-text-mode-list' for trailing spaces highlighting.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 721
diff changeset
   354
    diff-mode
1592
58938ef683aa Added magit-revision-mode to my-text-mode-list.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1589
diff changeset
   355
    magit-revision-mode
1589
ae79beae573a Enable TODO highlighting in all prod modes without listing all modes.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1588
diff changeset
   356
    dict-c5-mode)
333
14b07ca8335a Set margin only for desired modes! Do not frustrate calendar any more.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 332
diff changeset
   357
  "List of text modes.")
14b07ca8335a Set margin only for desired modes! Do not frustrate calendar any more.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 332
diff changeset
   358
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
   359
(defvar my-text-mode-hook-list
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
   360
  (my-mode2hook my-text-mode-list)
333
14b07ca8335a Set margin only for desired modes! Do not frustrate calendar any more.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 332
diff changeset
   361
  "List of text mode hooks.")
14b07ca8335a Set margin only for desired modes! Do not frustrate calendar any more.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 332
diff changeset
   362
718
19ab21ec7640 Define own outline-regex to easy view file structure.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 717
diff changeset
   363
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1469
93700ab0e491 Use ScrollLock as super modifier in Windows. It is useful after remapping
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1468
diff changeset
   364
(message "MS Windows, w32, win32")
93700ab0e491 Use ScrollLock as super modifier in Windows. It is useful after remapping
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1468
diff changeset
   365
93700ab0e491 Use ScrollLock as super modifier in Windows. It is useful after remapping
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1468
diff changeset
   366
;; To remap CapsLock to ScrollLock:
93700ab0e491 Use ScrollLock as super modifier in Windows. It is useful after remapping
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1468
diff changeset
   367
;; Windows Registry Editor Version 5.00
93700ab0e491 Use ScrollLock as super modifier in Windows. It is useful after remapping
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1468
diff changeset
   368
;; [HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Keyboard Layout]
1470
787318562f0a I end with using Apps key as super.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1469
diff changeset
   369
;; ; CapsLock (3a,00) => LWin (5b,e0); LWin (5b,e0) => Apps (5d,e0)
787318562f0a I end with using Apps key as super.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1469
diff changeset
   370
;; "Scancode Map"=hex:00,00,00,00,00,00,00,00,03,00,00,00,5b,e0,3a,00,5d,e0,5b,e0,00,00,00,00
787318562f0a I end with using Apps key as super.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1469
diff changeset
   371
(when (eq window-system 'w32)
787318562f0a I end with using Apps key as super.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1469
diff changeset
   372
  (setq w32-apps-modifier 'super))
1469
93700ab0e491 Use ScrollLock as super modifier in Windows. It is useful after remapping
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1468
diff changeset
   373
93700ab0e491 Use ScrollLock as super modifier in Windows. It is useful after remapping
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1468
diff changeset
   374
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
545
24992bae7599 Use 'message' instead of comment to easy debug where error occurred.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 544
diff changeset
   375
(message "appearance")
362
f4bd431ad549 By default start from user home directory (HOME point to it).
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 361
diff changeset
   376
370
378a4dc8ea1c Maximize frame on full screen.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 369
diff changeset
   377
;; To maximize frame on full screen, not work with Windows Emacs 21.4.
378a4dc8ea1c Maximize frame on full screen.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 369
diff changeset
   378
;; And maked different height with Emacs 22.3 and 23.1.
378a4dc8ea1c Maximize frame on full screen.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 369
diff changeset
   379
;; (setq initial-frame-alist '((fullscreen . fullboth)))
378a4dc8ea1c Maximize frame on full screen.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 369
diff changeset
   380
1685
6a740def74e8 Fixed error 'eval-when is not defined' after switching to cl-lib.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1684
diff changeset
   381
(cl-eval-when (compile) (load-library "window"))
1374
313e428cf77c Add (eval-when 'compile ...) to reduce number of Warning: reference to free variable.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1373
diff changeset
   382
550
d8092299457a (setq display-buffer-reuse-frames t)
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 549
diff changeset
   383
(setq display-buffer-reuse-frames t)
d8092299457a (setq display-buffer-reuse-frames t)
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 549
diff changeset
   384
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
   385
(defun my-maximize ()
1183
6fdc4a4f4155 Use modern way to maximize frame.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1182
diff changeset
   386
  ;; Next code work with Emacs 21.4, 22.3, 23.1.
370
378a4dc8ea1c Maximize frame on full screen.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 369
diff changeset
   387
  (let (
378a4dc8ea1c Maximize frame on full screen.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 369
diff changeset
   388
        (px (display-pixel-width))
378a4dc8ea1c Maximize frame on full screen.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 369
diff changeset
   389
        (py (display-pixel-height))
378a4dc8ea1c Maximize frame on full screen.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 369
diff changeset
   390
        (fx (frame-char-width))
378a4dc8ea1c Maximize frame on full screen.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 369
diff changeset
   391
        (fy (frame-char-height))
378a4dc8ea1c Maximize frame on full screen.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 369
diff changeset
   392
        tx ty
378a4dc8ea1c Maximize frame on full screen.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 369
diff changeset
   393
        )
378a4dc8ea1c Maximize frame on full screen.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 369
diff changeset
   394
    ;; Next formulas discovered empiric on Windows host with default font.
373
bdf2522ad35c On Debian with font 7x13 right part of windows go out of display border.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 372
diff changeset
   395
    (setq tx (- (/ px fx) 7))
370
378a4dc8ea1c Maximize frame on full screen.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 369
diff changeset
   396
    (setq ty (- (/ py fy) 4))
625
78017f6d5b43 Indent initial frame to 2 pixel.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 624
diff changeset
   397
    (setq initial-frame-alist '((top . 2) (left . 2)))
370
378a4dc8ea1c Maximize frame on full screen.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 369
diff changeset
   398
    (add-to-list 'initial-frame-alist (cons 'width tx))
1183
6fdc4a4f4155 Use modern way to maximize frame.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1182
diff changeset
   399
    (add-to-list 'initial-frame-alist (cons 'height ty)) ))
6fdc4a4f4155 Use modern way to maximize frame.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1182
diff changeset
   400
6fdc4a4f4155 Use modern way to maximize frame.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1182
diff changeset
   401
(when window-system
6fdc4a4f4155 Use modern way to maximize frame.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1182
diff changeset
   402
  (if (fboundp 'toggle-frame-maximized)
6fdc4a4f4155 Use modern way to maximize frame.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1182
diff changeset
   403
      (toggle-frame-maximized)
1549
4ede173a315f Set new frame font same as in main. Maximize new frames.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1548
diff changeset
   404
    (my-maximize) )
4ede173a315f Set new frame font same as in main. Maximize new frames.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1548
diff changeset
   405
  (add-to-list 'default-frame-alist '(fullscreen . maximized)))
370
378a4dc8ea1c Maximize frame on full screen.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 369
diff changeset
   406
151
0b6f4adf5096 Minor changes.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 150
diff changeset
   407
(menu-bar-mode -1)
415
a325b9a15b8e Fix: 'scroll-bar-mode' and 'tooltip-mode' do not defined in Cygwin nox Emacs.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 412
diff changeset
   408
(when window-system
585
2431be336034 mouse-avoidance-mode
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 584
diff changeset
   409
  (mouse-avoidance-mode 'animate)
502
64a475fa36e2 tool-bar-mode not available under Cygwin console Emacs.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 501
diff changeset
   410
  (scroll-bar-mode 1)
64a475fa36e2 tool-bar-mode not available under Cygwin console Emacs.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 501
diff changeset
   411
  (tool-bar-mode -1)
1407
9ea890c729d8 Fix: Symbol's function definition is void: tooltip-mode on Solaris emacs-nox v24.3.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1405
diff changeset
   412
  (tooltip-mode -1)
952
6ec8b1014d11 line-spacing and ediff-split-window-function.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 951
diff changeset
   413
  (setq-default line-spacing nil)
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
   414
  (defun my-popup-menu ()
1003
8c1abe90331a Add doc strings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1001
diff changeset
   415
    "Menu from keyboard by emulating mouse event."
429
998f33a8ec6e Open menu by f10 like by C-Mouse-3 without mouse!
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 428
diff changeset
   416
    (interactive)
490
d6c84d84af9b 'mouse-menu-bar-map' appear only in Emacs 23.x. To get work on any Emacs used
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 489
diff changeset
   417
    (mouse-popup-menubar
d6c84d84af9b 'mouse-menu-bar-map' appear only in Emacs 23.x. To get work on any Emacs used
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 489
diff changeset
   418
     (list (list (/ (display-pixel-width) 2) 10) (get-buffer-window (buffer-name)))
1378
892deca62b56 Remove support for Emacs 21.x.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1377
diff changeset
   419
     nil) )
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
   420
  (global-set-key [f10] 'my-popup-menu)
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
   421
  (global-set-key [apps] 'my-popup-menu)
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
   422
  (global-set-key [menu] 'my-popup-menu) )
0
aef1d0017234 Initial commit.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
diff changeset
   423
595
be6c27e4c776 Fix "Prefer horizontal windows splitting" for terminals.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 594
diff changeset
   424
;; Prefer horizontal windows splitting.
612
1c59e45f5358 split-height-threshold/split-width-threshold can not be nil in Emacs 21.x/22.x.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 611
diff changeset
   425
(when (>= emacs-major-version 23)
1c59e45f5358 split-height-threshold/split-width-threshold can not be nil in Emacs 21.x/22.x.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 611
diff changeset
   426
  (setq split-height-threshold nil)
1c59e45f5358 split-height-threshold/split-width-threshold can not be nil in Emacs 21.x/22.x.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 611
diff changeset
   427
  (setq split-width-threshold nil)
1c59e45f5358 split-height-threshold/split-width-threshold can not be nil in Emacs 21.x/22.x.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 611
diff changeset
   428
  )
573
c28b88b60ed0 Prefer horizontal windows splitting.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 524
diff changeset
   429
1147
490ac6d8ab55 Simplify title.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1146
diff changeset
   430
(setq frame-title-format '("EMACS " system-name ": %b"))
1220
90e3a3721051 abbrev-file-name, pascal-mode
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1218
diff changeset
   431
(setq icon-title-format '("EMACS " system-name ": %b"))
338
ebf88f988c37 Move some appearance related switch together.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 337
diff changeset
   432
933
8627e7b2c209 header-line-format
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 932
diff changeset
   433
;; Deprecated: `default-header-line-format', `default-mode-line-format'.
8627e7b2c209 header-line-format
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 932
diff changeset
   434
;; For `mode-line-format' default value was used.
8627e7b2c209 header-line-format
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 932
diff changeset
   435
(setq-default header-line-format nil)
363
17df92226b5a Set default-header-line-format.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 362
diff changeset
   436
1585
3d8b6068a940 Replaced default-FOO variables with (setq-default FOO ...) as they were deleted in v26.1.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1584
diff changeset
   437
(setq-default left-fringe-width nil)
3d8b6068a940 Replaced default-FOO variables with (setq-default FOO ...) as they were deleted in v26.1.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1584
diff changeset
   438
(setq-default right-fringe-width nil)
3d8b6068a940 Replaced default-FOO variables with (setq-default FOO ...) as they were deleted in v26.1.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1584
diff changeset
   439
(setq-default left-margin-width nil)
3d8b6068a940 Replaced default-FOO variables with (setq-default FOO ...) as they were deleted in v26.1.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1584
diff changeset
   440
(setq-default right-margin-width nil)
364
3d18cfe179cc Set default fringe and margin width.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 363
diff changeset
   441
882
58b84ad67327 default-truncate-lines is depricated since 23.2. Set
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 881
diff changeset
   442
(if (< emacs-major-version 24)
58b84ad67327 default-truncate-lines is depricated since 23.2. Set
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 881
diff changeset
   443
    (setq default-truncate-lines nil)
1585
3d8b6068a940 Replaced default-FOO variables with (setq-default FOO ...) as they were deleted in v26.1.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1584
diff changeset
   444
  (setq-default truncate-lines nil))
882
58b84ad67327 default-truncate-lines is depricated since 23.2. Set
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 881
diff changeset
   445
(setq truncate-partial-width-windows nil)
366
223c01e1a084 Don't truncate long lines.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 365
diff changeset
   446
1530
b4f84f71f7ab Set large-file-warning-threshold greater then 10 MiB in order to open logs
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1529
diff changeset
   447
(setq large-file-warning-threshold (* 12 1000 1000)) ; Greater then 10 MiB in order to open logs without warnings.
b4f84f71f7ab Set large-file-warning-threshold greater then 10 MiB in order to open logs
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1529
diff changeset
   448
338
ebf88f988c37 Move some appearance related switch together.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 337
diff changeset
   449
;; show column & line numbers in status bar
ebf88f988c37 Move some appearance related switch together.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 337
diff changeset
   450
(setq column-number-mode t)
ebf88f988c37 Move some appearance related switch together.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 337
diff changeset
   451
(setq line-number-mode t)
413
5b28a08bf61b Set size-indication-mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 412
diff changeset
   452
(setq size-indication-mode t)
1207
c658f0d30525 Fixes performance issues in Emacs for large files.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1206
diff changeset
   453
(setq line-number-display-limit large-file-warning-threshold)
c658f0d30525 Fixes performance issues in Emacs for large files.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1206
diff changeset
   454
(setq line-number-display-limit-width 200)
934
e8af987ef004 document linum-mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 933
diff changeset
   455
;; (linum-mode 1)
1352
5d8228d51506 Document global-linum-mode
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1351
diff changeset
   456
;; (global-linum-mode 1)
338
ebf88f988c37 Move some appearance related switch together.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 337
diff changeset
   457
615
22cf0c9014d9 Replace '(if COND (progn BODY...))' by '(when COND BODY...)'. Remove
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 614
diff changeset
   458
(when window-system
22cf0c9014d9 Replace '(if COND (progn BODY...))' by '(when COND BODY...)'. Remove
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 614
diff changeset
   459
  (set-background-color "white")
22cf0c9014d9 Replace '(if COND (progn BODY...))' by '(when COND BODY...)'. Remove
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 614
diff changeset
   460
  (set-foreground-color "black")
22cf0c9014d9 Replace '(if COND (progn BODY...))' by '(when COND BODY...)'. Remove
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 614
diff changeset
   461
  (set-cursor-color "brown")
22cf0c9014d9 Replace '(if COND (progn BODY...))' by '(when COND BODY...)'. Remove
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 614
diff changeset
   462
  ;; (set-mouse-color "white")
22cf0c9014d9 Replace '(if COND (progn BODY...))' by '(when COND BODY...)'. Remove
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 614
diff changeset
   463
  (setq cursor-type 'box)           ; box, hollow, bar, hbar
22cf0c9014d9 Replace '(if COND (progn BODY...))' by '(when COND BODY...)'. Remove
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 614
diff changeset
   464
  ;;(setq blink-matching-delay 0.01)
22cf0c9014d9 Replace '(if COND (progn BODY...))' by '(when COND BODY...)'. Remove
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 614
diff changeset
   465
  (blink-cursor-mode 1)
686
563751ecd385 Bind 'yes-or-no-p' to 'y-or-n-p'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 685
diff changeset
   466
  (setq use-file-dialog t)
563751ecd385 Bind 'yes-or-no-p' to 'y-or-n-p'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 685
diff changeset
   467
  (setq use-dialog-box t)
615
22cf0c9014d9 Replace '(if COND (progn BODY...))' by '(when COND BODY...)'. Remove
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 614
diff changeset
   468
  ;; (set-face-font 'default "7x14")
22cf0c9014d9 Replace '(if COND (progn BODY...))' by '(when COND BODY...)'. Remove
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 614
diff changeset
   469
  )
0
aef1d0017234 Initial commit.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
diff changeset
   470
218
1a48dde2dfa3 See what I am typing immediately (for keystroke in minibuffer).
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 217
diff changeset
   471
;; See what I am typing immediately (for keystroke in minibuffer).
1a48dde2dfa3 See what I am typing immediately (for keystroke in minibuffer).
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 217
diff changeset
   472
(setq echo-keystrokes 0.2)
1a48dde2dfa3 See what I am typing immediately (for keystroke in minibuffer).
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 217
diff changeset
   473
1541
dca10cecc9e2 Set font size depending on DPI.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1540
diff changeset
   474
(defun my-dpi ()
dca10cecc9e2 Set font size depending on DPI.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1540
diff changeset
   475
  (let* ((attrs (car (display-monitor-attributes-list)))
dca10cecc9e2 Set font size depending on DPI.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1540
diff changeset
   476
         (size (assoc 'mm-size attrs))
dca10cecc9e2 Set font size depending on DPI.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1540
diff changeset
   477
         (sizex (cadr size))
dca10cecc9e2 Set font size depending on DPI.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1540
diff changeset
   478
         (res (cdr (assoc 'geometry attrs)))
dca10cecc9e2 Set font size depending on DPI.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1540
diff changeset
   479
         (resx (- (caddr res) (car res)))
dca10cecc9e2 Set font size depending on DPI.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1540
diff changeset
   480
         dpi)
dca10cecc9e2 Set font size depending on DPI.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1540
diff changeset
   481
    (catch 'exit
dca10cecc9e2 Set font size depending on DPI.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1540
diff changeset
   482
      ;; in terminal
dca10cecc9e2 Set font size depending on DPI.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1540
diff changeset
   483
      (unless sizex
dca10cecc9e2 Set font size depending on DPI.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1540
diff changeset
   484
        (throw 'exit 10))
dca10cecc9e2 Set font size depending on DPI.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1540
diff changeset
   485
      ;; on big screen
dca10cecc9e2 Set font size depending on DPI.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1540
diff changeset
   486
      (when (> sizex 1000)
dca10cecc9e2 Set font size depending on DPI.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1540
diff changeset
   487
        (throw 'exit 10))
dca10cecc9e2 Set font size depending on DPI.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1540
diff changeset
   488
      ;; DPI
dca10cecc9e2 Set font size depending on DPI.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1540
diff changeset
   489
      (* (/ (float resx) sizex) 25.4))))
dca10cecc9e2 Set font size depending on DPI.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1540
diff changeset
   490
dca10cecc9e2 Set font size depending on DPI.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1540
diff changeset
   491
(defun my-preferred-font-size ()
dca10cecc9e2 Set font size depending on DPI.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1540
diff changeset
   492
  (let ( (dpi (my-dpi)) )
dca10cecc9e2 Set font size depending on DPI.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1540
diff changeset
   493
  (cond
dca10cecc9e2 Set font size depending on DPI.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1540
diff changeset
   494
    ((< dpi 110) 10)
dca10cecc9e2 Set font size depending on DPI.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1540
diff changeset
   495
    ((< dpi 130) 11)
dca10cecc9e2 Set font size depending on DPI.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1540
diff changeset
   496
    ((< dpi 160) 12)
dca10cecc9e2 Set font size depending on DPI.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1540
diff changeset
   497
    (t 12))))
dca10cecc9e2 Set font size depending on DPI.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1540
diff changeset
   498
dca10cecc9e2 Set font size depending on DPI.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1540
diff changeset
   499
(defvar my-preferred-font-size (my-preferred-font-size))
dca10cecc9e2 Set font size depending on DPI.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1540
diff changeset
   500
dca10cecc9e2 Set font size depending on DPI.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1540
diff changeset
   501
(defvar my-regular-font
dca10cecc9e2 Set font size depending on DPI.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1540
diff changeset
   502
  (cond
dca10cecc9e2 Set font size depending on DPI.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1540
diff changeset
   503
   ((eq window-system 'x) (format "DejaVu Sans Mono-%d:weight=normal" my-preferred-font-size))
dca10cecc9e2 Set font size depending on DPI.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1540
diff changeset
   504
   ((eq window-system 'w32) (format "Courier New-%d:antialias=none" my-preferred-font-size))))
dca10cecc9e2 Set font size depending on DPI.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1540
diff changeset
   505
(defvar my-symbol-font
dca10cecc9e2 Set font size depending on DPI.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1540
diff changeset
   506
  (cond
dca10cecc9e2 Set font size depending on DPI.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1540
diff changeset
   507
   ((eq window-system 'x) (format "DejaVu Sans Mono-%d:weight=normal" my-preferred-font-size))
dca10cecc9e2 Set font size depending on DPI.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1540
diff changeset
   508
   ((eq window-system 'w32) (format "DejaVu Sans Mono-%d:antialias=none" my-preferred-font-size))))
dca10cecc9e2 Set font size depending on DPI.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1540
diff changeset
   509
1435
55307015efd0 Use Terminus font under X and fallback to misc-fixed.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1434
diff changeset
   510
(cond
55307015efd0 Use Terminus font under X and fallback to misc-fixed.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1434
diff changeset
   511
 ((eq window-system 'x)
1541
dca10cecc9e2 Set font size depending on DPI.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1540
diff changeset
   512
  (if (and (fboundp 'find-font) (find-font (font-spec :name my-regular-font)))
dca10cecc9e2 Set font size depending on DPI.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1540
diff changeset
   513
      (set-frame-font my-regular-font)
1439
6fc6ce787711 Port to Emacs 22.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1438
diff changeset
   514
    (set-frame-font "7x14")))
1435
55307015efd0 Use Terminus font under X and fallback to misc-fixed.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1434
diff changeset
   515
 ((eq window-system 'w32)
1541
dca10cecc9e2 Set font size depending on DPI.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1540
diff changeset
   516
  (set-frame-font my-regular-font)
1549
4ede173a315f Set new frame font same as in main. Maximize new frames.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1548
diff changeset
   517
  ;; (set-default-font my-regular-font)
4ede173a315f Set new frame font same as in main. Maximize new frames.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1548
diff changeset
   518
  (add-to-list 'default-frame-alist
4ede173a315f Set new frame font same as in main. Maximize new frames.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1548
diff changeset
   519
               (cons 'font my-regular-font))
1541
dca10cecc9e2 Set font size depending on DPI.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1540
diff changeset
   520
  (set-fontset-font nil 'cyrillic my-regular-font)
dca10cecc9e2 Set font size depending on DPI.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1540
diff changeset
   521
  (set-fontset-font nil 'greek my-regular-font)
dca10cecc9e2 Set font size depending on DPI.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1540
diff changeset
   522
  (set-fontset-font nil 'phonetic my-regular-font)
dca10cecc9e2 Set font size depending on DPI.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1540
diff changeset
   523
  (set-fontset-font nil 'symbol my-symbol-font)))
1089
7d9bd1fe3cb0 Set font for IPA and other fontset under Linux.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1085
diff changeset
   524
686
563751ecd385 Bind 'yes-or-no-p' to 'y-or-n-p'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 685
diff changeset
   525
(fset 'yes-or-no-p 'y-or-n-p)
563751ecd385 Bind 'yes-or-no-p' to 'y-or-n-p'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 685
diff changeset
   526
563751ecd385 Bind 'yes-or-no-p' to 'y-or-n-p'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 685
diff changeset
   527
(when (boundp 'confirm-kill-emacs)
563751ecd385 Bind 'yes-or-no-p' to 'y-or-n-p'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 685
diff changeset
   528
  (setq confirm-kill-emacs 'y-or-n-p))
563751ecd385 Bind 'yes-or-no-p' to 'y-or-n-p'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 685
diff changeset
   529
718
19ab21ec7640 Define own outline-regex to easy view file structure.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 717
diff changeset
   530
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1360
a65e3eb1d96e Fix typo.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1356
diff changeset
   531
(message "date, time")
1354
57d416cf71fa display-time-world settings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1352
diff changeset
   532
57d416cf71fa display-time-world settings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1352
diff changeset
   533
(require 'time)
57d416cf71fa display-time-world settings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1352
diff changeset
   534
57d416cf71fa display-time-world settings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1352
diff changeset
   535
;; Also useful such format: (setq display-time-format " %H:%M %d-%m-%y ")
57d416cf71fa display-time-world settings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1352
diff changeset
   536
(setq display-time-24hr-format t)
57d416cf71fa display-time-world settings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1352
diff changeset
   537
(setq display-time-day-and-date nil)
57d416cf71fa display-time-world settings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1352
diff changeset
   538
(setq display-time-default-load-average nil)
57d416cf71fa display-time-world settings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1352
diff changeset
   539
(display-time)                          ; display-time-mode
57d416cf71fa display-time-world settings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1352
diff changeset
   540
57d416cf71fa display-time-world settings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1352
diff changeset
   541
;; For (display-time-world).
57d416cf71fa display-time-world settings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1352
diff changeset
   542
(setq display-time-world-time-format "%A %d %B %R %z %Z")
1618
82cd26893672 Added interesting time zones for M-x display-time-world.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1617
diff changeset
   543
(setq display-time-world-list
82cd26893672 Added interesting time zones for M-x display-time-world.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1617
diff changeset
   544
      '(("Europe/London" "London")
82cd26893672 Added interesting time zones for M-x display-time-world.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1617
diff changeset
   545
        ("EET" "Eastern European")
82cd26893672 Added interesting time zones for M-x display-time-world.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1617
diff changeset
   546
        ("Europe/Moscow" "Moscow")
82cd26893672 Added interesting time zones for M-x display-time-world.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1617
diff changeset
   547
        ("Asia/Tel_Aviv" "Tel Aviv")
82cd26893672 Added interesting time zones for M-x display-time-world.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1617
diff changeset
   548
        ("America/Chicago" "Chicago/US Central")
82cd26893672 Added interesting time zones for M-x display-time-world.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1617
diff changeset
   549
        ("America/Los_Angeles" "Los Angeles")
82cd26893672 Added interesting time zones for M-x display-time-world.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1617
diff changeset
   550
        ("America/New_York" "New York")
82cd26893672 Added interesting time zones for M-x display-time-world.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1617
diff changeset
   551
        ("Asia/Tokyo" "Tokyo")))
1354
57d416cf71fa display-time-world settings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1352
diff changeset
   552
1730
795b3f2ecfbb Separated Cygwin & ansi colors settings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1729
diff changeset
   553
1354
57d416cf71fa display-time-world settings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1352
diff changeset
   554
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1730
795b3f2ecfbb Separated Cygwin & ansi colors settings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1729
diff changeset
   555
(message "term colors, ansi colors")
795b3f2ecfbb Separated Cygwin & ansi colors settings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1729
diff changeset
   556
795b3f2ecfbb Separated Cygwin & ansi colors settings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1729
diff changeset
   557
(ansi-color-for-comint-mode-on)
795b3f2ecfbb Separated Cygwin & ansi colors settings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1729
diff changeset
   558
795b3f2ecfbb Separated Cygwin & ansi colors settings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1729
diff changeset
   559
(defun my-ansi-color (&optional beg end)
795b3f2ecfbb Separated Cygwin & ansi colors settings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1729
diff changeset
   560
  "Interpret ANSI color esacape sequence by colorifying cotent.
795b3f2ecfbb Separated Cygwin & ansi colors settings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1729
diff changeset
   561
Operate on selected region on whole buffer."
795b3f2ecfbb Separated Cygwin & ansi colors settings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1729
diff changeset
   562
  (interactive
795b3f2ecfbb Separated Cygwin & ansi colors settings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1729
diff changeset
   563
   (if (use-region-p)
795b3f2ecfbb Separated Cygwin & ansi colors settings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1729
diff changeset
   564
       (list (region-beginning) (region-end))
795b3f2ecfbb Separated Cygwin & ansi colors settings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1729
diff changeset
   565
     (list (point-min) (point-max))))
795b3f2ecfbb Separated Cygwin & ansi colors settings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1729
diff changeset
   566
  (ansi-color-apply-on-region beg end))
795b3f2ecfbb Separated Cygwin & ansi colors settings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1729
diff changeset
   567
795b3f2ecfbb Separated Cygwin & ansi colors settings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1729
diff changeset
   568
795b3f2ecfbb Separated Cygwin & ansi colors settings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1729
diff changeset
   569
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
795b3f2ecfbb Separated Cygwin & ansi colors settings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1729
diff changeset
   570
(message "shell, bash")
675
7bef62461084 Try enable modes to avoid do this explicitly in '.emacs-pre'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 674
diff changeset
   571
1685
6a740def74e8 Fixed error 'eval-when is not defined' after switching to cl-lib.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1684
diff changeset
   572
(cl-eval-when (compile) (require 'shell))
1374
313e428cf77c Add (eval-when 'compile ...) to reduce number of Warning: reference to free variable.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1373
diff changeset
   573
1768
b3cac2287547 It is important to read ~/.bashrc despite MSYS2 Bash warn about ioctl failure in M-x shell in NT Emacs.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1767
diff changeset
   574
;; '-i' causes ioctl related warning in Windows Emacs because there is no real terminal.
b3cac2287547 It is important to read ~/.bashrc despite MSYS2 Bash warn about ioctl failure in M-x shell in NT Emacs.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1767
diff changeset
   575
;; But it is important to read ~/.bashrc, so we keep it here.
b3cac2287547 It is important to read ~/.bashrc despite MSYS2 Bash warn about ioctl failure in M-x shell in NT Emacs.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1767
diff changeset
   576
;; https://emacs.stackexchange.com/questions/71487/mingw-shell-in-emacs/
1769
1a21553009b7 Fixed typo (imbalanced parentheses).
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1768
diff changeset
   577
(setq explicit-bash-args (list "--noediting" "-i"))
1730
795b3f2ecfbb Separated Cygwin & ansi colors settings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1729
diff changeset
   578
795b3f2ecfbb Separated Cygwin & ansi colors settings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1729
diff changeset
   579
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
795b3f2ecfbb Separated Cygwin & ansi colors settings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1729
diff changeset
   580
(message "Cygwin, MSYS")
676
0accf646e451 Move code for shell setup to proper place. Remove unused code as I do not use
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 675
diff changeset
   581
1767
fd3589f24170 In addition to interpreting Windows paths in Cygwin a handler is added for interpreting MSYS paths in NT Emacs.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1766
diff changeset
   582
(when (and (eq system-type 'cygwin) (fboundp #'cygpath-nt-activate))
fd3589f24170 In addition to interpreting Windows paths in Cygwin a handler is added for interpreting MSYS paths in NT Emacs.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1766
diff changeset
   583
  (cygpath-nt-activate))
fd3589f24170 In addition to interpreting Windows paths in Cygwin a handler is added for interpreting MSYS paths in NT Emacs.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1766
diff changeset
   584
(when (and (eq system-type 'windows-nt) cygpath-msys-root (fboundp #'cygpath-msys-activate))
fd3589f24170 In addition to interpreting Windows paths in Cygwin a handler is added for interpreting MSYS paths in NT Emacs.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1766
diff changeset
   585
  (cygpath-msys-activate))
1731
fec5d1fffe8c Added mode for recognition of Windows paths in Cygwin Emacs.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1730
diff changeset
   586
1734
ae2c6a001464 Add some standard places to PATH if they are not set by login script.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1733
diff changeset
   587
;; Add some standard places to PATH if they are not set by login script.
ae2c6a001464 Add some standard places to PATH if they are not set by login script.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1733
diff changeset
   588
;; Rearrange the order of paths so system's are first, user's are last.
ae2c6a001464 Add some standard places to PATH if they are not set by login script.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1733
diff changeset
   589
;; For Cygwin this helps with Cygwin's paths to be situated before
ae2c6a001464 Add some standard places to PATH if they are not set by login script.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1733
diff changeset
   590
;; "C:/Windows" (Emacs is not started from a login shell on Windows!).
ae2c6a001464 Add some standard places to PATH if they are not set by login script.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1733
diff changeset
   591
(unless (eq system-type 'windows-nt)
ae2c6a001464 Add some standard places to PATH if they are not set by login script.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1733
diff changeset
   592
  (setenv "PATH"
ae2c6a001464 Add some standard places to PATH if they are not set by login script.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1733
diff changeset
   593
          (cl-reduce #'my-path-append-to-beginning
ae2c6a001464 Add some standard places to PATH if they are not set by login script.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1733
diff changeset
   594
	             (list (getenv "PATH")
ae2c6a001464 Add some standard places to PATH if they are not set by login script.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1733
diff changeset
   595
                           (expand-file-name "~/usr/bin") (expand-file-name "~/.local/bin")
ae2c6a001464 Add some standard places to PATH if they are not set by login script.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1733
diff changeset
   596
                           "/usr/local/bin" "/usr/bin" "/bin"
1738
1f9eaaf10690 Increased GC threshold. Fixed unbalanced parentheses.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1734
diff changeset
   597
                           "/usr/sbin" "/sbin"))))
1732
c3279bad1cc3 Add some standard places to PATH as Emacs is not started from login shell on Windows...
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1731
diff changeset
   598
709
2cb49be54b21 Follow new-style (and also UCS-16) Cygwin symlinks.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 704
diff changeset
   599
(defun follow-cygwin-symlink ()
2cb49be54b21 Follow new-style (and also UCS-16) Cygwin symlinks.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 704
diff changeset
   600
  "Follow new-style (and also UCS-16) Cygwin symlinks."
2cb49be54b21 Follow new-style (and also UCS-16) Cygwin symlinks.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 704
diff changeset
   601
  (save-excursion
2cb49be54b21 Follow new-style (and also UCS-16) Cygwin symlinks.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 704
diff changeset
   602
    (goto-char 0)
2cb49be54b21 Follow new-style (and also UCS-16) Cygwin symlinks.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 704
diff changeset
   603
    (when (looking-at "!<symlink>\xff\xfe")
2cb49be54b21 Follow new-style (and also UCS-16) Cygwin symlinks.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 704
diff changeset
   604
      (find-alternate-file
2cb49be54b21 Follow new-style (and also UCS-16) Cygwin symlinks.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 704
diff changeset
   605
       (substring
2cb49be54b21 Follow new-style (and also UCS-16) Cygwin symlinks.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 704
diff changeset
   606
        (decode-coding-string
2cb49be54b21 Follow new-style (and also UCS-16) Cygwin symlinks.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 704
diff changeset
   607
         (buffer-substring (match-end 0) (point-max))
2cb49be54b21 Follow new-style (and also UCS-16) Cygwin symlinks.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 704
diff changeset
   608
         'utf-16-le)
2cb49be54b21 Follow new-style (and also UCS-16) Cygwin symlinks.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 704
diff changeset
   609
        0 -1)                           ; -1 for stripping final \0.
2cb49be54b21 Follow new-style (and also UCS-16) Cygwin symlinks.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 704
diff changeset
   610
       ))))
2cb49be54b21 Follow new-style (and also UCS-16) Cygwin symlinks.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 704
diff changeset
   611
1419
5ef1ab1064d4 Fix: Warning: reference to free variable `cygwin-mount-table--internal'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1418
diff changeset
   612
(defvar cygwin-mount-table--internal)
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
   613
(defun my-dos2cygwin-path (path)
731
5b6105640c0e my-dos2cygwin-path
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 730
diff changeset
   614
  "Convert DOS path to Cygwin according to current mount table."
732
139665dd6ada my-python-django-fix + my-python-add-to-path.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 731
diff changeset
   615
  (interactive (list (read-directory-name "Enter DOS path: ")))
731
5b6105640c0e my-dos2cygwin-path
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 730
diff changeset
   616
  (setq path (replace-regexp-in-string "\\\\" "/" (expand-file-name path)))
5b6105640c0e my-dos2cygwin-path
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 730
diff changeset
   617
  (let ( (table cygwin-mount-table--internal) item prefix )
5b6105640c0e my-dos2cygwin-path
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 730
diff changeset
   618
    (while table
5b6105640c0e my-dos2cygwin-path
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 730
diff changeset
   619
      (setq item (car table))
5b6105640c0e my-dos2cygwin-path
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 730
diff changeset
   620
      (setq prefix (concat "\\`" (regexp-quote (car item))))
5b6105640c0e my-dos2cygwin-path
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 730
diff changeset
   621
      (setq table (cdr table))
5b6105640c0e my-dos2cygwin-path
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 730
diff changeset
   622
      (when (string-match prefix path)
5b6105640c0e my-dos2cygwin-path
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 730
diff changeset
   623
        (setq path (replace-regexp-in-string prefix (cdr item) path))
5b6105640c0e my-dos2cygwin-path
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 730
diff changeset
   624
        (setq table nil)
5b6105640c0e my-dos2cygwin-path
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 730
diff changeset
   625
        ) )
5b6105640c0e my-dos2cygwin-path
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 730
diff changeset
   626
    path
5b6105640c0e my-dos2cygwin-path
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 730
diff changeset
   627
    ))
5b6105640c0e my-dos2cygwin-path
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 730
diff changeset
   628
1545
d77b6bb30ea4 It doesn't help much but allows to run python process, otherwise
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1544
diff changeset
   629
(defun my-shell-quote-argument (arg)
d77b6bb30ea4 It doesn't help much but allows to run python process, otherwise
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1544
diff changeset
   630
  (cond
d77b6bb30ea4 It doesn't help much but allows to run python process, otherwise
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1544
diff changeset
   631
   ((string-match "[<>&|* \"()[]" arg)
d77b6bb30ea4 It doesn't help much but allows to run python process, otherwise
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1544
diff changeset
   632
    (concat "'" arg "'"))
d77b6bb30ea4 It doesn't help much but allows to run python process, otherwise
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1544
diff changeset
   633
   ((string-match "'" arg)
d77b6bb30ea4 It doesn't help much but allows to run python process, otherwise
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1544
diff changeset
   634
    (concat "\"" arg "\""))
d77b6bb30ea4 It doesn't help much but allows to run python process, otherwise
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1544
diff changeset
   635
   (t
d77b6bb30ea4 It doesn't help much but allows to run python process, otherwise
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1544
diff changeset
   636
    arg)))
d77b6bb30ea4 It doesn't help much but allows to run python process, otherwise
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1544
diff changeset
   637
1403
a04175d20f08 I already activate "cygwin-mount".
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1402
diff changeset
   638
;; Activate Cygwin for native Windows Emacs if available.
676
0accf646e451 Move code for shell setup to proper place. Remove unused code as I do not use
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 675
diff changeset
   639
(when (eq system-type 'windows-nt)
675
7bef62461084 Try enable modes to avoid do this explicitly in '.emacs-pre'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 674
diff changeset
   640
  (ignore-errors
7bef62461084 Try enable modes to avoid do this explicitly in '.emacs-pre'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 674
diff changeset
   641
    (require 'cygwin-mount)
1403
a04175d20f08 I already activate "cygwin-mount".
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1402
diff changeset
   642
    (cygwin-mount-activate))
733
67e6d0381996 Use 'find-file-hook' as 'find-file-hooks' marked as deprecated.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 724
diff changeset
   643
  (add-hook 'find-file-hook 'follow-cygwin-symlink)
676
0accf646e451 Move code for shell setup to proper place. Remove unused code as I do not use
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 675
diff changeset
   644
  ;; Workaround for Cygwin shell, when set 'CYGWIN=noglob'. By default 'shell-quote-argument'
0accf646e451 Move code for shell setup to proper place. Remove unused code as I do not use
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 675
diff changeset
   645
  ;; quoted by double '\' chars this cause failure.
1545
d77b6bb30ea4 It doesn't help much but allows to run python process, otherwise
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1544
diff changeset
   646
  (advice-add #'shell-quote-argument :override #'my-shell-quote-argument)
676
0accf646e451 Move code for shell setup to proper place. Remove unused code as I do not use
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 675
diff changeset
   647
  ;; Workaround for Cygwin when 'shell-file-name' is 'bash'.
0accf646e451 Move code for shell setup to proper place. Remove unused code as I do not use
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 675
diff changeset
   648
  (setq null-device "/dev/null")
0accf646e451 Move code for shell setup to proper place. Remove unused code as I do not use
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 675
diff changeset
   649
  ;; Use shell from Cygwin/MinGW.
0accf646e451 Move code for shell setup to proper place. Remove unused code as I do not use
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 675
diff changeset
   650
  (setq shell-file-name "bash")
0accf646e451 Move code for shell setup to proper place. Remove unused code as I do not use
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 675
diff changeset
   651
  (setenv "SHELL" "/bin/bash")
1532
e6ea63ccab39 Modern Windows can work with Unicode. No need for codepage.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1531
diff changeset
   652
  ;; (modify-coding-system-alist 'process "bash" '(cp1251-unix . cp1251-unix))
676
0accf646e451 Move code for shell setup to proper place. Remove unused code as I do not use
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 675
diff changeset
   653
  )
0accf646e451 Move code for shell setup to proper place. Remove unused code as I do not use
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 675
diff changeset
   654
1402
b1a1c92a7f55 (eq window-system 'w32) ==> (eq system-type 'windows-nt) to correctly handle
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1397
diff changeset
   655
(when (eq system-type 'windows-nt)
746
f7ce19afa666 Fix 'starttls.el' on native Windows Emacs with gnutls-cli from Cygwin.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 745
diff changeset
   656
  ;; Fix 'starttls.el' on native Windows Emacs with gnutls-cli from Cygwin.
f7ce19afa666 Fix 'starttls.el' on native Windows Emacs with gnutls-cli from Cygwin.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 745
diff changeset
   657
  ;; 'gnutls-cli' run with '-s' opt and process wait for SIGALRM.
f7ce19afa666 Fix 'starttls.el' on native Windows Emacs with gnutls-cli from Cygwin.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 745
diff changeset
   658
  ;; But build-in native Emacs 'kill' command can not send such Cygwin
f7ce19afa666 Fix 'starttls.el' on native Windows Emacs with gnutls-cli from Cygwin.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 745
diff changeset
   659
  ;; specific sygnal. So 'starttls-negotiate-gnutls' function infinitely
f7ce19afa666 Fix 'starttls.el' on native Windows Emacs with gnutls-cli from Cygwin.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 745
diff changeset
   660
  ;; wait for 'gnutls-cli' output.
f7ce19afa666 Fix 'starttls.el' on native Windows Emacs with gnutls-cli from Cygwin.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 745
diff changeset
   661
  (defadvice signal-process (around cygwin (process sigcode))
f7ce19afa666 Fix 'starttls.el' on native Windows Emacs with gnutls-cli from Cygwin.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 745
diff changeset
   662
    "Use 'kill.exe' instead build-in Emacs 'kill'."
f7ce19afa666 Fix 'starttls.el' on native Windows Emacs with gnutls-cli from Cygwin.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 745
diff changeset
   663
    (if (eq sigcode 'SIGALRM)
f7ce19afa666 Fix 'starttls.el' on native Windows Emacs with gnutls-cli from Cygwin.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 745
diff changeset
   664
        (shell-command
f7ce19afa666 Fix 'starttls.el' on native Windows Emacs with gnutls-cli from Cygwin.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 745
diff changeset
   665
         (format "kill.exe -s SIGALRM %d"
f7ce19afa666 Fix 'starttls.el' on native Windows Emacs with gnutls-cli from Cygwin.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 745
diff changeset
   666
                 (if (processp process) (process-id process) process)))
f7ce19afa666 Fix 'starttls.el' on native Windows Emacs with gnutls-cli from Cygwin.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 745
diff changeset
   667
      ad-do-it
f7ce19afa666 Fix 'starttls.el' on native Windows Emacs with gnutls-cli from Cygwin.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 745
diff changeset
   668
      ))
f7ce19afa666 Fix 'starttls.el' on native Windows Emacs with gnutls-cli from Cygwin.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 745
diff changeset
   669
  (ad-activate 'signal-process)
748
a42f5a803c98 Do not convert output of 'gnutls-cli'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 747
diff changeset
   670
  (modify-coding-system-alist 'process "gnutls-cli" '(binary . binary))
746
f7ce19afa666 Fix 'starttls.el' on native Windows Emacs with gnutls-cli from Cygwin.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 745
diff changeset
   671
  )
f7ce19afa666 Fix 'starttls.el' on native Windows Emacs with gnutls-cli from Cygwin.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 745
diff changeset
   672
1402
b1a1c92a7f55 (eq window-system 'w32) ==> (eq system-type 'windows-nt) to correctly handle
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1397
diff changeset
   673
(when (eq system-type 'windows-nt)
858
81c925713d9c Add '.py' and '.sh' as allowed executable extension.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 857
diff changeset
   674
  (add-to-list 'exec-suffixes ".py")
81c925713d9c Add '.py' and '.sh' as allowed executable extension.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 857
diff changeset
   675
  (add-to-list 'exec-suffixes ".sh")
81c925713d9c Add '.py' and '.sh' as allowed executable extension.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 857
diff changeset
   676
  (defun executable-find (command) (locate-file command exec-path exec-suffixes))
81c925713d9c Add '.py' and '.sh' as allowed executable extension.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 857
diff changeset
   677
  )
81c925713d9c Add '.py' and '.sh' as allowed executable extension.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 857
diff changeset
   678
718
19ab21ec7640 Define own outline-regex to easy view file structure.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 717
diff changeset
   679
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
923
e2c69e1c4642 Define C-left/-right navigation in term raw mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 922
diff changeset
   680
(message "term")
e2c69e1c4642 Define C-left/-right navigation in term raw mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 922
diff changeset
   681
1685
6a740def74e8 Fixed error 'eval-when is not defined' after switching to cl-lib.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1684
diff changeset
   682
(cl-eval-when (compile) (require 'term))
1374
313e428cf77c Add (eval-when 'compile ...) to reduce number of Warning: reference to free variable.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1373
diff changeset
   683
1454
b712a6dad4c2 Use bash in term-mode under Cygwin.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1453
diff changeset
   684
(when (eq system-type 'cygwin)
b712a6dad4c2 Use bash in term-mode under Cygwin.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1453
diff changeset
   685
  (setq explicit-shell-file-name "bash"))
b712a6dad4c2 Use bash in term-mode under Cygwin.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1453
diff changeset
   686
926
1ad4d40e5b5e Set term-buffer-maximum-size.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 925
diff changeset
   687
(setq term-buffer-maximum-size (lsh 1 14))
1ad4d40e5b5e Set term-buffer-maximum-size.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 925
diff changeset
   688
1314
54572ca2b27d term-scroll-show-maximum-output
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1312
diff changeset
   689
(setq term-scroll-show-maximum-output t)
54572ca2b27d term-scroll-show-maximum-output
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1312
diff changeset
   690
1254
19c7b3be9b3a Define special macro to avoid warning about "assignment to free variable".
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1253
diff changeset
   691
(my--eval-after-load term
1696
01608a10b6d6 About term-paste.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1695
diff changeset
   692
  ;; (define-key term-raw-map [S-insert] 'term-paste) - defined inside mode!
1307
8d652d88c013 Enable file name completion in line-mode of term-mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1306
diff changeset
   693
  (define-key term-mode-map [?\t] #'term-dynamic-complete)
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
   694
  (defun my-term-send-delete-word-forward () (interactive) (term-send-raw-string "\ed"))
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
   695
  (defun my-term-send-delete-word-backward () (interactive) (term-send-raw-string "\e\C-h"))
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
   696
  (define-key term-raw-map [C-delete] 'my-term-send-delete-word-forward)
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
   697
  (define-key term-raw-map [C-backspace] 'my-term-send-delete-word-backward)
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
   698
  (defun my-term-send-forward-word () (interactive) (term-send-raw-string "\ef"))
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
   699
  (defun my-term-send-backward-word () (interactive) (term-send-raw-string "\eb"))
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
   700
  (define-key term-raw-map [C-left] 'my-term-send-backward-word)
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
   701
  (define-key term-raw-map [C-right] 'my-term-send-forward-word)
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
   702
  (defun my-term-send-m-right () (interactive) (term-send-raw-string "\e[1;3C"))
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
   703
  (defun my-term-send-m-left () (interactive) (term-send-raw-string "\e[1;3D"))
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
   704
  (define-key term-raw-map [M-right] 'my-term-send-m-right)
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
   705
  (define-key term-raw-map [M-left] 'my-term-send-m-left) )
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
   706
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
   707
(defun my-term-mode-hook ()
1062
c1cac6e85f9b Enable 'goto-address-mode' in 'term-mode'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1061
diff changeset
   708
  (goto-address-mode 1))
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
   709
(add-hook 'term-mode-hook #'my-term-mode-hook)
1062
c1cac6e85f9b Enable 'goto-address-mode' in 'term-mode'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1061
diff changeset
   710
1307
8d652d88c013 Enable file name completion in line-mode of term-mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1306
diff changeset
   711
(setq term-prompt-regexp "^[^#$%>\n]*[#$%>] *")
8d652d88c013 Enable file name completion in line-mode of term-mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1306
diff changeset
   712
1757
bda24877724a Sends a selection or a paragraph to `term-mode'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1756
diff changeset
   713
(defun my-term-send-smart ()
bda24877724a Sends a selection or a paragraph to `term-mode'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1756
diff changeset
   714
  "Sends a selection or a paragraph to `term-mode'."
bda24877724a Sends a selection or a paragraph to `term-mode'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1756
diff changeset
   715
  (interactive)
bda24877724a Sends a selection or a paragraph to `term-mode'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1756
diff changeset
   716
  (let (beg end cmd term)
bda24877724a Sends a selection or a paragraph to `term-mode'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1756
diff changeset
   717
    (if (use-region-p)
bda24877724a Sends a selection or a paragraph to `term-mode'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1756
diff changeset
   718
        (setq cmd (buffer-substring (region-beginning) (region-end)))
bda24877724a Sends a selection or a paragraph to `term-mode'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1756
diff changeset
   719
      (save-excursion
bda24877724a Sends a selection or a paragraph to `term-mode'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1756
diff changeset
   720
        (forward-paragraph -1)
bda24877724a Sends a selection or a paragraph to `term-mode'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1756
diff changeset
   721
        (setq beg (point))
bda24877724a Sends a selection or a paragraph to `term-mode'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1756
diff changeset
   722
        (forward-paragraph 1)
bda24877724a Sends a selection or a paragraph to `term-mode'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1756
diff changeset
   723
        (setq end (point))
bda24877724a Sends a selection or a paragraph to `term-mode'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1756
diff changeset
   724
        (setq cmd (string-trim (buffer-substring beg end)))))
bda24877724a Sends a selection or a paragraph to `term-mode'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1756
diff changeset
   725
    (save-window-excursion              ; term command switches buffers.
bda24877724a Sends a selection or a paragraph to `term-mode'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1756
diff changeset
   726
      (term (or explicit-shell-file-name "bash"))
bda24877724a Sends a selection or a paragraph to `term-mode'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1756
diff changeset
   727
      (setq term (current-buffer)))
bda24877724a Sends a selection or a paragraph to `term-mode'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1756
diff changeset
   728
    (display-buffer term 'display-buffer-use-some-window)
bda24877724a Sends a selection or a paragraph to `term-mode'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1756
diff changeset
   729
    (term-simple-send (get-buffer-process term) cmd)))
bda24877724a Sends a selection or a paragraph to `term-mode'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1756
diff changeset
   730
bda24877724a Sends a selection or a paragraph to `term-mode'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1756
diff changeset
   731
(global-set-key (kbd "s-t") 'my-term-send-smart)
bda24877724a Sends a selection or a paragraph to `term-mode'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1756
diff changeset
   732
923
e2c69e1c4642 Define C-left/-right navigation in term raw mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 922
diff changeset
   733
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1104
0e876ae7ffe7 Show memory usage in proced.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1103
diff changeset
   734
(message "proced")
0e876ae7ffe7 Show memory usage in proced.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1103
diff changeset
   735
0e876ae7ffe7 Show memory usage in proced.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1103
diff changeset
   736
(setq-default proced-format 'medium)
0e876ae7ffe7 Show memory usage in proced.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1103
diff changeset
   737
0e876ae7ffe7 Show memory usage in proced.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1103
diff changeset
   738
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
545
24992bae7599 Use 'message' instead of comment to easy debug where error occurred.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 544
diff changeset
   739
(message "whitespaces")
361
9dbe92b8b329 Added indicate-buffer-boundaries.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 360
diff changeset
   740
1685
6a740def74e8 Fixed error 'eval-when is not defined' after switching to cl-lib.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1684
diff changeset
   741
(cl-eval-when (compile) (require 'whitespace))
1374
313e428cf77c Add (eval-when 'compile ...) to reduce number of Warning: reference to free variable.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1373
diff changeset
   742
1585
3d8b6068a940 Replaced default-FOO variables with (setq-default FOO ...) as they were deleted in v26.1.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1584
diff changeset
   743
(setq-default indicate-empty-lines t)
3d8b6068a940 Replaced default-FOO variables with (setq-default FOO ...) as they were deleted in v26.1.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1584
diff changeset
   744
(setq-default indicate-buffer-boundaries 'left)
361
9dbe92b8b329 Added indicate-buffer-boundaries.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 360
diff changeset
   745
1634
1c19f4e2ac19 Disabled global-whitespace-mode as it makes string quoted in double quote highlighted in fundamental-mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1633
diff changeset
   746
;; Old trailing whitespace highlighter built-in into Emacs engine, until global-whitespace-mode is fixed.
1c19f4e2ac19 Disabled global-whitespace-mode as it makes string quoted in double quote highlighted in fundamental-mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1633
diff changeset
   747
(setq-default show-trailing-whitespace t)
1c19f4e2ac19 Disabled global-whitespace-mode as it makes string quoted in double quote highlighted in fundamental-mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1633
diff changeset
   748
(set-face-attribute 'trailing-whitespace nil :background "magenta")
1c19f4e2ac19 Disabled global-whitespace-mode as it makes string quoted in double quote highlighted in fundamental-mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1633
diff changeset
   749
1c19f4e2ac19 Disabled global-whitespace-mode as it makes string quoted in double quote highlighted in fundamental-mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1633
diff changeset
   750
;; whitespace-style "face" causes double quoted strings to be highlighted by font-lock-string-face.
1c19f4e2ac19 Disabled global-whitespace-mode as it makes string quoted in double quote highlighted in fundamental-mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1633
diff changeset
   751
;; https://emacs.stackexchange.com/questions/61770/whitespace-style-face-activats-highlighting-of-quoted-string-in-fundamental-mo
1c19f4e2ac19 Disabled global-whitespace-mode as it makes string quoted in double quote highlighted in fundamental-mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1633
diff changeset
   752
;; (setq whitespace-style '(face trailing tabs))
1c19f4e2ac19 Disabled global-whitespace-mode as it makes string quoted in double quote highlighted in fundamental-mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1633
diff changeset
   753
;; (setq whitespace-global-modes t)
1c19f4e2ac19 Disabled global-whitespace-mode as it makes string quoted in double quote highlighted in fundamental-mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1633
diff changeset
   754
;; (ignore-errors
1c19f4e2ac19 Disabled global-whitespace-mode as it makes string quoted in double quote highlighted in fundamental-mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1633
diff changeset
   755
;;   (require 'whitespace)
1c19f4e2ac19 Disabled global-whitespace-mode as it makes string quoted in double quote highlighted in fundamental-mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1633
diff changeset
   756
;;   (global-whitespace-mode -1))
361
9dbe92b8b329 Added indicate-buffer-boundaries.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 360
diff changeset
   757
9dbe92b8b329 Added indicate-buffer-boundaries.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 360
diff changeset
   758
(setq next-line-add-newlines nil)
9dbe92b8b329 Added indicate-buffer-boundaries.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 360
diff changeset
   759
9dbe92b8b329 Added indicate-buffer-boundaries.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 360
diff changeset
   760
;; See also 'mode-require-final-newline'.
9dbe92b8b329 Added indicate-buffer-boundaries.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 360
diff changeset
   761
(add-hook 'text-mode-hook (lambda () (setq require-final-newline nil)))
9dbe92b8b329 Added indicate-buffer-boundaries.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 360
diff changeset
   762
1474
7a9acb530003 Use cycle-spacing as it convenient then M-\ key binding.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1473
diff changeset
   763
(when (fboundp 'cycle-spacing)
7a9acb530003 Use cycle-spacing as it convenient then M-\ key binding.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1473
diff changeset
   764
  (global-set-key (kbd "M-SPC") 'cycle-spacing))
7a9acb530003 Use cycle-spacing as it convenient then M-\ key binding.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1473
diff changeset
   765
718
19ab21ec7640 Define own outline-regex to easy view file structure.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 717
diff changeset
   766
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
741
cd25b9526e76 'gnuserv' now dead.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 740
diff changeset
   767
(message "server")
85
2bb7e6aceac9 Added target dist-tar.
gavenkoa@gavenko.bifit.int
parents: 83
diff changeset
   768
1685
6a740def74e8 Fixed error 'eval-when is not defined' after switching to cl-lib.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1684
diff changeset
   769
(cl-eval-when (compile) (require 'server))
1374
313e428cf77c Add (eval-when 'compile ...) to reduce number of Warning: reference to free variable.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1373
diff changeset
   770
1648
5da3c9313dc2 Use server-use-tcp for server activation for Cygwin as /tmp directory periodically is cleaned up.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1647
diff changeset
   771
(when (equal window-system 'w32)
5da3c9313dc2 Use server-use-tcp for server activation for Cygwin as /tmp directory periodically is cleaned up.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1647
diff changeset
   772
  ;; including cygwin here as socket in /tmp directory is a subject of cleanup...
5da3c9313dc2 Use server-use-tcp for server activation for Cygwin as /tmp directory periodically is cleaned up.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1647
diff changeset
   773
  (setq server-use-tcp t))
1453
7a4cc173d4d6 Enable server for Cygwin Emacs.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1452
diff changeset
   774
(when (and (>= emacs-major-version 22))
394
03d8b85ff815 Do not load server.el for Emacs 21.x.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 393
diff changeset
   775
  (require 'server)
1405
fffa9d2a328f Fix: File error: Opening output file, no such file or directory, c:/Users/user/AppData/Roaming/.emacs.d/server/server
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1404
diff changeset
   776
  (when server-use-tcp
fffa9d2a328f Fix: File error: Opening output file, no such file or directory, c:/Users/user/AppData/Roaming/.emacs.d/server/server
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1404
diff changeset
   777
    (unless (file-directory-p server-auth-dir)
fffa9d2a328f Fix: File error: Opening output file, no such file or directory, c:/Users/user/AppData/Roaming/.emacs.d/server/server
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1404
diff changeset
   778
      (mkdir server-auth-dir)))
1203
2d151ab6761d Fix condition for applying server-ensure-safe-dir fix.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1196
diff changeset
   779
  (when (and (>= emacs-major-version 23) (equal window-system 'w32))
394
03d8b85ff815 Do not load server.el for Emacs 21.x.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 393
diff changeset
   780
    (defun server-ensure-safe-dir (dir) "Noop" t)) ; Suppress error directory ~/.emacs.d/server is unsafe on windows.
662
81ca1335730a Fix condition as it stop server from loading.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 660
diff changeset
   781
  (when (or (= emacs-major-version 22) (not (eq (server-running-p server-name) t)))
1203
2d151ab6761d Fix condition for applying server-ensure-safe-dir fix.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1196
diff changeset
   782
    (server-start)) )
85
2bb7e6aceac9 Added target dist-tar.
gavenkoa@gavenko.bifit.int
parents: 83
diff changeset
   783
718
19ab21ec7640 Define own outline-regex to easy view file structure.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 717
diff changeset
   784
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1710
03f26aaabbfa Moved settings for file local variable to a separate section.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1709
diff changeset
   785
(message "file local variables/ dir local variables")
03f26aaabbfa Moved settings for file local variable to a separate section.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1709
diff changeset
   786
03f26aaabbfa Moved settings for file local variable to a separate section.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1709
diff changeset
   787
(setq enable-dir-local-variables t)
03f26aaabbfa Moved settings for file local variable to a separate section.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1709
diff changeset
   788
03f26aaabbfa Moved settings for file local variable to a separate section.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1709
diff changeset
   789
;; Prompt before evaluating potencially dangerous foreign elisp!
03f26aaabbfa Moved settings for file local variable to a separate section.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1709
diff changeset
   790
(setq enable-local-variables :safe)
03f26aaabbfa Moved settings for file local variable to a separate section.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1709
diff changeset
   791
(setq enable-local-eval :maybe)
03f26aaabbfa Moved settings for file local variable to a separate section.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1709
diff changeset
   792
03f26aaabbfa Moved settings for file local variable to a separate section.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1709
diff changeset
   793
;; See also `safe-local-eval-forms' & `safe-local-variable-values'.
03f26aaabbfa Moved settings for file local variable to a separate section.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1709
diff changeset
   794
03f26aaabbfa Moved settings for file local variable to a separate section.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1709
diff changeset
   795
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
545
24992bae7599 Use 'message' instead of comment to easy debug where error occurred.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 544
diff changeset
   796
(message "standart/general settings")
0
aef1d0017234 Initial commit.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
diff changeset
   797
408
78cf8a4feb66 Fix: default 'command-history' length too short (in Emacs 23.2 is 30).
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 404
diff changeset
   798
;; Default 'command-history' length too short (in Emacs 23.2 is 30).
78cf8a4feb66 Fix: default 'command-history' length too short (in Emacs 23.2 is 30).
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 404
diff changeset
   799
(setq history-length 200)
1486
cf1175a9cd7b I do not need duplicates in minibuffer history.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1482
diff changeset
   800
(setq history-delete-duplicates t)
408
78cf8a4feb66 Fix: default 'command-history' length too short (in Emacs 23.2 is 30).
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 404
diff changeset
   801
336
a252995f7d6b Move general getting into one place.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 335
diff changeset
   802
;; Don't beep in my headphones!
a252995f7d6b Move general getting into one place.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 335
diff changeset
   803
(setq ring-bell-function '(lambda () "Empty ring-bell-function." nil))
a252995f7d6b Move general getting into one place.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 335
diff changeset
   804
(setq visible-bell t) ; With default ring-bell-function in text terminal
a252995f7d6b Move general getting into one place.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 335
diff changeset
   805
                      ; revert screen if press [end] or [home]
880
995e7f89c52d Set track-eol.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 879
diff changeset
   806
(setq track-eol nil)
336
a252995f7d6b Move general getting into one place.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 335
diff changeset
   807
1372
cb4d1411a245 (setq enable-recursive-minibuffers t)
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1371
diff changeset
   808
(setq enable-recursive-minibuffers t)
867
2a689826c166 Set enable-recursive-minibuffers to t.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 866
diff changeset
   809
0
aef1d0017234 Initial commit.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
diff changeset
   810
(setq kill-whole-line t)
1755
e99278df97cb kill-do-not-save-duplicates
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1754
diff changeset
   811
(setq kill-do-not-save-duplicates t)
0
aef1d0017234 Initial commit.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
diff changeset
   812
879
a14d684e34f7 Don't set view-read-only to 't' because of bug with gettext.el.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 878
diff changeset
   813
;; Disable because of bug with gettext.el. See
a14d684e34f7 Don't set view-read-only to 't' because of bug with gettext.el.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 878
diff changeset
   814
;;   http://bugs.debian.org/cgi-bin/bugreport.cgi?bug=287261
a14d684e34f7 Don't set view-read-only to 't' because of bug with gettext.el.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 878
diff changeset
   815
;; (setq view-read-only t)
102
25585e240b4a Move customization from .emacs (custom-set-variables) to .emacs-my. Remove duplication.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 101
diff changeset
   816
171
2f2aae1d394c Set read-quoted-char-radix.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 169
diff changeset
   817
(setq read-quoted-char-radix 16)
2f2aae1d394c Set read-quoted-char-radix.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 169
diff changeset
   818
1612
1bf9e4f1d289 Expression was simplified.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1611
diff changeset
   819
;; https://emacs.stackexchange.com/questions/33117/showing-bytes-as-hexadecimal-escapes-rather-than-octal-escapes
1613
61ea45815411 Set display-raw-bytes-as-hex for Emacs 26.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1612
diff changeset
   820
(cond
61ea45815411 Set display-raw-bytes-as-hex for Emacs 26.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1612
diff changeset
   821
 ((>= emacs-major-version 26)
61ea45815411 Set display-raw-bytes-as-hex for Emacs 26.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1612
diff changeset
   822
  (setq display-raw-bytes-as-hex t))
61ea45815411 Set display-raw-bytes-as-hex for Emacs 26.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1612
diff changeset
   823
 ((and (>= emacs-major-version 22) (not (eq system-type 'darwin)))
613
1e7314bb84bc Fix loading error for Emacs 21.3.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 612
diff changeset
   824
  (setq standard-display-table (make-display-table))
1e7314bb84bc Fix loading error for Emacs 21.3.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 612
diff changeset
   825
  (let ( (i ?\x80) hex hi low )
1e7314bb84bc Fix loading error for Emacs 21.3.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 612
diff changeset
   826
    (while (<= i ?\xff)
1e7314bb84bc Fix loading error for Emacs 21.3.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 612
diff changeset
   827
      (aset standard-display-table (unibyte-char-to-multibyte i)
1612
1bf9e4f1d289 Expression was simplified.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1611
diff changeset
   828
            (cl-map 'vector
1bf9e4f1d289 Expression was simplified.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1611
diff changeset
   829
                    (lambda (c) (make-glyph-code c 'escape-glyph))
1bf9e4f1d289 Expression was simplified.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1611
diff changeset
   830
                    (format "\\%02x" i)))
1613
61ea45815411 Set display-raw-bytes-as-hex for Emacs 26.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1612
diff changeset
   831
      (setq i (1+ i))))))
525
c8d4f5368b04 Show non printable characters in hex, not in octal.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 524
diff changeset
   832
1566
0e7f4d5153d1 Fixed (ucs-names) API change in Emacs v26.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1565
diff changeset
   833
(defun my--get-char (name)
0e7f4d5153d1 Fixed (ucs-names) API change in Emacs v26.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1565
diff changeset
   834
  "Get character by Unicode `name'."
0e7f4d5153d1 Fixed (ucs-names) API change in Emacs v26.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1565
diff changeset
   835
  (cond
1627
1faf2d1a9cd6 Fixed typo in a condition.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1626
diff changeset
   836
   ((<= 26 emacs-major-version)
1595
0f4f0205ef3e No need for default value. It can hide bug.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1594
diff changeset
   837
    (gethash name (ucs-names)))
1627
1faf2d1a9cd6 Fixed typo in a condition.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1626
diff changeset
   838
   ((<= 23 emacs-major-version)
1566
0e7f4d5153d1 Fixed (ucs-names) API change in Emacs v26.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1565
diff changeset
   839
    (cdr (assoc-string name (ucs-names))))
0e7f4d5153d1 Fixed (ucs-names) API change in Emacs v26.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1565
diff changeset
   840
   (t (error "Emacs version is too old and lacks Unicode support..."))))
0e7f4d5153d1 Fixed (ucs-names) API change in Emacs v26.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1565
diff changeset
   841
863
d48ba6196046 Add sign for euro and hryvnia.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 862
diff changeset
   842
(when (>= emacs-major-version 23)
1586
6aff838af671 Fixed: ‘ucs-insert’ is an obsolete function (as of 24.3), use ‘insert-char’ instead.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1585
diff changeset
   843
  (define-key global-map "\C-x8g" (lambda nil (interactive) (insert-char (my--get-char "HRYVNIA SIGN"))))
6aff838af671 Fixed: ‘ucs-insert’ is an obsolete function (as of 24.3), use ‘insert-char’ instead.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1585
diff changeset
   844
  (define-key global-map "\C-x8e" (lambda nil (interactive) (insert-char (my--get-char "EURO SIGN")))) )
863
d48ba6196046 Add sign for euro and hryvnia.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 862
diff changeset
   845
344
b7d0989d9472 generic-define-* before (require 'generic-x) allow load all useful extra modes.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 342
diff changeset
   846
;; generic-define-* before (require 'generic-x) allow load all useful extra modes.
1381
8e2779f23920 Fix Warning: assignment to free variable.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1380
diff changeset
   847
(defvar generic-define-mswindows-modes t)
8e2779f23920 Fix Warning: assignment to free variable.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1380
diff changeset
   848
(defvar generic-define-unix-modes t)
1597
69fb0b318f3c Removed some generic modes that interfere with specialised: javascript-generic-mode ansible-inventory-generic-mode
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1596
diff changeset
   849
69fb0b318f3c Removed some generic modes that interfere with specialised: javascript-generic-mode ansible-inventory-generic-mode
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1596
diff changeset
   850
(setq generic-extras-enable-list
69fb0b318f3c Removed some generic modes that interfere with specialised: javascript-generic-mode ansible-inventory-generic-mode
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1596
diff changeset
   851
      '(apache-conf-generic-mode apache-log-generic-mode hosts-generic-mode java-manifest-generic-mode java-properties-generic-mode
69fb0b318f3c Removed some generic modes that interfere with specialised: javascript-generic-mode ansible-inventory-generic-mode
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1596
diff changeset
   852
        ;; javascript-generic-mode ansible-inventory-generic-mode
69fb0b318f3c Removed some generic modes that interfere with specialised: javascript-generic-mode ansible-inventory-generic-mode
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1596
diff changeset
   853
       show-tabs-generic-mode vrml-generic-mode bat-generic-mode inf-generic-mode ini-generic-mode rc-generic-mode reg-generic-mode
69fb0b318f3c Removed some generic modes that interfere with specialised: javascript-generic-mode ansible-inventory-generic-mode
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1596
diff changeset
   854
       rul-generic-mode alias-generic-mode
69fb0b318f3c Removed some generic modes that interfere with specialised: javascript-generic-mode ansible-inventory-generic-mode
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1596
diff changeset
   855
       etc-fstab-generic-mode etc-modules-conf-generic-mode etc-passwd-generic-mode etc-services-generic-mode etc-sudoers-generic-mode
69fb0b318f3c Removed some generic modes that interfere with specialised: javascript-generic-mode ansible-inventory-generic-mode
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1596
diff changeset
   856
       fvwm-generic-mode inetd-conf-generic-mode mailagent-rules-generic-mode mailrc-generic-mode named-boot-generic-mode named-database-generic-mode
69fb0b318f3c Removed some generic modes that interfere with specialised: javascript-generic-mode ansible-inventory-generic-mode
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1596
diff changeset
   857
       prototype-generic-mode resolve-conf-generic-mode samba-generic-mode x-resource-generic-mode xmodmap-generic-mode))
69fb0b318f3c Removed some generic modes that interfere with specialised: javascript-generic-mode ansible-inventory-generic-mode
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1596
diff changeset
   858
341
84db44766351 Remove bat-file-mode as it present in generic-x.el.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 339
diff changeset
   859
(require 'generic-x)
84db44766351 Remove bat-file-mode as it present in generic-x.el.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 339
diff changeset
   860
345
90b5ae643a6d Move code to proper place.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 344
diff changeset
   861
;; The following commands are usually disabled by default. Enable them...
90b5ae643a6d Move code to proper place.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 344
diff changeset
   862
(put 'eval-expression  'disabled nil)
90b5ae643a6d Move code to proper place.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 344
diff changeset
   863
(put 'downcase-region  'disabled nil)
90b5ae643a6d Move code to proper place.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 344
diff changeset
   864
(put 'upcase-region    'disabled nil)
90b5ae643a6d Move code to proper place.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 344
diff changeset
   865
(put 'narrow-to-page   'disabled nil)
90b5ae643a6d Move code to proper place.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 344
diff changeset
   866
(put 'narrow-to-region 'disabled nil)
90b5ae643a6d Move code to proper place.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 344
diff changeset
   867
(put 'scroll-left      'disabled nil)
1371
e1c546660149 (put 'set-goal-column 'disabled nil)
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1370
diff changeset
   868
(put 'set-goal-column  'disabled nil)
345
90b5ae643a6d Move code to proper place.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 344
diff changeset
   869
432
650ccece6b01 use-dialog-box set to t.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 431
diff changeset
   870
(setq
650ccece6b01 use-dialog-box set to t.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 431
diff changeset
   871
 use-dialog-box t
650ccece6b01 use-dialog-box set to t.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 431
diff changeset
   872
 x-gtk-show-hidden-files t
650ccece6b01 use-dialog-box set to t.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 431
diff changeset
   873
 )
650ccece6b01 use-dialog-box set to t.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 431
diff changeset
   874
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
   875
(defun my-prevent-kill-buffer ()
865
2a99ede322cd Prevent from closing 'NOTE.org' buffer.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 864
diff changeset
   876
  (if (member (buffer-name) '("*scratch*" "NOTE.org")) nil t))
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
   877
(add-to-list 'kill-buffer-query-functions 'my-prevent-kill-buffer)
719
694f7e388f2b Add func 'my-prevent-kill-buffer' and prevent kill '*scratch*' buffer.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 718
diff changeset
   878
718
19ab21ec7640 Define own outline-regex to easy view file structure.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 717
diff changeset
   879
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
545
24992bae7599 Use 'message' instead of comment to easy debug where error occurred.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 544
diff changeset
   880
(message "scrolling")
0
aef1d0017234 Initial commit.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
diff changeset
   881
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
   882
(defvar my-scroll-margin 4)
339
4e131c57a0ef With scroll-step 3 when go down it scroll one line but if up - 3 so set
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 338
diff changeset
   883
127
0e82eedbaa82 Setup scrolling.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 126
diff changeset
   884
(setq-default
1312
7c7a0f0e370e Fix spelling.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1311
diff changeset
   885
 ;; Set to zero as this recommend documentation.
802
6168f8ab6479 Fix scrolling speed as I am use settings that documentation recommend avoid.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 801
diff changeset
   886
 scroll-step 0
6168f8ab6479 Fix scrolling speed as I am use settings that documentation recommend avoid.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 801
diff changeset
   887
 ;; If the value is greater than 100, redisplay will never recenter point, but
6168f8ab6479 Fix scrolling speed as I am use settings that documentation recommend avoid.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 801
diff changeset
   888
 ;; will always scroll just enough text to bring point into view
6168f8ab6479 Fix scrolling speed as I am use settings that documentation recommend avoid.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 801
diff changeset
   889
 scroll-conservatively 1000
127
0e82eedbaa82 Setup scrolling.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 126
diff changeset
   890
 scroll-preserve-screen-position t
0e82eedbaa82 Setup scrolling.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 126
diff changeset
   891
 )
0e82eedbaa82 Setup scrolling.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 126
diff changeset
   892
1589
ae79beae573a Enable TODO highlighting in all prod modes without listing all modes.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1588
diff changeset
   893
(defvar my-scroll-margin-mode-list
ae79beae573a Enable TODO highlighting in all prod modes without listing all modes.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1588
diff changeset
   894
  '(vc-dir-mode
ae79beae573a Enable TODO highlighting in all prod modes without listing all modes.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1588
diff changeset
   895
    recentf-dialog-mode
ae79beae573a Enable TODO highlighting in all prod modes without listing all modes.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1588
diff changeset
   896
    org-agenda-grid-mode           ; XXX for this item not worked!
ae79beae573a Enable TODO highlighting in all prod modes without listing all modes.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1588
diff changeset
   897
    log-view-mode
ae79beae573a Enable TODO highlighting in all prod modes without listing all modes.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1588
diff changeset
   898
    dired-mode
ae79beae573a Enable TODO highlighting in all prod modes without listing all modes.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1588
diff changeset
   899
    compilation-mode
ae79beae573a Enable TODO highlighting in all prod modes without listing all modes.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1588
diff changeset
   900
    conf-mode)
ae79beae573a Enable TODO highlighting in all prod modes without listing all modes.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1588
diff changeset
   901
  "List of modes for enabling scroll margin.")
ae79beae573a Enable TODO highlighting in all prod modes without listing all modes.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1588
diff changeset
   902
333
14b07ca8335a Set margin only for desired modes! Do not frustrate calendar any more.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 332
diff changeset
   903
;; Set margin only for desired modes! Do not frustrate calendar any more.
14b07ca8335a Set margin only for desired modes! Do not frustrate calendar any more.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 332
diff changeset
   904
(make-variable-buffer-local 'scroll-margin)
1589
ae79beae573a Enable TODO highlighting in all prod modes without listing all modes.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1588
diff changeset
   905
(defun my-set-scroll-margin () (setq scroll-margin my-scroll-margin))
ae79beae573a Enable TODO highlighting in all prod modes without listing all modes.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1588
diff changeset
   906
(mapc (lambda (hook) (add-hook hook #'my-set-scroll-margin))
ae79beae573a Enable TODO highlighting in all prod modes without listing all modes.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1588
diff changeset
   907
      (delete-dups (append my-text-mode-hook-list
ae79beae573a Enable TODO highlighting in all prod modes without listing all modes.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1588
diff changeset
   908
                           my-prog-hook-list
ae79beae573a Enable TODO highlighting in all prod modes without listing all modes.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1588
diff changeset
   909
                           (my-mode2hook my-scroll-margin-mode-list)
ae79beae573a Enable TODO highlighting in all prod modes without listing all modes.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1588
diff changeset
   910
                           '(prog-mode-hook))) )
333
14b07ca8335a Set margin only for desired modes! Do not frustrate calendar any more.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 332
diff changeset
   911
718
19ab21ec7640 Define own outline-regex to easy view file structure.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 717
diff changeset
   912
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
738
2a81232aa82f Add 'my-print-unicode' which print UNICODE table.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 737
diff changeset
   913
(message "chars, unicode")
2a81232aa82f Add 'my-print-unicode' which print UNICODE table.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 737
diff changeset
   914
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
   915
(defun my-print-unicode (&optional start end)
738
2a81232aa82f Add 'my-print-unicode' which print UNICODE table.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 737
diff changeset
   916
  "Print UNICODE table."
2a81232aa82f Add 'my-print-unicode' which print UNICODE table.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 737
diff changeset
   917
  (interactive "nstart: \nnend: ")
2a81232aa82f Add 'my-print-unicode' which print UNICODE table.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 737
diff changeset
   918
  (switch-to-buffer (get-buffer-create "*UNICODE*"))
2a81232aa82f Add 'my-print-unicode' which print UNICODE table.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 737
diff changeset
   919
  (erase-buffer)
2a81232aa82f Add 'my-print-unicode' which print UNICODE table.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 737
diff changeset
   920
  (let ( (i start) )
2a81232aa82f Add 'my-print-unicode' which print UNICODE table.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 737
diff changeset
   921
    (while (<= i end)
2a81232aa82f Add 'my-print-unicode' which print UNICODE table.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 737
diff changeset
   922
      (insert (format "%s: U+%04x, %s\n" (char-to-string i) i (get-char-code-property i 'name)))
2a81232aa82f Add 'my-print-unicode' which print UNICODE table.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 737
diff changeset
   923
      (setq i (1+ i))
2a81232aa82f Add 'my-print-unicode' which print UNICODE table.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 737
diff changeset
   924
      )))
2a81232aa82f Add 'my-print-unicode' which print UNICODE table.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 737
diff changeset
   925
2a81232aa82f Add 'my-print-unicode' which print UNICODE table.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 737
diff changeset
   926
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
545
24992bae7599 Use 'message' instead of comment to easy debug where error occurred.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 544
diff changeset
   927
(message "search, isearch, occur")
254
51b47da56551 Highlight on search and repalce.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 253
diff changeset
   928
989
2967a171f889 Fix: case-fold-search become buffer local so set default value...
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 988
diff changeset
   929
(setq-default case-fold-search t)
217
1c42ba3ac4ba Case insensitive search. Group search customization together.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 216
diff changeset
   930
254
51b47da56551 Highlight on search and repalce.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 253
diff changeset
   931
(setq query-replace-highlight t)        ; highlight during query
51b47da56551 Highlight on search and repalce.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 253
diff changeset
   932
(setq search-highlight t)               ; highlight incremental search
51b47da56551 Highlight on search and repalce.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 253
diff changeset
   933
563
6d5387a4e95d Move code to proper place. Add 'f7' key binding for 'occur'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 562
diff changeset
   934
;; Make old Emacs key binding like in Emacs 23.x.
6d5387a4e95d Move code to proper place. Add 'f7' key binding for 'occur'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 562
diff changeset
   935
(when (< emacs-major-version 23)
6d5387a4e95d Move code to proper place. Add 'f7' key binding for 'occur'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 562
diff changeset
   936
  (global-set-key (kbd "M-s o") 'occur)
6d5387a4e95d Move code to proper place. Add 'f7' key binding for 'occur'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 562
diff changeset
   937
  )
6d5387a4e95d Move code to proper place. Add 'f7' key binding for 'occur'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 562
diff changeset
   938
718
19ab21ec7640 Define own outline-regex to easy view file structure.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 717
diff changeset
   939
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1478
e6f6dd580012 Enable ag if available for searching.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1477
diff changeset
   940
(message "grep, find, ack, ag")
526
9e613d7de6e1 Added exclude pattern to 'grep-find-ignored-directories'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 525
diff changeset
   941
1685
6a740def74e8 Fixed error 'eval-when is not defined' after switching to cl-lib.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1684
diff changeset
   942
(cl-eval-when (compile) (require 'find-dired))
1374
313e428cf77c Add (eval-when 'compile ...) to reduce number of Warning: reference to free variable.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1373
diff changeset
   943
542
22eb7a31b689 Speedup find-dired.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 541
diff changeset
   944
;; -ls produce very noisy output:
22eb7a31b689 Speedup find-dired.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 541
diff changeset
   945
;; (setq find-ls-option '("-ls" . ""))
22eb7a31b689 Speedup find-dired.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 541
diff changeset
   946
;; So I use next expression, which work with GNU find, I replace %s with '0'
22eb7a31b689 Speedup find-dired.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 541
diff changeset
   947
;; to avoid unnecessary sys calls and this make output aligned by column:
1298
f25b62528baa Show size in bytes by find-dired command.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1296
diff changeset
   948
(setq find-ls-option '("-printf ' -rw-rw-rw- %9s %AY-%Am-%Ad %AH:%AM %p\n'" . ""))
542
22eb7a31b689 Speedup find-dired.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 541
diff changeset
   949
1748
e9610d83f4ff Use "find -exec" with "+" to avoid excessive grep forking.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1744
diff changeset
   950
(require 'grep)
e9610d83f4ff Use "find -exec" with "+" to avoid excessive grep forking.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1744
diff changeset
   951
(grep-apply-setting 'grep-find-use-xargs 'exec-plus)
1418
a824a9955b53 Fix: Warning: assignment to free variable `find-ls-option'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1417
diff changeset
   952
357
84c8c5f03fd4 Correct grep command.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 356
diff changeset
   953
;; Do not set t because some grep do not has --color options.
84c8c5f03fd4 Correct grep command.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 356
diff changeset
   954
(setq grep-highlight-matches nil)
84c8c5f03fd4 Correct grep command.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 356
diff changeset
   955
(setq grep-use-null-device nil)
84c8c5f03fd4 Correct grep command.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 356
diff changeset
   956
1254
19c7b3be9b3a Define special macro to avoid warning about "assignment to free variable".
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1253
diff changeset
   957
(my--eval-after-load grep
1278
8e47e801be9d Remove qouting from 'my--eval-after-load' macro usage because that code doesn't evaluated.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1277
diff changeset
   958
  (add-to-list 'grep-find-ignored-directories "build" t)
8e47e801be9d Remove qouting from 'my--eval-after-load' macro usage because that code doesn't evaluated.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1277
diff changeset
   959
  (add-to-list 'grep-find-ignored-directories "dist" t)
8e47e801be9d Remove qouting from 'my--eval-after-load' macro usage because that code doesn't evaluated.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1277
diff changeset
   960
  (add-to-list 'grep-find-ignored-directories "lib" t)
8e47e801be9d Remove qouting from 'my--eval-after-load' macro usage because that code doesn't evaluated.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1277
diff changeset
   961
  (add-to-list 'grep-find-ignored-directories "_build" t)
8e47e801be9d Remove qouting from 'my--eval-after-load' macro usage because that code doesn't evaluated.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1277
diff changeset
   962
  (add-to-list 'grep-find-ignored-directories "_dist" t)
8e47e801be9d Remove qouting from 'my--eval-after-load' macro usage because that code doesn't evaluated.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1277
diff changeset
   963
  (add-to-list 'grep-find-ignored-directories "_lib" t)
8e47e801be9d Remove qouting from 'my--eval-after-load' macro usage because that code doesn't evaluated.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1277
diff changeset
   964
  (when (boundp 'grep-find-ignored-files)
8e47e801be9d Remove qouting from 'my--eval-after-load' macro usage because that code doesn't evaluated.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1277
diff changeset
   965
    (add-to-list 'grep-find-ignored-files "*TAGS")
8e47e801be9d Remove qouting from 'my--eval-after-load' macro usage because that code doesn't evaluated.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1277
diff changeset
   966
    (add-to-list 'grep-find-ignored-files "GPATH")) )
8e47e801be9d Remove qouting from 'my--eval-after-load' macro usage because that code doesn't evaluated.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1277
diff changeset
   967
356
fd1af7a494de Added key binding for rgrep.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 355
diff changeset
   968
(global-set-key [M-f7] 'rgrep)
fd1af7a494de Added key binding for rgrep.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 355
diff changeset
   969
1726
ffd1272d96dc Defined key bindings to some project search/replace functions.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1725
diff changeset
   970
(global-set-key [C-f7] 'my-ag)
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
   971
(global-set-key [S-f7] 'my-ag-default-directory)
1478
e6f6dd580012 Enable ag if available for searching.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1477
diff changeset
   972
718
19ab21ec7640 Define own outline-regex to easy view file structure.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 717
diff changeset
   973
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
861
f8f14aacfc9b Enable 'global-hi-lock-mode'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 860
diff changeset
   974
(message "highlighting")
296
e502c69ab80a Make header name like tags, separated by comma and ended on period.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 295
diff changeset
   975
996
0eb9113dddaa Increase scrolling speed by defer consuming operation.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 995
diff changeset
   976
;; Increase scrolling speed by defer consuming operation.
1000
289782aa4afa I disable this due to bugs in Emacs (it doesn't highlight at all until you
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 999
diff changeset
   977
;; I disable this due to bugs in Emacs (it doesn't highlight at all until you
289782aa4afa I disable this due to bugs in Emacs (it doesn't highlight at all until you
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 999
diff changeset
   978
;; press any key).
289782aa4afa I disable this due to bugs in Emacs (it doesn't highlight at all until you
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 999
diff changeset
   979
;; (setq jit-lock-defer-time 0.01)
996
0eb9113dddaa Increase scrolling speed by defer consuming operation.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 995
diff changeset
   980
0
aef1d0017234 Initial commit.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
diff changeset
   981
(setq font-lock-maximum-decoration t)
395
c7f6eb04626d Port to Emacs 32.2 (in 'global-font-lock-mode' error - Wrong number of arguments).
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 391
diff changeset
   982
(global-font-lock-mode 1)
0
aef1d0017234 Initial commit.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
diff changeset
   983
1333
9927012ea835 Disable global-hi-lock-mode due to bug: 24.5; "(global-hi-lock-mode 1)" broke "C-x" key bindings inside "M-x term", especially for "emacs -nw" (Emacs inside Emacs).
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1332
diff changeset
   984
;; http://debbugs.gnu.org/cgi/bugreport.cgi?archive=yes&bug=22620
9927012ea835 Disable global-hi-lock-mode due to bug: 24.5; "(global-hi-lock-mode 1)" broke "C-x" key bindings inside "M-x term", especially for "emacs -nw" (Emacs inside Emacs).
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1332
diff changeset
   985
;; 24.5; "(global-hi-lock-mode 1)" broke "C-x" key bindings inside "M-x term", especially for "emacs -nw" (Emacs inside Emacs).
9927012ea835 Disable global-hi-lock-mode due to bug: 24.5; "(global-hi-lock-mode 1)" broke "C-x" key bindings inside "M-x term", especially for "emacs -nw" (Emacs inside Emacs).
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1332
diff changeset
   986
; (global-hi-lock-mode -1)
861
f8f14aacfc9b Enable 'global-hi-lock-mode'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 860
diff changeset
   987
1622
954b7c665c1a Added highlighting for special pattern to be less distracting. Two symbols are used as markers from each side to avoid most false positive matches.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1621
diff changeset
   988
(when window-system
954b7c665c1a Added highlighting for special pattern to be less distracting. Two symbols are used as markers from each side to avoid most false positive matches.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1621
diff changeset
   989
  (set-face-attribute 'shadow nil :foreground "gray60")) ;; tan, gray70
954b7c665c1a Added highlighting for special pattern to be less distracting. Two symbols are used as markers from each side to avoid most false positive matches.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1621
diff changeset
   990
718
19ab21ec7640 Define own outline-regex to easy view file structure.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 717
diff changeset
   991
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
545
24992bae7599 Use 'message' instead of comment to easy debug where error occurred.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 544
diff changeset
   992
(message "highlight selected text")
64
54ef0d72488f More pretty with selecting.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 63
diff changeset
   993
776
1e680ded54d1 'transient-mark-mode' and 'pc-selection-mode' are deprecated. Emacs 24 default
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 775
diff changeset
   994
(delete-selection-mode 1)
1e680ded54d1 'transient-mark-mode' and 'pc-selection-mode' are deprecated. Emacs 24 default
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 775
diff changeset
   995
1429
f918516ffeb0 Fix: Warning: assignment to free variables `pc-select-selection-keys-only' and
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1428
diff changeset
   996
(defvar pc-select-selection-keys-only)
f918516ffeb0 Fix: Warning: assignment to free variables `pc-select-selection-keys-only' and
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1428
diff changeset
   997
(defvar pc-select-meta-moves-sexps)
776
1e680ded54d1 'transient-mark-mode' and 'pc-selection-mode' are deprecated. Emacs 24 default
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 775
diff changeset
   998
(when (<= emacs-major-version 23)
1e680ded54d1 'transient-mark-mode' and 'pc-selection-mode' are deprecated. Emacs 24 default
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 775
diff changeset
   999
  ;; 1/-1, when the mark is active, the region is highlighted.
1e680ded54d1 'transient-mark-mode' and 'pc-selection-mode' are deprecated. Emacs 24 default
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 775
diff changeset
  1000
  (transient-mark-mode 1)
1e680ded54d1 'transient-mark-mode' and 'pc-selection-mode' are deprecated. Emacs 24 default
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 775
diff changeset
  1001
  ;; Order of next items is important, (assignment must done before pc-selection-mode enabled).
1e680ded54d1 'transient-mark-mode' and 'pc-selection-mode' are deprecated. Emacs 24 default
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 775
diff changeset
  1002
  (require 'pc-select)
1e680ded54d1 'transient-mark-mode' and 'pc-selection-mode' are deprecated. Emacs 24 default
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 775
diff changeset
  1003
  (setq pc-select-selection-keys-only t)  ; To avoid some key bindings as F6, etc.
1e680ded54d1 'transient-mark-mode' and 'pc-selection-mode' are deprecated. Emacs 24 default
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 775
diff changeset
  1004
  (setq pc-select-meta-moves-sexps t)
1378
892deca62b56 Remove support for Emacs 21.x.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1377
diff changeset
  1005
  (pc-selection-mode 1) )
64
54ef0d72488f More pretty with selecting.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 63
diff changeset
  1006
1122
0e255897262a Set selection background color.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1121
diff changeset
  1007
(when window-system
0e255897262a Set selection background color.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1121
diff changeset
  1008
  (set-face-attribute 'region nil :background "light blue"))
0e255897262a Set selection background color.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1121
diff changeset
  1009
1756
2495ee9cf84c x-select-enable-clipboard => select-enable-clipboard
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1755
diff changeset
  1010
(setq select-enable-clipboard t)
1758
f02cdc92b560 Fixed: on selection the text is copied, so it is impossible to replace the text with what is in clipboard as the content of clipboard is already replaced by old text.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1757
diff changeset
  1011
(unless (eq window-system 'w32)
f02cdc92b560 Fixed: on selection the text is copied, so it is impossible to replace the text with what is in clipboard as the content of clipboard is already replaced by old text.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1757
diff changeset
  1012
  (setq select-enable-primary t))
1756
2495ee9cf84c x-select-enable-clipboard => select-enable-clipboard
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1755
diff changeset
  1013
(setq save-interprogram-paste-before-kill nil)
64
54ef0d72488f More pretty with selecting.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 63
diff changeset
  1014
1268
9fecb7abda89 Use er/expand-region if available.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1265
diff changeset
  1015
(when (fboundp 'er/expand-region)
1724
35c96420cf54 Reserved s-= for my-calc-line (to avoid excessive typing of M-x my-calc-line). er/expand-region is now s-w to be near C-w/M-w.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1723
diff changeset
  1016
  (global-set-key (kbd "s-w") 'er/expand-region))
1547
a4e4e54c257a Disable er in org/rst-mode. Expand to line with \n by default.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1546
diff changeset
  1017
a4e4e54c257a Disable er in org/rst-mode. Expand to line with \n by default.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1546
diff changeset
  1018
(defun my-mark-line ()
a4e4e54c257a Disable er in org/rst-mode. Expand to line with \n by default.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1546
diff changeset
  1019
  "Mark current line."
a4e4e54c257a Disable er in org/rst-mode. Expand to line with \n by default.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1546
diff changeset
  1020
  (forward-line 0)
a4e4e54c257a Disable er in org/rst-mode. Expand to line with \n by default.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1546
diff changeset
  1021
  (set-mark (point))
a4e4e54c257a Disable er in org/rst-mode. Expand to line with \n by default.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1546
diff changeset
  1022
  (forward-line 1)
a4e4e54c257a Disable er in org/rst-mode. Expand to line with \n by default.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1546
diff changeset
  1023
  (exchange-point-and-mark))
a4e4e54c257a Disable er in org/rst-mode. Expand to line with \n by default.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1546
diff changeset
  1024
a4e4e54c257a Disable er in org/rst-mode. Expand to line with \n by default.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1546
diff changeset
  1025
(setq-default er/try-expand-list '(er/mark-word er/mark-symbol er/mark-inside-quotes er/mark-outside-quotes er/mark-inside-pairs er/mark-outside-pairs my-mark-line))
a4e4e54c257a Disable er in org/rst-mode. Expand to line with \n by default.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1546
diff changeset
  1026
a4e4e54c257a Disable er in org/rst-mode. Expand to line with \n by default.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1546
diff changeset
  1027
(my--eval-after-load text-mode-expansions
a4e4e54c257a Disable er in org/rst-mode. Expand to line with \n by default.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1546
diff changeset
  1028
  (add-to-list 'expand-region-exclude-text-mode-expansions 'org-mode)
a4e4e54c257a Disable er in org/rst-mode. Expand to line with \n by default.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1546
diff changeset
  1029
  (add-to-list 'expand-region-exclude-text-mode-expansions 'rst-mode))
1546
4939c41ef080 Expand region to word by default.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1545
diff changeset
  1030
718
19ab21ec7640 Define own outline-regex to easy view file structure.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 717
diff changeset
  1031
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
545
24992bae7599 Use 'message' instead of comment to easy debug where error occurred.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 544
diff changeset
  1032
(message "highlighting current line")
296
e502c69ab80a Make header name like tags, separated by comma and ended on period.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 295
diff changeset
  1033
1382
be41e9ce7713 Use hl-line even in terminals.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1381
diff changeset
  1034
(require 'hl-line)
be41e9ce7713 Use hl-line even in terminals.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1381
diff changeset
  1035
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  1036
(defun my-hl-line-range-function ()
1277
ae5c2b9ab4bd Avoid overriding text background - highlight only after line end.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1276
diff changeset
  1037
  (cons (line-end-position) (line-beginning-position 2)))
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  1038
(setq hl-line-range-function #'my-hl-line-range-function)
1277
ae5c2b9ab4bd Avoid overriding text background - highlight only after line end.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1276
diff changeset
  1039
1382
be41e9ce7713 Use hl-line even in terminals.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1381
diff changeset
  1040
(set-face-attribute 'hl-line nil :inherit nil :background "light yellow")
be41e9ce7713 Use hl-line even in terminals.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1381
diff changeset
  1041
(setq global-hl-line-sticky-flag t)
be41e9ce7713 Use hl-line even in terminals.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1381
diff changeset
  1042
(global-hl-line-mode 1)
0
aef1d0017234 Initial commit.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
diff changeset
  1043
718
19ab21ec7640 Define own outline-regex to easy view file structure.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 717
diff changeset
  1044
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
545
24992bae7599 Use 'message' instead of comment to easy debug where error occurred.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 544
diff changeset
  1045
(message "paren, braces")
0
aef1d0017234 Initial commit.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
diff changeset
  1046
1386
e9b455ea0327 Fix: Warning: `european-calendar-style' is an obsolete variable (as of 23.1); use `calendar-date-style' instead.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1385
diff changeset
  1047
(require 'paren)
e9b455ea0327 Fix: Warning: `european-calendar-style' is an obsolete variable (as of 23.1); use `calendar-date-style' instead.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1385
diff changeset
  1048
1654
984c15b493ab Highlight an entire expression instead of matching parenthesis.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1653
diff changeset
  1049
(when window-system
1655
05502e8a049d Set more distinctive color for paren expression highlighting.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1654
diff changeset
  1050
  (face-spec-set 'show-paren-match '((t :background "wheat"))))
1654
984c15b493ab Highlight an entire expression instead of matching parenthesis.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1653
diff changeset
  1051
;; parenthesis, expression, mixed
1728
746bcf68435f Show only the matching closing parenthesis, flashing entire expression is irritating.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1727
diff changeset
  1052
(setq show-paren-style 'parenthesis)
1654
984c15b493ab Highlight an entire expression instead of matching parenthesis.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1653
diff changeset
  1053
1656
0445e8ee4912 Fixed: show-paren-mode was disabled by large files because is it global mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1655
diff changeset
  1054
;; show-paren-mode is global, to override have to be local variable.
0445e8ee4912 Fixed: show-paren-mode was disabled by large files because is it global mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1655
diff changeset
  1055
(make-variable-buffer-local 'show-paren-mode)
0445e8ee4912 Fixed: show-paren-mode was disabled by large files because is it global mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1655
diff changeset
  1056
(show-paren-mode 1)
0
aef1d0017234 Initial commit.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
diff changeset
  1057
718
19ab21ec7640 Define own outline-regex to easy view file structure.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 717
diff changeset
  1058
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1430
8380f91bc913 Make possible to move through English word pronunciation with single forward-word.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1429
diff changeset
  1059
(message "input method")
0
aef1d0017234 Initial commit.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
diff changeset
  1060
1115
f67ef4132301 mouse-yank-at-point
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1114
diff changeset
  1061
(setq mouse-yank-at-point t)
f67ef4132301 mouse-yank-at-point
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1114
diff changeset
  1062
1080
8fad37c1d42f Refactoring input method selection.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1076
diff changeset
  1063
;; (pc-bindings-mode) ; I define own keybinding...
8fad37c1d42f Refactoring input method selection.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1076
diff changeset
  1064
402
b1a9c8e0c22e As cyrillic-jcuken input metod fixed
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 398
diff changeset
  1065
;; cyrillic-jis-russian  for 567 is :,.
b1a9c8e0c22e As cyrillic-jcuken input metod fixed
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 398
diff changeset
  1066
;; cyrillic-jcuken  for SHIFT 567 is :,.
b1a9c8e0c22e As cyrillic-jcuken input metod fixed
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 398
diff changeset
  1067
;; russian-computer for SHIFT 567 is %^&
1378
892deca62b56 Remove support for Emacs 21.x.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1377
diff changeset
  1068
(setq default-input-method 'russian-computer)
0
aef1d0017234 Initial commit.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
diff changeset
  1069
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  1070
(defun my-toggle-input-method (&optional arg)
1081
37ddc669849c Enhance selection of input methods by using numeric prefix for modeless
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1080
diff changeset
  1071
  (interactive "P")
37ddc669849c Enhance selection of input methods by using numeric prefix for modeless
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1080
diff changeset
  1072
  (if (numberp arg)
37ddc669849c Enhance selection of input methods by using numeric prefix for modeless
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1080
diff changeset
  1073
      (cond
37ddc669849c Enhance selection of input methods by using numeric prefix for modeless
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1080
diff changeset
  1074
       ((eq arg 1)
37ddc669849c Enhance selection of input methods by using numeric prefix for modeless
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1080
diff changeset
  1075
        (activate-input-method nil))
37ddc669849c Enhance selection of input methods by using numeric prefix for modeless
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1080
diff changeset
  1076
       ((eq arg 2)
1378
892deca62b56 Remove support for Emacs 21.x.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1377
diff changeset
  1077
        (activate-input-method 'russian-computer))
1081
37ddc669849c Enhance selection of input methods by using numeric prefix for modeless
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1080
diff changeset
  1078
       ((eq arg 3)
1378
892deca62b56 Remove support for Emacs 21.x.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1377
diff changeset
  1079
        (activate-input-method 'ukrainian-computer))
1081
37ddc669849c Enhance selection of input methods by using numeric prefix for modeless
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1080
diff changeset
  1080
       ((eq arg 4)
1349
bb5f3306e2a8 Swap ipa and greek index.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1348
diff changeset
  1081
        (activate-input-method 'greek))
1317
0097c1ddafef Add quick access to TeX input method.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1316
diff changeset
  1082
       ((eq arg 5)
1378
892deca62b56 Remove support for Emacs 21.x.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1377
diff changeset
  1083
        (activate-input-method 'ipa-x-sampa))
1348
93bcfa82cb34 Add Greek input method.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1347
diff changeset
  1084
       ((eq arg 6)
1553
760837fd2f5e Added switch to rfc1345 input method.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1552
diff changeset
  1085
        (activate-input-method 'TeX))
760837fd2f5e Added switch to rfc1345 input method.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1552
diff changeset
  1086
       ((eq arg 7)
760837fd2f5e Added switch to rfc1345 input method.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1552
diff changeset
  1087
        (activate-input-method 'rfc1345)) )
1081
37ddc669849c Enhance selection of input methods by using numeric prefix for modeless
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1080
diff changeset
  1088
    (toggle-input-method arg)) )
37ddc669849c Enhance selection of input methods by using numeric prefix for modeless
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1080
diff changeset
  1089
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  1090
(global-set-key (kbd "C-\\") 'my-toggle-input-method)
1081
37ddc669849c Enhance selection of input methods by using numeric prefix for modeless
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1080
diff changeset
  1091
1430
8380f91bc913 Make possible to move through English word pronunciation with single forward-word.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1429
diff changeset
  1092
;; I found this more quick method to allow `forward-word' across pronunciation
8380f91bc913 Make possible to move through English word pronunciation with single forward-word.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1429
diff changeset
  1093
;; as a whole word.
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  1094
(defconst my-ipa-chars (list ?ˈ ?ˌ ?ː ?ǁ ?ʲ ?θ ?ð ?ŋ ?ɡ ?ʒ ?ʃ ?ʧ ?ə ?ɜ ?ɛ ?ʌ ?ɒ ?ɔ ?ɑ ?æ ?ʊ ?ɪ))
1439
6fc6ce787711 Port to Emacs 22.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1438
diff changeset
  1095
(when (boundp 'char-script-table)       ; Absent in Emacs 22.
6fc6ce787711 Port to Emacs 22.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1438
diff changeset
  1096
  (mapc (lambda (ch)
6fc6ce787711 Port to Emacs 22.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1438
diff changeset
  1097
          (aset char-script-table ch 'latin)
6fc6ce787711 Port to Emacs 22.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1438
diff changeset
  1098
          (modify-syntax-entry ch "w"))
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  1099
        my-ipa-chars))
1430
8380f91bc913 Make possible to move through English word pronunciation with single forward-word.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1429
diff changeset
  1100
;; Another option is to invent new category:
8380f91bc913 Make possible to move through English word pronunciation with single forward-word.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1429
diff changeset
  1101
;;
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  1102
;; (defconst my-ipa-chars (list ?ˈ ?ˌ ?ː ?ǁ ?ʲ ?θ ?ð ?ŋ ?ɡ ?ʒ ?ʃ ?ʧ ?ə ?ɜ ?ɛ ?ʌ ?ɒ ?ɔ ?ɑ ?æ ?ʊ ?ɪ))
1430
8380f91bc913 Make possible to move through English word pronunciation with single forward-word.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1429
diff changeset
  1103
;; (define-category ?p "Phonetic")
8380f91bc913 Make possible to move through English word pronunciation with single forward-word.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1429
diff changeset
  1104
;; (mapc (lambda (ch)
8380f91bc913 Make possible to move through English word pronunciation with single forward-word.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1429
diff changeset
  1105
;;         (cond
8380f91bc913 Make possible to move through English word pronunciation with single forward-word.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1429
diff changeset
  1106
;;          ((eq (aref char-script-table ch) 'phonetic)
8380f91bc913 Make possible to move through English word pronunciation with single forward-word.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1429
diff changeset
  1107
;;           (modify-category-entry ch ?p)
8380f91bc913 Make possible to move through English word pronunciation with single forward-word.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1429
diff changeset
  1108
;;           (modify-category-entry ch ?l nil t))
8380f91bc913 Make possible to move through English word pronunciation with single forward-word.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1429
diff changeset
  1109
;;          ((eq (aref char-script-table ch) 'latin)   ; (aref char-script-table ?ˌ) is 'latin but (char-category-set ?ˌ) is ".j"
8380f91bc913 Make possible to move through English word pronunciation with single forward-word.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1429
diff changeset
  1110
;;           (modify-category-entry ch ?l))))
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  1111
;;       my-ipa-chars)
1430
8380f91bc913 Make possible to move through English word pronunciation with single forward-word.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1429
diff changeset
  1112
;; (add-to-list 'word-combining-categories '(?p . ?l))
8380f91bc913 Make possible to move through English word pronunciation with single forward-word.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1429
diff changeset
  1113
;; (add-to-list 'word-combining-categories '(?l . ?p))
8380f91bc913 Make possible to move through English word pronunciation with single forward-word.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1429
diff changeset
  1114
718
19ab21ec7640 Define own outline-regex to easy view file structure.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 717
diff changeset
  1115
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
545
24992bae7599 Use 'message' instead of comment to easy debug where error occurred.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 544
diff changeset
  1116
(message "mouse")
0
aef1d0017234 Initial commit.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
diff changeset
  1117
aef1d0017234 Initial commit.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
diff changeset
  1118
;; Scroll Bar gets dragged by mouse butn 1
aef1d0017234 Initial commit.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
diff changeset
  1119
(global-set-key [vertical-scroll-bar down-mouse-1] 'scroll-bar-drag)
aef1d0017234 Initial commit.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
diff changeset
  1120
;; Paste at point NOT at cursor
151
0b6f4adf5096 Minor changes.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 150
diff changeset
  1121
(setq mouse-yank-at-point t)
439
a1910375f39e mouse-wheel-mode don't defined for Cygwin console Emacs 23.2.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 438
diff changeset
  1122
(when window-system
1402
b1a1c92a7f55 (eq window-system 'w32) ==> (eq system-type 'windows-nt) to correctly handle
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1397
diff changeset
  1123
  (mouse-wheel-mode 1))
0
aef1d0017234 Initial commit.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
diff changeset
  1124
718
19ab21ec7640 Define own outline-regex to easy view file structure.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 717
diff changeset
  1125
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
545
24992bae7599 Use 'message' instead of comment to easy debug where error occurred.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 544
diff changeset
  1126
(message "key binding, short-keys")
0
aef1d0017234 Initial commit.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
diff changeset
  1127
1291
9cef82dd4c45 my--smart-end-of-line like my--smart-beginning-of-line.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1290
diff changeset
  1128
(defun my--smart-beginning-of-line ()
9cef82dd4c45 my--smart-end-of-line like my--smart-beginning-of-line.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1290
diff changeset
  1129
  "Move point to `beginning-of-line'. If repeat command it cycle
1157
2036f6052212 my-smart-beginning-of-line
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1156
diff changeset
  1130
position between `back-to-indentation' and `beginning-of-line'."
1158
89f674f09ca3 If the string begins with ^' andshift-select-mode' is non-nil, Emacs first
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1157
diff changeset
  1131
  (interactive "^")
1291
9cef82dd4c45 my--smart-end-of-line like my--smart-beginning-of-line.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1290
diff changeset
  1132
  (if (and (eq last-command 'my--smart-beginning-of-line)
1157
2036f6052212 my-smart-beginning-of-line
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1156
diff changeset
  1133
           (= (line-beginning-position) (point)))
2036f6052212 my-smart-beginning-of-line
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1156
diff changeset
  1134
      (back-to-indentation)
2036f6052212 my-smart-beginning-of-line
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1156
diff changeset
  1135
    (beginning-of-line)))
2036f6052212 my-smart-beginning-of-line
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1156
diff changeset
  1136
1291
9cef82dd4c45 my--smart-end-of-line like my--smart-beginning-of-line.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1290
diff changeset
  1137
(defun my--smart-end-of-line ()
9cef82dd4c45 my--smart-end-of-line like my--smart-beginning-of-line.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1290
diff changeset
  1138
  "Move point to `end-of-line'. If repeat command it cycle
9cef82dd4c45 my--smart-end-of-line like my--smart-beginning-of-line.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1290
diff changeset
  1139
position between last non-whitespace and `end-of-line'."
9cef82dd4c45 my--smart-end-of-line like my--smart-beginning-of-line.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1290
diff changeset
  1140
  (interactive "^")
9cef82dd4c45 my--smart-end-of-line like my--smart-beginning-of-line.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1290
diff changeset
  1141
  (if (and (eq last-command 'my--smart-end-of-line)
9cef82dd4c45 my--smart-end-of-line like my--smart-beginning-of-line.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1290
diff changeset
  1142
           (= (line-end-position) (point)))
9cef82dd4c45 my--smart-end-of-line like my--smart-beginning-of-line.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1290
diff changeset
  1143
      (skip-syntax-backward " " (line-beginning-position))
9cef82dd4c45 my--smart-end-of-line like my--smart-beginning-of-line.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1290
diff changeset
  1144
    (end-of-line)))
9cef82dd4c45 my--smart-end-of-line like my--smart-beginning-of-line.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1290
diff changeset
  1145
9cef82dd4c45 my--smart-end-of-line like my--smart-beginning-of-line.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1290
diff changeset
  1146
(global-set-key [home]     'my--smart-beginning-of-line)
9cef82dd4c45 my--smart-end-of-line like my--smart-beginning-of-line.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1290
diff changeset
  1147
(global-set-key [end]      'my--smart-end-of-line)
1157
2036f6052212 my-smart-beginning-of-line
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1156
diff changeset
  1148
(global-set-key [C-home]   'beginning-of-buffer)
2036f6052212 my-smart-beginning-of-line
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1156
diff changeset
  1149
(global-set-key [C-end]    'end-of-buffer)
2036f6052212 my-smart-beginning-of-line
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1156
diff changeset
  1150
(global-set-key [C-delete] 'kill-word)
2036f6052212 my-smart-beginning-of-line
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1156
diff changeset
  1151
(global-set-key [delete]   'delete-char)
0
aef1d0017234 Initial commit.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
diff changeset
  1152
;; (global-set-key [backspace]  'backward-delete-char-untabify) ; not work properly in *info* mode
aef1d0017234 Initial commit.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
diff changeset
  1153
aef1d0017234 Initial commit.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
diff changeset
  1154
(global-set-key [f2]    'save-buffer)
134
a071b60e4339 Set key binding to rename buffer.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 125
diff changeset
  1155
(global-set-key [S-f6]  'rename-buffer)
0
aef1d0017234 Initial commit.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
diff changeset
  1156
(global-set-key [M-f4]  'save-buffers-kill-emacs)
18
91626ebef652 Added hotkey for wrap long line.
Oleksander Gavenko <gavenko_a@3g.ua>
parents: 17
diff changeset
  1157
(global-set-key [f6]    'toggle-truncate-lines)
1019
cbc477acb47e Switch to other window by Super-TAB.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1018
diff changeset
  1158
(global-set-key [s-tab] 'other-window)
cbc477acb47e Switch to other window by Super-TAB.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1018
diff changeset
  1159
cbc477acb47e Switch to other window by Super-TAB.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1018
diff changeset
  1160
;; Disable suspend. It is ugly.
615
22cf0c9014d9 Replace '(if COND (progn BODY...))' by '(when COND BODY...)'. Remove
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 614
diff changeset
  1161
(when window-system
22cf0c9014d9 Replace '(if COND (progn BODY...))' by '(when COND BODY...)'. Remove
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 614
diff changeset
  1162
  (global-set-key (kbd "C-z") nil))
435
a34e8ddc9e12 Disable suspend by C-x C-z. It ugly.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 434
diff changeset
  1163
(global-set-key (kbd "C-x C-z") nil)
81
0ce6eaf6f26c Disable C-z, it ugly.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 80
diff changeset
  1164
0
aef1d0017234 Initial commit.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
diff changeset
  1165
;; (global-set-key [language-change] 'ignore)
aef1d0017234 Initial commit.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
diff changeset
  1166
718
19ab21ec7640 Define own outline-regex to easy view file structure.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 717
diff changeset
  1167
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
545
24992bae7599 Use 'message' instead of comment to easy debug where error occurred.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 544
diff changeset
  1168
(message "coding system, charset, locale, lang")
80
bfc8c3d03527 Correct code to remove warning in *Messages* when loading .emacs-my.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 79
diff changeset
  1169
53
0d8616eedf8b Reformat.
Oleksander Gavenko <gavenko_a@3g.ua>
parents: 52
diff changeset
  1170
;; Comment because prefer-coding-system will be ignored.
0d8616eedf8b Reformat.
Oleksander Gavenko <gavenko_a@3g.ua>
parents: 52
diff changeset
  1171
;; (setq-default coding-system-for-read  'cp1251-dos)
0d8616eedf8b Reformat.
Oleksander Gavenko <gavenko_a@3g.ua>
parents: 52
diff changeset
  1172
;; (setq-default coding-system-for-write 'cp1251-dos)
0
aef1d0017234 Initial commit.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
diff changeset
  1173
aef1d0017234 Initial commit.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
diff changeset
  1174
;; (setq locale-coding-system  'cp1251-dos)
583
a9e5bfad6dd5 Add note.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 582
diff changeset
  1175
;; (set-language-environment 'UTF-8)
0
aef1d0017234 Initial commit.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
diff changeset
  1176
;; (set-terminal-coding-system 'cp1251)
aef1d0017234 Initial commit.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
diff changeset
  1177
;; (set-keyboard-coding-system 'cp1251)
aef1d0017234 Initial commit.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
diff changeset
  1178
4
46543c097be0 Transfer changer from .eamcs_unix, add case for w32 or other system.
Oleksander Gavenko <gavenko_a@3g.ua>
parents: 3
diff changeset
  1179
(modify-coding-system-alist 'file "\\.el" 'iso-2022-7bit)
192
8b4811c64ec4 Correct copy/paste coding in windows.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 191
diff changeset
  1180
(cond
106
0591d06cf752 Решил проблему copy/paste в X. Решил проблему поиска в UTF-8 буфере.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 102
diff changeset
  1181
 ((equal window-system 'w32)          ; also (string-equal system-type "windows-nt")
839
27fac2557f13 Don't set 'selection-coding-system' for Windows. This is no longer needed.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 835
diff changeset
  1182
  ;; (set-selection-coding-system 'utf-16-le-dos)
1532
e6ea63ccab39 Modern Windows can work with Unicode. No need for codepage.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1531
diff changeset
  1183
  ;; (setq-default buffer-file-coding-system 'cp1251)
e6ea63ccab39 Modern Windows can work with Unicode. No need for codepage.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1531
diff changeset
  1184
  ;; (setq default-file-name-coding-system 'cp1251)
e6ea63ccab39 Modern Windows can work with Unicode. No need for codepage.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1531
diff changeset
  1185
  ;; (setq default-process-coding-system '(cp1251 . cp1251))
1542
29783921b4f7 Use UTF-8 on Windows fpr processes.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1541
diff changeset
  1186
  (setq default-process-coding-system '(utf-8-dos . utf-8-unix))
615
22cf0c9014d9 Replace '(if COND (progn BODY...))' by '(when COND BODY...)'. Remove
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 614
diff changeset
  1187
  )
106
0591d06cf752 Решил проблему copy/paste в X. Решил проблему поиска в UTF-8 буфере.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 102
diff changeset
  1188
 ((equal window-system 'x)
615
22cf0c9014d9 Replace '(if COND (progn BODY...))' by '(when COND BODY...)'. Remove
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 614
diff changeset
  1189
  (prefer-coding-system 'utf-8-unix)
991
e8c74f4c5d9e Set 'selection-coding-system' to 'nil' to automatically select proper coding
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 990
diff changeset
  1190
  (setq selection-coding-system nil)
615
22cf0c9014d9 Replace '(if COND (progn BODY...))' by '(when COND BODY...)'. Remove
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 614
diff changeset
  1191
  (setq x-select-request-type '(UTF8_STRING COMPOUND_TEXT TEXT STRING))
22cf0c9014d9 Replace '(if COND (progn BODY...))' by '(when COND BODY...)'. Remove
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 614
diff changeset
  1192
  (modify-coding-system-alist 'process ".*" 'utf-8-unix)
22cf0c9014d9 Replace '(if COND (progn BODY...))' by '(when COND BODY...)'. Remove
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 614
diff changeset
  1193
  )
769
5ed69391dc95 Fix coding for Cygwin Emacs when LANG=ru_RU.cp1251.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 768
diff changeset
  1194
 ((eq system-type 'cygwin)
1196
fd26eef91bf6 Fix: if: Wrong type argument: stringp, nil.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1195
diff changeset
  1195
  (when (and (getenv "LANG") (string-match "1251\\'" (getenv "LANG")))
1532
e6ea63ccab39 Modern Windows can work with Unicode. No need for codepage.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1531
diff changeset
  1196
    ;; (prefer-coding-system 'cp1251-unix)
769
5ed69391dc95 Fix coding for Cygwin Emacs when LANG=ru_RU.cp1251.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 768
diff changeset
  1197
    (prefer-coding-system 'utf-8-unix)
1532
e6ea63ccab39 Modern Windows can work with Unicode. No need for codepage.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1531
diff changeset
  1198
    ;; (modify-coding-system-alist 'process ".*" 'cp1251-unix)
769
5ed69391dc95 Fix coding for Cygwin Emacs when LANG=ru_RU.cp1251.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 768
diff changeset
  1199
    )
5ed69391dc95 Fix coding for Cygwin Emacs when LANG=ru_RU.cp1251.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 768
diff changeset
  1200
  )
622
596406094fd1 Port to Mac OS X console Emacs 22.1.1.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 614
diff changeset
  1201
 ((eq system-type 'darwin)
623
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 621 622
diff changeset
  1202
  nil
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 621 622
diff changeset
  1203
  )
615
22cf0c9014d9 Replace '(if COND (progn BODY...))' by '(when COND BODY...)'. Remove
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 614
diff changeset
  1204
 )
0
aef1d0017234 Initial commit.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
diff changeset
  1205
718
19ab21ec7640 Define own outline-regex to easy view file structure.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 717
diff changeset
  1206
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1653
c9e9a3912a95 (setq ibuffer-expert t)
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1652
diff changeset
  1207
(message "ibuffer")
c9e9a3912a95 (setq ibuffer-expert t)
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1652
diff changeset
  1208
1719
89c448a9fdbd Docs: about buffer-menu vs ibuffer.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1718
diff changeset
  1209
;; There is `buffer-menu' but `ibuffer' is much better.
1653
c9e9a3912a95 (setq ibuffer-expert t)
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1652
diff changeset
  1210
(global-set-key "\C-x\C-b" 'ibuffer)
c9e9a3912a95 (setq ibuffer-expert t)
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1652
diff changeset
  1211
(global-set-key [s-insert] 'ibuffer)
c9e9a3912a95 (setq ibuffer-expert t)
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1652
diff changeset
  1212
c9e9a3912a95 (setq ibuffer-expert t)
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1652
diff changeset
  1213
(setq ibuffer-expert t)
c9e9a3912a95 (setq ibuffer-expert t)
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1652
diff changeset
  1214
(setq ibuffer-use-other-window nil)
c9e9a3912a95 (setq ibuffer-expert t)
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1652
diff changeset
  1215
(setq ibuffer-default-shrink-to-minimum-size nil)
c9e9a3912a95 (setq ibuffer-expert t)
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1652
diff changeset
  1216
(setq ibuffer-truncate-lines t)
c9e9a3912a95 (setq ibuffer-expert t)
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1652
diff changeset
  1217
(setq ibuffer-default-sorting-mode 'recency)
c9e9a3912a95 (setq ibuffer-expert t)
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1652
diff changeset
  1218
c9e9a3912a95 (setq ibuffer-expert t)
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1652
diff changeset
  1219
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1142
7906db469af0 Switch to ido from iswitchb. Use ido key binding instead of ffap-bindings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1141
diff changeset
  1220
(message "selecting/switching, creating/killing buffers, open file")
1555
1c42fc68bca9 Add recent files and bookmarks to ‘ivy-switch-buffer’.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1554
diff changeset
  1221
(message "ivy, ido, ffap")
1142
7906db469af0 Switch to ido from iswitchb. Use ido key binding instead of ffap-bindings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1141
diff changeset
  1222
1220
90e3a3721051 abbrev-file-name, pascal-mode
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1218
diff changeset
  1223
;; (add-hook 'find-file-hook #'make-frame-visible)
90e3a3721051 abbrev-file-name, pascal-mode
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1218
diff changeset
  1224
1200
a8fcda9c0aab Check if ido available.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1199
diff changeset
  1225
(require 'ffap)
1685
6a740def74e8 Fixed error 'eval-when is not defined' after switching to cl-lib.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1684
diff changeset
  1226
(cl-eval-when (compile) (require 'ido nil t))
1558
a7bb0608855b Avoid warning "assignment to free variable" for /ido-mode during compilation.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1557
diff changeset
  1227
1330
c0ac8ff63268 Add examples of ffap settings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1329
diff changeset
  1228
;; Ido makes appropriate binding.
c0ac8ff63268 Add examples of ffap settings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1329
diff changeset
  1229
;(ffap-bindings)
c0ac8ff63268 Add examples of ffap settings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1329
diff changeset
  1230
;; C-u C-x C-f finds the file at point
c0ac8ff63268 Add examples of ffap settings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1329
diff changeset
  1231
;(setq ffap-require-prefix t)
c0ac8ff63268 Add examples of ffap settings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1329
diff changeset
  1232
;; browse urls at point via w3m
c0ac8ff63268 Add examples of ffap settings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1329
diff changeset
  1233
;(setq ffap-url-fetcher 'w3m-browse-url)
1142
7906db469af0 Switch to ido from iswitchb. Use ido key binding instead of ffap-bindings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1141
diff changeset
  1234
1220
90e3a3721051 abbrev-file-name, pascal-mode
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1218
diff changeset
  1235
(setq find-file-existing-other-name t)
90e3a3721051 abbrev-file-name, pascal-mode
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1218
diff changeset
  1236
1555
1c42fc68bca9 Add recent files and bookmarks to ‘ivy-switch-buffer’.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1554
diff changeset
  1237
(setq ivy-use-virtual-buffers t)
1c42fc68bca9 Add recent files and bookmarks to ‘ivy-switch-buffer’.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1554
diff changeset
  1238
1142
7906db469af0 Switch to ido from iswitchb. Use ido key binding instead of ffap-bindings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1141
diff changeset
  1239
(setq ido-enable-flex-matching t)
7906db469af0 Switch to ido from iswitchb. Use ido key binding instead of ffap-bindings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1141
diff changeset
  1240
7906db469af0 Switch to ido from iswitchb. Use ido key binding instead of ffap-bindings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1141
diff changeset
  1241
(setq ido-use-filename-at-point 'guess)
7906db469af0 Switch to ido from iswitchb. Use ido key binding instead of ffap-bindings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1141
diff changeset
  1242
(setq ido-use-url-at-point t)
1310
ca9bfec974ac Don't jump to unknown directory if file not found in current!
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1309
diff changeset
  1243
(setq ido-auto-merge-work-directories-length -1)
1142
7906db469af0 Switch to ido from iswitchb. Use ido key binding instead of ffap-bindings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1141
diff changeset
  1244
(setq ido-enable-tramp-completion t)
7906db469af0 Switch to ido from iswitchb. Use ido key binding instead of ffap-bindings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1141
diff changeset
  1245
(setq ido-use-virtual-buffers t)
1218
53eaec665fcf Increase ido limits.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1215
diff changeset
  1246
(setq ido-max-prospects 16)
53eaec665fcf Increase ido limits.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1215
diff changeset
  1247
(setq ido-max-work-directory-list 100)
1142
7906db469af0 Switch to ido from iswitchb. Use ido key binding instead of ffap-bindings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1141
diff changeset
  1248
7906db469af0 Switch to ido from iswitchb. Use ido key binding instead of ffap-bindings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1141
diff changeset
  1249
(setq ido-create-new-buffer 'always)
7906db469af0 Switch to ido from iswitchb. Use ido key binding instead of ffap-bindings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1141
diff changeset
  1250
7906db469af0 Switch to ido from iswitchb. Use ido key binding instead of ffap-bindings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1141
diff changeset
  1251
(setq ido-file-extensions-order '(".java" ".c" ".py" ".xml" ".txt" ".el" ".ini" ".cfg" ".cnf" ".log"))
7906db469af0 Switch to ido from iswitchb. Use ido key binding instead of ffap-bindings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1141
diff changeset
  1252
1229
52e0f3e3ca85 Use hippie-expand.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1227
diff changeset
  1253
(setq ido-ignore-buffers '("\\` "))
52e0f3e3ca85 Use hippie-expand.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1227
diff changeset
  1254
(setq ido-ignore-extensions nil)        ; From completion-ignored-extensions.
1191
2671cf871a38 ido-case-fold
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1190
diff changeset
  1255
(setq ido-case-fold t)
1142
7906db469af0 Switch to ido from iswitchb. Use ido key binding instead of ffap-bindings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1141
diff changeset
  1256
;; ido-ignore-directories
7906db469af0 Switch to ido from iswitchb. Use ido key binding instead of ffap-bindings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1141
diff changeset
  1257
;; ido-ignore-files
7906db469af0 Switch to ido from iswitchb. Use ido key binding instead of ffap-bindings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1141
diff changeset
  1258
1201
c300c3c9e973 Add key bindings for finding file that work in M-x term.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1200
diff changeset
  1259
(unless
c300c3c9e973 Add key bindings for finding file that work in M-x term.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1200
diff changeset
  1260
    (ignore-errors
c300c3c9e973 Add key bindings for finding file that work in M-x term.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1200
diff changeset
  1261
      (require 'ido)
1438
57d7478f265d Document ido-everywhere synonym.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1437
diff changeset
  1262
      (ido-mode 1)                      ; (ido-everywhere 'both)
1201
c300c3c9e973 Add key bindings for finding file that work in M-x term.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1200
diff changeset
  1263
      (global-set-key [?\s-d] #'ido-dired)
c300c3c9e973 Add key bindings for finding file that work in M-x term.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1200
diff changeset
  1264
      (global-set-key [?\s-f] #'ido-find-file)
c300c3c9e973 Add key bindings for finding file that work in M-x term.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1200
diff changeset
  1265
      t)
c300c3c9e973 Add key bindings for finding file that work in M-x term.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1200
diff changeset
  1266
  (global-set-key [?\s-d] #'dired)
c300c3c9e973 Add key bindings for finding file that work in M-x term.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1200
diff changeset
  1267
  (global-set-key [?\s-f] #'find-file))
953
3ad3abeec5f9 Move related code to common place.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 952
diff changeset
  1268
1628
6630261d42cd Fixe: fboundp cannot detect outoloaded functions, replay on package-installed-p instead.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1627
diff changeset
  1269
(when (package-installed-p 'ivy)
1626
f73d74be1316 Use ivy-switch-buffer if available.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1622
diff changeset
  1270
  (global-set-key (kbd "C-x b") #'ivy-switch-buffer))
f73d74be1316 Use ivy-switch-buffer if available.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1622
diff changeset
  1271
956
661dc3bfc076 Remove key bindings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 955
diff changeset
  1272
(global-set-key [?\C-x right] 'next-buffer)
661dc3bfc076 Remove key bindings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 955
diff changeset
  1273
(global-set-key [?\C-x left]  'previous-buffer)
1186
ff1145717171 Use Win key to make buffer switching faster and avoid key binding intersection with term-mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1184
diff changeset
  1274
(global-set-key [s-right] 'next-buffer)
ff1145717171 Use Win key to make buffer switching faster and avoid key binding intersection with term-mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1184
diff changeset
  1275
(global-set-key [s-left]  'previous-buffer)
1187
81ffdea5bfb1 Use Win key to make buffer deleting and switching faster and avoid key binding intersection with term-mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1186
diff changeset
  1276
(defun my--kill-this-buffer-maybe-switch-to-next ()
1135
b6dcbd747884 Kill current buffer. Switch to next buffer if previous command was switching
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1133
diff changeset
  1277
  "Kill current buffer. Switch to next buffer if previous command
b6dcbd747884 Kill current buffer. Switch to next buffer if previous command was switching
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1133
diff changeset
  1278
was switching to next buffer or this command itself allowing
b6dcbd747884 Kill current buffer. Switch to next buffer if previous command was switching
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1133
diff changeset
  1279
sequential closing of uninteresting buffers."
b6dcbd747884 Kill current buffer. Switch to next buffer if previous command was switching
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1133
diff changeset
  1280
  (interactive)
b6dcbd747884 Kill current buffer. Switch to next buffer if previous command was switching
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1133
diff changeset
  1281
  (let ( (cmd last-command) )
1182
616154dadd38 Replace kill-this-buffer with core functions.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1181
diff changeset
  1282
    (kill-buffer (current-buffer))
1135
b6dcbd747884 Kill current buffer. Switch to next buffer if previous command was switching
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1133
diff changeset
  1283
    (when (memq cmd (list 'next-buffer this-command))
b6dcbd747884 Kill current buffer. Switch to next buffer if previous command was switching
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1133
diff changeset
  1284
      (next-buffer))))
1187
81ffdea5bfb1 Use Win key to make buffer deleting and switching faster and avoid key binding intersection with term-mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1186
diff changeset
  1285
(global-set-key [?\C-x deletechar] 'my--kill-this-buffer-maybe-switch-to-next)
81ffdea5bfb1 Use Win key to make buffer deleting and switching faster and avoid key binding intersection with term-mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1186
diff changeset
  1286
(global-set-key [s-delete] 'my--kill-this-buffer-maybe-switch-to-next)
1186
ff1145717171 Use Win key to make buffer switching faster and avoid key binding intersection with term-mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1184
diff changeset
  1287
(defun my--backward-other-window ()
ff1145717171 Use Win key to make buffer switching faster and avoid key binding intersection with term-mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1184
diff changeset
  1288
  (interactive)
ff1145717171 Use Win key to make buffer switching faster and avoid key binding intersection with term-mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1184
diff changeset
  1289
  (other-window -1))
ff1145717171 Use Win key to make buffer switching faster and avoid key binding intersection with term-mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1184
diff changeset
  1290
(global-set-key [?\C-x up] #'my--backward-other-window)
ff1145717171 Use Win key to make buffer switching faster and avoid key binding intersection with term-mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1184
diff changeset
  1291
(global-set-key [?\C-x down] #'other-window)
ff1145717171 Use Win key to make buffer switching faster and avoid key binding intersection with term-mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1184
diff changeset
  1292
(global-set-key [s-up] #'my--backward-other-window)
ff1145717171 Use Win key to make buffer switching faster and avoid key binding intersection with term-mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1184
diff changeset
  1293
(global-set-key [s-down] #'other-window)
1544
2e84ca7e2578 Make function silent if file is modified.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1543
diff changeset
  1294
1536
5854fc2dbece Added key binding to erase buffer conveniently.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1534
diff changeset
  1295
(defun my--erase-buffer ()
5854fc2dbece Added key binding to erase buffer conveniently.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1534
diff changeset
  1296
  (interactive)
1544
2e84ca7e2578 Make function silent if file is modified.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1543
diff changeset
  1297
  (advice-add #'ask-user-about-supersession-threat :override #'identity)
1752
c3345b0bcad0 so-long mode makes buffer read only. To erase the content we need to make buffer editable.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1751
diff changeset
  1298
  (setq buffer-read-only nil)
1536
5854fc2dbece Added key binding to erase buffer conveniently.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1534
diff changeset
  1299
  (erase-buffer)
5854fc2dbece Added key binding to erase buffer conveniently.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1534
diff changeset
  1300
  (when (buffer-file-name)
1544
2e84ca7e2578 Make function silent if file is modified.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1543
diff changeset
  1301
    (basic-save-buffer-1)
2e84ca7e2578 Make function silent if file is modified.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1543
diff changeset
  1302
    (revert-buffer))
2e84ca7e2578 Make function silent if file is modified.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1543
diff changeset
  1303
  (advice-remove #'ask-user-about-supersession-threat #'identity))
1536
5854fc2dbece Added key binding to erase buffer conveniently.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1534
diff changeset
  1304
(global-set-key [s-backspace] #'my--erase-buffer)
956
661dc3bfc076 Remove key bindings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 955
diff changeset
  1305
953
3ad3abeec5f9 Move related code to common place.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 952
diff changeset
  1306
(require 'uniquify)
3ad3abeec5f9 Move related code to common place.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 952
diff changeset
  1307
(setq uniquify-buffer-name-style 'post-forward)
3ad3abeec5f9 Move related code to common place.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 952
diff changeset
  1308
(setq uniquify-separator "|")
3ad3abeec5f9 Move related code to common place.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 952
diff changeset
  1309
(setq uniquify-after-kill-buffer-p t)
1310
ca9bfec974ac Don't jump to unknown directory if file not found in current!
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1309
diff changeset
  1310
(setq uniquify-strip-common-suffix t)
953
3ad3abeec5f9 Move related code to common place.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 952
diff changeset
  1311
3ad3abeec5f9 Move related code to common place.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 952
diff changeset
  1312
(setq read-buffer-completion-ignore-case t)
1127
dec4b1d47f61 Remove useless comment.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1126
diff changeset
  1313
(setq read-file-name-completion-ignore-case t)
953
3ad3abeec5f9 Move related code to common place.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 952
diff changeset
  1314
1445
b1f7af188fa2 icomplete mostly as powerful as smex. That's why I removed external dependency.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1444
diff changeset
  1315
(unless (featurep 'smex)
1444
d91ea2220a52 Give a try to smex.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1443
diff changeset
  1316
  (require 'icomplete)
d91ea2220a52 Give a try to smex.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1443
diff changeset
  1317
  (icomplete-mode 1))
1025
3d524b2cbbc1 Use icomplete for all completion-tables.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1024
diff changeset
  1318
(setq icomplete-with-completion-tables t)
953
3ad3abeec5f9 Move related code to common place.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 952
diff changeset
  1319
1695
ffde995a5923 Added note about winner-mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1694
diff changeset
  1320
;; It remembers stack of windows (not buffers) configurations and allows navigate with C-c LEFT / RIGHT.
ffde995a5923 Added note about winner-mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1694
diff changeset
  1321
;; I don't find it useful as I always work only with 1 or 2 windows opened.
ffde995a5923 Added note about winner-mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1694
diff changeset
  1322
;; (winner-mode 1)
ffde995a5923 Added note about winner-mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1694
diff changeset
  1323
1306
b78bf2c141ab Use consistent style for internal names.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1305
diff changeset
  1324
(defun my--large-file-p ()
1207
c658f0d30525 Fixes performance issues in Emacs for large files.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1206
diff changeset
  1325
  "If buffer too large and my cause performance issue."
c658f0d30525 Fixes performance issues in Emacs for large files.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1206
diff changeset
  1326
  (< large-file-warning-threshold (buffer-size)))
c658f0d30525 Fixes performance issues in Emacs for large files.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1206
diff changeset
  1327
1607
dd180a2be151 Improved handling of long lines. Added docs.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1606
diff changeset
  1328
;; http://git.savannah.nongnu.org/cgit/so-long.git/tree/so-long.el is part of Emacs 27.1
dd180a2be151 Improved handling of long lines. Added docs.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1606
diff changeset
  1329
;; https://emacs.stackexchange.com/questions/598/how-do-i-prevent-extremely-long-lines-making-emacs-slow
dd180a2be151 Improved handling of long lines. Added docs.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1606
diff changeset
  1330
;; (make-variable-buffer-local 'mode-line-format)
dd180a2be151 Improved handling of long lines. Added docs.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1606
diff changeset
  1331
;; (setq mode-line-format (delq 'mode-line-position 'mode-line-format))
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  1332
(define-derived-mode my-large-file-mode fundamental-mode "LargeFile"
1207
c658f0d30525 Fixes performance issues in Emacs for large files.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1206
diff changeset
  1333
  "Fixes performance issues in Emacs for large files."
c658f0d30525 Fixes performance issues in Emacs for large files.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1206
diff changeset
  1334
  ;; (setq buffer-read-only t)
c658f0d30525 Fixes performance issues in Emacs for large files.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1206
diff changeset
  1335
  (setq bidi-display-reordering nil)
1607
dd180a2be151 Improved handling of long lines. Added docs.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1606
diff changeset
  1336
  (setq bidi-paragraph-direction 'left-to-right)
dd180a2be151 Improved handling of long lines. Added docs.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1606
diff changeset
  1337
  (font-lock-mode -1)
1207
c658f0d30525 Fixes performance issues in Emacs for large files.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1206
diff changeset
  1338
  (jit-lock-mode nil)
c658f0d30525 Fixes performance issues in Emacs for large files.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1206
diff changeset
  1339
  (buffer-disable-undo)
1656
0445e8ee4912 Fixed: show-paren-mode was disabled by large files because is it global mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1655
diff changeset
  1340
  (setq-local show-paren-mode nil)
1607
dd180a2be151 Improved handling of long lines. Added docs.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1606
diff changeset
  1341
  (auto-revert-tail-mode -1)
1373
74a192647349 Fix: Warning: `make-variable-buffer-local' not called at toplevel.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1372
diff changeset
  1342
  (set (make-local-variable 'global-hl-line-mode) nil)
74a192647349 Fix: Warning: `make-variable-buffer-local' not called at toplevel.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1372
diff changeset
  1343
  (set (make-local-variable 'line-number-mode) nil)
1607
dd180a2be151 Improved handling of long lines. Added docs.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1606
diff changeset
  1344
  (set (make-local-variable 'column-number-mode) nil)
dd180a2be151 Improved handling of long lines. Added docs.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1606
diff changeset
  1345
  (size-indication-mode -1))
1207
c658f0d30525 Fixes performance issues in Emacs for large files.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1206
diff changeset
  1346
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  1347
(add-to-list 'magic-mode-alist (cons #'my--large-file-p #'my-large-file-mode))
1207
c658f0d30525 Fixes performance issues in Emacs for large files.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1206
diff changeset
  1348
953
3ad3abeec5f9 Move related code to common place.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 952
diff changeset
  1349
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1725
ce379e248565 Added binding for project-find-file.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1724
diff changeset
  1350
(message "project")
ce379e248565 Added binding for project-find-file.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1724
diff changeset
  1351
ce379e248565 Added binding for project-find-file.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1724
diff changeset
  1352
(global-set-key (kbd "s-s") #'project-find-file)
1726
ffd1272d96dc Defined key bindings to some project search/replace functions.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1725
diff changeset
  1353
(global-set-key (kbd "<f7>") #'project-find-regexp)
ffd1272d96dc Defined key bindings to some project search/replace functions.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1725
diff changeset
  1354
ffd1272d96dc Defined key bindings to some project search/replace functions.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1725
diff changeset
  1355
(global-set-key (kbd "<f3>") #'fileloop-continue)
ffd1272d96dc Defined key bindings to some project search/replace functions.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1725
diff changeset
  1356
(global-set-key (kbd "S-<f3>") #'project-search)
ffd1272d96dc Defined key bindings to some project search/replace functions.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1725
diff changeset
  1357
(global-set-key (kbd "C-<f3>") #'project-query-replace-regexp)
1725
ce379e248565 Added binding for project-find-file.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1724
diff changeset
  1358
ce379e248565 Added binding for project-find-file.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1724
diff changeset
  1359
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1425
f4aad8cbd103 Use shell glob instead regex for helm-locate.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1424
diff changeset
  1360
(message "helm")
f4aad8cbd103 Use shell glob instead regex for helm-locate.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1424
diff changeset
  1361
1685
6a740def74e8 Fixed error 'eval-when is not defined' after switching to cl-lib.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1684
diff changeset
  1362
(cl-eval-when (compile)
1428
75b892343aee Fix: Warning: assignment to free variable `helm-locate-command'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1427
diff changeset
  1363
  (require 'helm-locate nil t))
75b892343aee Fix: Warning: assignment to free variable `helm-locate-command'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1427
diff changeset
  1364
1425
f4aad8cbd103 Use shell glob instead regex for helm-locate.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1424
diff changeset
  1365
(setq helm-locate-command "locate %s -e %s")
f4aad8cbd103 Use shell glob instead regex for helm-locate.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1424
diff changeset
  1366
f4aad8cbd103 Use shell glob instead regex for helm-locate.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1424
diff changeset
  1367
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1455
d1849bd33ed5 company-dabbrev-downcase.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1454
diff changeset
  1368
(message "company")
d1849bd33ed5 company-dabbrev-downcase.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1454
diff changeset
  1369
1465
9def370d67f4 Align annotations to right.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1464
diff changeset
  1370
(setq company-tooltip-align-annotations t)
9def370d67f4 Align annotations to right.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1464
diff changeset
  1371
1456
d8a8d3b3ac48 company-dabbrev-other-buffers
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1455
diff changeset
  1372
(setq company-dabbrev-other-buffers 'all) ; or `t' or `nil'
d8a8d3b3ac48 company-dabbrev-other-buffers
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1455
diff changeset
  1373
;; (setq company-dabbrev-time-limit 0.1)
1455
d1849bd33ed5 company-dabbrev-downcase.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1454
diff changeset
  1374
(setq company-dabbrev-downcase nil)
1475
0cadf9373539 Avoid duplication in company prompt because of case.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1474
diff changeset
  1375
(setq company-dabbrev-ignore-case nil)
1455
d1849bd33ed5 company-dabbrev-downcase.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1454
diff changeset
  1376
1456
d8a8d3b3ac48 company-dabbrev-other-buffers
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1455
diff changeset
  1377
;; (setq company-backends (delete 'company-dabbrev company-backends))
d8a8d3b3ac48 company-dabbrev-other-buffers
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1455
diff changeset
  1378
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  1379
(defun my-company-filter-out-numbers (lst)
1457
25fdf2cd36de Filter out completion started with numbers from company-mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1456
diff changeset
  1380
  (cl-remove-if (lambda (str) (string-match-p "^[0-9]" str)) lst))
25fdf2cd36de Filter out completion started with numbers from company-mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1456
diff changeset
  1381
25fdf2cd36de Filter out completion started with numbers from company-mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1456
diff changeset
  1382
(when (featurep 'company)
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  1383
  (add-hook 'company-transformers #'my-company-filter-out-numbers))
1456
d8a8d3b3ac48 company-dabbrev-other-buffers
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1455
diff changeset
  1384
1463
4c92e9fc2efd Add company completion for executable in PATH. Enable company for Makefile and progmodes.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1462
diff changeset
  1385
(defun company-executable (command &optional arg &rest ignored)
4c92e9fc2efd Add company completion for executable in PATH. Enable company for Makefile and progmodes.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1462
diff changeset
  1386
  "Company completion for executable in PATH."
4c92e9fc2efd Add company completion for executable in PATH. Enable company for Makefile and progmodes.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1462
diff changeset
  1387
  (interactive (list 'interactive))
4c92e9fc2efd Add company completion for executable in PATH. Enable company for Makefile and progmodes.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1462
diff changeset
  1388
  (cl-case command
4c92e9fc2efd Add company completion for executable in PATH. Enable company for Makefile and progmodes.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1462
diff changeset
  1389
    (interactive (company-begin-backend 'company-executable))
4c92e9fc2efd Add company completion for executable in PATH. Enable company for Makefile and progmodes.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1462
diff changeset
  1390
    (prefix (thing-at-point 'filename))
1464
bc41ca628f69 Enable company-mode during Emacs startup. Echo full path to executable in echo-area.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1463
diff changeset
  1391
    (candidates (locate-file-completion-table exec-path exec-suffixes (thing-at-point 'filename) 'identity t))
bc41ca628f69 Enable company-mode during Emacs startup. Echo full path to executable in echo-area.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1463
diff changeset
  1392
    ;; (annotation (concat " " (locate-file arg exec-path exec-suffixes)))
bc41ca628f69 Enable company-mode during Emacs startup. Echo full path to executable in echo-area.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1463
diff changeset
  1393
    (meta (concat "Full path: " (locate-file arg exec-path exec-suffixes)))))
1463
4c92e9fc2efd Add company completion for executable in PATH. Enable company for Makefile and progmodes.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1462
diff changeset
  1394
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  1395
(defun my-company-text-setup ()
1463
4c92e9fc2efd Add company completion for executable in PATH. Enable company for Makefile and progmodes.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1462
diff changeset
  1396
  (setq-local company-backends '((company-dabbrev company-files)))
4c92e9fc2efd Add company completion for executable in PATH. Enable company for Makefile and progmodes.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1462
diff changeset
  1397
  (company-mode 1))
4c92e9fc2efd Add company completion for executable in PATH. Enable company for Makefile and progmodes.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1462
diff changeset
  1398
1455
d1849bd33ed5 company-dabbrev-downcase.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1454
diff changeset
  1399
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1288
6333a733046f Use new autobm mode!
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1282
diff changeset
  1400
(message "bookmark")
6333a733046f Use new autobm mode!
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1282
diff changeset
  1401
6333a733046f Use new autobm mode!
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1282
diff changeset
  1402
;; (require 'autobm)
6333a733046f Use new autobm mode!
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1282
diff changeset
  1403
(global-set-key (kbd "C-x r m") 'autobm)
6333a733046f Use new autobm mode!
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1282
diff changeset
  1404
1290
a3ec0437c4f1 set-mark-command-repeat-pop
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1289
diff changeset
  1405
(setq set-mark-command-repeat-pop 't)
a3ec0437c4f1 set-mark-command-repeat-pop
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1289
diff changeset
  1406
1288
6333a733046f Use new autobm mode!
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1282
diff changeset
  1407
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
953
3ad3abeec5f9 Move related code to common place.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 952
diff changeset
  1408
(message "completion")
3ad3abeec5f9 Move related code to common place.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 952
diff changeset
  1409
1409
d9d85b71260c suggest-key-bindings
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1407
diff changeset
  1410
(setq suggest-key-bindings t)
d9d85b71260c suggest-key-bindings
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1407
diff changeset
  1411
953
3ad3abeec5f9 Move related code to common place.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 952
diff changeset
  1412
;; I remove partial-completion-mode because it depricated in Emacs 24.0.
3ad3abeec5f9 Move related code to common place.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 952
diff changeset
  1413
;; Completion controled by 'completion-styles' variable.
3ad3abeec5f9 Move related code to common place.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 952
diff changeset
  1414
3ad3abeec5f9 Move related code to common place.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 952
diff changeset
  1415
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1142
7906db469af0 Switch to ido from iswitchb. Use ido key binding instead of ffap-bindings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1141
diff changeset
  1416
(message "dired")
598
9399292dae57 Enable 'ffap' mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 597
diff changeset
  1417
9399292dae57 Enable 'ffap' mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 597
diff changeset
  1418
(require 'dired)
241
78cbd4c692ee Added dired settings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 240
diff changeset
  1419
78cbd4c692ee Added dired settings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 240
diff changeset
  1420
(setq dired-dwim-target t)
78cbd4c692ee Added dired settings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 240
diff changeset
  1421
;; dangerous
78cbd4c692ee Added dired settings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 240
diff changeset
  1422
;; (setq
78cbd4c692ee Added dired settings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 240
diff changeset
  1423
;;  dired-recursive-copies 'top
78cbd4c692ee Added dired settings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 240
diff changeset
  1424
;;  dired-recursive-deletes 'top)
78cbd4c692ee Added dired settings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 240
diff changeset
  1425
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  1426
(defun my-dired-up-dir ()
463
adc3abb3c1fc Make Total Commmander like key binding for Enter and Backspace.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 462
diff changeset
  1427
  "'Reuse' buffer if enter to dir or open new buffer if enter to file."
adc3abb3c1fc Make Total Commmander like key binding for Enter and Backspace.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 462
diff changeset
  1428
  (interactive)
471
1d59b8a9d8a0 Fix bug: under Linux you can not go upper for '/dir' like dir (that lie
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 470
diff changeset
  1429
  ;; (dired-current-directory) always end with trailing '/' char.
1d59b8a9d8a0 Fix bug: under Linux you can not go upper for '/dir' like dir (that lie
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 470
diff changeset
  1430
  (let* ( (dir (dired-current-directory)) (i (- (length dir) 2)) upperdir )
463
adc3abb3c1fc Make Total Commmander like key binding for Enter and Backspace.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 462
diff changeset
  1431
    (while (and
adc3abb3c1fc Make Total Commmander like key binding for Enter and Backspace.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 462
diff changeset
  1432
            (>= i 0)
adc3abb3c1fc Make Total Commmander like key binding for Enter and Backspace.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 462
diff changeset
  1433
            (not (equal (aref dir i) ?/)) )
adc3abb3c1fc Make Total Commmander like key binding for Enter and Backspace.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 462
diff changeset
  1434
      (setq i (- i 1))
adc3abb3c1fc Make Total Commmander like key binding for Enter and Backspace.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 462
diff changeset
  1435
      )
471
1d59b8a9d8a0 Fix bug: under Linux you can not go upper for '/dir' like dir (that lie
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 470
diff changeset
  1436
    (setq upperdir (substring dir 0 (+ i 1)))
1d59b8a9d8a0 Fix bug: under Linux you can not go upper for '/dir' like dir (that lie
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 470
diff changeset
  1437
    (when (file-directory-p upperdir)
1d59b8a9d8a0 Fix bug: under Linux you can not go upper for '/dir' like dir (that lie
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 470
diff changeset
  1438
      (find-alternate-file upperdir)
463
adc3abb3c1fc Make Total Commmander like key binding for Enter and Backspace.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 462
diff changeset
  1439
      (dired-goto-file dir)
adc3abb3c1fc Make Total Commmander like key binding for Enter and Backspace.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 462
diff changeset
  1440
      )
adc3abb3c1fc Make Total Commmander like key binding for Enter and Backspace.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 462
diff changeset
  1441
    ))
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  1442
(define-key dired-mode-map (kbd "<backspace>") 'my-dired-up-dir)
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  1443
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  1444
(defun my-dired-enter-to-dir ()
463
adc3abb3c1fc Make Total Commmander like key binding for Enter and Backspace.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 462
diff changeset
  1445
  "'Reuse' buffer if enter to dir or open new buffer if enter to file."
adc3abb3c1fc Make Total Commmander like key binding for Enter and Backspace.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 462
diff changeset
  1446
  (interactive)
adc3abb3c1fc Make Total Commmander like key binding for Enter and Backspace.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 462
diff changeset
  1447
  (let ( (file (dired-get-file-for-visit)) )
adc3abb3c1fc Make Total Commmander like key binding for Enter and Backspace.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 462
diff changeset
  1448
    (if (file-directory-p file)
adc3abb3c1fc Make Total Commmander like key binding for Enter and Backspace.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 462
diff changeset
  1449
        (find-alternate-file file)
adc3abb3c1fc Make Total Commmander like key binding for Enter and Backspace.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 462
diff changeset
  1450
      (find-file file)
adc3abb3c1fc Make Total Commmander like key binding for Enter and Backspace.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 462
diff changeset
  1451
      )))
adc3abb3c1fc Make Total Commmander like key binding for Enter and Backspace.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 462
diff changeset
  1452
(define-key dired-mode-map (kbd "<return>")
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  1453
  'my-dired-enter-to-dir)
463
adc3abb3c1fc Make Total Commmander like key binding for Enter and Backspace.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 462
diff changeset
  1454
697
d19881accc91 Make behaviour same as in GUI for dired.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 695
diff changeset
  1455
;; Make behaviour same as in GUI.
d19881accc91 Make behaviour same as in GUI for dired.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 695
diff changeset
  1456
(unless window-system
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  1457
  (define-key dired-mode-map (kbd "DEL") 'my-dired-up-dir)
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  1458
  (define-key dired-mode-map (kbd "RET") 'my-dired-enter-to-dir))
697
d19881accc91 Make behaviour same as in GUI for dired.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 695
diff changeset
  1459
1378
892deca62b56 Remove support for Emacs 21.x.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1377
diff changeset
  1460
;; Enable 'a' command.
892deca62b56 Remove support for Emacs 21.x.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1377
diff changeset
  1461
(put 'dired-find-alternate-file 'disabled nil)
326
ded53e19d23a Enable 'a' command in dired.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 303
diff changeset
  1462
1308
9076a617eaae Mark .log.[0-9]+ files also as temporary.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1307
diff changeset
  1463
(defvar my--file-name-tmp-refex
9076a617eaae Mark .log.[0-9]+ files also as temporary.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1307
diff changeset
  1464
  (concat
9076a617eaae Mark .log.[0-9]+ files also as temporary.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1307
diff changeset
  1465
   "\\(?:^#.*#"
9076a617eaae Mark .log.[0-9]+ files also as temporary.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1307
diff changeset
  1466
   "\\|~"
9076a617eaae Mark .log.[0-9]+ files also as temporary.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1307
diff changeset
  1467
   "\\|\\." (regexp-opt '("base" "local" "orig" "other" "rej" "diff" "log" "stackdump" "pyc" "pyo"))
9076a617eaae Mark .log.[0-9]+ files also as temporary.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1307
diff changeset
  1468
   "\\|\\.log\\.[0-9]+"
9076a617eaae Mark .log.[0-9]+ files also as temporary.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1307
diff changeset
  1469
   "\\)\\'")
9076a617eaae Mark .log.[0-9]+ files also as temporary.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1307
diff changeset
  1470
  "Rule to detect temp/backup files.")
9076a617eaae Mark .log.[0-9]+ files also as temporary.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1307
diff changeset
  1471
9076a617eaae Mark .log.[0-9]+ files also as temporary.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1307
diff changeset
  1472
(defun my--file-name-tmp-p (file)
9076a617eaae Mark .log.[0-9]+ files also as temporary.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1307
diff changeset
  1473
  (string-match my--file-name-tmp-refex
9076a617eaae Mark .log.[0-9]+ files also as temporary.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1307
diff changeset
  1474
                (or (and (file-directory-p file) "") (file-name-nondirectory file))))
9076a617eaae Mark .log.[0-9]+ files also as temporary.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1307
diff changeset
  1475
9076a617eaae Mark .log.[0-9]+ files also as temporary.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1307
diff changeset
  1476
(defun my--dired-flag-tmp-files ()
469
a9adec4fbcbf Mark temporary files in dired by '`'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 468
diff changeset
  1477
  "Flag all temporary files for deletion."
a9adec4fbcbf Mark temporary files in dired by '`'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 468
diff changeset
  1478
  (interactive)
a9adec4fbcbf Mark temporary files in dired by '`'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 468
diff changeset
  1479
  (dired-mark-if
a9adec4fbcbf Mark temporary files in dired by '`'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 468
diff changeset
  1480
   (let ( (fn (dired-get-filename 'verbatim t)) )
1308
9076a617eaae Mark .log.[0-9]+ files also as temporary.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1307
diff changeset
  1481
     (and fn (my--file-name-tmp-p fn)) )
9076a617eaae Mark .log.[0-9]+ files also as temporary.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1307
diff changeset
  1482
   "backup file"))
9076a617eaae Mark .log.[0-9]+ files also as temporary.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1307
diff changeset
  1483
9076a617eaae Mark .log.[0-9]+ files also as temporary.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1307
diff changeset
  1484
(define-key dired-mode-map (kbd "`") 'my--dired-flag-tmp-files)
469
a9adec4fbcbf Mark temporary files in dired by '`'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 468
diff changeset
  1485
718
19ab21ec7640 Define own outline-regex to easy view file structure.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 717
diff changeset
  1486
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
545
24992bae7599 Use 'message' instead of comment to easy debug where error occurred.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 544
diff changeset
  1487
(message "ls-lisp, dired ls")
464
ae073d35f674 Always use 'ls-lisp' to emulate 'ls'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 463
diff changeset
  1488
1651
5924c33ab4ad Just require ls-lisp.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1650
diff changeset
  1489
(require 'ls-lisp)
1374
313e428cf77c Add (eval-when 'compile ...) to reduce number of Warning: reference to free variable.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1373
diff changeset
  1490
1652
e72b61b36451 Turned off ls-list for Cygwin to make Dired work for dirs with special files from WSL P9 FS.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1651
diff changeset
  1491
;; If non-nil - use 'insert-directory-program', means directory sorting and
e72b61b36451 Turned off ls-list for Cygwin to make Dired work for dirs with special files from WSL P9 FS.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1651
diff changeset
  1492
;; other options for `ls-lisp' do not have effect.
464
ae073d35f674 Always use 'ls-lisp' to emulate 'ls'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 463
diff changeset
  1493
(setq ls-lisp-use-insert-directory-program nil)
ae073d35f674 Always use 'ls-lisp' to emulate 'ls'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 463
diff changeset
  1494
(setq ls-lisp-ignore-case t)
ae073d35f674 Always use 'ls-lisp' to emulate 'ls'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 463
diff changeset
  1495
(setq ls-lisp-dirs-first t)
519
bdc19bd3820f Ignore owners and groups under Cygwin (mostly because
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 517
diff changeset
  1496
(if (memq system-type '(windows-nt cygwin))
464
ae073d35f674 Always use 'ls-lisp' to emulate 'ls'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 463
diff changeset
  1497
    (setq ls-lisp-verbosity nil)
1652
e72b61b36451 Turned off ls-list for Cygwin to make Dired work for dirs with special files from WSL P9 FS.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1651
diff changeset
  1498
  (setq ls-lisp-verbosity '(links uid gid)))
e72b61b36451 Turned off ls-list for Cygwin to make Dired work for dirs with special files from WSL P9 FS.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1651
diff changeset
  1499
e72b61b36451 Turned off ls-list for Cygwin to make Dired work for dirs with special files from WSL P9 FS.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1651
diff changeset
  1500
;; On Cygwin use actual "ls" executable. List implementation fails with:
e72b61b36451 Turned off ls-list for Cygwin to make Dired work for dirs with special files from WSL P9 FS.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1651
diff changeset
  1501
;;   ls-lisp-insert-directory: Getting attributes: Input/output error, lock
e72b61b36451 Turned off ls-list for Cygwin to make Dired work for dirs with special files from WSL P9 FS.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1651
diff changeset
  1502
;; for some files, making it impossible to see directory contend in Dired even
e72b61b36451 Turned off ls-list for Cygwin to make Dired work for dirs with special files from WSL P9 FS.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1651
diff changeset
  1503
;; if only some files are problmatic (accessing special files from WSL P9 file system).
e72b61b36451 Turned off ls-list for Cygwin to make Dired work for dirs with special files from WSL P9 FS.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1651
diff changeset
  1504
(when (eq system-type 'cygwin)
e72b61b36451 Turned off ls-list for Cygwin to make Dired work for dirs with special files from WSL P9 FS.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1651
diff changeset
  1505
  (setq my-ls-dir-switches '("-a" "-g" "--no-group" "--dired" "--group-directories-first"))
e72b61b36451 Turned off ls-list for Cygwin to make Dired work for dirs with special files from WSL P9 FS.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1651
diff changeset
  1506
  (setq ls-lisp-use-insert-directory-program t)
e72b61b36451 Turned off ls-list for Cygwin to make Dired work for dirs with special files from WSL P9 FS.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1651
diff changeset
  1507
  (setq list-directory-verbose-switches my-ls-dir-switches)
e72b61b36451 Turned off ls-list for Cygwin to make Dired work for dirs with special files from WSL P9 FS.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1651
diff changeset
  1508
  (setq dired-listing-switches (mapconcat #'identity my-ls-dir-switches " ")))
464
ae073d35f674 Always use 'ls-lisp' to emulate 'ls'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 463
diff changeset
  1509
;; Force use 'ls-lisp-format-time-list'.
ae073d35f674 Always use 'ls-lisp' to emulate 'ls'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 463
diff changeset
  1510
(setq ls-lisp-use-localized-time-format t)
ae073d35f674 Always use 'ls-lisp' to emulate 'ls'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 463
diff changeset
  1511
(setq ls-lisp-format-time-list
474
d1a3f9322927 Show seconds for file modification time in dired.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 473
diff changeset
  1512
      '("%Y-%m-%d %H:%M:%S"
d1a3f9322927 Show seconds for file modification time in dired.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 473
diff changeset
  1513
        "%Y-%m-%d %H:%M   "))
464
ae073d35f674 Always use 'ls-lisp' to emulate 'ls'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 463
diff changeset
  1514
1743
6d1553307bc6 Fix for dired in TRAMP: in Cygwin I rely on external ls by setting
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1742
diff changeset
  1515
;; Fix for dired in TRAMP: in Cygwin I rely on external ls by setting
6d1553307bc6 Fix for dired in TRAMP: in Cygwin I rely on external ls by setting
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1742
diff changeset
  1516
;; ls-lisp-use-insert-directory-program to "t" (so Emacs won't crash when
6d1553307bc6 Fix for dired in TRAMP: in Cygwin I rely on external ls by setting
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1742
diff changeset
  1517
;; access P9 mounted WSL paths). Seems some switches broke TRAMP in that case
6d1553307bc6 Fix for dired in TRAMP: in Cygwin I rely on external ls by setting
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1742
diff changeset
  1518
;; so disable external "ls".
1744
ef4030540143 Fix for dired in TRAMP.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1743
diff changeset
  1519
;; https://emacs.stackexchange.com/questions/63918/dired-doesn-t-work-on-old-remote-system
1742
50d48406e1ba Fix for dired in TRAMP: in Cygwin I rely on external ls by setting
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1739
diff changeset
  1520
(defun my-dired-remote-fix ()
50d48406e1ba Fix for dired in TRAMP: in Cygwin I rely on external ls by setting
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1739
diff changeset
  1521
  (when (file-remote-p dired-directory)
50d48406e1ba Fix for dired in TRAMP: in Cygwin I rely on external ls by setting
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1739
diff changeset
  1522
    (setq-local ls-lisp-use-insert-directory-program nil)
50d48406e1ba Fix for dired in TRAMP: in Cygwin I rely on external ls by setting
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1739
diff changeset
  1523
    (setq-local dired-actual-switches "-alhB")
50d48406e1ba Fix for dired in TRAMP: in Cygwin I rely on external ls by setting
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1739
diff changeset
  1524
    ))
50d48406e1ba Fix for dired in TRAMP: in Cygwin I rely on external ls by setting
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1739
diff changeset
  1525
(add-hook 'dired-mode-hook #'my-dired-remote-fix)
50d48406e1ba Fix for dired in TRAMP: in Cygwin I rely on external ls by setting
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1739
diff changeset
  1526
718
19ab21ec7640 Define own outline-regex to easy view file structure.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 717
diff changeset
  1527
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
545
24992bae7599 Use 'message' instead of comment to easy debug where error occurred.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 544
diff changeset
  1528
(message "compression, archive")
240
77b01720a256 Enable image if supported.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 239
diff changeset
  1529
0
aef1d0017234 Initial commit.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
diff changeset
  1530
(require 'jka-compr) ; Automatic decompression, hooks for tar-mode.
615
22cf0c9014d9 Replace '(if COND (progn BODY...))' by '(when COND BODY...)'. Remove
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 614
diff changeset
  1531
(when (fboundp 'auto-compression-mode)
22cf0c9014d9 Replace '(if COND (progn BODY...))' by '(when COND BODY...)'. Remove
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 614
diff changeset
  1532
  (auto-compression-mode 1))
0
aef1d0017234 Initial commit.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
diff changeset
  1533
296
e502c69ab80a Make header name like tags, separated by comma and ended on period.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 295
diff changeset
  1534
(modify-coding-system-alist 'file "\\.\\(war\\|ear\\|sar\\|egg\\)\\'" 'no-conversion)
e502c69ab80a Make header name like tags, separated by comma and ended on period.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 295
diff changeset
  1535
e502c69ab80a Make header name like tags, separated by comma and ended on period.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 295
diff changeset
  1536
(add-to-list 'auto-mode-alist '("\\.\\(war\\|ear\\|sar\\|egg\\)\\'" . archive-mode))
e502c69ab80a Make header name like tags, separated by comma and ended on period.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 295
diff changeset
  1537
718
19ab21ec7640 Define own outline-regex to easy view file structure.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 717
diff changeset
  1538
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
619
d5b22e5edae1 Exclude .svg image from supported image list, as Emacs doesn't come with SVG
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 618
diff changeset
  1539
(message "image, png, svg")
240
77b01720a256 Enable image if supported.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 239
diff changeset
  1540
77b01720a256 Enable image if supported.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 239
diff changeset
  1541
(when (fboundp 'auto-image-file-mode)
77b01720a256 Enable image if supported.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 239
diff changeset
  1542
  (auto-image-file-mode 1))
1254
19c7b3be9b3a Define special macro to avoid warning about "assignment to free variable".
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1253
diff changeset
  1543
(my--eval-after-load image-file
1278
8e47e801be9d Remove qouting from 'my--eval-after-load' macro usage because that code doesn't evaluated.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1277
diff changeset
  1544
  ;; Exclude .svg image from supported image list, as Emacs doesn't come
8e47e801be9d Remove qouting from 'my--eval-after-load' macro usage because that code doesn't evaluated.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1277
diff changeset
  1545
  ;; with SVG shared library.
8e47e801be9d Remove qouting from 'my--eval-after-load' macro usage because that code doesn't evaluated.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1277
diff changeset
  1546
  (setq image-file-name-extensions (remove "svg" image-file-name-extensions))
8e47e801be9d Remove qouting from 'my--eval-after-load' macro usage because that code doesn't evaluated.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1277
diff changeset
  1547
  ;; Re-initialize the image-file handler.
8e47e801be9d Remove qouting from 'my--eval-after-load' macro usage because that code doesn't evaluated.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1277
diff changeset
  1548
  (auto-image-file-mode t) )
240
77b01720a256 Enable image if supported.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 239
diff changeset
  1549
718
19ab21ec7640 Define own outline-regex to easy view file structure.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 717
diff changeset
  1550
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
716
a3f42d9dd281 my-percent-decode
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 715
diff changeset
  1551
(message "url")
a3f42d9dd281 my-percent-decode
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 715
diff changeset
  1552
a3f42d9dd281 my-percent-decode
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 715
diff changeset
  1553
;; http://tools.ietf.org/html/rfc3986
a3f42d9dd281 my-percent-decode
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 715
diff changeset
  1554
;; http://en.wikipedia.org/wiki/Percent-encoding
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  1555
(defun my-percent-decode (str)
716
a3f42d9dd281 my-percent-decode
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 715
diff changeset
  1556
  (decode-coding-string
a3f42d9dd281 my-percent-decode
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 715
diff changeset
  1557
   (let* ( (s (split-string str "%")) )
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  1558
     (my-fold
716
a3f42d9dd281 my-percent-decode
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 715
diff changeset
  1559
      'concat
a3f42d9dd281 my-percent-decode
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 715
diff changeset
  1560
      (car s)
a3f42d9dd281 my-percent-decode
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 715
diff changeset
  1561
      (mapcar
a3f42d9dd281 my-percent-decode
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 715
diff changeset
  1562
       (lambda (x)
a3f42d9dd281 my-percent-decode
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 715
diff changeset
  1563
         (concat (unibyte-string (string-to-number (substring x 0 2) 16)) (substring x 2)))
a3f42d9dd281 my-percent-decode
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 715
diff changeset
  1564
       (cdr s))
a3f42d9dd281 my-percent-decode
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 715
diff changeset
  1565
      )) 'utf-8))
a3f42d9dd281 my-percent-decode
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 715
diff changeset
  1566
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  1567
(defun my-percent-decode-region (beg end &optional arg)
717
b958f182d0d4 Convert percent encoded string to native.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 716
diff changeset
  1568
  "Convert percent encoded string to native."
1014
82ae06b5d7c4 Add function: "Encode string to percent encoding."
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1013
diff changeset
  1569
  (interactive "r\nP")
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  1570
  (let ( (result (my-percent-decode (buffer-substring-no-properties beg end))) )
717
b958f182d0d4 Convert percent encoded string to native.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 716
diff changeset
  1571
    (if (not arg)
1014
82ae06b5d7c4 Add function: "Encode string to percent encoding."
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1013
diff changeset
  1572
        result
82ae06b5d7c4 Add function: "Encode string to percent encoding."
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1013
diff changeset
  1573
      (delete-region beg end)
82ae06b5d7c4 Add function: "Encode string to percent encoding."
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1013
diff changeset
  1574
      (insert result))
82ae06b5d7c4 Add function: "Encode string to percent encoding."
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1013
diff changeset
  1575
    ) )
82ae06b5d7c4 Add function: "Encode string to percent encoding."
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1013
diff changeset
  1576
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  1577
(defun my-percent-encode (str)
1014
82ae06b5d7c4 Add function: "Encode string to percent encoding."
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1013
diff changeset
  1578
  (apply 'concat
82ae06b5d7c4 Add function: "Encode string to percent encoding."
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1013
diff changeset
  1579
         (mapcar
82ae06b5d7c4 Add function: "Encode string to percent encoding."
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1013
diff changeset
  1580
          (lambda (ch) (if (or (and (<= ?a ch) (>= ?z ch))
82ae06b5d7c4 Add function: "Encode string to percent encoding."
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1013
diff changeset
  1581
                          (and (<= ?A ch) (>= ?Z ch))
82ae06b5d7c4 Add function: "Encode string to percent encoding."
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1013
diff changeset
  1582
                          (memq ch '(?- ?_ ?. ?~)))
82ae06b5d7c4 Add function: "Encode string to percent encoding."
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1013
diff changeset
  1583
                      (char-to-string ch)
82ae06b5d7c4 Add function: "Encode string to percent encoding."
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1013
diff changeset
  1584
                    (format "%%%02X" ch)))
82ae06b5d7c4 Add function: "Encode string to percent encoding."
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1013
diff changeset
  1585
          (encode-coding-string str 'utf-8) )))
82ae06b5d7c4 Add function: "Encode string to percent encoding."
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1013
diff changeset
  1586
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  1587
(defun my-percent-encode-region (beg end &optional arg)
1014
82ae06b5d7c4 Add function: "Encode string to percent encoding."
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1013
diff changeset
  1588
  "Encode string to percent encoding."
82ae06b5d7c4 Add function: "Encode string to percent encoding."
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1013
diff changeset
  1589
  (interactive "r\nP")
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  1590
  (let ( (result (my-percent-encode (buffer-substring-no-properties beg end))) )
1014
82ae06b5d7c4 Add function: "Encode string to percent encoding."
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1013
diff changeset
  1591
    (if (not arg)
82ae06b5d7c4 Add function: "Encode string to percent encoding."
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1013
diff changeset
  1592
        result
717
b958f182d0d4 Convert percent encoded string to native.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 716
diff changeset
  1593
      (delete-region beg end)
b958f182d0d4 Convert percent encoded string to native.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 716
diff changeset
  1594
      (insert result))
b958f182d0d4 Convert percent encoded string to native.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 716
diff changeset
  1595
    ) )
b958f182d0d4 Convert percent encoded string to native.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 716
diff changeset
  1596
718
19ab21ec7640 Define own outline-regex to easy view file structure.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 717
diff changeset
  1597
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
545
24992bae7599 Use 'message' instead of comment to easy debug where error occurred.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 544
diff changeset
  1598
(message "browser")
98
5223817dad90 Use mozilla browser. Not tested for Windows.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 97
diff changeset
  1599
1647
e3ecb49df5d4 Prefer to open URLs in Firefox.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1646
diff changeset
  1600
(defun my--browse-url-cygwin-firefox (url &optional _new-window)
e3ecb49df5d4 Prefer to open URLs in Firefox.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1646
diff changeset
  1601
  (call-process "cygstart" nil nil nil "firefox" url))
e3ecb49df5d4 Prefer to open URLs in Firefox.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1646
diff changeset
  1602
138
90fda97adcb1 Setup browse-url func for linux and windows.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 120
diff changeset
  1603
(cond
1647
e3ecb49df5d4 Prefer to open URLs in Firefox.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1646
diff changeset
  1604
 ((eq system-type 'cygwin)
e3ecb49df5d4 Prefer to open URLs in Firefox.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1646
diff changeset
  1605
  (setq browse-url-browser-function 'my--browse-url-cygwin-firefox))
138
90fda97adcb1 Setup browse-url func for linux and windows.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 120
diff changeset
  1606
 ((equal window-system 'w32)
90fda97adcb1 Setup browse-url func for linux and windows.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 120
diff changeset
  1607
  (setq browse-url-browser-function 'browse-url-default-windows-browser))
476
4d3b20be2562 Use Firefox to open URLs under Debian Linux.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 475
diff changeset
  1608
 ((boundp 'debian-emacs-flavor)
4d3b20be2562 Use Firefox to open URLs under Debian Linux.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 475
diff changeset
  1609
  (setq browse-url-browser-function 'browse-url-firefox))
138
90fda97adcb1 Setup browse-url func for linux and windows.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 120
diff changeset
  1610
 (t
90fda97adcb1 Setup browse-url func for linux and windows.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 120
diff changeset
  1611
  (setq browse-url-browser-function 'browse-url-mozilla)))
98
5223817dad90 Use mozilla browser. Not tested for Windows.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 97
diff changeset
  1612
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  1613
(defun my-cygwin-search (str)
677
154f402aa2dc my-cygwin-search
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 676
diff changeset
  1614
  "Search for Cygwin package on-line."
1366
f9989b9060aa Fix: Warning: `read-input' is an obsolete function (as of 22.1); use `read-string' instead.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1365
diff changeset
  1615
  (interactive (list (read-string "Search for Cygwin package on-line: ")))
677
154f402aa2dc my-cygwin-search
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 676
diff changeset
  1616
  (browse-url (format "http://cygwin.com/cgi-bin2/package-grep.cgi?grep=%s" str))
154f402aa2dc my-cygwin-search
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 676
diff changeset
  1617
  )
154f402aa2dc my-cygwin-search
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 676
diff changeset
  1618
718
19ab21ec7640 Define own outline-regex to easy view file structure.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 717
diff changeset
  1619
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1503
24fcc4c42be4 Open file in Intellij Idea. Common interface for IDE.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1502
diff changeset
  1620
(message "ide, netbeans, idea")
24fcc4c42be4 Open file in Intellij Idea. Common interface for IDE.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1502
diff changeset
  1621
24fcc4c42be4 Open file in Intellij Idea. Common interface for IDE.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1502
diff changeset
  1622
(defun ide-netbeans-find-command ()
962
5d94d3736bbe Search for NetBeans executable in PATH, later in '/opt/netbeans*/bin/'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 961
diff changeset
  1623
  "Search for NetBeans executable in PATH, later in '/opt/netbeans*/bin/'."
961
d8f1ed2f2f9c Fix typo: command name. Add error checking code.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 960
diff changeset
  1624
  (or
d8f1ed2f2f9c Fix typo: command name. Add error checking code.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 960
diff changeset
  1625
   (executable-find "netbeans")
963
102845496d41 Fix: balance parents. Fix typo in func name.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 962
diff changeset
  1626
   (car (last (sort (file-expand-wildcards "/opt/[Nn]etbeans*/bin/netbeans" t) 'equal))) ))
1503
24fcc4c42be4 Open file in Intellij Idea. Common interface for IDE.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1502
diff changeset
  1627
(defvar ide-netbeans-program (ide-netbeans-find-command)
960
272a40dfdbcd Add integration with NetBeans (netbeans-open-this-buffer).
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 959
diff changeset
  1628
  "Command to run NetBeans.")
1503
24fcc4c42be4 Open file in Intellij Idea. Common interface for IDE.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1502
diff changeset
  1629
24fcc4c42be4 Open file in Intellij Idea. Common interface for IDE.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1502
diff changeset
  1630
(defconst ide-netbeans-process-bufname "*ide-netbeans*"
24fcc4c42be4 Open file in Intellij Idea. Common interface for IDE.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1502
diff changeset
  1631
  "Name used in `start-process'")
24fcc4c42be4 Open file in Intellij Idea. Common interface for IDE.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1502
diff changeset
  1632
(defun ide-netbeans-open-file (file &optional line)
960
272a40dfdbcd Add integration with NetBeans (netbeans-open-this-buffer).
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 959
diff changeset
  1633
  "Open FILE on LINE in NetBeans."
1503
24fcc4c42be4 Open file in Intellij Idea. Common interface for IDE.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1502
diff changeset
  1634
  (unless ide-netbeans-program
24fcc4c42be4 Open file in Intellij Idea. Common interface for IDE.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1502
diff changeset
  1635
    (error "'ide-netbeans-program' is not set"))
1504
57c5763e0628 Add documentation.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1503
diff changeset
  1636
  ;; https://www.jetbrains.com/help/idea/2016.3/opening-files-from-command-line.html
1505
4f43f768473f Use trick with changing working directory to avoid Cygwin path issues.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1504
diff changeset
  1637
  (let ( (default-directory (file-name-directory file)) (fname (file-name-nondirectory file)) )
4f43f768473f Use trick with changing working directory to avoid Cygwin path issues.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1504
diff changeset
  1638
    (if (integerp line)
4f43f768473f Use trick with changing working directory to avoid Cygwin path issues.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1504
diff changeset
  1639
        (start-process ide-netbeans-process-bufname nil ide-netbeans-program "--open" (format "%s:%d" fname line))
4f43f768473f Use trick with changing working directory to avoid Cygwin path issues.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1504
diff changeset
  1640
      (start-process ide-netbeans-process-bufname nil ide-netbeans-program "--open" fname))))
1503
24fcc4c42be4 Open file in Intellij Idea. Common interface for IDE.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1502
diff changeset
  1641
(defun ide-netbeans-open-this-buffer ()
24fcc4c42be4 Open file in Intellij Idea. Common interface for IDE.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1502
diff changeset
  1642
  "Open current buffer in NetBeans."
960
272a40dfdbcd Add integration with NetBeans (netbeans-open-this-buffer).
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 959
diff changeset
  1643
  (interactive)
1528
81091a6d400a Added key bindings to open file in external IDE. Unified code for error
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1527
diff changeset
  1644
  (unless (and (stringp (buffer-file-name)) (file-regular-p (buffer-file-name)))
986
6e74bf91f1df Add checks for: Buffer have no association with a file.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 985
diff changeset
  1645
    (error "Buffer have no association with a file"))
1528
81091a6d400a Added key bindings to open file in external IDE. Unified code for error
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1527
diff changeset
  1646
  (ide-netbeans-open-file (buffer-file-name) (line-number-at-pos)))
960
272a40dfdbcd Add integration with NetBeans (netbeans-open-this-buffer).
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 959
diff changeset
  1647
1503
24fcc4c42be4 Open file in Intellij Idea. Common interface for IDE.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1502
diff changeset
  1648
(defvar ide-idea-program nil
24fcc4c42be4 Open file in Intellij Idea. Common interface for IDE.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1502
diff changeset
  1649
  "Idea executable or full path, like 'idea64.exe'")
24fcc4c42be4 Open file in Intellij Idea. Common interface for IDE.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1502
diff changeset
  1650
24fcc4c42be4 Open file in Intellij Idea. Common interface for IDE.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1502
diff changeset
  1651
(defconst ide-idea-process-bufname "*ide-idea*"
24fcc4c42be4 Open file in Intellij Idea. Common interface for IDE.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1502
diff changeset
  1652
  "Name used in `start-process'")
24fcc4c42be4 Open file in Intellij Idea. Common interface for IDE.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1502
diff changeset
  1653
(defun ide-idea-open-file (file &optional line)
24fcc4c42be4 Open file in Intellij Idea. Common interface for IDE.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1502
diff changeset
  1654
  "Open FILE on LINE in Intellij Idea."
24fcc4c42be4 Open file in Intellij Idea. Common interface for IDE.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1502
diff changeset
  1655
  (unless ide-idea-program
24fcc4c42be4 Open file in Intellij Idea. Common interface for IDE.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1502
diff changeset
  1656
    (error "'ide-idea-program' is not set"))
24fcc4c42be4 Open file in Intellij Idea. Common interface for IDE.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1502
diff changeset
  1657
  (let ( (default-directory (file-name-directory file)) (fname (file-name-nondirectory file)) )
24fcc4c42be4 Open file in Intellij Idea. Common interface for IDE.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1502
diff changeset
  1658
    (if (integerp line)
24fcc4c42be4 Open file in Intellij Idea. Common interface for IDE.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1502
diff changeset
  1659
        (start-process ide-idea-process-bufname nil ide-idea-program "--line" (int-to-string line) fname)
24fcc4c42be4 Open file in Intellij Idea. Common interface for IDE.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1502
diff changeset
  1660
      (start-process ide-idea-process-bufname nil ide-idea-program fname))))
24fcc4c42be4 Open file in Intellij Idea. Common interface for IDE.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1502
diff changeset
  1661
(defun ide-idea-open-this-buffer ()
24fcc4c42be4 Open file in Intellij Idea. Common interface for IDE.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1502
diff changeset
  1662
  "Open current buffer in Intellij Idea."
24fcc4c42be4 Open file in Intellij Idea. Common interface for IDE.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1502
diff changeset
  1663
  (interactive)
1529
37b616faabb8 Fixed parents and key binding syntax for ide-*.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1528
diff changeset
  1664
  (unless (and (stringp (buffer-file-name)) (file-regular-p (buffer-file-name)))
1503
24fcc4c42be4 Open file in Intellij Idea. Common interface for IDE.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1502
diff changeset
  1665
    (error "Buffer have no association with a file"))
24fcc4c42be4 Open file in Intellij Idea. Common interface for IDE.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1502
diff changeset
  1666
  (ide-idea-open-file (buffer-file-name) (line-number-at-pos)))
24fcc4c42be4 Open file in Intellij Idea. Common interface for IDE.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1502
diff changeset
  1667
1529
37b616faabb8 Fixed parents and key binding syntax for ide-*.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1528
diff changeset
  1668
(define-key global-map [?\s-n] 'ide-netbeans-open-this-buffer)
37b616faabb8 Fixed parents and key binding syntax for ide-*.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1528
diff changeset
  1669
(define-key global-map [?\s-i] 'ide-idea-open-this-buffer)
1528
81091a6d400a Added key bindings to open file in external IDE. Unified code for error
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1527
diff changeset
  1670
960
272a40dfdbcd Add integration with NetBeans (netbeans-open-this-buffer).
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 959
diff changeset
  1671
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
545
24992bae7599 Use 'message' instead of comment to easy debug where error occurred.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 544
diff changeset
  1672
(message "calendar")
296
e502c69ab80a Make header name like tags, separated by comma and ended on period.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 295
diff changeset
  1673
1685
6a740def74e8 Fixed error 'eval-when is not defined' after switching to cl-lib.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1684
diff changeset
  1674
(cl-eval-when (compile) (require 'calendar))
1374
313e428cf77c Add (eval-when 'compile ...) to reduce number of Warning: reference to free variable.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1373
diff changeset
  1675
0
aef1d0017234 Initial commit.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
diff changeset
  1676
;; (setq mark-holidays-in-calendar t)
aef1d0017234 Initial commit.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
diff changeset
  1677
;; (setq all-christian-calendar-holidays t)
1587
8770e2984f58 Fix: string-to-int was removed in v26.1.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1586
diff changeset
  1678
;; (setq calendar-date-display-form (quote ((format "%04s-%02d-%02d" year (string-to-number month) (string-to-number day)))))
0
aef1d0017234 Initial commit.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
diff changeset
  1679
;; (setq calendar-time-display-form (quote (24-hours ":" minutes (if time-zone " (") time-zone (if time-zone ")"))))
49
71cec5d9c60f Set week start with Monday.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 48
diff changeset
  1680
(setq calendar-week-start-day 1)
1386
e9b455ea0327 Fix: Warning: `european-calendar-style' is an obsolete variable (as of 23.1); use `calendar-date-style' instead.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1385
diff changeset
  1681
(setq calendar-date-style 'iso)
0
aef1d0017234 Initial commit.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
diff changeset
  1682
718
19ab21ec7640 Define own outline-regex to easy view file structure.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 717
diff changeset
  1683
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
545
24992bae7599 Use 'message' instead of comment to easy debug where error occurred.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 544
diff changeset
  1684
(message "standard hooks")
0
aef1d0017234 Initial commit.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
diff changeset
  1685
aef1d0017234 Initial commit.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
diff changeset
  1686
(add-hook 'write-file-hooks 'time-stamp)
aef1d0017234 Initial commit.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
diff changeset
  1687
718
19ab21ec7640 Define own outline-regex to easy view file structure.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 717
diff changeset
  1688
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
735
337d64d4f27b Enable auto-revert-tail-mode for log files from /var/log.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 734
diff changeset
  1689
(message "logging, logs")
337d64d4f27b Enable auto-revert-tail-mode for log files from /var/log.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 734
diff changeset
  1690
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  1691
(defun my-auto-revert-tail-mode-hook ()
1533
bf21c20118b4 .log.N files also should be treated as log files. Disable NRoff mode for such files.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1532
diff changeset
  1692
  (when (string-match "/logs?/\\|\\.\\(?:log\\|out\\|log\\.[0-9]\\)\\'\\|/.xsession-errors\\'"
735
337d64d4f27b Enable auto-revert-tail-mode for log files from /var/log.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 734
diff changeset
  1693
                      (buffer-file-name (current-buffer)))
1751
e09dfac4baf9 Activate so-long-mode instead of fundamental-mode for log files: it is faster!
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1748
diff changeset
  1694
    (if (fboundp #'so-long-mode)
e09dfac4baf9 Activate so-long-mode instead of fundamental-mode for log files: it is faster!
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1748
diff changeset
  1695
        (so-long-mode)
e09dfac4baf9 Activate so-long-mode instead of fundamental-mode for log files: it is faster!
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1748
diff changeset
  1696
      (fundamental-mode))
735
337d64d4f27b Enable auto-revert-tail-mode for log files from /var/log.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 734
diff changeset
  1697
    (auto-revert-tail-mode 1)
1076
eed45b8a9e3a Highlight standard elements in log4* like log-files.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1074
diff changeset
  1698
    (log4-hi-mode 1)
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  1699
    (setq scroll-margin my-scroll-margin)
735
337d64d4f27b Enable auto-revert-tail-mode for log files from /var/log.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 734
diff changeset
  1700
    ))
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  1701
(add-hook 'find-file-hook 'my-auto-revert-tail-mode-hook)
735
337d64d4f27b Enable auto-revert-tail-mode for log files from /var/log.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 734
diff changeset
  1702
337d64d4f27b Enable auto-revert-tail-mode for log files from /var/log.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 734
diff changeset
  1703
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
545
24992bae7599 Use 'message' instead of comment to easy debug where error occurred.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 544
diff changeset
  1704
(message "auto-fill")
0
aef1d0017234 Initial commit.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
diff changeset
  1705
102
25585e240b4a Move customization from .emacs (custom-set-variables) to .emacs-my. Remove duplication.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 101
diff changeset
  1706
(setq-default fill-column 78)
25585e240b4a Move customization from .emacs (custom-set-variables) to .emacs-my. Remove duplication.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 101
diff changeset
  1707
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  1708
(defvar my-fill-column 100
335
748c6e05fe87 Use common value for fill-column.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 334
diff changeset
  1709
  "I use greater value then 78 for comment in prog source.")
748c6e05fe87 Use common value for fill-column.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 334
diff changeset
  1710
148
7df64d2c9f3d Remove unused key binding. Added more docs.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 147
diff changeset
  1711
;; By default used American convention - sentence and with two spaces. Change
7df64d2c9f3d Remove unused key binding. Added more docs.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 147
diff changeset
  1712
;; it to one space. Has affect on filling and M-a, M-e commands.
102
25585e240b4a Move customization from .emacs (custom-set-variables) to .emacs-my. Remove duplication.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 101
diff changeset
  1713
(setq sentence-end-double-space nil)
25585e240b4a Move customization from .emacs (custom-set-variables) to .emacs-my. Remove duplication.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 101
diff changeset
  1714
0
aef1d0017234 Initial commit.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
diff changeset
  1715
;; Turn on auto-fill mode
1579
92b878231632 Do to turn on auto-fill mode. It is hard to disable it in derived modes.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1578
diff changeset
  1716
;; (add-hook 'html-mode-hook 'turn-on-auto-fill)
92b878231632 Do to turn on auto-fill mode. It is hard to disable it in derived modes.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1578
diff changeset
  1717
;; (add-hook 'text-mode-hook 'turn-on-auto-fill)
0
aef1d0017234 Initial commit.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
diff changeset
  1718
718
19ab21ec7640 Define own outline-regex to easy view file structure.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 717
diff changeset
  1719
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
545
24992bae7599 Use 'message' instead of comment to easy debug where error occurred.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 544
diff changeset
  1720
(message "cacl, calculator")
367
58e70956523a Set cacl digit grouping.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 366
diff changeset
  1721
58e70956523a Set cacl digit grouping.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 366
diff changeset
  1722
(setq-default calc-group-digits t)
58e70956523a Set cacl digit grouping.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 366
diff changeset
  1723
(setq-default calc-group-char "'")
58e70956523a Set cacl digit grouping.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 366
diff changeset
  1724
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  1725
(defun my-calc-region (arg beg end)
517
6889ad2dbd35 Add 'my-calc-eval-region' func.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 516
diff changeset
  1726
  "Calculate the region and display the result in the echo area.
6889ad2dbd35 Add 'my-calc-eval-region' func.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 516
diff changeset
  1727
With prefix ARG non-nil, insert the result at the end of region."
6889ad2dbd35 Add 'my-calc-eval-region' func.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 516
diff changeset
  1728
  (interactive "P\nr")
6889ad2dbd35 Add 'my-calc-eval-region' func.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 516
diff changeset
  1729
  (require 'calc)
6889ad2dbd35 Add 'my-calc-eval-region' func.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 516
diff changeset
  1730
  (let* ((expr (buffer-substring-no-properties beg end))
6889ad2dbd35 Add 'my-calc-eval-region' func.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 516
diff changeset
  1731
         (result (calc-eval expr)))
6889ad2dbd35 Add 'my-calc-eval-region' func.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 516
diff changeset
  1732
    (if (null arg)
6889ad2dbd35 Add 'my-calc-eval-region' func.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 516
diff changeset
  1733
        (message "%s = %s" expr result)
6889ad2dbd35 Add 'my-calc-eval-region' func.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 516
diff changeset
  1734
      (goto-char end)
6889ad2dbd35 Add 'my-calc-eval-region' func.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 516
diff changeset
  1735
      (save-excursion
6889ad2dbd35 Add 'my-calc-eval-region' func.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 516
diff changeset
  1736
        (insert result)))))
6889ad2dbd35 Add 'my-calc-eval-region' func.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 516
diff changeset
  1737
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  1738
(defun my-calc-line (arg)
1730
795b3f2ecfbb Separated Cygwin & ansi colors settings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1729
diff changeset
  1739
  "Evaluate calc expression in the current line and display the
1729
237c8f98ac43 Repeating my-calc-line interactive place result after "=" sign clearing any old text.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1728
diff changeset
  1740
result in the echo area by skipping everything after the final
237c8f98ac43 Repeating my-calc-line interactive place result after "=" sign clearing any old text.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1728
diff changeset
  1741
'=' sign.
237c8f98ac43 Repeating my-calc-line interactive place result after "=" sign clearing any old text.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1728
diff changeset
  1742
237c8f98ac43 Repeating my-calc-line interactive place result after "=" sign clearing any old text.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1728
diff changeset
  1743
With prefix ARG non-nil or repeating command interactively,
1730
795b3f2ecfbb Separated Cygwin & ansi colors settings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1729
diff changeset
  1744
insert the result at the end of line & add a space if necessary
1729
237c8f98ac43 Repeating my-calc-line interactive place result after "=" sign clearing any old text.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1728
diff changeset
  1745
for delimiting clearing everything after '=' sign if it is here."
1289
85654fc21cf5 my-calc-line
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1288
diff changeset
  1746
  (interactive "P")
85654fc21cf5 my-calc-line
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1288
diff changeset
  1747
  (require 'calc)
85654fc21cf5 my-calc-line
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1288
diff changeset
  1748
  (save-excursion
85654fc21cf5 my-calc-line
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1288
diff changeset
  1749
    (let (beg end expr result)
85654fc21cf5 my-calc-line
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1288
diff changeset
  1750
      (beginning-of-line)
85654fc21cf5 my-calc-line
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1288
diff changeset
  1751
      (setq beg (point))
85654fc21cf5 my-calc-line
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1288
diff changeset
  1752
      (end-of-line)
85654fc21cf5 my-calc-line
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1288
diff changeset
  1753
      (search-backward "=" beg t)
85654fc21cf5 my-calc-line
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1288
diff changeset
  1754
      (setq end (point))
85654fc21cf5 my-calc-line
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1288
diff changeset
  1755
      (setq expr (buffer-substring-no-properties beg end))
85654fc21cf5 my-calc-line
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1288
diff changeset
  1756
      (setq result (calc-eval expr))
1729
237c8f98ac43 Repeating my-calc-line interactive place result after "=" sign clearing any old text.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1728
diff changeset
  1757
      (if (and (null arg) (not (eq 'my-calc-line last-command)))
1289
85654fc21cf5 my-calc-line
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1288
diff changeset
  1758
          (message "%s = %s" expr result)
85654fc21cf5 my-calc-line
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1288
diff changeset
  1759
        (end-of-line)
1729
237c8f98ac43 Repeating my-calc-line interactive place result after "=" sign clearing any old text.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1728
diff changeset
  1760
        (setq end (point))
237c8f98ac43 Repeating my-calc-line interactive place result after "=" sign clearing any old text.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1728
diff changeset
  1761
        (when (search-backward "=" beg t)
237c8f98ac43 Repeating my-calc-line interactive place result after "=" sign clearing any old text.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1728
diff changeset
  1762
          (forward-char 1)
237c8f98ac43 Repeating my-calc-line interactive place result after "=" sign clearing any old text.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1728
diff changeset
  1763
          (delete-region (point) end))
1289
85654fc21cf5 my-calc-line
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1288
diff changeset
  1764
        (unless (eq (char-before) ?\ )
85654fc21cf5 my-calc-line
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1288
diff changeset
  1765
          (insert ?\ ))
85654fc21cf5 my-calc-line
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1288
diff changeset
  1766
        (insert result)))))
85654fc21cf5 my-calc-line
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1288
diff changeset
  1767
1724
35c96420cf54 Reserved s-= for my-calc-line (to avoid excessive typing of M-x my-calc-line). er/expand-region is now s-w to be near C-w/M-w.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1723
diff changeset
  1768
(global-set-key (kbd "s-=") #'my-calc-line)
35c96420cf54 Reserved s-= for my-calc-line (to avoid excessive typing of M-x my-calc-line). er/expand-region is now s-w to be near C-w/M-w.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1723
diff changeset
  1769
1303
60e6b8174aee Fix sectioning comment style.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1300
diff changeset
  1770
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
666
994de1974616 fix misspelling
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 665
diff changeset
  1771
(message "rst, reStructuredText")
665
9761254a1260 Maintaining the table of contents up-to-date.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 664
diff changeset
  1772
9761254a1260 Maintaining the table of contents up-to-date.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 664
diff changeset
  1773
;; Maintaining the table of contents up-to-date.
9761254a1260 Maintaining the table of contents up-to-date.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 664
diff changeset
  1774
(add-hook 'rst-adjust-hook 'rst-toc-update)
9761254a1260 Maintaining the table of contents up-to-date.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 664
diff changeset
  1775
1439
6fc6ce787711 Port to Emacs 22.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1438
diff changeset
  1776
(if (coding-system-p 'prefer-utf-8-unix)
6fc6ce787711 Port to Emacs 22.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1438
diff changeset
  1777
    (modify-coding-system-alist 'file "\\.rst\\'" 'prefer-utf-8-unix)
6fc6ce787711 Port to Emacs 22.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1438
diff changeset
  1778
  (modify-coding-system-alist 'file "\\.rst\\'" 'utf-8-unix))
1437
22f5b3cdf40f My .rst files in UTF-8.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1436
diff changeset
  1779
689
1b632e2151cc Fix rst-level-*-face for terminal.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 688
diff changeset
  1780
(unless window-system
1254
19c7b3be9b3a Define special macro to avoid warning about "assignment to free variable".
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1253
diff changeset
  1781
  (my--eval-after-load rst
1278
8e47e801be9d Remove qouting from 'my--eval-after-load' macro usage because that code doesn't evaluated.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1277
diff changeset
  1782
    (custom-set-faces
8e47e801be9d Remove qouting from 'my--eval-after-load' macro usage because that code doesn't evaluated.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1277
diff changeset
  1783
     '(rst-level-1-face ((t (:background "yellow"))) t)
8e47e801be9d Remove qouting from 'my--eval-after-load' macro usage because that code doesn't evaluated.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1277
diff changeset
  1784
     '(rst-level-2-face ((t (:background "yellow"))) t)
8e47e801be9d Remove qouting from 'my--eval-after-load' macro usage because that code doesn't evaluated.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1277
diff changeset
  1785
     '(rst-level-3-face ((t (:background "yellow"))) t)
8e47e801be9d Remove qouting from 'my--eval-after-load' macro usage because that code doesn't evaluated.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1277
diff changeset
  1786
     '(rst-level-4-face ((t (:background "yellow"))) t)
8e47e801be9d Remove qouting from 'my--eval-after-load' macro usage because that code doesn't evaluated.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1277
diff changeset
  1787
     '(rst-level-5-face ((t (:background "yellow"))) t)
8e47e801be9d Remove qouting from 'my--eval-after-load' macro usage because that code doesn't evaluated.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1277
diff changeset
  1788
     '(rst-level-6face ((t (:background "yellow"))) t)
8e47e801be9d Remove qouting from 'my--eval-after-load' macro usage because that code doesn't evaluated.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1277
diff changeset
  1789
     ) ) )
689
1b632e2151cc Fix rst-level-*-face for terminal.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 688
diff changeset
  1790
1472
c8da9757d036 Enable flyspell for rst-mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1471
diff changeset
  1791
(when (featurep 'flyspell)
c8da9757d036 Enable flyspell for rst-mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1471
diff changeset
  1792
  (add-hook 'rst-mode-hook #'flyspell-mode))
c8da9757d036 Enable flyspell for rst-mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1471
diff changeset
  1793
1466
6814b46a6619 Rearrange code. Enable company mode for RST files.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1465
diff changeset
  1794
(when (featurep 'company)
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  1795
  (add-hook 'rst-mode-hook #'my-company-text-setup))
1466
6814b46a6619 Rearrange code. Enable company mode for RST files.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1465
diff changeset
  1796
1220
90e3a3721051 abbrev-file-name, pascal-mode
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1218
diff changeset
  1797
;; (add-hook 'rst-mode-hook #'abbrev-mode)
90e3a3721051 abbrev-file-name, pascal-mode
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1218
diff changeset
  1798
;; (remove-hook 'rst-mode-hook #'abbrev-mode)
90e3a3721051 abbrev-file-name, pascal-mode
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1218
diff changeset
  1799
718
19ab21ec7640 Define own outline-regex to easy view file structure.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 717
diff changeset
  1800
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1570
30e7cac3143c Enable adoc-mode for .adoc files.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1569
diff changeset
  1801
(message "adoc, asciidoc")
30e7cac3143c Enable adoc-mode for .adoc files.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1569
diff changeset
  1802
1580
dfdbb8f1922c Enable adoc-mode by function presents, feature is not available from autoload file.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1579
diff changeset
  1803
(when (fboundp 'adoc-mode)
1570
30e7cac3143c Enable adoc-mode for .adoc files.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1569
diff changeset
  1804
  (add-to-list 'auto-mode-alist '("\\.adoc$" . adoc-mode)))
30e7cac3143c Enable adoc-mode for .adoc files.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1569
diff changeset
  1805
30e7cac3143c Enable adoc-mode for .adoc files.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1569
diff changeset
  1806
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1582
f7dd0f7cb900 Enable whitespace-mode for markdown-mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1581
diff changeset
  1807
(message "md, markdown")
f7dd0f7cb900 Enable whitespace-mode for markdown-mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1581
diff changeset
  1808
1705
3ed88879232f Activate outline-minor-mode for markdown-mode. And avoid whitespace-mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1704
diff changeset
  1809
(my--eval-after-load markdown-mode
3ed88879232f Activate outline-minor-mode for markdown-mode. And avoid whitespace-mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1704
diff changeset
  1810
  ;; (add-hook 'markdown-mode-hook #'whitespace-mode)
3ed88879232f Activate outline-minor-mode for markdown-mode. And avoid whitespace-mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1704
diff changeset
  1811
  (add-hook 'markdown-mode-hook #'outline-minor-mode))
1582
f7dd0f7cb900 Enable whitespace-mode for markdown-mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1581
diff changeset
  1812
f7dd0f7cb900 Enable whitespace-mode for markdown-mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1581
diff changeset
  1813
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
545
24992bae7599 Use 'message' instead of comment to easy debug where error occurred.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 544
diff changeset
  1814
(message "TeX, LaTeX")
296
e502c69ab80a Make header name like tags, separated by comma and ended on period.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 295
diff changeset
  1815
0
aef1d0017234 Initial commit.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
diff changeset
  1816
(setq tex-run-command "initex")
aef1d0017234 Initial commit.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
diff changeset
  1817
718
19ab21ec7640 Define own outline-regex to easy view file structure.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 717
diff changeset
  1818
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
545
24992bae7599 Use 'message' instead of comment to easy debug where error occurred.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 544
diff changeset
  1819
(message "AUC TeX")
0
aef1d0017234 Initial commit.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
diff changeset
  1820
aef1d0017234 Initial commit.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
diff changeset
  1821
;(add-hook 'LaTeX-mode-hook 'LaTeX-install-toolbar)
aef1d0017234 Initial commit.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
diff changeset
  1822
;; (setq TeX-parse-self t)             ; Enable parse on load.
aef1d0017234 Initial commit.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
diff changeset
  1823
;; (setq TeX-auto-save t)              ; Enable parse on save.
347
ae8ed6d33e90 Dont prompt for master file.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 346
diff changeset
  1824
;; Query for master file. If you often use \include or \input, you should make AUCTEX aware of the
ae8ed6d33e90 Dont prompt for master file.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 346
diff changeset
  1825
;; multi-file document structure.
ae8ed6d33e90 Dont prompt for master file.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 346
diff changeset
  1826
(setq-default TeX-master nil)
0
aef1d0017234 Initial commit.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
diff changeset
  1827
aef1d0017234 Initial commit.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
diff changeset
  1828
;(setq TeX-PDF-mode t)
aef1d0017234 Initial commit.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
diff changeset
  1829
;(setq TeX-interactive-mode t)
aef1d0017234 Initial commit.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
diff changeset
  1830
;(setq TeX-source-specials-mode 1)
aef1d0017234 Initial commit.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
diff changeset
  1831
aef1d0017234 Initial commit.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
diff changeset
  1832
;;; some more menu entries in the command list:
aef1d0017234 Initial commit.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
diff changeset
  1833
;;; see tex-mik.el from package auctex: %v is defined in tex-mik.el
aef1d0017234 Initial commit.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
diff changeset
  1834
;;; other variables are defined in tex.el from auctex
aef1d0017234 Initial commit.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
diff changeset
  1835
;;; the meaning of some auctex-varibles:
aef1d0017234 Initial commit.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
diff changeset
  1836
        ;symbols defined in tex.el and tex-mik.el:
aef1d0017234 Initial commit.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
diff changeset
  1837
        ;%b name slave tex-file  %t name master tex-file
aef1d0017234 Initial commit.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
diff changeset
  1838
        ;%d dvi-file  %f ps-file
aef1d0017234 Initial commit.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
diff changeset
  1839
        ;%l "latex --src-specials"
aef1d0017234 Initial commit.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
diff changeset
  1840
        ;%n line number  %p printcommand  %q "lpq"
aef1d0017234 Initial commit.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
diff changeset
  1841
        ;%r (TeX-style-check TeX-print-style)
aef1d0017234 Initial commit.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
diff changeset
  1842
        ;%s master-file-name without extention
aef1d0017234 Initial commit.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
diff changeset
  1843
        ;%v yap command view line
1278
8e47e801be9d Remove qouting from 'my--eval-after-load' macro usage because that code doesn't evaluated.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1277
diff changeset
  1844
;; (my--eval-after-load tex
8e47e801be9d Remove qouting from 'my--eval-after-load' macro usage because that code doesn't evaluated.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1277
diff changeset
  1845
;;   (add-to-list 'TeX-command-list
8e47e801be9d Remove qouting from 'my--eval-after-load' macro usage because that code doesn't evaluated.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1277
diff changeset
  1846
;;                (list "->PS landscape for pdf"
8e47e801be9d Remove qouting from 'my--eval-after-load' macro usage because that code doesn't evaluated.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1277
diff changeset
  1847
;;                      "dvips %d -N0 -Ppdf -G0 -T 297mm,210mm -o %f "
8e47e801be9d Remove qouting from 'my--eval-after-load' macro usage because that code doesn't evaluated.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1277
diff changeset
  1848
;;                      'TeX-run-command nil t))
8e47e801be9d Remove qouting from 'my--eval-after-load' macro usage because that code doesn't evaluated.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1277
diff changeset
  1849
;;   (add-to-list 'TeX-command-list
8e47e801be9d Remove qouting from 'my--eval-after-load' macro usage because that code doesn't evaluated.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1277
diff changeset
  1850
;;                (list "All Texify run-viewer"
8e47e801be9d Remove qouting from 'my--eval-after-load' macro usage because that code doesn't evaluated.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1277
diff changeset
  1851
;;                      "texify --tex-opt=--src --run-viewer --clean %s.tex"
8e47e801be9d Remove qouting from 'my--eval-after-load' macro usage because that code doesn't evaluated.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1277
diff changeset
  1852
;;                      'TeX-run-command nil t)))
0
aef1d0017234 Initial commit.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
diff changeset
  1853
718
19ab21ec7640 Define own outline-regex to easy view file structure.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 717
diff changeset
  1854
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
545
24992bae7599 Use 'message' instead of comment to easy debug where error occurred.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 544
diff changeset
  1855
(message "reftex")
461
1639d2540bbd Set outline-minor for file. Fix section to feet header outline pattern.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 460
diff changeset
  1856
1639d2540bbd Set outline-minor for file. Fix section to feet header outline pattern.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 460
diff changeset
  1857
;; Reftex is included with Emacs 21.1.
0
aef1d0017234 Initial commit.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
diff changeset
  1858
aef1d0017234 Initial commit.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
diff changeset
  1859
;; (autoload 'reftex-mode     "reftex" "RefTeX Minor Mode" t)
aef1d0017234 Initial commit.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
diff changeset
  1860
;; (autoload 'turn-on-reftex  "reftex" "RefTeX Minor Mode" nil)
aef1d0017234 Initial commit.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
diff changeset
  1861
;; (autoload 'reftex-citation "reftex-cite" "Make citation" nil)
aef1d0017234 Initial commit.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
diff changeset
  1862
;; (autoload 'reftex-index-phrase-mode "reftex-index" "Phrase mode" t)
aef1d0017234 Initial commit.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
diff changeset
  1863
;; (add-hook 'LaTeX-mode-hook 'turn-on-reftex)   ; with AUCTeX LaTeX mode
aef1d0017234 Initial commit.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
diff changeset
  1864
;; (add-hook 'latex-mode-hook 'turn-on-reftex)   ; with Emacs latex mode
aef1d0017234 Initial commit.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
diff changeset
  1865
718
19ab21ec7640 Define own outline-regex to easy view file structure.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 717
diff changeset
  1866
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
545
24992bae7599 Use 'message' instead of comment to easy debug where error occurred.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 544
diff changeset
  1867
(message "PreviewLatex")
0
aef1d0017234 Initial commit.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
diff changeset
  1868
aef1d0017234 Initial commit.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
diff changeset
  1869
;(load "preview-latex.el" nil t t)
aef1d0017234 Initial commit.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
diff changeset
  1870
aef1d0017234 Initial commit.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
diff changeset
  1871
;(add-hook 'LaTeX-mode-hook #'LaTeX-preview-setup)
aef1d0017234 Initial commit.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
diff changeset
  1872
;(autoload 'LaTeX-preview-setup "preview")
aef1d0017234 Initial commit.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
diff changeset
  1873
718
19ab21ec7640 Define own outline-regex to easy view file structure.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 717
diff changeset
  1874
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1397
d4182b28cdc1 Including ~/usr/share/info in INFOPATH. Tweak for INFOPATH and cygwin-mount.el.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1396
diff changeset
  1875
(message "info")
0
aef1d0017234 Initial commit.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
diff changeset
  1876
323
7a7dc2befa99 Because of Debian policy documentation covered by FDL license with invariant sections not allowed in packet
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 322
diff changeset
  1877
(unless (getenv "INFOPATH")
1402
b1a1c92a7f55 (eq window-system 'w32) ==> (eq system-type 'windows-nt) to correctly handle
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1397
diff changeset
  1878
  (if (eq system-type 'windows-nt)
b1a1c92a7f55 (eq window-system 'w32) ==> (eq system-type 'windows-nt) to correctly handle
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1397
diff changeset
  1879
      (setenv "INFOPATH" (concat (expand-file-name "~/usr/share/info") ":/usr/share/info:"))
b1a1c92a7f55 (eq window-system 'w32) ==> (eq system-type 'windows-nt) to correctly handle
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1397
diff changeset
  1880
    (setenv "INFOPATH" (expand-file-name "~/usr/share/info:"))))
323
7a7dc2befa99 Because of Debian policy documentation covered by FDL license with invariant sections not allowed in packet
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 322
diff changeset
  1881
799
c39f6e6fd191 Enable man and info page from Cygwin and from '~/usr/share'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 798
diff changeset
  1882
;; Assume that cygwin-mount already activated.
c39f6e6fd191 Enable man and info page from Cygwin and from '~/usr/share'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 798
diff changeset
  1883
(when (featurep 'cygwin-mount)
c39f6e6fd191 Enable man and info page from Cygwin and from '~/usr/share'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 798
diff changeset
  1884
  (setenv "INFOPATH" "/usr/share/info/:~/usr/share/info/:")
c39f6e6fd191 Enable man and info page from Cygwin and from '~/usr/share'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 798
diff changeset
  1885
  ;; Redefine path-separator to UNIX to update Info-directory-list.
c39f6e6fd191 Enable man and info page from Cygwin and from '~/usr/share'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 798
diff changeset
  1886
  (let ( (path-separator ":") )
c39f6e6fd191 Enable man and info page from Cygwin and from '~/usr/share'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 798
diff changeset
  1887
    (require 'info)
1441
580e8a297afd Reindent code.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1440
diff changeset
  1888
    (info-initialize) ))
799
c39f6e6fd191 Enable man and info page from Cygwin and from '~/usr/share'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 798
diff changeset
  1889
972
eb7992880db9 Disable yas. Add info-lookup fix for automake manual.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 970
diff changeset
  1890
;; Info index nodes for automake under Debian.
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  1891
(defvar my-fix-for-automake-info-lookup
1387
3dec99863e5d Set valued via defvar instead of setq to avoid Warning: assignment to free variable.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1386
diff changeset
  1892
  '(("(automake-1.11)Macro Index" nil
3dec99863e5d Set valued via defvar instead of setq to avoid Warning: assignment to free variable.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1386
diff changeset
  1893
     "^`" "['(]")
3dec99863e5d Set valued via defvar instead of setq to avoid Warning: assignment to free variable.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1386
diff changeset
  1894
    ("(automake-1.11)Variable Index" nil
3dec99863e5d Set valued via defvar instead of setq to avoid Warning: assignment to free variable.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1386
diff changeset
  1895
     "^`" "['(]")
3dec99863e5d Set valued via defvar instead of setq to avoid Warning: assignment to free variable.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1386
diff changeset
  1896
    ("(automake-1.11)General Index" nil
3dec99863e5d Set valued via defvar instead of setq to avoid Warning: assignment to free variable.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1386
diff changeset
  1897
     "^`" "['(]")))
972
eb7992880db9 Disable yas. Add info-lookup fix for automake manual.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 970
diff changeset
  1898
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  1899
;; Add `my-fix-for-automake-info-lookup' entries to the end of doc-spec for
972
eb7992880db9 Disable yas. Add info-lookup fix for automake manual.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 970
diff changeset
  1900
;; some modes.
1254
19c7b3be9b3a Define special macro to avoid warning about "assignment to free variable".
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1253
diff changeset
  1901
(my--eval-after-load info-look
1278
8e47e801be9d Remove qouting from 'my--eval-after-load' macro usage because that code doesn't evaluated.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1277
diff changeset
  1902
  (mapc
8e47e801be9d Remove qouting from 'my--eval-after-load' macro usage because that code doesn't evaluated.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1277
diff changeset
  1903
   (lambda (mode)
8e47e801be9d Remove qouting from 'my--eval-after-load' macro usage because that code doesn't evaluated.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1277
diff changeset
  1904
     (let ( (doc-spec (info-lookup->doc-spec 'symbol mode)) )
8e47e801be9d Remove qouting from 'my--eval-after-load' macro usage because that code doesn't evaluated.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1277
diff changeset
  1905
       (mapc
8e47e801be9d Remove qouting from 'my--eval-after-load' macro usage because that code doesn't evaluated.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1277
diff changeset
  1906
        (lambda (doc-spec-item)
8e47e801be9d Remove qouting from 'my--eval-after-load' macro usage because that code doesn't evaluated.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1277
diff changeset
  1907
          (setcdr (last doc-spec) (list doc-spec-item)))
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  1908
        my-fix-for-automake-info-lookup)))
1278
8e47e801be9d Remove qouting from 'my--eval-after-load' macro usage because that code doesn't evaluated.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1277
diff changeset
  1909
   '(makefile-mode autoconf-mode))
8e47e801be9d Remove qouting from 'my--eval-after-load' macro usage because that code doesn't evaluated.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1277
diff changeset
  1910
  (info-lookup-maybe-add-help
8e47e801be9d Remove qouting from 'my--eval-after-load' macro usage because that code doesn't evaluated.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1277
diff changeset
  1911
   :mode 'makefile-gmake-mode
8e47e801be9d Remove qouting from 'my--eval-after-load' macro usage because that code doesn't evaluated.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1277
diff changeset
  1912
   :other-modes '(makefile-mode)))
972
eb7992880db9 Disable yas. Add info-lookup fix for automake manual.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 970
diff changeset
  1913
eb7992880db9 Disable yas. Add info-lookup fix for automake manual.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 970
diff changeset
  1914
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
545
24992bae7599 Use 'message' instead of comment to easy debug where error occurred.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 544
diff changeset
  1915
(message "man, woman")
296
e502c69ab80a Make header name like tags, separated by comma and ended on period.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 295
diff changeset
  1916
1685
6a740def74e8 Fixed error 'eval-when is not defined' after switching to cl-lib.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1684
diff changeset
  1917
(cl-eval-when (compile) (require 'woman))
1374
313e428cf77c Add (eval-when 'compile ...) to reduce number of Warning: reference to free variable.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1373
diff changeset
  1918
799
c39f6e6fd191 Enable man and info page from Cygwin and from '~/usr/share'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 798
diff changeset
  1919
(when (featurep 'cygwin-mount)
c39f6e6fd191 Enable man and info page from Cygwin and from '~/usr/share'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 798
diff changeset
  1920
  (let ( (path (expand-file-name "~")) )
c39f6e6fd191 Enable man and info page from Cygwin and from '~/usr/share'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 798
diff changeset
  1921
    (when (string-match "\\([c-z]\\):/" path)
c39f6e6fd191 Enable man and info page from Cygwin and from '~/usr/share'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 798
diff changeset
  1922
      (setenv "MANPATH" (concat "/cygdrive/" (substring path 0 1) "/" (substring path 3) "/usr/share/man/:"))
c39f6e6fd191 Enable man and info page from Cygwin and from '~/usr/share'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 798
diff changeset
  1923
      ) ))
c39f6e6fd191 Enable man and info page from Cygwin and from '~/usr/share'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 798
diff changeset
  1924
156
55aed5f25591 Added customisation for woman.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 143
diff changeset
  1925
(setq woman-use-own-frame nil)
55aed5f25591 Added customisation for woman.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 143
diff changeset
  1926
(setq woman-fill-frame t)
1534
a20f8f4abec7 Default sed filter failed with syntax error in native Emacs and Cygwin.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1533
diff changeset
  1927
1632
9189d278b075 Replaced eval-after-load => with-eval-after-load for its easier syntax.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1631
diff changeset
  1928
(with-eval-after-load 'man
1534
a20f8f4abec7 Default sed filter failed with syntax error in native Emacs and Cygwin.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1533
diff changeset
  1929
  ;; Default sed filter failed with syntax error in native Emacs and Cygwin.
a20f8f4abec7 Default sed filter failed with syntax error in native Emacs and Cygwin.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1533
diff changeset
  1930
  (when (eq system-type 'windows-nt)
a20f8f4abec7 Default sed filter failed with syntax error in native Emacs and Cygwin.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1533
diff changeset
  1931
    (setq Man-filter-list nil)))
156
55aed5f25591 Added customisation for woman.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 143
diff changeset
  1932
718
19ab21ec7640 Define own outline-regex to easy view file structure.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 717
diff changeset
  1933
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
545
24992bae7599 Use 'message' instead of comment to easy debug where error occurred.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 544
diff changeset
  1934
(message "comint")
434
12acc6727bd9 Set comint-eol-on-send.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 433
diff changeset
  1935
12acc6727bd9 Set comint-eol-on-send.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 433
diff changeset
  1936
;; If non-nil, add a `/' to completed directories, ` ' to file names.
12acc6727bd9 Set comint-eol-on-send.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 433
diff changeset
  1937
(setq comint-completion-addsuffix t)
12acc6727bd9 Set comint-eol-on-send.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 433
diff changeset
  1938
;; Non-nil means go to the end of the line before sending input.
12acc6727bd9 Set comint-eol-on-send.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 433
diff changeset
  1939
(setq comint-eol-on-send t)
12acc6727bd9 Set comint-eol-on-send.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 433
diff changeset
  1940
718
19ab21ec7640 Define own outline-regex to easy view file structure.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 717
diff changeset
  1941
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
775
a7253eb62dee Enable flyspell for Log-Edit buffer to decrease spell errors.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 774
diff changeset
  1942
(message "spell, ispell, aspell, flyspell")
0
aef1d0017234 Initial commit.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
diff changeset
  1943
387
7340a863ae23 Fix spelling settings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 385
diff changeset
  1944
;; Settings for spelling done in '.emacs-autogen'.
775
a7253eb62dee Enable flyspell for Log-Edit buffer to decrease spell errors.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 774
diff changeset
  1945
a7253eb62dee Enable flyspell for Log-Edit buffer to decrease spell errors.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 774
diff changeset
  1946
(add-hook 'log-edit-mode-hook 'flyspell-mode)
0
aef1d0017234 Initial commit.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
diff changeset
  1947
740
5dd70683a699 ispell-extra-args
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 739
diff changeset
  1948
;; (setq-default ispell-extra-args  '("--sug-mode=ultra"))
0
aef1d0017234 Initial commit.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
diff changeset
  1949
718
19ab21ec7640 Define own outline-regex to easy view file structure.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 717
diff changeset
  1950
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1606
044155fc3ef9 Enabled new gadialog mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1605
diff changeset
  1951
(message "dict, dictd, dictionary, gadict, gaphrase, gadialog")
1361
f7fcbc47f739 Load gadict mode if available.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1360
diff changeset
  1952
1642
4b2fba646dfd Enable whitespace-mode in gadict-mode with appropriate customization.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1640
diff changeset
  1953
(defun my-gedict-enable-whitespace ()
4b2fba646dfd Enable whitespace-mode in gadict-mode with appropriate customization.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1640
diff changeset
  1954
  (setq show-trailing-whitespace nil)
4b2fba646dfd Enable whitespace-mode in gadict-mode with appropriate customization.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1640
diff changeset
  1955
  (setq-local whitespace-style '(face trailing))
4b2fba646dfd Enable whitespace-mode in gadict-mode with appropriate customization.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1640
diff changeset
  1956
  (whitespace-mode 1))
4b2fba646dfd Enable whitespace-mode in gadict-mode with appropriate customization.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1640
diff changeset
  1957
1361
f7fcbc47f739 Load gadict mode if available.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1360
diff changeset
  1958
(when (fboundp 'gadict-mode)
f7fcbc47f739 Load gadict mode if available.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1360
diff changeset
  1959
  (add-to-list 'auto-mode-alist '("\\.gadict$" . gadict-mode)) )
1642
4b2fba646dfd Enable whitespace-mode in gadict-mode with appropriate customization.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1640
diff changeset
  1960
(add-hook 'gadict-mode-hook 'my-gedict-enable-whitespace)
1404
a93ed2339d77 Enable whitespace-mode for gadict-mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1403
diff changeset
  1961
1581
ad08a623a8c4 Activate gaphrase mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1580
diff changeset
  1962
(when (fboundp 'gaphrase-mode)
ad08a623a8c4 Activate gaphrase mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1580
diff changeset
  1963
  (add-to-list 'auto-mode-alist '("\\.gaphrase$" . gaphrase-mode)) )
1642
4b2fba646dfd Enable whitespace-mode in gadict-mode with appropriate customization.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1640
diff changeset
  1964
(add-hook 'gaphrase-mode-hook 'my-gedict-enable-whitespace)
1581
ad08a623a8c4 Activate gaphrase mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1580
diff changeset
  1965
1606
044155fc3ef9 Enabled new gadialog mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1605
diff changeset
  1966
(when (fboundp 'gadialog-mode)
044155fc3ef9 Enabled new gadialog mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1605
diff changeset
  1967
  (add-to-list 'auto-mode-alist '("\\.gadialog$" . gadialog-mode)) )
1642
4b2fba646dfd Enable whitespace-mode in gadict-mode with appropriate customization.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1640
diff changeset
  1968
(add-hook 'gadialog-mode-hook 'my-gedict-enable-whitespace)
1606
044155fc3ef9 Enabled new gadialog mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1605
diff changeset
  1969
718
19ab21ec7640 Define own outline-regex to easy view file structure.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 717
diff changeset
  1970
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
826
869bc1369aca Add basic figlet function.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 825
diff changeset
  1971
(message "figlet")
869bc1369aca Add basic figlet function.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 825
diff changeset
  1972
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  1973
(defun my-figlet-region (&optional b e)
826
869bc1369aca Add basic figlet function.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 825
diff changeset
  1974
  (interactive "r")
869bc1369aca Add basic figlet function.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 825
diff changeset
  1975
  (shell-command-on-region b e "figlet" (current-buffer) t)
869bc1369aca Add basic figlet function.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 825
diff changeset
  1976
  (comment-region (mark) (point)))
869bc1369aca Add basic figlet function.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 825
diff changeset
  1977
869bc1369aca Add basic figlet function.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 825
diff changeset
  1978
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
588
aa917b11ffef Initialize remember mode before org-mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 587
diff changeset
  1979
(message "org-mode, GTD, PIM, organize, todo")
79
f80cd58e09cb Use buildin and installed version of org-mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 78
diff changeset
  1980
1375
5959fa99a6f7 Unconditionally enable Org mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1374
diff changeset
  1981
(require 'org)
1697
1319d897155e Enabled org-tempo for shortcut to insert template #+BEGIN_SRC quickly.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1696
diff changeset
  1982
;; For "<s TAB". See `org-structure-template-alist'.
1753
b1de9260e82a org-tempo in missing in Emacs v26.1 in RHEL 8.6.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1752
diff changeset
  1983
(require 'org-tempo nil t)
1698
9d07c2f3a944 Added example how to activate babel executors.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1697
diff changeset
  1984
;; (require 'ob-shell)
9d07c2f3a944 Added example how to activate babel executors.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1697
diff changeset
  1985
;; (require 'ob-python)
1375
5959fa99a6f7 Unconditionally enable Org mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1374
diff changeset
  1986
(require 'org-capture nil t)
5959fa99a6f7 Unconditionally enable Org mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1374
diff changeset
  1987
1685
6a740def74e8 Fixed error 'eval-when is not defined' after switching to cl-lib.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1684
diff changeset
  1988
(cl-eval-when (compile)
1375
5959fa99a6f7 Unconditionally enable Org mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1374
diff changeset
  1989
  (require 'org-agenda)
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
  1990
  (require 'org-archive))
108
1559bb79bdd1 Enable org mode for >= emacs22.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 107
diff changeset
  1991
295
5be44cff4683 Use utf-8 encoding.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 289
diff changeset
  1992
;; XXX org-todo-keywords '((sequence "TODO" "START" "|" "DONE")) for org-version 4.67c
1375
5959fa99a6f7 Unconditionally enable Org mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1374
diff changeset
  1993
(add-to-list 'auto-mode-alist '("\\.org$" . org-mode))
1717
3c60aeba5004 Moved definition of root for Org mode files to defs file.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1711
diff changeset
  1994
(setq org-directory my-org-dir)
1375
5959fa99a6f7 Unconditionally enable Org mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1374
diff changeset
  1995
(setq
5959fa99a6f7 Unconditionally enable Org mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1374
diff changeset
  1996
 org-agenda-ndays 31
5959fa99a6f7 Unconditionally enable Org mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1374
diff changeset
  1997
 org-deadline-warning-days 7
5959fa99a6f7 Unconditionally enable Org mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1374
diff changeset
  1998
 org-agenda-show-all-dates t
5959fa99a6f7 Unconditionally enable Org mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1374
diff changeset
  1999
 org-agenda-format-date "%Y-%m-%d, %A %e %B"
5959fa99a6f7 Unconditionally enable Org mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1374
diff changeset
  2000
 org-agenda-skip-deadline-if-done t
5959fa99a6f7 Unconditionally enable Org mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1374
diff changeset
  2001
 org-agenda-skip-scheduled-if-done t
5959fa99a6f7 Unconditionally enable Org mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1374
diff changeset
  2002
 org-agenda-start-on-weekday nil
5959fa99a6f7 Unconditionally enable Org mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1374
diff changeset
  2003
 org-reverse-note-order t
5959fa99a6f7 Unconditionally enable Org mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1374
diff changeset
  2004
 org-hide-leading-stars t
5959fa99a6f7 Unconditionally enable Org mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1374
diff changeset
  2005
 org-tags-column 64
5959fa99a6f7 Unconditionally enable Org mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1374
diff changeset
  2006
 org-archive-save-context-info '(time file olpath todo itags)
1564
c4ec990891d8 For convenience TAB always hide/show current leaf.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1560
diff changeset
  2007
 org-cycle-emulate-tab nil
1375
5959fa99a6f7 Unconditionally enable Org mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1374
diff changeset
  2008
 )
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  2009
(defvar my-org-agenda-todo-file (concat org-directory "/TODO.org"))
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  2010
(defvar my-org-agenda-note-file (concat org-directory "/NOTE.org"))
1375
5959fa99a6f7 Unconditionally enable Org mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1374
diff changeset
  2011
(setq org-agenda-file-regexp "\\`[^.#].*[^_]\\.org\\'"
5959fa99a6f7 Unconditionally enable Org mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1374
diff changeset
  2012
      org-agenda-files (list org-directory))
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  2013
;; (setq my-org-agenda-learning-file (concat org-directory "/LEARNING.org"))
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  2014
;; (setq org-agenda-files `(,my-org-agenda-todo-file ,my-org-agenda-note-file ,my-org-agenda-learning-file))
1375
5959fa99a6f7 Unconditionally enable Org mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1374
diff changeset
  2015
(define-key global-map "\C-va" 'org-agenda)
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  2016
(define-key global-map "\C-ve" (lambda nil (interactive) (find-file my-org-agenda-note-file)))
1762
a62145ae4fbd Added a shortcut for opening BLOG.rst.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1761
diff changeset
  2017
(define-key global-map "\C-vb" (lambda nil (interactive) (find-file (concat org-directory "/BLOG.rst"))))
1375
5959fa99a6f7 Unconditionally enable Org mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1374
diff changeset
  2018
5959fa99a6f7 Unconditionally enable Org mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1374
diff changeset
  2019
(setq org-todo-keywords '("|" "DONE"))
5959fa99a6f7 Unconditionally enable Org mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1374
diff changeset
  2020
5959fa99a6f7 Unconditionally enable Org mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1374
diff changeset
  2021
;; My tags for remember buffer.
5959fa99a6f7 Unconditionally enable Org mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1374
diff changeset
  2022
(setq org-tag-alist
5959fa99a6f7 Unconditionally enable Org mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1374
diff changeset
  2023
      '(
5959fa99a6f7 Unconditionally enable Org mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1374
diff changeset
  2024
        ("ADMIN" . ?a)
5959fa99a6f7 Unconditionally enable Org mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1374
diff changeset
  2025
        ("BLOG" . ?b)
5959fa99a6f7 Unconditionally enable Org mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1374
diff changeset
  2026
        ("DEVEL" . ?d)
5959fa99a6f7 Unconditionally enable Org mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1374
diff changeset
  2027
        ("HOME" . ?h)
5959fa99a6f7 Unconditionally enable Org mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1374
diff changeset
  2028
        ("GET" . ?g)
5959fa99a6f7 Unconditionally enable Org mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1374
diff changeset
  2029
        ("LIFE" . ?l)
5959fa99a6f7 Unconditionally enable Org mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1374
diff changeset
  2030
        ("MAIL" . ?m)
5959fa99a6f7 Unconditionally enable Org mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1374
diff changeset
  2031
        ("JOB" . ?j)
5959fa99a6f7 Unconditionally enable Org mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1374
diff changeset
  2032
        ("QUESTION" . ?q)
5959fa99a6f7 Unconditionally enable Org mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1374
diff changeset
  2033
        ("PROJECT" . ?p)
5959fa99a6f7 Unconditionally enable Org mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1374
diff changeset
  2034
        ("READ" . ?r)
5959fa99a6f7 Unconditionally enable Org mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1374
diff changeset
  2035
        ("SEE" . ?s)
5959fa99a6f7 Unconditionally enable Org mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1374
diff changeset
  2036
        ))
5959fa99a6f7 Unconditionally enable Org mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1374
diff changeset
  2037
;; With this variable tags duplicated in *Org Tags* menu. I use
5959fa99a6f7 Unconditionally enable Org mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1374
diff changeset
  2038
;; `org-tag-alist' instead until bug fixed.
5959fa99a6f7 Unconditionally enable Org mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1374
diff changeset
  2039
(setq org-tag-persistent-alist nil)
5959fa99a6f7 Unconditionally enable Org mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1374
diff changeset
  2040
5959fa99a6f7 Unconditionally enable Org mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1374
diff changeset
  2041
(setq org-support-shift-select t)
5959fa99a6f7 Unconditionally enable Org mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1374
diff changeset
  2042
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  2043
(setq org-default-notes-file my-org-agenda-todo-file)
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
  2044
(setq org-capture-templates
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  2045
      '(("t" "Todo" entry (file my-org-agenda-todo-file) "* %?\n  SCHEDULED: %T")))
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
  2046
(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
  2047
  (lambda () (interactive) (org-capture nil "t")))
48
5aa6729514f6 Add customize for org mode. Place todo higlight вместе с org mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 47
diff changeset
  2048
1471
431c5408394c Enable company-mode for org-mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1470
diff changeset
  2049
(when (featurep 'company)
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  2050
  (add-hook 'org-mode-hook #'my-company-text-setup))
1640
cbcc2ac8f3e3 Implemented mypasshide-mode for hiding passwords from my .org files.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1639
diff changeset
  2051
(add-hook 'org-mode-hook #'mypasshide-mode)
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  2052
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  2053
(defun my-org-archive-location (path)
1718
9d72f4424570 Removed mentioning of author and copyright from all files' headers.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1717
diff changeset
  2054
  "For given PATH makes path for archive. Currently adds
9d72f4424570 Removed mentioning of author and copyright from all files' headers.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1717
diff changeset
  2055
undescore before file extention. If file name doesn't match
1335
c8606339804e Use entire directory for org-mode file list.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1334
diff changeset
  2056
`org-agenda-file-regexp' or have no extention return `nil'."
c8606339804e Use entire directory for org-mode file list.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1334
diff changeset
  2057
  (if (and (file-name-extension path)
c8606339804e Use entire directory for org-mode file list.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1334
diff changeset
  2058
           (string-match org-agenda-file-regexp (file-name-nondirectory path)))
c8606339804e Use entire directory for org-mode file list.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1334
diff changeset
  2059
      (concat (file-name-sans-extension path) "_." (file-name-extension path))
c8606339804e Use entire directory for org-mode file list.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1334
diff changeset
  2060
    nil))
c8606339804e Use entire directory for org-mode file list.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1334
diff changeset
  2061
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  2062
(defun my-org-archive-file (path)
1335
c8606339804e Use entire directory for org-mode file list.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1334
diff changeset
  2063
  "Move marked by `org-done-keywords' entries to archive file.
1635
d231b87af643 Grouped related code so paragraph selected text can be evaluated by eval-reegion!
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1634
diff changeset
  2064
.
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  2065
Archive file name constructed by `my-org-archive-location'."
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  2066
  (let ( (archive (my-org-archive-location path))
1335
c8606339804e Use entire directory for org-mode file list.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1334
diff changeset
  2067
         entry-re entry-done-re
1112
1fc59cf19c28 Move marked by `org-done-keywords' entries to archive file defined by `my-org-archive-location'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1111
diff changeset
  2068
         entry-beg entry-end )
1335
c8606339804e Use entire directory for org-mode file list.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1334
diff changeset
  2069
    (unless archive
c8606339804e Use entire directory for org-mode file list.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1334
diff changeset
  2070
      (error "'%s' looks like a non-org file..." path))
1112
1fc59cf19c28 Move marked by `org-done-keywords' entries to archive file defined by `my-org-archive-location'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1111
diff changeset
  2071
    (save-excursion
1335
c8606339804e Use entire directory for org-mode file list.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1334
diff changeset
  2072
      (with-current-buffer (find-file-noselect path)
c8606339804e Use entire directory for org-mode file list.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1334
diff changeset
  2073
        (org-set-regexps-and-options)
c8606339804e Use entire directory for org-mode file list.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1334
diff changeset
  2074
        (setq entry-re "^\\* "
c8606339804e Use entire directory for org-mode file list.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1334
diff changeset
  2075
              entry-done-re (concat "^\\* *" (mapconcat 'regexp-quote org-done-keywords "\\|") " "))
c8606339804e Use entire directory for org-mode file list.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1334
diff changeset
  2076
        (kill-new "")
c8606339804e Use entire directory for org-mode file list.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1334
diff changeset
  2077
        (goto-char (point-min))
c8606339804e Use entire directory for org-mode file list.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1334
diff changeset
  2078
        (while (re-search-forward entry-done-re nil t)
c8606339804e Use entire directory for org-mode file list.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1334
diff changeset
  2079
          (setq entry-beg (line-beginning-position))
c8606339804e Use entire directory for org-mode file list.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1334
diff changeset
  2080
          (if (re-search-forward entry-re nil t)
c8606339804e Use entire directory for org-mode file list.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1334
diff changeset
  2081
              (beginning-of-line)
c8606339804e Use entire directory for org-mode file list.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1334
diff changeset
  2082
            (goto-char (point-max)))
c8606339804e Use entire directory for org-mode file list.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1334
diff changeset
  2083
          (setq entry-end (point))
c8606339804e Use entire directory for org-mode file list.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1334
diff changeset
  2084
          (let ( (last-command 'kill-region) )
c8606339804e Use entire directory for org-mode file list.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1334
diff changeset
  2085
            (kill-region entry-beg entry-end))
c8606339804e Use entire directory for org-mode file list.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1334
diff changeset
  2086
          )
1336
7c93663d44f3 Modify archive file only if archive entries found.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1335
diff changeset
  2087
        (when (> (length (car kill-ring)) 0)
7c93663d44f3 Modify archive file only if archive entries found.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1335
diff changeset
  2088
          (with-current-buffer (find-file-noselect archive)
7c93663d44f3 Modify archive file only if archive entries found.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1335
diff changeset
  2089
            (goto-char (point-max))
7c93663d44f3 Modify archive file only if archive entries found.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1335
diff changeset
  2090
            (insert ?\n)
7c93663d44f3 Modify archive file only if archive entries found.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1335
diff changeset
  2091
            (yank)
7c93663d44f3 Modify archive file only if archive entries found.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1335
diff changeset
  2092
            (save-buffer))
7c93663d44f3 Modify archive file only if archive entries found.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1335
diff changeset
  2093
          (save-buffer) )))))
1335
c8606339804e Use entire directory for org-mode file list.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1334
diff changeset
  2094
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  2095
(defun my-org-archive (&optional prefix)
1335
c8606339804e Use entire directory for org-mode file list.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1334
diff changeset
  2096
  "Move all entries marked by `org-done-keywords' to archive
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  2097
files with name mangled by `my-org-archive-location'.
1635
d231b87af643 Grouped related code so paragraph selected text can be evaluated by eval-reegion!
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1634
diff changeset
  2098
.
1433
a062de941d68 Fix docs.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1432
diff changeset
  2099
Without prefix work on current file. With prefix work on
a062de941d68 Fix docs.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1432
diff changeset
  2100
`org-agenda-files'."
1335
c8606339804e Use entire directory for org-mode file list.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1334
diff changeset
  2101
  (interactive "P")
1686
bedbd1cd366d Fixed byte compilation warning: assignment to free variable "for".
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1685
diff changeset
  2102
  (cl-loop for file in (if prefix (org-agenda-files) (list (buffer-file-name))) do
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  2103
        (my-org-archive-file file)))
1112
1fc59cf19c28 Move marked by `org-done-keywords' entries to archive file defined by `my-org-archive-location'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1111
diff changeset
  2104
1351
52f76a250c23 Disable diary integration into org mode because I don't use diary and
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1350
diff changeset
  2105
(setq org-agenda-include-diary nil)
834
07219d4d737e (setq org-agenda-include-diary t)
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 830
diff changeset
  2106
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  2107
(defun my-org-kill-by-tag (tag)
1032
2177746c28a0 Implement 'my-org-kill-by-tag'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1031
diff changeset
  2108
  "Put all entries that matches TAG from current org-file to `kill-ring'."
2177746c28a0 Implement 'my-org-kill-by-tag'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1031
diff changeset
  2109
  (interactive (list (completing-read "Enter tag: " (org-get-buffer-tags))))
1188
bdb5c65b3213 Fix: my-org-kill-by-tag miss some subtree as org-scan-tags assume that buffer unchanged during processing.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1187
diff changeset
  2110
  (let ( rs (last-command 'kill-region) )
bdb5c65b3213 Fix: my-org-kill-by-tag miss some subtree as org-scan-tags assume that buffer unchanged during processing.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1187
diff changeset
  2111
    (setq rs (org-scan-tags
bdb5c65b3213 Fix: my-org-kill-by-tag miss some subtree as org-scan-tags assume that buffer unchanged during processing.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1187
diff changeset
  2112
              (lambda ()
bdb5c65b3213 Fix: my-org-kill-by-tag miss some subtree as org-scan-tags assume that buffer unchanged during processing.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1187
diff changeset
  2113
                (org-mark-subtree)
bdb5c65b3213 Fix: my-org-kill-by-tag miss some subtree as org-scan-tags assume that buffer unchanged during processing.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1187
diff changeset
  2114
                (list (point) (mark)))
bdb5c65b3213 Fix: my-org-kill-by-tag miss some subtree as org-scan-tags assume that buffer unchanged during processing.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1187
diff changeset
  2115
              '(member tag tags-list) nil))
bdb5c65b3213 Fix: my-org-kill-by-tag miss some subtree as org-scan-tags assume that buffer unchanged during processing.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1187
diff changeset
  2116
    (kill-new "")
bdb5c65b3213 Fix: my-org-kill-by-tag miss some subtree as org-scan-tags assume that buffer unchanged during processing.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1187
diff changeset
  2117
    (dolist (r (reverse rs))            ; Kill from the end so upcoming regions still valid.
bdb5c65b3213 Fix: my-org-kill-by-tag miss some subtree as org-scan-tags assume that buffer unchanged during processing.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1187
diff changeset
  2118
      (apply #'kill-region r))))
1032
2177746c28a0 Implement 'my-org-kill-by-tag'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1031
diff changeset
  2119
718
19ab21ec7640 Define own outline-regex to easy view file structure.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 717
diff changeset
  2120
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
545
24992bae7599 Use 'message' instead of comment to easy debug where error occurred.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 544
diff changeset
  2121
(message "TODO, XXX, FIXME highlight")
48
5aa6729514f6 Add customize for org mode. Place todo higlight вместе с org mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 47
diff changeset
  2122
1637
9dc8c7db5541 Update codetags list.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1636
diff changeset
  2123
(defvar my-todo-words '("TODO" "FIXME" "XXX" "HACK" "TBD" "BUG" "DELME" "EDITED"))
1589
ae79beae573a Enable TODO highlighting in all prod modes without listing all modes.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1588
diff changeset
  2124
ae79beae573a Enable TODO highlighting in all prod modes without listing all modes.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1588
diff changeset
  2125
(defun my-todo (&optional mode)
ae79beae573a Enable TODO highlighting in all prod modes without listing all modes.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1588
diff changeset
  2126
  (interactive)
465
0a9cbfab10f4 Moved highlight pattern from hook to mode highlighting list.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 463
diff changeset
  2127
  (font-lock-add-keywords
0a9cbfab10f4 Moved highlight pattern from hook to mode highlighting list.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 463
diff changeset
  2128
   mode
1589
ae79beae573a Enable TODO highlighting in all prod modes without listing all modes.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1588
diff changeset
  2129
   (list (list (concat "\\<" (regexp-opt my-todo-words) "\\>") 0 'font-lock-warning-face t))))
ae79beae573a Enable TODO highlighting in all prod modes without listing all modes.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1588
diff changeset
  2130
1643
ce2756ae43b2 Enabled highlighting of TODO keywords by text-mode-hook.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1642
diff changeset
  2131
(add-hook 'text-mode-hook 'my-todo)
1589
ae79beae573a Enable TODO highlighting in all prod modes without listing all modes.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1588
diff changeset
  2132
(add-hook 'prog-mode-hook 'my-todo)
1636
fbef0a487803 Enable TODO highlighting in config-like modes.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1635
diff changeset
  2133
(add-hook 'conf-mode-hook 'my-todo)
fbef0a487803 Enable TODO highlighting in config-like modes.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1635
diff changeset
  2134
(add-hook 'yaml-mode-hook 'my-todo)
fbef0a487803 Enable TODO highlighting in config-like modes.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1635
diff changeset
  2135
(with-eval-after-load 'generic-x
fbef0a487803 Enable TODO highlighting in config-like modes.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1635
diff changeset
  2136
  (mapc (lambda (mode) (add-hook (intern (concat mode "-hook")) 'my-todo)) generic-mode-list))
284
bf5829d9bbf7 Another way to register TODO highlighting.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 280
diff changeset
  2137
718
19ab21ec7640 Define own outline-regex to easy view file structure.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 717
diff changeset
  2138
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
779
df488c333452 Move message-mode settings to own section.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 778
diff changeset
  2139
(message "mail, message")
df488c333452 Move message-mode settings to own section.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 778
diff changeset
  2140
1685
6a740def74e8 Fixed error 'eval-when is not defined' after switching to cl-lib.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1684
diff changeset
  2141
(cl-eval-when (compile) (require 'message))
1374
313e428cf77c Add (eval-when 'compile ...) to reduce number of Warning: reference to free variable.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1373
diff changeset
  2142
780
afc4ee8b5dea Use message-user-agent as mail-user-agent.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 779
diff changeset
  2143
(setq mail-user-agent 'message-user-agent)
afc4ee8b5dea Use message-user-agent as mail-user-agent.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 779
diff changeset
  2144
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  2145
(defun my-compose-mail ()
938
d063544b9199 Add Organization header for 'C-x m'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 937
diff changeset
  2146
  (interactive)
d063544b9199 Add Organization header for 'C-x m'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 937
diff changeset
  2147
  (compose-mail nil nil `(("Organization" . ,(getenv "ORGANIZATION")))))
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  2148
(global-set-key (kbd "C-x m") #'my-compose-mail)
938
d063544b9199 Add Organization header for 'C-x m'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 937
diff changeset
  2149
781
c0b65744479e Define own citation format. Also this fix of inclusion mail address of cited
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 780
diff changeset
  2150
(setq message-citation-line-format "On %Y-%m-%d, %N wrote:
c0b65744479e Define own citation format. Also this fix of inclusion mail address of cited
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 780
diff changeset
  2151
")
c0b65744479e Define own citation format. Also this fix of inclusion mail address of cited
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 780
diff changeset
  2152
(setq message-citation-line-function 'message-insert-formatted-citation-line)
660
7abcc3f39fe9 Set basic mail settings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 658
diff changeset
  2153
7abcc3f39fe9 Set basic mail settings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 658
diff changeset
  2154
(setq mail-signature t)
7abcc3f39fe9 Set basic mail settings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 658
diff changeset
  2155
(setq mail-signature-file "~/.signature")
7abcc3f39fe9 Set basic mail settings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 658
diff changeset
  2156
;; (add-hook 'mail-setup-hook 'fortune-to-signature)
7abcc3f39fe9 Set basic mail settings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 658
diff changeset
  2157
779
df488c333452 Move message-mode settings to own section.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 778
diff changeset
  2158
;; (setq mail-from-style 'angles)
df488c333452 Move message-mode settings to own section.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 778
diff changeset
  2159
df488c333452 Move message-mode settings to own section.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 778
diff changeset
  2160
(setq mail-personal-alias-file "~/.mailrc")
df488c333452 Move message-mode settings to own section.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 778
diff changeset
  2161
;; Initialize from your mail aliases file...
df488c333452 Move message-mode settings to own section.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 778
diff changeset
  2162
(setq mail-aliases t)
1439
6fc6ce787711 Port to Emacs 22.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1438
diff changeset
  2163
(require 'ecomplete nil t)              ; Absent in Emacs 22.
783
f2d86933e2b5 Enable ecomplete in addition to abbrev for mail completion.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 782
diff changeset
  2164
(setq message-mail-alias-type '(abbrev ecomplete))
779
df488c333452 Move message-mode settings to own section.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 778
diff changeset
  2165
1254
19c7b3be9b3a Define special macro to avoid warning about "assignment to free variable".
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1253
diff changeset
  2166
(my--eval-after-load message
1278
8e47e801be9d Remove qouting from 'my--eval-after-load' macro usage because that code doesn't evaluated.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1277
diff changeset
  2167
  (require 'mailabbrev)
8e47e801be9d Remove qouting from 'my--eval-after-load' macro usage because that code doesn't evaluated.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1277
diff changeset
  2168
  (define-key message-mode-map "\e\t" 'mail-abbrev-complete-alias))
779
df488c333452 Move message-mode settings to own section.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 778
diff changeset
  2169
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  2170
(defun my-message-mode-hook ()
937
8f8987262795 Move code to proper place. Merge duplicate code.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 936
diff changeset
  2171
  (setq fill-column 78)
8f8987262795 Move code to proper place. Merge duplicate code.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 936
diff changeset
  2172
  (turn-on-auto-fill)
8f8987262795 Move code to proper place. Merge duplicate code.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 936
diff changeset
  2173
  (flyspell-mode 1))
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  2174
(add-hook 'message-mode-hook 'my-message-mode-hook)
937
8f8987262795 Move code to proper place. Merge duplicate code.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 936
diff changeset
  2175
1044
84d453ec622e Fix docs. Simplify code.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1043
diff changeset
  2176
;; Mark all my messages by "common" string in "Message-Id" field to simplify
84d453ec622e Fix docs. Simplify code.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1043
diff changeset
  2177
;; lookup for followups to me.
937
8f8987262795 Move code to proper place. Merge duplicate code.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 936
diff changeset
  2178
(setq message-user-fqdn "gavenkoa.example.com")
784
982eee9d0366 Enable flyspell for message composing buffer.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 783
diff changeset
  2179
779
df488c333452 Move message-mode settings to own section.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 778
diff changeset
  2180
;; Kill message buffer after mail send. You always can use C-c C-s to preserve it.
df488c333452 Move message-mode settings to own section.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 778
diff changeset
  2181
(setq message-kill-buffer-on-exit t)
df488c333452 Move message-mode settings to own section.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 778
diff changeset
  2182
1415
26553c2093b1 Rename my public names to use "my/" prefix and my private function to use "my--" prefix.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1414
diff changeset
  2183
(defconst my--message-safe-filename-regex "[[:alnum:]-_!.@]"
893
0e1febcbddb6 Escape file name with safe chars.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 892
diff changeset
  2184
  "Safe file names.")
0e1febcbddb6 Escape file name with safe chars.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 892
diff changeset
  2185
1415
26553c2093b1 Rename my public names to use "my/" prefix and my private function to use "my--" prefix.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1414
diff changeset
  2186
(defun my--message-refine-filename (filename)
893
0e1febcbddb6 Escape file name with safe chars.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 892
diff changeset
  2187
  (mapconcat
1415
26553c2093b1 Rename my public names to use "my/" prefix and my private function to use "my--" prefix.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1414
diff changeset
  2188
   (lambda (ch) (or (when (string-match my--message-safe-filename-regex (char-to-string ch)) (char-to-string ch)) "-"))
893
0e1febcbddb6 Escape file name with safe chars.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 892
diff changeset
  2189
   filename "") )
0e1febcbddb6 Escape file name with safe chars.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 892
diff changeset
  2190
1685
6a740def74e8 Fixed error 'eval-when is not defined' after switching to cl-lib.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1684
diff changeset
  2191
(cl-eval-when (compile) (require 'gnus))
1420
3327e11cea09 Fix many of "Warning: assignment to free variable".
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1419
diff changeset
  2192
1415
26553c2093b1 Rename my public names to use "my/" prefix and my private function to use "my--" prefix.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1414
diff changeset
  2193
(defun my--message-save ()
890
7558a3f8a3d9 Store message in `gnus-article-save-directory' after successful sending. It is
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 889
diff changeset
  2194
  "Store message in `gnus-article-save-directory' after
7558a3f8a3d9 Store message in `gnus-article-save-directory' after successful sending. It is
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 889
diff changeset
  2195
successful sending. It is possible that mail rejected and I lost
7558a3f8a3d9 Store message in `gnus-article-save-directory' after successful sending. It is
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 889
diff changeset
  2196
it completely, this func save it for me."
7558a3f8a3d9 Store message in `gnus-article-save-directory' after successful sending. It is
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 889
diff changeset
  2197
  (unless (eq major-mode 'message-mode)
1415
26553c2093b1 Rename my public names to use "my/" prefix and my private function to use "my--" prefix.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1414
diff changeset
  2198
    (error "Attempt to call my--message-save in non message-mode buffer"))
890
7558a3f8a3d9 Store message in `gnus-article-save-directory' after successful sending. It is
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 889
diff changeset
  2199
  (make-directory gnus-article-save-directory t)
7558a3f8a3d9 Store message in `gnus-article-save-directory' after successful sending. It is
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 889
diff changeset
  2200
  (let ( (buf (current-buffer))
1415
26553c2093b1 Rename my public names to use "my/" prefix and my private function to use "my--" prefix.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1414
diff changeset
  2201
         (field-to (my--message-refine-filename (or (message-fetch-field "Newsgroups") (message-fetch-field "To"))))
26553c2093b1 Rename my public names to use "my/" prefix and my private function to use "my--" prefix.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1414
diff changeset
  2202
         (field-subject (my--message-refine-filename (message-fetch-field "Subject")))
890
7558a3f8a3d9 Store message in `gnus-article-save-directory' after successful sending. It is
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 889
diff changeset
  2203
         file )
1107
cc1303629cde Fix: save-current-buffer: Opening output file: file name too long.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1106
diff changeset
  2204
    (when (> (length field-to) 32)
cc1303629cde Fix: save-current-buffer: Opening output file: file name too long.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1106
diff changeset
  2205
      (setq field-to (substring field-to 0 32)))
cc1303629cde Fix: save-current-buffer: Opening output file: file name too long.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1106
diff changeset
  2206
    (when (> (length field-subject) 64)
cc1303629cde Fix: save-current-buffer: Opening output file: file name too long.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1106
diff changeset
  2207
      (setq field-subject (substring field-subject 0 64)))
1309
00f80b2988a2 Use "-" as hour/minute/second separator instead of ":" to avoid
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1308
diff changeset
  2208
    (setq file (concat gnus-article-save-directory "/" (format-time-string "%F_%H-%M-%S") "_" field-to "_" field-subject))
890
7558a3f8a3d9 Store message in `gnus-article-save-directory' after successful sending. It is
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 889
diff changeset
  2209
    (with-temp-file file
1388
444f477bf77f Fix: Warning: `... is for interactive use only; use `...' instead.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1387
diff changeset
  2210
      (insert-buffer-substring buf)
890
7558a3f8a3d9 Store message in `gnus-article-save-directory' after successful sending. It is
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 889
diff changeset
  2211
      )) )
1415
26553c2093b1 Rename my public names to use "my/" prefix and my private function to use "my--" prefix.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1414
diff changeset
  2212
(add-hook 'message-sent-hook 'my--message-save)
890
7558a3f8a3d9 Store message in `gnus-article-save-directory' after successful sending. It is
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 889
diff changeset
  2213
779
df488c333452 Move message-mode settings to own section.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 778
diff changeset
  2214
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
747
dd1d88804512 Use smtpmail mode for sending mail.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 746
diff changeset
  2215
(message "smtp, smtpmail")
dd1d88804512 Use smtpmail mode for sending mail.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 746
diff changeset
  2216
843
2adc2d3542a4 Use 'sendmail-send-it' for 'send-mail-function' under Debian as
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 842
diff changeset
  2217
(when (and (not (eq system-type 'gnu/linux)) (boundp 'smtpmail-smtp-server))
773
9308a0c91624 Load auth info if possible. Load smtpmail if user provide server to use.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 772
diff changeset
  2218
  (require 'smtpmail)
9308a0c91624 Load auth info if possible. Load smtpmail if user provide server to use.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 772
diff changeset
  2219
  (setq
9308a0c91624 Load auth info if possible. Load smtpmail if user provide server to use.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 772
diff changeset
  2220
   ;; If you use the default mail user agent.
9308a0c91624 Load auth info if possible. Load smtpmail if user provide server to use.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 772
diff changeset
  2221
   send-mail-function 'smtpmail-send-it
9308a0c91624 Load auth info if possible. Load smtpmail if user provide server to use.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 772
diff changeset
  2222
   ;; If you use Message or Gnus.
9308a0c91624 Load auth info if possible. Load smtpmail if user provide server to use.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 772
diff changeset
  2223
   message-send-mail-function 'smtpmail-send-it
9308a0c91624 Load auth info if possible. Load smtpmail if user provide server to use.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 772
diff changeset
  2224
   )
9308a0c91624 Load auth info if possible. Load smtpmail if user provide server to use.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 772
diff changeset
  2225
  )
747
dd1d88804512 Use smtpmail mode for sending mail.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 746
diff changeset
  2226
;; (setq smtpmail-debug-verb t)
dd1d88804512 Use smtpmail mode for sending mail.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 746
diff changeset
  2227
;; (setq smtpmail-debug-info t)
dd1d88804512 Use smtpmail mode for sending mail.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 746
diff changeset
  2228
dd1d88804512 Use smtpmail mode for sending mail.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 746
diff changeset
  2229
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
779
df488c333452 Move message-mode settings to own section.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 778
diff changeset
  2230
(message "gnus, mh-e")
772
f0a62f45a356 Kill message buffer after mail send. You always can use C-c C-s to preserve it.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 771
diff changeset
  2231
1685
6a740def74e8 Fixed error 'eval-when is not defined' after switching to cl-lib.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1684
diff changeset
  2232
(cl-eval-when (compile)
1374
313e428cf77c Add (eval-when 'compile ...) to reduce number of Warning: reference to free variable.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1373
diff changeset
  2233
  (require 'gnus)
1420
3327e11cea09 Fix many of "Warning: assignment to free variable".
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1419
diff changeset
  2234
  (require 'gnus-agent)
1374
313e428cf77c Add (eval-when 'compile ...) to reduce number of Warning: reference to free variable.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1373
diff changeset
  2235
  (require 'gnus-start)
1420
3327e11cea09 Fix many of "Warning: assignment to free variable".
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1419
diff changeset
  2236
  (require 'gnus-score)
3327e11cea09 Fix many of "Warning: assignment to free variable".
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1419
diff changeset
  2237
  (require 'gnus-topic)
3327e11cea09 Fix many of "Warning: assignment to free variable".
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1419
diff changeset
  2238
  (require 'gnus-spec)
3327e11cea09 Fix many of "Warning: assignment to free variable".
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1419
diff changeset
  2239
  (require 'spam))
1374
313e428cf77c Add (eval-when 'compile ...) to reduce number of Warning: reference to free variable.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1373
diff changeset
  2240
1327
dd9d74485fb6 Show List-URL: mail header. Enable spam reporting for Gnus.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1326
diff changeset
  2241
;; (setq gnus-verbose 10)
dd9d74485fb6 Show List-URL: mail header. Enable spam reporting for Gnus.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1326
diff changeset
  2242
757
789d7ac3d34f gnus-site-init-file
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 756
diff changeset
  2243
(setq gnus-site-init-file "~/.gnus.el")
789d7ac3d34f gnus-site-init-file
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 756
diff changeset
  2244
1054
144dcc473957 Set GNUS file reading settings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1050
diff changeset
  2245
(setq
144dcc473957 Set GNUS file reading settings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1050
diff changeset
  2246
 gnus-read-newsrc-file nil
144dcc473957 Set GNUS file reading settings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1050
diff changeset
  2247
 gnus-save-newsrc-file nil
144dcc473957 Set GNUS file reading settings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1050
diff changeset
  2248
 gnus-backup-startup-file t
144dcc473957 Set GNUS file reading settings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1050
diff changeset
  2249
 gnus-use-dribble-file t
144dcc473957 Set GNUS file reading settings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1050
diff changeset
  2250
 gnus-save-killed-list t
144dcc473957 Set GNUS file reading settings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1050
diff changeset
  2251
 )
144dcc473957 Set GNUS file reading settings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1050
diff changeset
  2252
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  2253
(defun my-kill-gnus ()
841
68e40729a4f4 Kill Gnus when exiting Emacs.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 840
diff changeset
  2254
  "Kill Gnus when exiting Emacs."
68e40729a4f4 Kill Gnus when exiting Emacs.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 840
diff changeset
  2255
  (let ( (gnus-interactive-exit nil) )
68e40729a4f4 Kill Gnus when exiting Emacs.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 840
diff changeset
  2256
    (gnus-group-exit)
68e40729a4f4 Kill Gnus when exiting Emacs.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 840
diff changeset
  2257
    ))
1278
8e47e801be9d Remove qouting from 'my--eval-after-load' macro usage because that code doesn't evaluated.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1277
diff changeset
  2258
(my--eval-after-load gnus
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  2259
  (add-hook 'kill-emacs-hook 'my-kill-gnus))
1254
19c7b3be9b3a Define special macro to avoid warning about "assignment to free variable".
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1253
diff changeset
  2260
19c7b3be9b3a Define special macro to avoid warning about "assignment to free variable".
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1253
diff changeset
  2261
(my--eval-after-load gnus-art
1426
7dfa8e98a13d Show Message-Id in Gnus Article buffer. Search for Message-Id in Web.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1425
diff changeset
  2262
  (setq gnus-visible-headers (concat gnus-visible-headers "\\|^Archived-At:\\|^List-URL:\\|^Message-Id:")))
841
68e40729a4f4 Kill Gnus when exiting Emacs.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 840
diff changeset
  2263
794
7f81d5acc2bc Store gnus specific files to '~/.gnus'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 793
diff changeset
  2264
;; Store gnus specific files to '~/.gnus'.
804
c347ec94c201 Set "~/.gnus" prefix to all mail directories.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 803
diff changeset
  2265
(setq
c347ec94c201 Set "~/.gnus" prefix to all mail directories.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 803
diff changeset
  2266
 gnus-directory "~/.gnus"
c347ec94c201 Set "~/.gnus" prefix to all mail directories.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 803
diff changeset
  2267
 gnus-agent-directory "~/.gnus/agent/"
c347ec94c201 Set "~/.gnus" prefix to all mail directories.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 803
diff changeset
  2268
 gnus-article-save-directory "~/.gnus/saved"
c347ec94c201 Set "~/.gnus" prefix to all mail directories.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 803
diff changeset
  2269
 gnus-kill-files-directory "~/.gnus/scores"
c347ec94c201 Set "~/.gnus" prefix to all mail directories.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 803
diff changeset
  2270
 gnus-cache-directory "~/.gnus/cache"
c347ec94c201 Set "~/.gnus" prefix to all mail directories.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 803
diff changeset
  2271
 mail-source-directory "~/.gnus/mail"
c347ec94c201 Set "~/.gnus" prefix to all mail directories.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 803
diff changeset
  2272
 message-directory "~/.gnus/mail"
c347ec94c201 Set "~/.gnus" prefix to all mail directories.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 803
diff changeset
  2273
 message-auto-save-directory "~/.gnus/autosave"
c347ec94c201 Set "~/.gnus" prefix to all mail directories.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 803
diff changeset
  2274
 ;; message-signature-directory
c347ec94c201 Set "~/.gnus" prefix to all mail directories.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 803
diff changeset
  2275
 mailcap-download-directory  "~/.gnus/mailcap"
1421
becf4559afc2 gnus-treat-date-user-defined no longer exist. Also it is unclear how
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1420
diff changeset
  2276
 ;; nnml-directory "~/.gnus/nnml-mail"
804
c347ec94c201 Set "~/.gnus" prefix to all mail directories.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 803
diff changeset
  2277
 spam-directory "~/.gnus/spam/"
c347ec94c201 Set "~/.gnus" prefix to all mail directories.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 803
diff changeset
  2278
 smime-certificate-directory "~/.gnus/certs/"
1392
2979c26ce356 sgml-set-face is not defined anywhere. Fix some Warning: assignment to free variable.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1391
diff changeset
  2279
 ;; nnfolder-directory "~/.gnus/archive"
2979c26ce356 sgml-set-face is not defined anywhere. Fix some Warning: assignment to free variable.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1391
diff changeset
  2280
 ;; nnfolder-active-file "~/.gnus/archive/active"
975
75ac0063fd22 Fix indenting.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 974
diff changeset
  2281
 )
798
c1f795e32b09 Spam settings (commented).
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 797
diff changeset
  2282
806
eaabe3db15a5 Remove gnus-ignored-newsgroups to show all GMail folders.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 805
diff changeset
  2283
;; Remove gnus-ignored-newsgroups to show all GMail folders.
862
6b956999856b Fix "isearch-no-upper-case-p: Wrong type argument: stringp, nil" from gnus.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 861
diff changeset
  2284
(setq gnus-ignored-newsgroups "some-non-existing")
798
c1f795e32b09 Spam settings (commented).
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 797
diff changeset
  2285
1327
dd9d74485fb6 Show List-URL: mail header. Enable spam reporting for Gnus.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1326
diff changeset
  2286
(my--eval-after-load gnus
dd9d74485fb6 Show List-URL: mail header. Enable spam reporting for Gnus.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1326
diff changeset
  2287
  (require 'spam)
1331
69f9d5bdbddd Initialise stam module after loading.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1330
diff changeset
  2288
  (spam-initialize)
1327
dd9d74485fb6 Show List-URL: mail header. Enable spam reporting for Gnus.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1326
diff changeset
  2289
  (setq gnus-spam-process-newsgroups
dd9d74485fb6 Show List-URL: mail header. Enable spam reporting for Gnus.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1326
diff changeset
  2290
        '(("^gmane\\." ((spam spam-use-gmane))))))
794
7f81d5acc2bc Store gnus specific files to '~/.gnus'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 793
diff changeset
  2291
739
65e6b1b497fb Add some GNUS settings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 738
diff changeset
  2292
(setq
819
38b7c81853e8 Mark that I am not 'gnus-novice-user' to avoid conformation when delete mails.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 818
diff changeset
  2293
 gnus-novice-user nil
739
65e6b1b497fb Add some GNUS settings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 738
diff changeset
  2294
 gnus-expert-user nil
65e6b1b497fb Add some GNUS settings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 738
diff changeset
  2295
 gnus-interactive-catchup t
1573
808d904b7de2 Reindent code.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1572
diff changeset
  2296
 gnus-interactive-exit t)
739
65e6b1b497fb Add some GNUS settings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 738
diff changeset
  2297
65e6b1b497fb Add some GNUS settings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 738
diff changeset
  2298
(setq
65e6b1b497fb Add some GNUS settings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 738
diff changeset
  2299
 gnus-read-active-file nil
65e6b1b497fb Add some GNUS settings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 738
diff changeset
  2300
 gnus-check-new-newsgroups nil
1573
808d904b7de2 Reindent code.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1572
diff changeset
  2301
 gnus-check-bogus-newsgroups nil)
739
65e6b1b497fb Add some GNUS settings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 738
diff changeset
  2302
1058
fac5c0d3af6a Check for timeout in gnus article fetching.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1055
diff changeset
  2303
(setq nntp-connection-timeout 10)
fac5c0d3af6a Check for timeout in gnus article fetching.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1055
diff changeset
  2304
902
09f76020fc46 Increase gnus-large-newsgroup.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 901
diff changeset
  2305
(setq gnus-large-newsgroup 800)
941
ea395da0c817 Increase gnus-large-ephemeral-newsgroup.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 940
diff changeset
  2306
(setq gnus-large-ephemeral-newsgroup 600)
ea395da0c817 Increase gnus-large-ephemeral-newsgroup.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 940
diff changeset
  2307
(setq gnus-group-listing-limit 1000)
902
09f76020fc46 Increase gnus-large-newsgroup.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 901
diff changeset
  2308
912
a3b18cbc7293 Set gnus-summary-next-group-on-exit to nil as I like stay an group from which
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 911
diff changeset
  2309
(setq
a3b18cbc7293 Set gnus-summary-next-group-on-exit to nil as I like stay an group from which
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 911
diff changeset
  2310
 gnus-group-goto-unread t
1573
808d904b7de2 Reindent code.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1572
diff changeset
  2311
 gnus-summary-next-group-on-exit nil)
912
a3b18cbc7293 Set gnus-summary-next-group-on-exit to nil as I like stay an group from which
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 911
diff changeset
  2312
922
b0636498a974 Shown read groups anyway.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 921
diff changeset
  2313
(setq
b0636498a974 Shown read groups anyway.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 921
diff changeset
  2314
 gnus-permanently-visible-groups ".*"
b0636498a974 Shown read groups anyway.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 921
diff changeset
  2315
 gnus-topic-display-empty-topics t)
913
cb42c2651d3f Add command to show all subscribed groups (ever read).
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 912
diff changeset
  2316
829
093b6699e903 Some settings for Gnus caching (same as default values).
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 826
diff changeset
  2317
;; (setq 'gnus-use-cache t)
093b6699e903 Some settings for Gnus caching (same as default values).
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 826
diff changeset
  2318
(setq gnus-use-long-file-name t)
093b6699e903 Some settings for Gnus caching (same as default values).
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 826
diff changeset
  2319
(setq gnus-cache-remove-articles '(read))
093b6699e903 Some settings for Gnus caching (same as default values).
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 826
diff changeset
  2320
786
496791c4fe36 If you're spooling in overlapping mbox folders, you probably want
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 785
diff changeset
  2321
;; If you're spooling in overlapping mbox folders, you probably want to delete
496791c4fe36 If you're spooling in overlapping mbox folders, you probably want
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 785
diff changeset
  2322
;; all messages with duplicate message IDs.
496791c4fe36 If you're spooling in overlapping mbox folders, you probably want
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 785
diff changeset
  2323
(setq nnmail-treat-duplicates 'delete)
496791c4fe36 If you're spooling in overlapping mbox folders, you probably want
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 785
diff changeset
  2324
1316
da311a1522a0 Disable Warning: FAIL: (file-error "Cannot open load file" "w3m-util")
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1315
diff changeset
  2325
;; To disable html part of a message:
da311a1522a0 Disable Warning: FAIL: (file-error "Cannot open load file" "w3m-util")
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1315
diff changeset
  2326
;; (setq mm-discouraged-alternatives '("text/html" "text/richtext"))
da311a1522a0 Disable Warning: FAIL: (file-error "Cannot open load file" "w3m-util")
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1315
diff changeset
  2327
;; I manage to open link in external browser and fix navigation command so pretty ok with HTML parts.
da311a1522a0 Disable Warning: FAIL: (file-error "Cannot open load file" "w3m-util")
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1315
diff changeset
  2328
(setq mm-discouraged-alternatives '("text/richtext"))
1574
52e28dfd9aff gnus-buttonized-mime-types
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1573
diff changeset
  2329
(setq gnus-buttonized-mime-types '("text/html"))
52e28dfd9aff gnus-buttonized-mime-types
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1573
diff changeset
  2330
1645
25cc74027466 Switched to build-in GNUS HTML renderer as Emacs cannot find w3m in Cygwin even if the package is installed.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1643
diff changeset
  2331
(setq mm-text-html-renderer 'shr)
787
fc00f202c3e3 Do not use the html part of a message, use the text part if possible!
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 786
diff changeset
  2332
1685
6a740def74e8 Fixed error 'eval-when is not defined' after switching to cl-lib.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1684
diff changeset
  2333
(cl-eval-when (compile)
1316
da311a1522a0 Disable Warning: FAIL: (file-error "Cannot open load file" "w3m-util")
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1315
diff changeset
  2334
  (ignore-errors
da311a1522a0 Disable Warning: FAIL: (file-error "Cannot open load file" "w3m-util")
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1315
diff changeset
  2335
    ;; w3m-anchor is macros in newer Emacs, need definition during byte-compilation.
da311a1522a0 Disable Warning: FAIL: (file-error "Cannot open load file" "w3m-util")
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1315
diff changeset
  2336
    (require 'w3m-util)))
1294
03ff957a2614 Fix: my-w3m-view-url: Invalid function: w3m-anchor
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1292
diff changeset
  2337
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  2338
(defun my-w3m-view-url ()
1071
60f93286b9a1 Browse URLs in external browser in w3m.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1068
diff changeset
  2339
  (interactive)
60f93286b9a1 Browse URLs in external browser in w3m.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1068
diff changeset
  2340
  (browse-url (w3m-anchor)))
60f93286b9a1 Browse URLs in external browser in w3m.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1068
diff changeset
  2341
1254
19c7b3be9b3a Define special macro to avoid warning about "assignment to free variable".
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1253
diff changeset
  2342
(my--eval-after-load w3m
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  2343
  (define-key w3m-minor-mode-map (kbd "RET") #'my-w3m-view-url)
1278
8e47e801be9d Remove qouting from 'my--eval-after-load' macro usage because that code doesn't evaluated.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1277
diff changeset
  2344
  (define-key w3m-minor-mode-map (kbd "S-RET") #'w3m-safe-view-this-url)
8e47e801be9d Remove qouting from 'my--eval-after-load' macro usage because that code doesn't evaluated.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1277
diff changeset
  2345
  (define-key w3m-minor-mode-map (kbd "<left>") #'backward-char)
8e47e801be9d Remove qouting from 'my--eval-after-load' macro usage because that code doesn't evaluated.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1277
diff changeset
  2346
  (define-key w3m-minor-mode-map (kbd "<right>") #'forward-char)
8e47e801be9d Remove qouting from 'my--eval-after-load' macro usage because that code doesn't evaluated.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1277
diff changeset
  2347
  (define-key w3m-minor-mode-map (kbd "<up>") #'previous-line)
8e47e801be9d Remove qouting from 'my--eval-after-load' macro usage because that code doesn't evaluated.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1277
diff changeset
  2348
  (define-key w3m-minor-mode-map (kbd "<down>") #'next-line))
940
90485e256108 Add key bindings for natural movement by arrow keys and opening url in
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 939
diff changeset
  2349
797
886b872e46cc gnus-topic-mode
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 796
diff changeset
  2350
(add-hook 'gnus-group-mode-hook 'gnus-topic-mode)
886b872e46cc gnus-topic-mode
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 796
diff changeset
  2351
1278
8e47e801be9d Remove qouting from 'my--eval-after-load' macro usage because that code doesn't evaluated.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1277
diff changeset
  2352
(my--eval-after-load gnus
8e47e801be9d Remove qouting from 'my--eval-after-load' macro usage because that code doesn't evaluated.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1277
diff changeset
  2353
  (gnus-demon-add-handler 'gnus-demon-scan-news 10 t))
898
5cf5a1df2fb8 Scan for news.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 897
diff changeset
  2354
929
dc590d8c6f7b Show prefix and 'To' field instead 'From' for my mails.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 928
diff changeset
  2355
;; Show prefix and 'To' field instead 'From' for my mails.
1328
a2ce26837465 Mark my article more visually.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1327
diff changeset
  2356
(setq gnus-summary-to-prefix (if window-system "▒ " "==> "))
a2ce26837465 Mark my article more visually.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1327
diff changeset
  2357
(setq gnus-summary-newsgroup-prefix (if window-system "▒ " "==> "))
929
dc590d8c6f7b Show prefix and 'To' field instead 'From' for my mails.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 928
diff changeset
  2358
(setq gnus-ignored-from-addresses (list (regexp-quote user-mail-address) (regexp-quote user-full-name)))
dc590d8c6f7b Show prefix and 'To' field instead 'From' for my mails.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 928
diff changeset
  2359
936
c5f9c7bc1661 Use ORGANIZATION env var in gnus-posting-styles.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 935
diff changeset
  2360
(setq gnus-posting-styles
c5f9c7bc1661 Use ORGANIZATION env var in gnus-posting-styles.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 935
diff changeset
  2361
      '((".*"
c5f9c7bc1661 Use ORGANIZATION env var in gnus-posting-styles.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 935
diff changeset
  2362
         (organization (getenv "ORGANIZATION"))
c5f9c7bc1661 Use ORGANIZATION env var in gnus-posting-styles.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 935
diff changeset
  2363
         (signature-file "~/.signature"))))
742
f59b924b1b7d Add signature to mails.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 741
diff changeset
  2364
1673
bd16419905c0 Delay evaluation of gnus-add-configuration to gnus start time. It takes 25% of my Emacs start time.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1671
diff changeset
  2365
(my--eval-after-load gnus
bd16419905c0 Delay evaluation of gnus-add-configuration to gnus start time. It takes 25% of my Emacs start time.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1671
diff changeset
  2366
  (gnus-add-configuration
bd16419905c0 Delay evaluation of gnus-add-configuration to gnus start time. It takes 25% of my Emacs start time.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1671
diff changeset
  2367
   '(article (vertical 1.0 (summary .30 point) (article 1.0)))))
928
067307a8ab45 Change layout of summary buffer: add group window.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 927
diff changeset
  2368
932
5648b7498bc5 gnus-summary-display-arrow
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 931
diff changeset
  2369
(setq gnus-summary-display-arrow t)
5648b7498bc5 gnus-summary-display-arrow
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 931
diff changeset
  2370
897
1979b76d6f6b Remember when I visit group last time.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 896
diff changeset
  2371
;; `gnus-summary-line-format',
789
6daf35744ad3 Modify 'gnus-summary-line-format'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 788
diff changeset
  2372
;; `gnus-server-line-format', `gnus-topic-line-format',
6daf35744ad3 Modify 'gnus-summary-line-format'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 788
diff changeset
  2373
;; `gnus-group-mode-line-format', `gnus-summary-mode-line-format',
6daf35744ad3 Modify 'gnus-summary-line-format'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 788
diff changeset
  2374
;; `gnus-article-mode-line-format', `gnus-server-mode-line-format',
6daf35744ad3 Modify 'gnus-summary-line-format'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 788
diff changeset
  2375
;; `gnus-summary-pick-line-format'.
6daf35744ad3 Modify 'gnus-summary-line-format'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 788
diff changeset
  2376
790
356d5ed1649c Customize gnus-sum-thread-tree.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 789
diff changeset
  2377
(when window-system
356d5ed1649c Customize gnus-sum-thread-tree.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 789
diff changeset
  2378
  (setq
931
de20db59231c Highlight root articles in Gnus summary buffer.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 930
diff changeset
  2379
   gnus-sum-thread-tree-root "● "
1531
59d0e2ab77f1 Replace triangle symbol with alternatives that is worked with default Windows fonts.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1530
diff changeset
  2380
   gnus-sum-thread-tree-false-root " © "
790
356d5ed1649c Customize gnus-sum-thread-tree.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 789
diff changeset
  2381
   gnus-sum-thread-tree-indent " "
1531
59d0e2ab77f1 Replace triangle symbol with alternatives that is worked with default Windows fonts.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1530
diff changeset
  2382
   gnus-sum-thread-tree-single-indent "• "
59d0e2ab77f1 Replace triangle symbol with alternatives that is worked with default Windows fonts.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1530
diff changeset
  2383
   gnus-sum-thread-tree-leaf-with-other "├○ "
59d0e2ab77f1 Replace triangle symbol with alternatives that is worked with default Windows fonts.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1530
diff changeset
  2384
   gnus-sum-thread-tree-single-leaf "└○ "
790
356d5ed1649c Customize gnus-sum-thread-tree.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 789
diff changeset
  2385
   gnus-sum-thread-tree-vertical "│"
356d5ed1649c Customize gnus-sum-thread-tree.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 789
diff changeset
  2386
   ))
356d5ed1649c Customize gnus-sum-thread-tree.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 789
diff changeset
  2387
789
6daf35744ad3 Modify 'gnus-summary-line-format'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 788
diff changeset
  2388
(setq gnus-user-date-format-alist '((t . "%Y-%m-%d %H:%M")))
791
134ec9507faf Show standard status in Gnus summary.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 790
diff changeset
  2389
(setq gnus-summary-line-format "%U%R%z %&user-date; %B %[%-22,22f%] %s\n")
789
6daf35744ad3 Modify 'gnus-summary-line-format'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 788
diff changeset
  2390
(setq gnus-summary-mode-line-format "Gnus: %p %Z")
6daf35744ad3 Modify 'gnus-summary-line-format'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 788
diff changeset
  2391
744
d3fc2caa5498 Setup own time format (ISO 8601 + day of week) for GNUS article.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 743
diff changeset
  2392
(setq gnus-article-time-format "%Y-%m-%d %T%z %a")
782
03aa367920e6 Make date header setting in portable way as recommended in manual.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 781
diff changeset
  2393
(setq gnus-article-date-headers '(combined-lapsed user-defined))
744
d3fc2caa5498 Setup own time format (ISO 8601 + day of week) for GNUS article.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 743
diff changeset
  2394
897
1979b76d6f6b Remember when I visit group last time.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 896
diff changeset
  2395
;; Remember when I visit group last time.
1979b76d6f6b Remember when I visit group last time.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 896
diff changeset
  2396
(add-hook 'gnus-select-group-hook 'gnus-group-set-timestamp)
1979b76d6f6b Remember when I visit group last time.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 896
diff changeset
  2397
1431
c78504ea530f Fix: Warning: reference to free variable `gnus-tmp-group'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1430
diff changeset
  2398
(defvar gnus-tmp-group)
897
1979b76d6f6b Remember when I visit group last time.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 896
diff changeset
  2399
(defun gnus-user-format-function-d (header)
1979b76d6f6b Remember when I visit group last time.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 896
diff changeset
  2400
  (let ((time (gnus-group-timestamp gnus-tmp-group)))
899
e723c4b0d48c Do not show very old timestamps.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 898
diff changeset
  2401
    (if (and time (time-less-p (time-subtract (current-time) time) (seconds-to-time (* 3600 24 7 30 2))))
897
1979b76d6f6b Remember when I visit group last time.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 896
diff changeset
  2402
        (format-time-string "%Y-%m-%d %H:%M" time)
1979b76d6f6b Remember when I visit group last time.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 896
diff changeset
  2403
      "")))
1979b76d6f6b Remember when I visit group last time.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 896
diff changeset
  2404
;; %d (or with user defined format %ud) shown when I visit group last time in
1979b76d6f6b Remember when I visit group last time.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 896
diff changeset
  2405
;; %*Group* buffer.
1979b76d6f6b Remember when I visit group last time.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 896
diff changeset
  2406
(setq gnus-group-line-format "%M%S%p%P%6y:%B%(%-50,50G%)%3O %ud\n")
1979b76d6f6b Remember when I visit group last time.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 896
diff changeset
  2407
944
664e6f4c3dc8 Document gnus-extra-headers.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 942
diff changeset
  2408
;; gnus-visible-headers gnus-extra-headers
796
23e9f51428a9 gnus-sorted-header-list
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 795
diff changeset
  2409
(setq
23e9f51428a9 gnus-sorted-header-list
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 795
diff changeset
  2410
 gnus-sorted-header-list
23e9f51428a9 gnus-sorted-header-list
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 795
diff changeset
  2411
 '(
23e9f51428a9 gnus-sorted-header-list
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 795
diff changeset
  2412
   "^From:"
23e9f51428a9 gnus-sorted-header-list
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 795
diff changeset
  2413
   "^Subject:"
23e9f51428a9 gnus-sorted-header-list
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 795
diff changeset
  2414
   "^Summary:"
23e9f51428a9 gnus-sorted-header-list
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 795
diff changeset
  2415
   "^Keywords:"
23e9f51428a9 gnus-sorted-header-list
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 795
diff changeset
  2416
   "^Newsgroups:"
23e9f51428a9 gnus-sorted-header-list
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 795
diff changeset
  2417
   "^Followup-To:"
23e9f51428a9 gnus-sorted-header-list
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 795
diff changeset
  2418
   "^To:"
23e9f51428a9 gnus-sorted-header-list
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 795
diff changeset
  2419
   "^Cc:"
23e9f51428a9 gnus-sorted-header-list
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 795
diff changeset
  2420
   "^Organization:"
23e9f51428a9 gnus-sorted-header-list
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 795
diff changeset
  2421
   "^Date:"
23e9f51428a9 gnus-sorted-header-list
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 795
diff changeset
  2422
   "^User-Agent:"
23e9f51428a9 gnus-sorted-header-list
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 795
diff changeset
  2423
   "^X-Mailer:"
23e9f51428a9 gnus-sorted-header-list
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 795
diff changeset
  2424
   "^X-Newsreader:"
23e9f51428a9 gnus-sorted-header-list
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 795
diff changeset
  2425
   ))
795
627ed33d9488 gnus-visible-headers
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 794
diff changeset
  2426
755
6f903d3b2ec7 Adaptive score for GNUS.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 754
diff changeset
  2427
(setq
6f903d3b2ec7 Adaptive score for GNUS.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 754
diff changeset
  2428
 gnus-show-threads t
785
7956c2497dda gnus-thread-sort-by-date
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 784
diff changeset
  2429
 gnus-thread-sort-functions '(gnus-thread-sort-by-date gnus-thread-sort-by-total-score)
1048
9d671852b5c1 Some GNUS default settings...
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1047
diff changeset
  2430
 gnus-summary-thread-gathering-function 'gnus-gather-threads-by-subject
9d671852b5c1 Some GNUS default settings...
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1047
diff changeset
  2431
 gnus-summary-gather-subject-limit 'fuzzy
9d671852b5c1 Some GNUS default settings...
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1047
diff changeset
  2432
 gnus-thread-hide-killed t
9d671852b5c1 Some GNUS default settings...
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1047
diff changeset
  2433
 gnus-thread-ignore-subject t
755
6f903d3b2ec7 Adaptive score for GNUS.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 754
diff changeset
  2434
 )
788
b7b60066599e Split scoring setting from other.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 787
diff changeset
  2435
906
da962aa69458 Especially highlight my message and replays to me.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 905
diff changeset
  2436
;; gnus-summary-mark-below gnus-summary-default-score gnus-summary-default-high-score gnus-summary-default-low-score
da962aa69458 Especially highlight my message and replays to me.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 905
diff changeset
  2437
908
e3b3e9f4d759 New scoring rules.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 906
diff changeset
  2438
;; Scoring.
e3b3e9f4d759 New scoring rules.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 906
diff changeset
  2439
(setq
820
dc1331cd9729 Set gnus-use-scoring to t.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 819
diff changeset
  2440
 gnus-use-scoring t
dc1331cd9729 Set gnus-use-scoring to t.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 819
diff changeset
  2441
 gnus-save-score t
788
b7b60066599e Split scoring setting from other.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 787
diff changeset
  2442
 gnus-score-expiry-days 60
1039
b87d918d2523 I don't need lowering scores.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1038
diff changeset
  2443
 ;; gnus-decay-scores t
903
6b24df8816ff Set gnus-score-decay-constant.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 902
diff changeset
  2444
 gnus-score-decay-constant 3
788
b7b60066599e Split scoring setting from other.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 787
diff changeset
  2445
 )
908
e3b3e9f4d759 New scoring rules.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 906
diff changeset
  2446
1041
0b70ed39332f These variables are local to each summary buffer and usually set by the score
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1040
diff changeset
  2447
(setq gnus-score-interactive-default-score 100)
0b70ed39332f These variables are local to each summary buffer and usually set by the score
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1040
diff changeset
  2448
0b70ed39332f These variables are local to each summary buffer and usually set by the score
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1040
diff changeset
  2449
;; These variables are local to each summary buffer and usually set by the
0b70ed39332f These variables are local to each summary buffer and usually set by the score
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1040
diff changeset
  2450
;; score file: gnus-summary-mark-below, gnus-summary-expunge-below, gnus-thread-expunge-below
909
14efc19ada1c Do not use gnus-score-followup-article if we use gnus-score-followup-thread.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 908
diff changeset
  2451
908
e3b3e9f4d759 New scoring rules.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 906
diff changeset
  2452
(setq gnus-use-adaptive-scoring t)
945
79c13b7327fa I use 100 for replay to me and 200 for essential mails, and -50 for bad mails.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 944
diff changeset
  2453
;; I use 100 for replay to me and 200 for essential mails, and -50 for bad mails.
908
e3b3e9f4d759 New scoring rules.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 906
diff changeset
  2454
(setq gnus-default-adaptive-score-alist
e3b3e9f4d759 New scoring rules.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 906
diff changeset
  2455
      '(
e3b3e9f4d759 New scoring rules.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 906
diff changeset
  2456
        (gnus-unread-mark)
945
79c13b7327fa I use 100 for replay to me and 200 for essential mails, and -50 for bad mails.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 944
diff changeset
  2457
        (gnus-ticked-mark (followup 100))
79c13b7327fa I use 100 for replay to me and 200 for essential mails, and -50 for bad mails.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 944
diff changeset
  2458
        (gnus-dormant-mark (followup 100))
918
f7a88390ec90 Decrease score only if I delete articles, not when read.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 916
diff changeset
  2459
        ;; (gnus-read-mark (followup -50))
f7a88390ec90 Decrease score only if I delete articles, not when read.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 916
diff changeset
  2460
        ;; (gnus-catchup-mark (subject -50))
f7a88390ec90 Decrease score only if I delete articles, not when read.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 916
diff changeset
  2461
        (gnus-del-mark (followup -50))
908
e3b3e9f4d759 New scoring rules.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 906
diff changeset
  2462
        (gnus-killed-mark (followup -50))
e3b3e9f4d759 New scoring rules.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 906
diff changeset
  2463
        (gnus-kill-file-mark (from -9999))
945
79c13b7327fa I use 100 for replay to me and 200 for essential mails, and -50 for bad mails.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 944
diff changeset
  2464
        ))
908
e3b3e9f4d759 New scoring rules.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 906
diff changeset
  2465
793
dee9b2482842 Increase the score for followups to a sent article.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 792
diff changeset
  2466
;; Increase the score for followups to a sent article.
1254
19c7b3be9b3a Define special macro to avoid warning about "assignment to free variable".
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1253
diff changeset
  2467
(my--eval-after-load gnus-score
1278
8e47e801be9d Remove qouting from 'my--eval-after-load' macro usage because that code doesn't evaluated.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1277
diff changeset
  2468
  ;; (add-hook 'message-sent-hook 'gnus-score-followup-article)
8e47e801be9d Remove qouting from 'my--eval-after-load' macro usage because that code doesn't evaluated.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1277
diff changeset
  2469
  (add-hook 'message-sent-hook 'gnus-score-followup-thread))
755
6f903d3b2ec7 Adaptive score for GNUS.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 754
diff changeset
  2470
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  2471
(defvar my-gnus-summary-kill-same-subject-min-len 8
1047
a9fcc9b86225 Fix feature name. Limit minimal subject length for exclude...
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1046
diff changeset
  2472
  "Minimal length of subject string to ignore this subject.")
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  2473
(defun my-gnus-summary-kill-same-subject (&optional unmark)
1046
2ca7e7cfa6d9 Add negative scores for all articles with same subject.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1044
diff changeset
  2474
  "Add negative scores for all articles with same subject."
2ca7e7cfa6d9 Add negative scores for all articles with same subject.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1044
diff changeset
  2475
  (interactive "P")
2ca7e7cfa6d9 Add negative scores for all articles with same subject.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1044
diff changeset
  2476
  (when (or (not (integerp unmark)) (< 0 unmark))
1047
a9fcc9b86225 Fix feature name. Limit minimal subject length for exclude...
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1046
diff changeset
  2477
    (let ( (subj (gnus-simplify-subject-fuzzy (gnus-summary-article-subject))) )
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  2478
      (when (<= (length subj) my-gnus-summary-kill-same-subject-min-len)
1047
a9fcc9b86225 Fix feature name. Limit minimal subject length for exclude...
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1046
diff changeset
  2479
        (gnus-summary-score-entry
a9fcc9b86225 Fix feature name. Limit minimal subject length for exclude...
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1046
diff changeset
  2480
         "subject" subj
a9fcc9b86225 Fix feature name. Limit minimal subject length for exclude...
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1046
diff changeset
  2481
         's (- gnus-score-interactive-default-score) (current-time-string)))))
1046
2ca7e7cfa6d9 Add negative scores for all articles with same subject.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1044
diff changeset
  2482
  (gnus-summary-kill-same-subject unmark))
1254
19c7b3be9b3a Define special macro to avoid warning about "assignment to free variable".
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1253
diff changeset
  2483
(my--eval-after-load gnus-sum
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  2484
  (define-key gnus-summary-mode-map (kbd "C-k") #'my-gnus-summary-kill-same-subject))
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  2485
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  2486
(defun my-gnus-mark-thread-as-read ()
1118
ece4746ba12e Mark unmarked articles in current thread as read and move to
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1117
diff changeset
  2487
  "Mark unmarked articles in current thread as read and move to
ece4746ba12e Mark unmarked articles in current thread as read and move to
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1117
diff changeset
  2488
next thread without selecting article."
ece4746ba12e Mark unmarked articles in current thread as read and move to
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1117
diff changeset
  2489
  (interactive)
ece4746ba12e Mark unmarked articles in current thread as read and move to
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1117
diff changeset
  2490
  (gnus-summary-top-thread)
ece4746ba12e Mark unmarked articles in current thread as read and move to
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1117
diff changeset
  2491
  (catch 'exit
ece4746ba12e Mark unmarked articles in current thread as read and move to
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1117
diff changeset
  2492
    (while t
ece4746ba12e Mark unmarked articles in current thread as read and move to
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1117
diff changeset
  2493
      (when (eq (gnus-summary-article-mark (gnus-summary-article-number)) gnus-unread-mark)
ece4746ba12e Mark unmarked articles in current thread as read and move to
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1117
diff changeset
  2494
        (gnus-summary-mark-article (gnus-summary-article-number) gnus-del-mark))
ece4746ba12e Mark unmarked articles in current thread as read and move to
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1117
diff changeset
  2495
      (when (or (not (gnus-summary-search-forward)) (eq (gnus-summary-thread-level) 0))
ece4746ba12e Mark unmarked articles in current thread as read and move to
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1117
diff changeset
  2496
        (throw 'exit nil)) )))
1254
19c7b3be9b3a Define special macro to avoid warning about "assignment to free variable".
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1253
diff changeset
  2497
(my--eval-after-load gnus-sum
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  2498
  (define-key gnus-summary-mode-map (kbd "H-k") #'my-gnus-mark-thread-as-read))
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  2499
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  2500
(defun my-gnus-thread-score-function (&rest scores)
919
fcd73bc6b91c Own gnus-thread-score-function: If any followup have positive score assign
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 918
diff changeset
  2501
  "If any followup have positive score assign greater available
fcd73bc6b91c Own gnus-thread-score-function: If any followup have positive score assign
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 918
diff changeset
  2502
score to thread, else assign lesser available score."
fcd73bc6b91c Own gnus-thread-score-function: If any followup have positive score assign
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 918
diff changeset
  2503
  (let ( (max (apply 'max scores)) (min (apply 'min scores)) )
fcd73bc6b91c Own gnus-thread-score-function: If any followup have positive score assign
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 918
diff changeset
  2504
    (if (< 0 max) max min)))
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  2505
(setq gnus-thread-score-function #'my-gnus-thread-score-function)
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  2506
(defun my-gnus-thread-total-score ()
919
fcd73bc6b91c Own gnus-thread-score-function: If any followup have positive score assign
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 918
diff changeset
  2507
  "Helper to debug `gnus-thread-score-function' function."
fcd73bc6b91c Own gnus-thread-score-function: If any followup have positive score assign
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 918
diff changeset
  2508
  (interactive)
fcd73bc6b91c Own gnus-thread-score-function: If any followup have positive score assign
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 918
diff changeset
  2509
  (message
fcd73bc6b91c Own gnus-thread-score-function: If any followup have positive score assign
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 918
diff changeset
  2510
   (int-to-string
fcd73bc6b91c Own gnus-thread-score-function: If any followup have positive score assign
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 918
diff changeset
  2511
    (gnus-thread-total-score
fcd73bc6b91c Own gnus-thread-score-function: If any followup have positive score assign
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 918
diff changeset
  2512
     (gnus-id-to-thread (mail-header-id (gnus-summary-article-header)))))))
fcd73bc6b91c Own gnus-thread-score-function: If any followup have positive score assign
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 918
diff changeset
  2513
906
da962aa69458 Especially highlight my message and replays to me.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 905
diff changeset
  2514
;; Especially highlight my message and replays to me.
1254
19c7b3be9b3a Define special macro to avoid warning about "assignment to free variable".
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1253
diff changeset
  2515
(my--eval-after-load gnus-sum
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  2516
  (defface my-gnus-own-unread-face nil
1424
9cc3eb1e06a8 Fix: Warning: defface for ... fails to specify containing group.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1423
diff changeset
  2517
    "Use this face to display own postings in Summary Buffer"
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  2518
    :group 'my-gnus)
1617
c88a0c93dfbe Fixed Emacs 27.1 load issue: GNUS faces are now without -face suffix.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1615
diff changeset
  2519
  (copy-face 'gnus-summary-high-unread 'my-gnus-own-unread-face)
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  2520
  (set-face-background 'my-gnus-own-unread-face "linen")
1278
8e47e801be9d Remove qouting from 'my--eval-after-load' macro usage because that code doesn't evaluated.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1277
diff changeset
  2521
  (add-to-list 'gnus-summary-highlight
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  2522
               '((and (> score 190) (eq mark gnus-unread-mark)) . my-gnus-own-unread-face))
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  2523
  (defface my-gnus-own-ancient-face nil
1424
9cc3eb1e06a8 Fix: Warning: defface for ... fails to specify containing group.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1423
diff changeset
  2524
    "Use this face to display own postings in Summary Buffer"
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  2525
    :group 'my-gnus)
1617
c88a0c93dfbe Fixed Emacs 27.1 load issue: GNUS faces are now without -face suffix.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1615
diff changeset
  2526
  (copy-face 'gnus-summary-high-ancient 'my-gnus-own-ancient-face)
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  2527
  (set-face-background 'my-gnus-own-ancient-face "linen")
1278
8e47e801be9d Remove qouting from 'my--eval-after-load' macro usage because that code doesn't evaluated.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1277
diff changeset
  2528
  (add-to-list 'gnus-summary-highlight
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  2529
               '((and (> score 190) (eq mark gnus-ancient-mark)) . my-gnus-own-ancient-face))
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  2530
  (defface my-gnus-own-ticked-face nil
1424
9cc3eb1e06a8 Fix: Warning: defface for ... fails to specify containing group.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1423
diff changeset
  2531
    "Use this face to display own postings in Summary Buffer"
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  2532
    :group 'my-gnus)
1617
c88a0c93dfbe Fixed Emacs 27.1 load issue: GNUS faces are now without -face suffix.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1615
diff changeset
  2533
  (copy-face 'gnus-summary-high-ticked 'my-gnus-own-ticked-face)
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  2534
  (set-face-background 'my-gnus-own-ticked-face "linen")
1278
8e47e801be9d Remove qouting from 'my--eval-after-load' macro usage because that code doesn't evaluated.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1277
diff changeset
  2535
  (add-to-list 'gnus-summary-highlight
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  2536
               '((and (> score 190) (or (eq mark gnus-dormant-mark) (eq mark gnus-ticked-mark))) . my-gnus-own-ticked-face))
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  2537
  (defface my-gnus-fup-face nil
1424
9cc3eb1e06a8 Fix: Warning: defface for ... fails to specify containing group.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1423
diff changeset
  2538
    "Use this face to display direct fups to my postings."
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  2539
    :group 'my-gnus)
1617
c88a0c93dfbe Fixed Emacs 27.1 load issue: GNUS faces are now without -face suffix.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1615
diff changeset
  2540
  (copy-face 'gnus-summary-high-unread 'my-gnus-fup-face)
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  2541
  (set-face-background 'my-gnus-fup-face "honeydew")
1278
8e47e801be9d Remove qouting from 'my--eval-after-load' macro usage because that code doesn't evaluated.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1277
diff changeset
  2542
  (add-to-list 'gnus-summary-highlight
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  2543
               '((and (<= 90 score) (<= score 110) (eq mark gnus-unread-mark)) . my-gnus-fup-face)) )
906
da962aa69458 Especially highlight my message and replays to me.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 905
diff changeset
  2544
807
63c56a8cf9f1 Remove duplication, move code above.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 806
diff changeset
  2545
;; (setq gnus-home-score-file
63c56a8cf9f1 Remove duplication, move code above.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 806
diff changeset
  2546
;;       ;; All groups that match the regexp `"\\.emacs"'
63c56a8cf9f1 Remove duplication, move code above.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 806
diff changeset
  2547
;;       '(("\\.emacs" "emacs.SCORE")
63c56a8cf9f1 Remove duplication, move code above.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 806
diff changeset
  2548
;;         ;; All the comp groups in one score file
63c56a8cf9f1 Remove duplication, move code above.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 806
diff changeset
  2549
;;         ("^comp" "comp.SCORE")))
63c56a8cf9f1 Remove duplication, move code above.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 806
diff changeset
  2550
911
ce5cb0a281ee Make C-Up, C-Down more like across paragraph moving.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 910
diff changeset
  2551
;; Make C-Up, C-Down more like across paragraph moving.
1254
19c7b3be9b3a Define special macro to avoid warning about "assignment to free variable".
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1253
diff changeset
  2552
(my--eval-after-load gnus
1278
8e47e801be9d Remove qouting from 'my--eval-after-load' macro usage because that code doesn't evaluated.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1277
diff changeset
  2553
  (define-key gnus-summary-mode-map [(meta up)] '(lambda() (interactive) (scroll-other-window -1)))
8e47e801be9d Remove qouting from 'my--eval-after-load' macro usage because that code doesn't evaluated.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1277
diff changeset
  2554
  (define-key gnus-summary-mode-map [(meta down)] '(lambda() (interactive) (scroll-other-window 1)))
8e47e801be9d Remove qouting from 'my--eval-after-load' macro usage because that code doesn't evaluated.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1277
diff changeset
  2555
  (define-key gnus-summary-mode-map [(control down)] 'gnus-summary-next-thread)
8e47e801be9d Remove qouting from 'my--eval-after-load' macro usage because that code doesn't evaluated.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1277
diff changeset
  2556
  (define-key gnus-summary-mode-map [(control up)] 'gnus-summary-prev-thread))
911
ce5cb0a281ee Make C-Up, C-Down more like across paragraph moving.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 910
diff changeset
  2557
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  2558
(defun my-gnus-search-web-by-message-id ()
1426
7dfa8e98a13d Show Message-Id in Gnus Article buffer. Search for Message-Id in Web.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1425
diff changeset
  2559
  "Search for article archive by Message-Id in Google."
7dfa8e98a13d Show Message-Id in Gnus Article buffer. Search for Message-Id in Web.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1425
diff changeset
  2560
  (interactive)
7dfa8e98a13d Show Message-Id in Gnus Article buffer. Search for Message-Id in Web.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1425
diff changeset
  2561
  (let ( (msgid (message-fetch-field "Message-Id")) (subj (message-fetch-field "Subject")) )
7dfa8e98a13d Show Message-Id in Gnus Article buffer. Search for Message-Id in Web.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1425
diff changeset
  2562
    (setq msgid (replace-regexp-in-string "[<>]" "" msgid))
7dfa8e98a13d Show Message-Id in Gnus Article buffer. Search for Message-Id in Web.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1425
diff changeset
  2563
    (setq subj (replace-regexp-in-string "[\"#]" " " subj))
7dfa8e98a13d Show Message-Id in Gnus Article buffer. Search for Message-Id in Web.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1425
diff changeset
  2564
    (browse-url (format "https://www.google.com.ua/search?q=%s" (url-encode-url (format "%s OR \"%s\"" msgid subj))))
7dfa8e98a13d Show Message-Id in Gnus Article buffer. Search for Message-Id in Web.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1425
diff changeset
  2565
    (browse-url (format "http://mid.mail-archive.com/%s" (url-encode-url msgid)))))
7dfa8e98a13d Show Message-Id in Gnus Article buffer. Search for Message-Id in Web.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1425
diff changeset
  2566
7dfa8e98a13d Show Message-Id in Gnus Article buffer. Search for Message-Id in Web.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1425
diff changeset
  2567
(my--eval-after-load gnus-art
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  2568
  (define-key gnus-article-mode-map [(control return)] #'my-gnus-search-web-by-message-id))
1426
7dfa8e98a13d Show Message-Id in Gnus Article buffer. Search for Message-Id in Web.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1425
diff changeset
  2569
785
7956c2497dda gnus-thread-sort-by-date
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 784
diff changeset
  2570
;; (setq imap-log t)
7956c2497dda gnus-thread-sort-by-date
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 784
diff changeset
  2571
660
7abcc3f39fe9 Set basic mail settings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 658
diff changeset
  2572
;; (setq mail-user-agent 'mh-e-user-agent)
83
d2eaf2ed6d1c Added basic jabber customization.
gavenkoa@gavenko.bifit.int
parents: 82
diff changeset
  2573
900
85a05f7d8bed Set gnus-signature-face to grey.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 899
diff changeset
  2574
(custom-set-faces
85a05f7d8bed Set gnus-signature-face to grey.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 899
diff changeset
  2575
 '(gnus-summary-cancelled ((t (:foreground "plum" :background nil))))
85a05f7d8bed Set gnus-signature-face to grey.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 899
diff changeset
  2576
 '(gnus-signature-face ((t (:foreground "grey"))))
85a05f7d8bed Set gnus-signature-face to grey.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 899
diff changeset
  2577
 )
739
65e6b1b497fb Add some GNUS settings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 738
diff changeset
  2578
718
19ab21ec7640 Define own outline-regex to easy view file structure.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 717
diff changeset
  2579
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
545
24992bae7599 Use 'message' instead of comment to easy debug where error occurred.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 544
diff changeset
  2580
(message "jabber")
83
d2eaf2ed6d1c Added basic jabber customization.
gavenkoa@gavenko.bifit.int
parents: 82
diff changeset
  2581
1685
6a740def74e8 Fixed error 'eval-when is not defined' after switching to cl-lib.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1684
diff changeset
  2582
(cl-eval-when (compile) (require 'jabber nil t))
1384
a952b43af57f Suppress another: Warning: assignment to free variable
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1383
diff changeset
  2583
1273
738244fdc669 Keep jabber conversation history in 'user-emacs-directory'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1269
diff changeset
  2584
(setq jabber-history-dir (concat user-emacs-directory ".jabber"))
738244fdc669 Keep jabber conversation history in 'user-emacs-directory'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1269
diff changeset
  2585
675
7bef62461084 Try enable modes to avoid do this explicitly in '.emacs-pre'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 674
diff changeset
  2586
(autoload 'jabber-connect-all "jabber")
7bef62461084 Try enable modes to avoid do this explicitly in '.emacs-pre'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 674
diff changeset
  2587
7bef62461084 Try enable modes to avoid do this explicitly in '.emacs-pre'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 674
diff changeset
  2588
(setq
7bef62461084 Try enable modes to avoid do this explicitly in '.emacs-pre'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 674
diff changeset
  2589
 jabber-history-enabled t
1116
a34c8bbd5c3a jabber-history-muc-enabled
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1115
diff changeset
  2590
 jabber-history-muc-enabled t
675
7bef62461084 Try enable modes to avoid do this explicitly in '.emacs-pre'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 674
diff changeset
  2591
 jabber-use-global-history nil
7bef62461084 Try enable modes to avoid do this explicitly in '.emacs-pre'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 674
diff changeset
  2592
 jabber-backlog-number 40
7bef62461084 Try enable modes to avoid do this explicitly in '.emacs-pre'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 674
diff changeset
  2593
 jabber-backlog-days 30
7bef62461084 Try enable modes to avoid do this explicitly in '.emacs-pre'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 674
diff changeset
  2594
 jabber-alert-presence-message-function (lambda (who oldstatus newstatus statustext) nil)
7bef62461084 Try enable modes to avoid do this explicitly in '.emacs-pre'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 674
diff changeset
  2595
 )
7bef62461084 Try enable modes to avoid do this explicitly in '.emacs-pre'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 674
diff changeset
  2596
1254
19c7b3be9b3a Define special macro to avoid warning about "assignment to free variable".
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1253
diff changeset
  2597
(my--eval-after-load jabber
1278
8e47e801be9d Remove qouting from 'my--eval-after-load' macro usage because that code doesn't evaluated.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1277
diff changeset
  2598
  ;; Redefine standard binding for sending message form RET to C-RET.
8e47e801be9d Remove qouting from 'my--eval-after-load' macro usage because that code doesn't evaluated.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1277
diff changeset
  2599
  (define-key jabber-chat-mode-map (kbd "RET") 'newline)
8e47e801be9d Remove qouting from 'my--eval-after-load' macro usage because that code doesn't evaluated.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1277
diff changeset
  2600
  (define-key jabber-chat-mode-map [C-return] 'jabber-chat-buffer-send)
8e47e801be9d Remove qouting from 'my--eval-after-load' macro usage because that code doesn't evaluated.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1277
diff changeset
  2601
  ;; fsm used in emacs jabber
8e47e801be9d Remove qouting from 'my--eval-after-load' macro usage because that code doesn't evaluated.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1277
diff changeset
  2602
  (when (featurep 'fsm)
8e47e801be9d Remove qouting from 'my--eval-after-load' macro usage because that code doesn't evaluated.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1277
diff changeset
  2603
    (setq fsm-debug nil))               ; Disable *fsm-debug* buffer.
8e47e801be9d Remove qouting from 'my--eval-after-load' macro usage because that code doesn't evaluated.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1277
diff changeset
  2604
  ;; Handle Emacs exit.
8e47e801be9d Remove qouting from 'my--eval-after-load' macro usage because that code doesn't evaluated.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1277
diff changeset
  2605
  (add-hook 'kill-emacs-hook 'jabber-disconnect))
83
d2eaf2ed6d1c Added basic jabber customization.
gavenkoa@gavenko.bifit.int
parents: 82
diff changeset
  2606
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  2607
(defvar my-chat-prompt "[%t] %n>\n")
675
7bef62461084 Try enable modes to avoid do this explicitly in '.emacs-pre'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 674
diff changeset
  2608
(setq
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  2609
 jabber-chat-foreign-prompt-format my-chat-prompt
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  2610
 jabber-chat-local-prompt-format my-chat-prompt
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  2611
 jabber-groupchat-prompt-format my-chat-prompt
1278
8e47e801be9d Remove qouting from 'my--eval-after-load' macro usage because that code doesn't evaluated.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1277
diff changeset
  2612
 jabber-muc-private-foreign-prompt-format "[%t] %g/%n>\n")
214
f4234e15d891 Fix prompt format (prompt and text stay on two line, not one).
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 211
diff changeset
  2613
675
7bef62461084 Try enable modes to avoid do this explicitly in '.emacs-pre'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 674
diff changeset
  2614
(let ( (mgs-list '("Я тутачки, а где Вы меня ожидали?"
7bef62461084 Try enable modes to avoid do this explicitly in '.emacs-pre'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 674
diff changeset
  2615
                   "Software Development == Church Development. Step 1. Build it. Step 2. Pray."
680
285d2ffb35ff Update jabber motd.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 677
diff changeset
  2616
                   "Great books aren't written – they're rewritten."
675
7bef62461084 Try enable modes to avoid do this explicitly in '.emacs-pre'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 674
diff changeset
  2617
                   "А любит Б, Б любит С, что делать A? Найти другую Б!")) )
7bef62461084 Try enable modes to avoid do this explicitly in '.emacs-pre'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 674
diff changeset
  2618
  (random t)
7bef62461084 Try enable modes to avoid do this explicitly in '.emacs-pre'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 674
diff changeset
  2619
  (setq jabber-default-show (nth (random (length mgs-list)) mgs-list))
7bef62461084 Try enable modes to avoid do this explicitly in '.emacs-pre'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 674
diff changeset
  2620
  (setq jabber-default-status (nth (random (length mgs-list)) mgs-list))
182
8a8bf4f3e7c2 Correctly set fsm var.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 181
diff changeset
  2621
  )
83
d2eaf2ed6d1c Added basic jabber customization.
gavenkoa@gavenko.bifit.int
parents: 82
diff changeset
  2622
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  2623
(defvar my-jabber-users nil
533
15b63e0cc424 Document some settings from .emacs-pre/-post.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 532
diff changeset
  2624
  "Assoc list of jabber user group. Keys are strings, values are lists of JIDs.")
516
efa00a6ef34e Allow send message to multiply users.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 515
diff changeset
  2625
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  2626
(defun my-jabber-send (group)
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  2627
  "GROUP is keys from `my-jabber-users'"
516
efa00a6ef34e Allow send message to multiply users.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 515
diff changeset
  2628
  (interactive
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  2629
   (list (completing-read "Select group: " my-jabber-users))
516
efa00a6ef34e Allow send message to multiply users.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 515
diff changeset
  2630
   )
efa00a6ef34e Allow send message to multiply users.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 515
diff changeset
  2631
  (let (
efa00a6ef34e Allow send message to multiply users.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 515
diff changeset
  2632
        (msg (if (use-region-p)
efa00a6ef34e Allow send message to multiply users.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 515
diff changeset
  2633
                 (buffer-substring (region-beginning) (region-end))
efa00a6ef34e Allow send message to multiply users.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 515
diff changeset
  2634
               (buffer-string)))
efa00a6ef34e Allow send message to multiply users.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 515
diff changeset
  2635
        (jc (jabber-read-account))
efa00a6ef34e Allow send message to multiply users.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 515
diff changeset
  2636
        )
efa00a6ef34e Allow send message to multiply users.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 515
diff changeset
  2637
    (deactivate-mark)
efa00a6ef34e Allow send message to multiply users.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 515
diff changeset
  2638
    (mapc
efa00a6ef34e Allow send message to multiply users.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 515
diff changeset
  2639
     (lambda (user)
efa00a6ef34e Allow send message to multiply users.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 515
diff changeset
  2640
       (jabber-send-message jc user "" msg "normal")
efa00a6ef34e Allow send message to multiply users.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 515
diff changeset
  2641
       )
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  2642
     (cdr (assoc group my-jabber-users))
516
efa00a6ef34e Allow send message to multiply users.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 515
diff changeset
  2643
     )
efa00a6ef34e Allow send message to multiply users.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 515
diff changeset
  2644
    )
efa00a6ef34e Allow send message to multiply users.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 515
diff changeset
  2645
  )
efa00a6ef34e Allow send message to multiply users.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 515
diff changeset
  2646
1754
c9f5c4f83bde Fixed: Key sequence C-x C-j C-s starts with non-prefix key.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1753
diff changeset
  2647
;; (global-set-key (kbd "C-x C-j C-s") 'my-jabber-send)
516
efa00a6ef34e Allow send message to multiply users.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 515
diff changeset
  2648
718
19ab21ec7640 Define own outline-regex to easy view file structure.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 717
diff changeset
  2649
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
545
24992bae7599 Use 'message' instead of comment to easy debug where error occurred.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 544
diff changeset
  2650
(message "erc")
239
408ebfd38be3 Set default erc encoding to utf-8 because on Windows I have default coding - cp1251.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 238
diff changeset
  2651
1685
6a740def74e8 Fixed error 'eval-when is not defined' after switching to cl-lib.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1684
diff changeset
  2652
(cl-eval-when (compile)
1384
a952b43af57f Suppress another: Warning: assignment to free variable
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1383
diff changeset
  2653
  (require 'erc)
a952b43af57f Suppress another: Warning: assignment to free variable
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1383
diff changeset
  2654
  (require 'erc-log))
1374
313e428cf77c Add (eval-when 'compile ...) to reduce number of Warning: reference to free variable.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1373
diff changeset
  2655
639
3e66a9605c4f erc-notify-list
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 638
diff changeset
  2656
;; (add-to-list 'erc-modules 'notify)
3e66a9605c4f erc-notify-list
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 638
diff changeset
  2657
;; (setq erc-notify-list '(""))
3e66a9605c4f erc-notify-list
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 638
diff changeset
  2658
377
3e8792ee03cc Take off noise message from erc in notify.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 376
diff changeset
  2659
;; Take off noise message.
3e8792ee03cc Take off noise message from erc in notify.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 376
diff changeset
  2660
(setq erc-track-exclude-types '("JOIN" "PART" "QUIT" "NICK" "MODE"))
3e8792ee03cc Take off noise message from erc in notify.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 376
diff changeset
  2661
3e8792ee03cc Take off noise message from erc in notify.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 376
diff changeset
  2662
(setq erc-current-nick-highlight-type 'nick-or-keyword)
3e8792ee03cc Take off noise message from erc in notify.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 376
diff changeset
  2663
(setq erc-track-use-faces t)
3e8792ee03cc Take off noise message from erc in notify.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 376
diff changeset
  2664
239
408ebfd38be3 Set default erc encoding to utf-8 because on Windows I have default coding - cp1251.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 238
diff changeset
  2665
(setq erc-server-coding-system 'utf-8)
877
b4412d7ff8a1 Set encoding for '#debian-russian'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 876
diff changeset
  2666
(setq erc-encoding-coding-alist
b4412d7ff8a1 Set encoding for '#debian-russian'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 876
diff changeset
  2667
      '(
b4412d7ff8a1 Set encoding for '#debian-russian'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 876
diff changeset
  2668
        ("^icq-" . cp1251)
b4412d7ff8a1 Set encoding for '#debian-russian'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 876
diff changeset
  2669
        ("#debian-russian" . koi8-r)
b4412d7ff8a1 Set encoding for '#debian-russian'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 876
diff changeset
  2670
        ))
634
97785d982806 erc-encoding-coding-alist, erc-autojoin-channels-alist
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 632
diff changeset
  2671
942
b08e5d2da63f Disable erc-autojoin-channels.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 941
diff changeset
  2672
;; (setq erc-autojoin-channels-alist '(("freenode.net" "#emacs")))
239
408ebfd38be3 Set default erc encoding to utf-8 because on Windows I have default coding - cp1251.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 238
diff changeset
  2673
637
f4806bc22860 Enable reconnect facility for ERC.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 636
diff changeset
  2674
(setq
f4806bc22860 Enable reconnect facility for ERC.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 636
diff changeset
  2675
 erc-server-auto-reconnect t
f4806bc22860 Enable reconnect facility for ERC.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 636
diff changeset
  2676
 erc-server-reconnect-timeout 60
1193
4f46f97a10e9 erc-log
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1192
diff changeset
  2677
 erc-server-reconnect-attempts 2)
4f46f97a10e9 erc-log
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1192
diff changeset
  2678
4f46f97a10e9 erc-log
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1192
diff changeset
  2679
(setq
1253
504c216e8d21 Move '.recentf' and '~/.irc' to '~/.emacs.d'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1240
diff changeset
  2680
 erc-log-channels-directory "~/.emacs.d/.irc"
1193
4f46f97a10e9 erc-log
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1192
diff changeset
  2681
 erc-log-file-coding-system 'utf-8-unix)
1254
19c7b3be9b3a Define special macro to avoid warning about "assignment to free variable".
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1253
diff changeset
  2682
(my--eval-after-load erc
1278
8e47e801be9d Remove qouting from 'my--eval-after-load' macro usage because that code doesn't evaluated.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1277
diff changeset
  2683
  (require 'erc-log)
8e47e801be9d Remove qouting from 'my--eval-after-load' macro usage because that code doesn't evaluated.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1277
diff changeset
  2684
  (mkdir erc-log-channels-directory t))
637
f4806bc22860 Enable reconnect facility for ERC.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 636
diff changeset
  2685
636
1c47e3a86feb Add commented settings for remember.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 635
diff changeset
  2686
;; Kill buffers for channels after /part
1c47e3a86feb Add commented settings for remember.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 635
diff changeset
  2687
;; (setq erc-kill-buffer-on-part t)
1c47e3a86feb Add commented settings for remember.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 635
diff changeset
  2688
;; Kill buffers for private queries after quitting the server
1c47e3a86feb Add commented settings for remember.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 635
diff changeset
  2689
;; (setq erc-kill-queries-on-quit t)
1c47e3a86feb Add commented settings for remember.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 635
diff changeset
  2690
;; Kill buffers for server messages after quitting the server
1c47e3a86feb Add commented settings for remember.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 635
diff changeset
  2691
;; (setq erc-kill-server-buffer-on-quit t)
1c47e3a86feb Add commented settings for remember.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 635
diff changeset
  2692
718
19ab21ec7640 Define own outline-regex to easy view file structure.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 717
diff changeset
  2693
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
974
a044269d57e0 Reorder sections.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 973
diff changeset
  2694
(message "devel, programming")
a044269d57e0 Reorder sections.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 973
diff changeset
  2695
1771
e60fb6cd150e In Emacs 28 it loads files referenced by diff-mode, polluting buffer list & recentf, and significantly slowing Emacs in Cygwin.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1770
diff changeset
  2696
;; The mode displays current function name in status line.
e60fb6cd150e In Emacs 28 it loads files referenced by diff-mode, polluting buffer list & recentf, and significantly slowing Emacs in Cygwin.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1770
diff changeset
  2697
;; In Emacs 28 it loads files referenced by diff-mode, polluting buffer list & recentf, and significantly slowing Emacs in Cygwin.
e60fb6cd150e In Emacs 28 it loads files referenced by diff-mode, polluting buffer list & recentf, and significantly slowing Emacs in Cygwin.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1770
diff changeset
  2698
;; https://debbugs.gnu.org/cgi/bugreport.cgi?bug=62749
e60fb6cd150e In Emacs 28 it loads files referenced by diff-mode, polluting buffer list & recentf, and significantly slowing Emacs in Cygwin.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1770
diff changeset
  2699
;; https://emacs.stackexchange.com/questions/76728/modern-emacs-keeps-opening-related-file-from-vc-diff-buffer/
e60fb6cd150e In Emacs 28 it loads files referenced by diff-mode, polluting buffer list & recentf, and significantly slowing Emacs in Cygwin.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1770
diff changeset
  2700
;; (which-func-mode 1)
974
a044269d57e0 Reorder sections.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 973
diff changeset
  2701
a044269d57e0 Reorder sections.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 973
diff changeset
  2702
(add-to-list 'auto-mode-alist '("\\.cu$" . c-mode))
a044269d57e0 Reorder sections.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 973
diff changeset
  2703
1306
b78bf2c141ab Use consistent style for internal names.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1305
diff changeset
  2704
(defun my--c++-header-file-p ()
974
a044269d57e0 Reorder sections.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 973
diff changeset
  2705
  "Return non-nil, if in a C++ header."
a044269d57e0 Reorder sections.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 973
diff changeset
  2706
  (and (string-match "\\.h$"
a044269d57e0 Reorder sections.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 973
diff changeset
  2707
                     (or (buffer-file-name)
a044269d57e0 Reorder sections.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 973
diff changeset
  2708
                         (buffer-name)))
a044269d57e0 Reorder sections.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 973
diff changeset
  2709
       (save-excursion
a044269d57e0 Reorder sections.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 973
diff changeset
  2710
         (re-search-forward "\\_<class\\_>" nil t))))
a044269d57e0 Reorder sections.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 973
diff changeset
  2711
1378
892deca62b56 Remove support for Emacs 21.x.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1377
diff changeset
  2712
(add-to-list 'magic-mode-alist '(my--c++-header-file-p . c++-mode))
974
a044269d57e0 Reorder sections.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 973
diff changeset
  2713
a044269d57e0 Reorder sections.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 973
diff changeset
  2714
(setq-default comment-style (quote indent))
a044269d57e0 Reorder sections.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 973
diff changeset
  2715
(setq-default comment-column 44)
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  2716
(setq-default comment-fill-column my-fill-column)
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  2717
1589
ae79beae573a Enable TODO highlighting in all prod modes without listing all modes.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1588
diff changeset
  2718
(setq-default fill-column my-fill-column)
ae79beae573a Enable TODO highlighting in all prod modes without listing all modes.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1588
diff changeset
  2719
ae79beae573a Enable TODO highlighting in all prod modes without listing all modes.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1588
diff changeset
  2720
(add-hook 'prog-mode-hook #'hs-minor-mode)
1234
7c3de38a446c hs-minor-mode
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1233
diff changeset
  2721
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  2722
(defun my-company-prog-mode-setup ()
1466
6814b46a6619 Rearrange code. Enable company mode for RST files.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1465
diff changeset
  2723
  (setq-local company-dabbrev-code-other-buffers 'code)
6814b46a6619 Rearrange code. Enable company mode for RST files.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1465
diff changeset
  2724
  (setq-local company-backends '((company-capf company-dabbrev-code company-files)))
6814b46a6619 Rearrange code. Enable company mode for RST files.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1465
diff changeset
  2725
  (company-mode 1))
6814b46a6619 Rearrange code. Enable company mode for RST files.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1465
diff changeset
  2726
1463
4c92e9fc2efd Add company completion for executable in PATH. Enable company for Makefile and progmodes.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1462
diff changeset
  2727
(when (featurep 'company)
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  2728
  (add-hook 'prog-mode-hook #'my-company-prog-mode-setup))
1463
4c92e9fc2efd Add company completion for executable in PATH. Enable company for Makefile and progmodes.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1462
diff changeset
  2729
974
a044269d57e0 Reorder sections.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 973
diff changeset
  2730
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
a044269d57e0 Reorder sections.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 973
diff changeset
  2731
(message "diff, patch, ediff, emerge")
a044269d57e0 Reorder sections.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 973
diff changeset
  2732
1685
6a740def74e8 Fixed error 'eval-when is not defined' after switching to cl-lib.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1684
diff changeset
  2733
(cl-eval-when (compile) (require 'ediff))
1384
a952b43af57f Suppress another: Warning: assignment to free variable
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1383
diff changeset
  2734
974
a044269d57e0 Reorder sections.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 973
diff changeset
  2735
(setq diff-switches "-u")
a044269d57e0 Reorder sections.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 973
diff changeset
  2736
a044269d57e0 Reorder sections.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 973
diff changeset
  2737
(setq ediff-diff-options "")
a044269d57e0 Reorder sections.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 973
diff changeset
  2738
(setq ediff-custom-diff-options "-u")
a044269d57e0 Reorder sections.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 973
diff changeset
  2739
(setq ediff-window-setup-function 'ediff-setup-windows-plain)
a044269d57e0 Reorder sections.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 973
diff changeset
  2740
(setq ediff-split-window-function 'split-window-vertically)
a044269d57e0 Reorder sections.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 973
diff changeset
  2741
992
8523f94a9aa9 Disable: sometimes it take a long time to process large hunks.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 991
diff changeset
  2742
;; Disable: sometimes it take a long time to process large hunks.
8523f94a9aa9 Disable: sometimes it take a long time to process large hunks.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 991
diff changeset
  2743
;; Use C-c C-b on hunk by own.
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  2744
;; (defun my-diff-auto-refine-mode-on () (diff-auto-refine-mode 1))
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  2745
;; (add-hook 'diff-mode-hook 'my-diff-auto-refine-mode-on)
976
9378739883bb Enable diff-auto-refine-mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 975
diff changeset
  2746
1630
8e99c0b3b772 Disabled hunk refinement during font-lock, introduced in v27.1.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1629
diff changeset
  2747
;; Since 27.1 it is enabled during font-lock. Need to disable explicitly.
8e99c0b3b772 Disabled hunk refinement during font-lock, introduced in v27.1.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1629
diff changeset
  2748
(setq diff-refine nil)
1633
d31f7473a4b1 Eliminated lags when navigating diff file cause by visiting files behind the
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1632
diff changeset
  2749
;; https://emacs.stackexchange.com/questions/61760/lags-when-navigating-vc-root-diff-buffer/
1770
2b93801abc3c Disable diff-font-lock-syntax as it visits files from Git and this is extremely slow in Cygwin+antivirus.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1769
diff changeset
  2750
;; Disable the feature as it visits files from Git and this is extremely slow in Cygwin+antivirus.
2b93801abc3c Disable diff-font-lock-syntax as it visits files from Git and this is extremely slow in Cygwin+antivirus.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1769
diff changeset
  2751
;; nil / t / hunk-only / hunk-also
2b93801abc3c Disable diff-font-lock-syntax as it visits files from Git and this is extremely slow in Cygwin+antivirus.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1769
diff changeset
  2752
(setq diff-font-lock-syntax 'nil)
1630
8e99c0b3b772 Disabled hunk refinement during font-lock, introduced in v27.1.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1629
diff changeset
  2753
1565
0160e2f997ee Ported to Emacs 26.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1564
diff changeset
  2754
(when (and window-system (< emacs-major-version 26))
1254
19c7b3be9b3a Define special macro to avoid warning about "assignment to free variable".
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1253
diff changeset
  2755
  (my--eval-after-load diff-mode
1565
0160e2f997ee Ported to Emacs 26.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1564
diff changeset
  2756
    (set-face-foreground 'diff-added "DarkGreen")
0160e2f997ee Ported to Emacs 26.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1564
diff changeset
  2757
    (set-face-foreground 'diff-removed "DarkRed")
0160e2f997ee Ported to Emacs 26.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1564
diff changeset
  2758
    (set-face-background 'diff-refine-changed "LightBlue1")))
974
a044269d57e0 Reorder sections.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 973
diff changeset
  2759
a044269d57e0 Reorder sections.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 973
diff changeset
  2760
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
648
6486ccef8fd1 `-b' switch to ignore changes in whitespaces.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 647
diff changeset
  2761
(message "vc-mode, VCS, version control, cvs, svn, mercurial, hg, bazaar, bzr, git, fossil")
6486ccef8fd1 `-b' switch to ignore changes in whitespaces.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 647
diff changeset
  2762
1685
6a740def74e8 Fixed error 'eval-when is not defined' after switching to cl-lib.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1684
diff changeset
  2763
(cl-eval-when (compile)
1593
8f9430c7d2f7 Show diff for REV.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1592
diff changeset
  2764
  (require 'vc)
8f9430c7d2f7 Show diff for REV.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1592
diff changeset
  2765
  (require 'vc-hooks)
1385
5f96b8d649ba Even on Windows I prefer UTF-8 fro SVN/CVS.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1384
diff changeset
  2766
  (require 'vc-annotate)
5f96b8d649ba Even on Windows I prefer UTF-8 fro SVN/CVS.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1384
diff changeset
  2767
  (require 'vc-svn))
1374
313e428cf77c Add (eval-when 'compile ...) to reduce number of Warning: reference to free variable.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1373
diff changeset
  2768
1593
8f9430c7d2f7 Show diff for REV.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1592
diff changeset
  2769
(defun my-vc-show-rev (rev)
8f9430c7d2f7 Show diff for REV.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1592
diff changeset
  2770
  "Show diff for REV."
8f9430c7d2f7 Show diff for REV.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1592
diff changeset
  2771
  (interactive "sRevision: ")
8f9430c7d2f7 Show diff for REV.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1592
diff changeset
  2772
  (let ((backend (vc-responsible-backend default-directory)))
8f9430c7d2f7 Show diff for REV.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1592
diff changeset
  2773
    (when backend
8f9430c7d2f7 Show diff for REV.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1592
diff changeset
  2774
      (let ((rev-from (vc-call-backend backend 'previous-revision nil rev)))
8f9430c7d2f7 Show diff for REV.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1592
diff changeset
  2775
        (when rev-from
8f9430c7d2f7 Show diff for REV.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1592
diff changeset
  2776
          (vc-diff-internal t (list backend nil) rev-from rev))))))
8f9430c7d2f7 Show diff for REV.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1592
diff changeset
  2777
8f9430c7d2f7 Show diff for REV.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1592
diff changeset
  2778
(global-set-key (kbd "C-x v R") 'my-vc-show-rev)
8f9430c7d2f7 Show diff for REV.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1592
diff changeset
  2779
648
6486ccef8fd1 `-b' switch to ignore changes in whitespaces.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 647
diff changeset
  2780
;; `-b' switch to ignore changes in whitespaces.
6486ccef8fd1 `-b' switch to ignore changes in whitespaces.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 647
diff changeset
  2781
;; (setq vc-git-diff-switches "-b")
6486ccef8fd1 `-b' switch to ignore changes in whitespaces.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 647
diff changeset
  2782
;; (setq vc-diff-switches "-b")
0
aef1d0017234 Initial commit.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
diff changeset
  2783
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  2784
(defun my-vc-root-diff (prefix)
1162
aadda3d1653c For Hg with C-u show latest MQ patch and with C-u C-u show MQ patch and local
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1158
diff changeset
  2785
  "Same as `vc-root-diff' but for Hg with C-u show latest MQ patch and
aadda3d1653c For Hg with C-u show latest MQ patch and with C-u C-u show MQ patch and local
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1158
diff changeset
  2786
with C-u C-u show MQ patch and local changes."
aadda3d1653c For Hg with C-u show latest MQ patch and with C-u C-u show MQ patch and local
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1158
diff changeset
  2787
  (interactive "P")
1163
e7728b2522b2 Handle HG MQ from non-root directory.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1162
diff changeset
  2788
  (when (eq 'non-hg-mq
e7728b2522b2 Handle HG MQ from non-root directory.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1162
diff changeset
  2789
            (catch 'break
e7728b2522b2 Handle HG MQ from non-root directory.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1162
diff changeset
  2790
              (unless (and prefix (eq (vc-deduce-backend) 'Hg))
e7728b2522b2 Handle HG MQ from non-root directory.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1162
diff changeset
  2791
                (throw 'break 'non-hg-mq))
e7728b2522b2 Handle HG MQ from non-root directory.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1162
diff changeset
  2792
              (let* ( (rootdir (vc-call-backend 'Hg 'root default-directory)) (default-directory rootdir) )
e7728b2522b2 Handle HG MQ from non-root directory.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1162
diff changeset
  2793
                (unless (eq (vc-hg-command nil t rootdir "log" "-r" "qtip") 0)
e7728b2522b2 Handle HG MQ from non-root directory.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1162
diff changeset
  2794
                  (throw 'break 'non-hg-mq))
e7728b2522b2 Handle HG MQ from non-root directory.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1162
diff changeset
  2795
                (cond
e7728b2522b2 Handle HG MQ from non-root directory.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1162
diff changeset
  2796
                 ((equal prefix '(4))
e7728b2522b2 Handle HG MQ from non-root directory.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1162
diff changeset
  2797
                  (vc-diff-internal t (list 'Hg (list rootdir)) "qparent" "qtip"))
e7728b2522b2 Handle HG MQ from non-root directory.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1162
diff changeset
  2798
                 ((equal prefix '(16))
e7728b2522b2 Handle HG MQ from non-root directory.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1162
diff changeset
  2799
                  (vc-diff-internal t (list 'Hg (list rootdir)) "qparent" nil)) ))))
e7728b2522b2 Handle HG MQ from non-root directory.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1162
diff changeset
  2800
    (call-interactively 'vc-root-diff nil) ))
1162
aadda3d1653c For Hg with C-u show latest MQ patch and with C-u C-u show MQ patch and local
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1158
diff changeset
  2801
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  2802
(global-set-key (kbd "C-x v D") 'my-vc-root-diff)
1162
aadda3d1653c For Hg with C-u show latest MQ patch and with C-u C-u show MQ patch and local
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1158
diff changeset
  2803
1552
da98a7d4c704 Increase context in patches.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1550
diff changeset
  2804
(setq vc-hg-diff-switches (list "-U" "7"))
1701
c1ddee0b6366 Set better rename detection (30% similarity) for Git diff.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1700
diff changeset
  2805
;; More context (7 lines) and better rename detection (30% similarity).
c1ddee0b6366 Set better rename detection (30% similarity) for Git diff.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1700
diff changeset
  2806
(setq vc-git-diff-switches (list "-U7" "-M3"))
1552
da98a7d4c704 Increase context in patches.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1550
diff changeset
  2807
1576
9169f962cc47 vc-git-print-log-follow is for v26.1
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1574
diff changeset
  2808
(setq vc-git-print-log-follow t)
9169f962cc47 vc-git-print-log-follow is for v26.1
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1574
diff changeset
  2809
615
22cf0c9014d9 Replace '(if COND (progn BODY...))' by '(when COND BODY...)'. Remove
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 614
diff changeset
  2810
(when window-system
22cf0c9014d9 Replace '(if COND (progn BODY...))' by '(when COND BODY...)'. Remove
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 614
diff changeset
  2811
  (setq
22cf0c9014d9 Replace '(if COND (progn BODY...))' by '(when COND BODY...)'. Remove
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 614
diff changeset
  2812
   vc-annotate-very-old-color "#0b5b20"
22cf0c9014d9 Replace '(if COND (progn BODY...))' by '(when COND BODY...)'. Remove
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 614
diff changeset
  2813
   vc-annotate-background "white"
22cf0c9014d9 Replace '(if COND (progn BODY...))' by '(when COND BODY...)'. Remove
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 614
diff changeset
  2814
   vc-annotate-color-map
22cf0c9014d9 Replace '(if COND (progn BODY...))' by '(when COND BODY...)'. Remove
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 614
diff changeset
  2815
   '(
22cf0c9014d9 Replace '(if COND (progn BODY...))' by '(when COND BODY...)'. Remove
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 614
diff changeset
  2816
     (20 .  "#EE0000")
22cf0c9014d9 Replace '(if COND (progn BODY...))' by '(when COND BODY...)'. Remove
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 614
diff changeset
  2817
     (40 .  "#E0800D")
22cf0c9014d9 Replace '(if COND (progn BODY...))' by '(when COND BODY...)'. Remove
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 614
diff changeset
  2818
     (60 .  "#D3001A")
22cf0c9014d9 Replace '(if COND (progn BODY...))' by '(when COND BODY...)'. Remove
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 614
diff changeset
  2819
     (80 .  "#C68027")
22cf0c9014d9 Replace '(if COND (progn BODY...))' by '(when COND BODY...)'. Remove
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 614
diff changeset
  2820
     (100 . "#B90034")
22cf0c9014d9 Replace '(if COND (progn BODY...))' by '(when COND BODY...)'. Remove
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 614
diff changeset
  2821
     (120 . "#AB8042")
22cf0c9014d9 Replace '(if COND (progn BODY...))' by '(when COND BODY...)'. Remove
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 614
diff changeset
  2822
     (140 . "#9E004F")
22cf0c9014d9 Replace '(if COND (progn BODY...))' by '(when COND BODY...)'. Remove
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 614
diff changeset
  2823
     (160 . "#91805C")
22cf0c9014d9 Replace '(if COND (progn BODY...))' by '(when COND BODY...)'. Remove
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 614
diff changeset
  2824
     (180 . "#840069")
22cf0c9014d9 Replace '(if COND (progn BODY...))' by '(when COND BODY...)'. Remove
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 614
diff changeset
  2825
     (200 . "#778077")
22cf0c9014d9 Replace '(if COND (progn BODY...))' by '(when COND BODY...)'. Remove
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 614
diff changeset
  2826
     (220 . "#690084")
22cf0c9014d9 Replace '(if COND (progn BODY...))' by '(when COND BODY...)'. Remove
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 614
diff changeset
  2827
     (240 . "#5C8091")
22cf0c9014d9 Replace '(if COND (progn BODY...))' by '(when COND BODY...)'. Remove
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 614
diff changeset
  2828
     (260 . "#4F009E")
22cf0c9014d9 Replace '(if COND (progn BODY...))' by '(when COND BODY...)'. Remove
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 614
diff changeset
  2829
     (280 . "#4280AB")
22cf0c9014d9 Replace '(if COND (progn BODY...))' by '(when COND BODY...)'. Remove
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 614
diff changeset
  2830
     (300 . "#3400B9")
22cf0c9014d9 Replace '(if COND (progn BODY...))' by '(when COND BODY...)'. Remove
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 614
diff changeset
  2831
     (320 . "#2780C6")
22cf0c9014d9 Replace '(if COND (progn BODY...))' by '(when COND BODY...)'. Remove
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 614
diff changeset
  2832
     (340 . "#1A00D3")
22cf0c9014d9 Replace '(if COND (progn BODY...))' by '(when COND BODY...)'. Remove
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 614
diff changeset
  2833
     (360 . "#0D80E0")))
19
a8e7a6e94341 Теперь белый фон для annotated.
Oleksander Gavenko <gavenko_a@3g.ua>
parents: 18
diff changeset
  2834
  )
a8e7a6e94341 Теперь белый фон для annotated.
Oleksander Gavenko <gavenko_a@3g.ua>
parents: 18
diff changeset
  2835
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  2836
(defun my-log-edit-mode-hook ()
767
47c2dbdb69dd Set fill-column for "Log-Edit" buffer.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 766
diff changeset
  2837
  (setq fill-column 78)
47c2dbdb69dd Set fill-column for "Log-Edit" buffer.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 766
diff changeset
  2838
  )
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  2839
(add-hook 'log-edit-mode-hook 'my-log-edit-mode-hook t)
767
47c2dbdb69dd Set fill-column for "Log-Edit" buffer.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 766
diff changeset
  2840
1632
9189d278b075 Replaced eval-after-load => with-eval-after-load for its easier syntax.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1631
diff changeset
  2841
(with-eval-after-load 'log-edit
9189d278b075 Replaced eval-after-load => with-eval-after-load for its easier syntax.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1631
diff changeset
  2842
  (remove-hook 'log-edit-hook 'log-edit-insert-message-template))
1356
850b597650f6 Remove those nasty "Summary: " from commit messages.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1355
diff changeset
  2843
718
19ab21ec7640 Define own outline-regex to easy view file structure.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 717
diff changeset
  2844
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1605
bbb4f7c881ff Grouped magit and vc modes.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1604
diff changeset
  2845
(message "magit")
bbb4f7c881ff Grouped magit and vc modes.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1604
diff changeset
  2846
1607
dd180a2be151 Improved handling of long lines. Added docs.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1606
diff changeset
  2847
(when (eq window-system 'w32)
dd180a2be151 Improved handling of long lines. Added docs.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1606
diff changeset
  2848
  (setq magit-refresh-status-buffer nil))
dd180a2be151 Improved handling of long lines. Added docs.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1606
diff changeset
  2849
1605
bbb4f7c881ff Grouped magit and vc modes.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1604
diff changeset
  2850
(with-eval-after-load 'magit-mode
bbb4f7c881ff Grouped magit and vc modes.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1604
diff changeset
  2851
  (setq magit-log-margin '(t "%F %H:%M" magit-log-margin-width t 18))
bbb4f7c881ff Grouped magit and vc modes.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1604
diff changeset
  2852
  (define-key magit-mode-map [s-tab] nil))
bbb4f7c881ff Grouped magit and vc modes.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1604
diff changeset
  2853
1629
e92139c96b4d Disabled magit-diff-refine-hunk. No only it is slow in Cygwin it is also fails on some hunks...
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1628
diff changeset
  2854
;; No only it is slow in Cygwin it is also fails on some hunks...
e92139c96b4d Disabled magit-diff-refine-hunk. No only it is slow in Cygwin it is also fails on some hunks...
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1628
diff changeset
  2855
(setq magit-diff-refine-hunk nil)
1605
bbb4f7c881ff Grouped magit and vc modes.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1604
diff changeset
  2856
1607
dd180a2be151 Improved handling of long lines. Added docs.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1606
diff changeset
  2857
(with-eval-after-load 'magit-branch
dd180a2be151 Improved handling of long lines. Added docs.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1606
diff changeset
  2858
  (remove-hook 'find-file-hook 'magit-edit-branch*description-check-buffers))
dd180a2be151 Improved handling of long lines. Added docs.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1606
diff changeset
  2859
(with-eval-after-load 'magit-autorevert
dd180a2be151 Improved handling of long lines. Added docs.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1606
diff changeset
  2860
  (remove-hook 'find-file-hook 'magit-auto-revert-mode-check-buffers)
dd180a2be151 Improved handling of long lines. Added docs.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1606
diff changeset
  2861
  (remove-hook 'after-change-major-mode-hook 'magit-auto-revert-mode-enable-in-buffers))
dd180a2be151 Improved handling of long lines. Added docs.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1606
diff changeset
  2862
(with-eval-after-load 'git-commit
dd180a2be151 Improved handling of long lines. Added docs.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1606
diff changeset
  2863
  (remove-hook 'find-file-hook 'git-commit-setup-check-buffer)
dd180a2be151 Improved handling of long lines. Added docs.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1606
diff changeset
  2864
  (remove-hook 'after-change-major-mode-hook 'git-commit-setup-font-lock-in-buffer))
dd180a2be151 Improved handling of long lines. Added docs.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1606
diff changeset
  2865
1605
bbb4f7c881ff Grouped magit and vc modes.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1604
diff changeset
  2866
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1733
316d6f077e1c csv-mode requires for setting to be set via defcstom only...
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1732
diff changeset
  2867
(message "csv")
316d6f077e1c csv-mode requires for setting to be set via defcstom only...
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1732
diff changeset
  2868
316d6f077e1c csv-mode requires for setting to be set via defcstom only...
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1732
diff changeset
  2869
;; Mode requires for setting to be set via defcstom only...
316d6f077e1c csv-mode requires for setting to be set via defcstom only...
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1732
diff changeset
  2870
;; (setq csv-separators '("," ":" ";" "\t"))
316d6f077e1c csv-mode requires for setting to be set via defcstom only...
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1732
diff changeset
  2871
;; (setq csv-field-quotes '("\""))
316d6f077e1c csv-mode requires for setting to be set via defcstom only...
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1732
diff changeset
  2872
316d6f077e1c csv-mode requires for setting to be set via defcstom only...
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1732
diff changeset
  2873
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
545
24992bae7599 Use 'message' instead of comment to easy debug where error occurred.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 544
diff changeset
  2874
(message "indenting")
0
aef1d0017234 Initial commit.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
diff changeset
  2875
1685
6a740def74e8 Fixed error 'eval-when is not defined' after switching to cl-lib.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1684
diff changeset
  2876
(cl-eval-when (compile) (require 'cc-mode))
1671
a6d55703383c Suppressed warning: assignment to free variable "c-basic-offset".
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1660
diff changeset
  2877
0
aef1d0017234 Initial commit.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
diff changeset
  2878
(setq standard-indent 4)
aef1d0017234 Initial commit.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
diff changeset
  2879
(setq c-basic-offset 4)
aef1d0017234 Initial commit.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
diff changeset
  2880
1181
64523c0fddb0 Disable electric-indent-mode new in v24.4.1.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1180
diff changeset
  2881
(when (fboundp 'electric-indent-mode)
64523c0fddb0 Disable electric-indent-mode new in v24.4.1.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1180
diff changeset
  2882
  (electric-indent-mode -1))
64523c0fddb0 Disable electric-indent-mode new in v24.4.1.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1180
diff changeset
  2883
0
aef1d0017234 Initial commit.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
diff changeset
  2884
;; TAB (tab settings)
aef1d0017234 Initial commit.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
diff changeset
  2885
(setq-default tab-width 4)
253
7cb6ff8a9a75 Translate comment to English.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 252
diff changeset
  2886
(setq-default indent-tabs-mode nil)     ; spaces instead of tabs by default
0
aef1d0017234 Initial commit.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
diff changeset
  2887
(setq tab-always-indent t)
aef1d0017234 Initial commit.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
diff changeset
  2888
(setq c-tab-always-indent t)
188
e36736f245fd Start tab-stop-list with zero.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 162
diff changeset
  2889
(let ( (line-width 400) i )
e36736f245fd Start tab-stop-list with zero.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 162
diff changeset
  2890
  (setq i (* (ceiling line-width 4) 4))
73
73e42aa11b3c Correct initial asigned with nil.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 72
diff changeset
  2891
  (setq tab-stop-list nil)
188
e36736f245fd Start tab-stop-list with zero.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 162
diff changeset
  2892
  (while (>= i 0)
e36736f245fd Start tab-stop-list with zero.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 162
diff changeset
  2893
    (setq tab-stop-list (cons i tab-stop-list))
e36736f245fd Start tab-stop-list with zero.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 162
diff changeset
  2894
    (setq i (- i 4))))
0
aef1d0017234 Initial commit.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
diff changeset
  2895
718
19ab21ec7640 Define own outline-regex to easy view file structure.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 717
diff changeset
  2896
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
545
24992bae7599 Use 'message' instead of comment to easy debug where error occurred.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 544
diff changeset
  2897
(message "compile")
296
e502c69ab80a Make header name like tags, separated by comma and ended on period.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 295
diff changeset
  2898
647
993160feda92 Add docs.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 646
diff changeset
  2899
;; Prompt for compilation command.
993160feda92 Add docs.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 646
diff changeset
  2900
(setq compilation-read-command 1)
894
d993e3e910ef Make 'mymake' as default compile command.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 893
diff changeset
  2901
(setq compile-command "mymake ")
638
5bfd6f2d1ae7 Use gmake on FreeBSD.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 637
diff changeset
  2902
(when (eq system-type 'berkeley-unix)
5bfd6f2d1ae7 Use gmake on FreeBSD.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 637
diff changeset
  2903
  (setq compile-command "gmake "))
646
6c2682a5d81e Add comment.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 645
diff changeset
  2904
;; With '1' compilation window shall scroll down, with `first-error' stops scrolling at the first error.
0
aef1d0017234 Initial commit.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
diff changeset
  2905
(setq compilation-scroll-output 1)
684
f0604e71f261 compilation-ask-about-save
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 683
diff changeset
  2906
(setq compilation-ask-about-save t)
0
aef1d0017234 Initial commit.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
diff changeset
  2907
577
d24848aec7d1 Show error in EN locale to easy search how fix problem in docs and Internet.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 564
diff changeset
  2908
;; Show error in EN locale to easy search how fix problem in docs and Internet.
1276
04e9ed4d22a1 LANG=C damage localised output.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1273
diff changeset
  2909
;; (setq compilation-environment '("LANG=C"))
577
d24848aec7d1 Show error in EN locale to easy search how fix problem in docs and Internet.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 564
diff changeset
  2910
1254
19c7b3be9b3a Define special macro to avoid warning about "assignment to free variable".
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1253
diff changeset
  2911
(my--eval-after-load compile
1278
8e47e801be9d Remove qouting from 'my--eval-after-load' macro usage because that code doesn't evaluated.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1277
diff changeset
  2912
  ;; My funny error messages.
1367
4b9e39b257f0 Use named compilation-error-regexp.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1366
diff changeset
  2913
  (add-to-list 'compilation-error-regexp-alist-alist '(nant "^\\( +\\[csc\\] \\|\\)\\(.*\\)(\\([0-9]*\\),\\([0-9]*\\)):" 2 3 4))
4b9e39b257f0 Use named compilation-error-regexp.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1366
diff changeset
  2914
  (add-to-list 'compilation-error-regexp-alist 'nant)
4b9e39b257f0 Use named compilation-error-regexp.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1366
diff changeset
  2915
  (add-to-list 'compilation-error-regexp-alist-alist '(msvc "^ *\\(.*\\)(\\([0-9]*\\)) +:" 1 2))
4b9e39b257f0 Use named compilation-error-regexp.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1366
diff changeset
  2916
  (add-to-list 'compilation-error-regexp-alist 'msvc)
4b9e39b257f0 Use named compilation-error-regexp.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1366
diff changeset
  2917
  (add-to-list 'compilation-error-regexp-alist-alist '(keil "^\"?\\([^\"]*\\)\"?,\\([0-9]*\\) .*\\[.*\\]: " 1 2))
4b9e39b257f0 Use named compilation-error-regexp.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1366
diff changeset
  2918
  (add-to-list 'compilation-error-regexp-alist 'keil)
1278
8e47e801be9d Remove qouting from 'my--eval-after-load' macro usage because that code doesn't evaluated.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1277
diff changeset
  2919
  (add-to-list 'compilation-error-regexp-alist-alist '(maven "\\[ERROR\\] \\(.*\\.java\\):\\[\\([0-9]+\\),\\([0-9]+\\)\\]" 1 2 3))
8e47e801be9d Remove qouting from 'my--eval-after-load' macro usage because that code doesn't evaluated.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1277
diff changeset
  2920
  (add-to-list 'compilation-error-regexp-alist 'maven)
1343
059cd8b7e3b3 Regex to parse asciidoc errors.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1342
diff changeset
  2921
  (add-to-list 'compilation-error-regexp-alist-alist '(asciidoc "^asciidoc: \\(?:ERROR\\|WARNING\\): \\([^\n:]+\\): line \\([0-9]+\\):" 1 2))
059cd8b7e3b3 Regex to parse asciidoc errors.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1342
diff changeset
  2922
  (add-to-list 'compilation-error-regexp-alist 'asciidoc)
1278
8e47e801be9d Remove qouting from 'my--eval-after-load' macro usage because that code doesn't evaluated.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1277
diff changeset
  2923
  (when (boundp 'compilation-mode-font-lock-keywords)
8e47e801be9d Remove qouting from 'my--eval-after-load' macro usage because that code doesn't evaluated.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1277
diff changeset
  2924
    (add-to-list 'compilation-mode-font-lock-keywords '("\\(/[Oo][Uu][Tt]:[^[:blank:]]+\\)" . 1))
8e47e801be9d Remove qouting from 'my--eval-after-load' macro usage because that code doesn't evaluated.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1277
diff changeset
  2925
    (add-to-list 'compilation-mode-font-lock-keywords '("[[:blank:]]\\(/F[oe][^[:blank:]]+\\)" . 1))))
0
aef1d0017234 Initial commit.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
diff changeset
  2926
1098
ac3d34a14b99 Colorize ANSI colour sequences in compilation buffer.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1097
diff changeset
  2927
(ignore-errors
ac3d34a14b99 Colorize ANSI colour sequences in compilation buffer.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1097
diff changeset
  2928
  (require 'ansi-color)
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  2929
  (defun my-colorize-compilation-buffer ()
1098
ac3d34a14b99 Colorize ANSI colour sequences in compilation buffer.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1097
diff changeset
  2930
    (when (eq major-mode 'compilation-mode)
ac3d34a14b99 Colorize ANSI colour sequences in compilation buffer.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1097
diff changeset
  2931
      (ansi-color-apply-on-region compilation-filter-start (point-max))))
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  2932
  (add-hook 'compilation-filter-hook 'my-colorize-compilation-buffer))
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  2933
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  2934
(defvar my-comint-send-hist-list nil
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  2935
  "History list for `my-comint-send-string'."
672
ec015b06e121 my-comint-send-string
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 670
diff changeset
  2936
  )
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  2937
(defun my-comint-send-string (string)
704
474a9291a602 Automaticaly append final newline.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 703
diff changeset
  2938
  "Send string to comint buffers. Useful for *compilation* read-only buffer.
474a9291a602 Automaticaly append final newline.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 703
diff changeset
  2939
Automaticaly append final newline."
672
ec015b06e121 my-comint-send-string
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 670
diff changeset
  2940
  (interactive
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  2941
   (list (read-string "Type string: " nil 'my-comint-send-hist-list))
672
ec015b06e121 my-comint-send-string
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 670
diff changeset
  2942
   )
704
474a9291a602 Automaticaly append final newline.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 703
diff changeset
  2943
  (comint-send-string (get-buffer-process (current-buffer)) (concat string "\n"))
672
ec015b06e121 my-comint-send-string
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 670
diff changeset
  2944
  )
1254
19c7b3be9b3a Define special macro to avoid warning about "assignment to free variable".
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1253
diff changeset
  2945
(my--eval-after-load compile
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  2946
  (define-key compilation-mode-map [C-return] 'my-comint-send-string))
672
ec015b06e121 my-comint-send-string
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 670
diff changeset
  2947
718
19ab21ec7640 Define own outline-regex to easy view file structure.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 717
diff changeset
  2948
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
951
1beeb0ad3272 Add scons settings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 950
diff changeset
  2949
(message "scons")
1beeb0ad3272 Add scons settings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 950
diff changeset
  2950
1beeb0ad3272 Add scons settings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 950
diff changeset
  2951
(add-to-list 'auto-mode-alist '("SConstruct\\'" . python-mode))
1beeb0ad3272 Add scons settings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 950
diff changeset
  2952
(add-to-list 'auto-mode-alist '("SConscript\\'" . python-mode))
1beeb0ad3272 Add scons settings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 950
diff changeset
  2953
1beeb0ad3272 Add scons settings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 950
diff changeset
  2954
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1100
df3489a212a9 Show sources along with debugger.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1099
diff changeset
  2955
(message "gdb, gud")
df3489a212a9 Show sources along with debugger.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1099
diff changeset
  2956
;; Use C-x SPACE to set breakpoint in source file.
df3489a212a9 Show sources along with debugger.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1099
diff changeset
  2957
1685
6a740def74e8 Fixed error 'eval-when is not defined' after switching to cl-lib.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1684
diff changeset
  2958
(cl-eval-when (compile) (require 'gdb-mi nil t))
1390
edcad6180e5e I don't use rcirc.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1389
diff changeset
  2959
1100
df3489a212a9 Show sources along with debugger.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1099
diff changeset
  2960
(setq gdb-show-main t)                  ; See also (gdb-many-windows)
df3489a212a9 Show sources along with debugger.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1099
diff changeset
  2961
1571
5d67b50a7767 Set gud-pdb-command-name.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1570
diff changeset
  2962
(setq gud-pdb-command-name "python3 -m pdb")
5d67b50a7767 Set gud-pdb-command-name.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1570
diff changeset
  2963
1100
df3489a212a9 Show sources along with debugger.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1099
diff changeset
  2964
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1220
90e3a3721051 abbrev-file-name, pascal-mode
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1218
diff changeset
  2965
(message "completion, abbrev")
90e3a3721051 abbrev-file-name, pascal-mode
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1218
diff changeset
  2966
90e3a3721051 abbrev-file-name, pascal-mode
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1218
diff changeset
  2967
(setq completion-ignore-case t)
90e3a3721051 abbrev-file-name, pascal-mode
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1218
diff changeset
  2968
90e3a3721051 abbrev-file-name, pascal-mode
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1218
diff changeset
  2969
(setq abbrev-file-name (concat user-emacs-directory ".abbrev"))
90e3a3721051 abbrev-file-name, pascal-mode
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1218
diff changeset
  2970
;; (quietly-read-abbrev-file)
90e3a3721051 abbrev-file-name, pascal-mode
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1218
diff changeset
  2971
;; (setq default-abbrev-mode t)
90e3a3721051 abbrev-file-name, pascal-mode
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1218
diff changeset
  2972
;; (setq save-abbrevs t)
90e3a3721051 abbrev-file-name, pascal-mode
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1218
diff changeset
  2973
1229
52e0f3e3ca85 Use hippie-expand.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1227
diff changeset
  2974
(global-set-key (kbd "M-/") 'hippie-expand)
1220
90e3a3721051 abbrev-file-name, pascal-mode
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1218
diff changeset
  2975
90e3a3721051 abbrev-file-name, pascal-mode
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1218
diff changeset
  2976
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
545
24992bae7599 Use 'message' instead of comment to easy debug where error occurred.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 544
diff changeset
  2977
(message "TAGS, etags, ctags, GNU GLOBAL")
421
44d516f2badd Enable automatic depth up search for TAGS file when 'etags-table' available.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 420
diff changeset
  2978
529
1d38dfff2664 Add 'etags-select' and 'etags-table' customization.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 528
diff changeset
  2979
;; One of 'tags-table-list' or 'tags-file-name' control which TAGS files to
1d38dfff2664 Add 'etags-select' and 'etags-table' customization.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 528
diff changeset
  2980
;; use.
1d38dfff2664 Add 'etags-select' and 'etags-table' customization.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 528
diff changeset
  2981
675
7bef62461084 Try enable modes to avoid do this explicitly in '.emacs-pre'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 674
diff changeset
  2982
(ignore-errors
7bef62461084 Try enable modes to avoid do this explicitly in '.emacs-pre'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 674
diff changeset
  2983
  (require 'etags-table)
529
1d38dfff2664 Add 'etags-select' and 'etags-table' customization.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 528
diff changeset
  2984
  (setq etags-table-search-up-depth 8)
675
7bef62461084 Try enable modes to avoid do this explicitly in '.emacs-pre'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 674
diff changeset
  2985
  (require 'etags-select)
7bef62461084 Try enable modes to avoid do this explicitly in '.emacs-pre'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 674
diff changeset
  2986
  (global-set-key "\M-." 'etags-select-find-tag)
421
44d516f2badd Enable automatic depth up search for TAGS file when 'etags-table' available.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 420
diff changeset
  2987
  )
44d516f2badd Enable automatic depth up search for TAGS file when 'etags-table' available.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 420
diff changeset
  2988
675
7bef62461084 Try enable modes to avoid do this explicitly in '.emacs-pre'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 674
diff changeset
  2989
(setq tags-add-tables t)
1194
14d42e7c9224 my-complete-tag with my-ido-complete-tag.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1193
diff changeset
  2990
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  2991
(defvar my-ido-tag-history nil
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  2992
  "History of tags selected using `my-ido-complete-tag'.")
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  2993
(defun my-ido-complete-tag (&optional substr)
1194
14d42e7c9224 my-complete-tag with my-ido-complete-tag.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1193
diff changeset
  2994
  "Find a tag using ido."
14d42e7c9224 my-complete-tag with my-ido-complete-tag.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1193
diff changeset
  2995
  (tags-completion-table)
14d42e7c9224 my-complete-tag with my-ido-complete-tag.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1193
diff changeset
  2996
  (let ( tag-names )
14d42e7c9224 my-complete-tag with my-ido-complete-tag.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1193
diff changeset
  2997
    (mapatoms (lambda (x) (push (symbol-name x) tag-names)) tags-completion-table)
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  2998
    (ido-completing-read "Tag: " tag-names nil t substr 'my-ido-tag-history)))
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  2999
(defun my-complete-tag (prefix point)
1194
14d42e7c9224 my-complete-tag with my-ido-complete-tag.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1193
diff changeset
  3000
  (interactive "P\nd")
14d42e7c9224 my-complete-tag with my-ido-complete-tag.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1193
diff changeset
  3001
  (if prefix
14d42e7c9224 my-complete-tag with my-ido-complete-tag.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1193
diff changeset
  3002
      (funcall #'complete-tag)
14d42e7c9224 my-complete-tag with my-ido-complete-tag.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1193
diff changeset
  3003
    (let ( (bounds (find-tag-default-bounds)) tag )
14d42e7c9224 my-complete-tag with my-ido-complete-tag.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1193
diff changeset
  3004
      (if (or (not bounds) (< point (car bounds)) (< (cdr bounds) point))
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  3005
          (setq tag (my-ido-complete-tag))
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  3006
        (setq tag (my-ido-complete-tag (buffer-substring (car bounds) (cdr bounds))))
1194
14d42e7c9224 my-complete-tag with my-ido-complete-tag.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1193
diff changeset
  3007
        (delete-region (car bounds) (cdr bounds)))
14d42e7c9224 my-complete-tag with my-ido-complete-tag.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1193
diff changeset
  3008
      (insert tag))))
14d42e7c9224 my-complete-tag with my-ido-complete-tag.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1193
diff changeset
  3009
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  3010
(global-set-key [M-return] #'my-complete-tag)
541
3d913b8531f4 Bound 'complete-tag' to M-RET.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 539
diff changeset
  3011
718
19ab21ec7640 Define own outline-regex to easy view file structure.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 717
diff changeset
  3012
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
545
24992bae7599 Use 'message' instead of comment to easy debug where error occurred.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 544
diff changeset
  3013
(message "imenu")
428
6e8b3a312262 Allow imenu function if manu-bar-mode disabled (becase in that case
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 427
diff changeset
  3014
1003
8c1abe90331a Add doc strings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1001
diff changeset
  3015
(require 'imenu)
8c1abe90331a Add doc strings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1001
diff changeset
  3016
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  3017
(defun my-imenu-to-menubar ()
1003
8c1abe90331a Add doc strings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1001
diff changeset
  3018
  "Force imenu building when (menu-bar-mode -1)."
995
9d2f14f723c4 Fix condition to check support for imenu.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 994
diff changeset
  3019
  (when imenu-generic-expression
994
4bc77d7283ea Fix: File mode specification error: (error "The mode `nXML' does not support Imenu").
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 993
diff changeset
  3020
    (imenu-add-menubar-index)
4bc77d7283ea Fix: File mode specification error: (error "The mode `nXML' does not support Imenu").
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 993
diff changeset
  3021
    (run-hooks 'menu-bar-update-hook) ))
1589
ae79beae573a Enable TODO highlighting in all prod modes without listing all modes.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1588
diff changeset
  3022
(add-hook 'prog-mode-hook 'my-imenu-to-menubar)
652
243f52487da7 Always enable 'imenu'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 650
diff changeset
  3023
718
19ab21ec7640 Define own outline-regex to easy view file structure.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 717
diff changeset
  3024
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
545
24992bae7599 Use 'message' instead of comment to easy debug where error occurred.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 544
diff changeset
  3025
(message "windows inf files for driver installin")
303
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 288 302
diff changeset
  3026
288
5009c3f4afef Windows inf files for installing drivers.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 285
diff changeset
  3027
(add-to-list 'auto-mode-alist '("\\.inf\\'" . conf-mode))
5009c3f4afef Windows inf files for installing drivers.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 285
diff changeset
  3028
718
19ab21ec7640 Define own outline-regex to easy view file structure.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 717
diff changeset
  3029
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1101
500c2af9b6fb Set fvwm-fvwmcommand-path.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1100
diff changeset
  3030
(message "fvwm-mode")
500c2af9b6fb Set fvwm-fvwmcommand-path.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1100
diff changeset
  3031
1254
19c7b3be9b3a Define special macro to avoid warning about "assignment to free variable".
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1253
diff changeset
  3032
(my--eval-after-load fvwm-mode
1101
500c2af9b6fb Set fvwm-fvwmcommand-path.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1100
diff changeset
  3033
  (setq fvwm-fvwmcommand-path (executable-find "FvwmCommand")))
500c2af9b6fb Set fvwm-fvwmcommand-path.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1100
diff changeset
  3034
500c2af9b6fb Set fvwm-fvwmcommand-path.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1100
diff changeset
  3035
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
545
24992bae7599 Use 'message' instead of comment to easy debug where error occurred.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 544
diff changeset
  3036
(message "makefile, make")
196
154d8ebf534b Added matches for makefile-gmake-mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 192
diff changeset
  3037
762
a4787876e986 Down priority for Makefile pattern to allow match .diff/.rej first.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 761
diff changeset
  3038
(add-to-list 'auto-mode-alist '("\\(Makefile\\|Makefile\\..+\\)\\'" . makefile-gmake-mode) t)
196
154d8ebf534b Added matches for makefile-gmake-mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 192
diff changeset
  3039
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  3040
(defun my-makefile-setup ()
1463
4c92e9fc2efd Add company completion for executable in PATH. Enable company for Makefile and progmodes.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1462
diff changeset
  3041
  (add-hook 'completion-at-point-functions 'comint-filename-completion nil t))
4c92e9fc2efd Add company completion for executable in PATH. Enable company for Makefile and progmodes.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1462
diff changeset
  3042
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  3043
(add-hook 'makefile-mode-hook #'my-makefile-setup)
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  3044
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  3045
(defun my-makefile-company-setup ()
1463
4c92e9fc2efd Add company completion for executable in PATH. Enable company for Makefile and progmodes.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1462
diff changeset
  3046
  "Limit search for symbols to Makefiles."
4c92e9fc2efd Add company completion for executable in PATH. Enable company for Makefile and progmodes.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1462
diff changeset
  3047
  (setq-local company-dabbrev-code-other-buffers t)
4c92e9fc2efd Add company completion for executable in PATH. Enable company for Makefile and progmodes.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1462
diff changeset
  3048
  (setq-local company-backends '((company-capf company-dabbrev-code company-files company-executable)))
4c92e9fc2efd Add company completion for executable in PATH. Enable company for Makefile and progmodes.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1462
diff changeset
  3049
  (company-mode 1))
4c92e9fc2efd Add company completion for executable in PATH. Enable company for Makefile and progmodes.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1462
diff changeset
  3050
4c92e9fc2efd Add company completion for executable in PATH. Enable company for Makefile and progmodes.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1462
diff changeset
  3051
(when (featurep 'company)
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  3052
  (add-hook 'makefile-mode-hook #'my-makefile-company-setup))
1463
4c92e9fc2efd Add company completion for executable in PATH. Enable company for Makefile and progmodes.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1462
diff changeset
  3053
718
19ab21ec7640 Define own outline-regex to easy view file structure.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 717
diff changeset
  3054
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
545
24992bae7599 Use 'message' instead of comment to easy debug where error occurred.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 544
diff changeset
  3055
(message "asm, assembler")
296
e502c69ab80a Make header name like tags, separated by comma and ended on period.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 295
diff changeset
  3056
36
4261883ccdb6 Use C-style comment in asm files.
Oleksander Gavenko <gavenko_a@3g.ua>
parents: 35
diff changeset
  3057
;; (setq-default asm-comment-char 59)
4261883ccdb6 Use C-style comment in asm files.
Oleksander Gavenko <gavenko_a@3g.ua>
parents: 35
diff changeset
  3058
(add-hook 'asm-mode-hook '(lambda () (setq comment-start "/*") (setq comment-end "*/")) t)
0
aef1d0017234 Initial commit.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
diff changeset
  3059
186
8c74e1ac4da1 Added association for IAR asm file.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 185
diff changeset
  3060
(add-to-list 'auto-mode-alist '("\\.\\([sS]79\\|[sS]\\)\\'" . asm-mode))
8c74e1ac4da1 Added association for IAR asm file.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 185
diff changeset
  3061
176
69d65b8a0a25 Added example for unset-key.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 175
diff changeset
  3062
;; (add-hook 'asm-mode-hook '(lambda () (local-unset-key ":")))
69d65b8a0a25 Added example for unset-key.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 175
diff changeset
  3063
;; (add-hook 'asm-mode-hook '(lambda () (local-set-key ":" ":")))
69d65b8a0a25 Added example for unset-key.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 175
diff changeset
  3064
718
19ab21ec7640 Define own outline-regex to easy view file structure.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 717
diff changeset
  3065
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
545
24992bae7599 Use 'message' instead of comment to easy debug where error occurred.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 544
diff changeset
  3066
(message "linker")
272
f7fba93f4028 Enable file association for myself defined modes.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 266
diff changeset
  3067
f7fba93f4028 Enable file association for myself defined modes.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 266
diff changeset
  3068
(when (fboundp 'iar-linker-config-mode)
f7fba93f4028 Enable file association for myself defined modes.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 266
diff changeset
  3069
  (add-to-list 'auto-mode-alist '("\\.icf\\'" . iar-linker-config-mode))
f7fba93f4028 Enable file association for myself defined modes.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 266
diff changeset
  3070
  )
f7fba93f4028 Enable file association for myself defined modes.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 266
diff changeset
  3071
(when (fboundp 'iar4-linker-config-mode)
f7fba93f4028 Enable file association for myself defined modes.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 266
diff changeset
  3072
  (add-to-list 'auto-mode-alist '("\\.xcl\\'" . iar4-linker-config-mode))
f7fba93f4028 Enable file association for myself defined modes.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 266
diff changeset
  3073
  )
f7fba93f4028 Enable file association for myself defined modes.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 266
diff changeset
  3074
718
19ab21ec7640 Define own outline-regex to easy view file structure.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 717
diff changeset
  3075
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1172
e13ab3bb9331 Minor mode that highlights suspicious C and C++ constructions.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1167
diff changeset
  3076
(message "c-mode, cc-mode, c++-mode")
173
04b974b118c2 cc-mode customisations.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 172
diff changeset
  3077
1685
6a740def74e8 Fixed error 'eval-when is not defined' after switching to cl-lib.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1684
diff changeset
  3078
(cl-eval-when (compile) (require 'cc-mode))
1374
313e428cf77c Add (eval-when 'compile ...) to reduce number of Warning: reference to free variable.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1373
diff changeset
  3079
645
f5a8fa2c4534 Minor mode that highlights suspicious C and C++ constructions.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 644
diff changeset
  3080
;; Minor mode that highlights suspicious C and C++ constructions.
1172
e13ab3bb9331 Minor mode that highlights suspicious C and C++ constructions.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1167
diff changeset
  3081
(global-cwarn-mode 1)
645
f5a8fa2c4534 Minor mode that highlights suspicious C and C++ constructions.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 644
diff changeset
  3082
0
aef1d0017234 Initial commit.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
diff changeset
  3083
(setq c-echo-syntactic-information-p t)
710
49635ebf70f1 Move some anonymous hooks to func definition.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 704
diff changeset
  3084
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  3085
(defun my-c-mode-common-hook ()
710
49635ebf70f1 Move some anonymous hooks to func definition.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 704
diff changeset
  3086
  ;; Automatically inserte newlines after special characters such as brace, comma, semi-colon, and colon.
823
c1c5a6b3255a Enable 'electric' and disable 'auto-newline' in C-like modes. Previously I
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 818
diff changeset
  3087
  (c-toggle-auto-newline -1)
710
49635ebf70f1 Move some anonymous hooks to func definition.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 704
diff changeset
  3088
  ;; Delete all preceding whitespace by DEL.
49635ebf70f1 Move some anonymous hooks to func definition.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 704
diff changeset
  3089
  (c-toggle-hungry-state -1)
711
c124c5e589af Enable electric new-line. Document auto indent after typing colon.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 710
diff changeset
  3090
  ;; Auto indent after typing colon according to `c-hanging-colons-alist'.
c124c5e589af Enable electric new-line. Document auto indent after typing colon.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 710
diff changeset
  3091
  (c-toggle-electric-state 1)
710
49635ebf70f1 Move some anonymous hooks to func definition.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 704
diff changeset
  3092
  )
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  3093
(add-hook 'c-mode-common-hook 'my-c-mode-common-hook)
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  3094
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  3095
(defconst my-c-style
129
23d028bad418 More regular indent.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 128
diff changeset
  3096
  '((c-tab-always-indent . t)
0
aef1d0017234 Initial commit.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
diff changeset
  3097
    (c-comment-only-line-offset . 4)
129
23d028bad418 More regular indent.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 128
diff changeset
  3098
    (c-hanging-braces-alist
131
bd2400a18295 Practice alphabetical order.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 130
diff changeset
  3099
     . (
bd2400a18295 Practice alphabetical order.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 130
diff changeset
  3100
        (brace-list-open)
bd2400a18295 Practice alphabetical order.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 130
diff changeset
  3101
        (substatement-open after)
bd2400a18295 Practice alphabetical order.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 130
diff changeset
  3102
        ))
129
23d028bad418 More regular indent.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 128
diff changeset
  3103
    (c-hanging-colons-alist
131
bd2400a18295 Practice alphabetical order.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 130
diff changeset
  3104
     . (
bd2400a18295 Practice alphabetical order.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 130
diff changeset
  3105
        (access-label after)
bd2400a18295 Practice alphabetical order.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 130
diff changeset
  3106
        (case-label after)
129
23d028bad418 More regular indent.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 128
diff changeset
  3107
        (inher-intro)
23d028bad418 More regular indent.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 128
diff changeset
  3108
        (label after)
131
bd2400a18295 Practice alphabetical order.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 130
diff changeset
  3109
        (member-init-intro before)
bd2400a18295 Practice alphabetical order.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 130
diff changeset
  3110
        ))
129
23d028bad418 More regular indent.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 128
diff changeset
  3111
    (c-cleanup-list
131
bd2400a18295 Practice alphabetical order.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 130
diff changeset
  3112
     . (
bd2400a18295 Practice alphabetical order.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 130
diff changeset
  3113
        defun-close-semi
129
23d028bad418 More regular indent.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 128
diff changeset
  3114
        empty-defun-braces
131
bd2400a18295 Practice alphabetical order.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 130
diff changeset
  3115
        scope-operator
bd2400a18295 Practice alphabetical order.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 130
diff changeset
  3116
        ))
129
23d028bad418 More regular indent.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 128
diff changeset
  3117
    (c-offsets-alist
131
bd2400a18295 Practice alphabetical order.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 130
diff changeset
  3118
     . (
712
b54c2306b184 Set indent level for privdate/public keywords.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 711
diff changeset
  3119
        (access-label . -)
485
28f82b8f4f46 Set 'arglist-close' to same indent level as 'arglist-intro' and 'arglist-cont-nonempty'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 484
diff changeset
  3120
        (arglist-intro . ++)
129
23d028bad418 More regular indent.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 128
diff changeset
  3121
        (arglist-cont-nonempty . ++)
485
28f82b8f4f46 Set 'arglist-close' to same indent level as 'arglist-intro' and 'arglist-cont-nonempty'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 484
diff changeset
  3122
        (arglist-close . ++)
131
bd2400a18295 Practice alphabetical order.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 130
diff changeset
  3123
        (block-open . 0)
bd2400a18295 Practice alphabetical order.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 130
diff changeset
  3124
        (case-label . 0)
562
f277076ade00 Don't indent first LEFT CURLY BRACKET on new line of macros.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 561
diff changeset
  3125
        (cpp-define-intro . 0)
131
bd2400a18295 Practice alphabetical order.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 130
diff changeset
  3126
        (comment-intro . 0)
bd2400a18295 Practice alphabetical order.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 130
diff changeset
  3127
        (func-decl-cont . ++)
129
23d028bad418 More regular indent.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 128
diff changeset
  3128
        (inexpr-class . 0)
131
bd2400a18295 Practice alphabetical order.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 130
diff changeset
  3129
        (inline-open . 0)
bd2400a18295 Practice alphabetical order.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 130
diff changeset
  3130
        (knr-argdecl-intro . -)
129
23d028bad418 More regular indent.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 128
diff changeset
  3131
        (label . 0)
131
bd2400a18295 Practice alphabetical order.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 130
diff changeset
  3132
        (statement-block-intro . +)
bd2400a18295 Practice alphabetical order.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 130
diff changeset
  3133
        (statement-cont . ++)
129
23d028bad418 More regular indent.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 128
diff changeset
  3134
        (substatement-open . 0)
445
17ffd2e22d12 Disable indent on extern C.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 444
diff changeset
  3135
        (inextern-lang . 0)
131
bd2400a18295 Practice alphabetical order.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 130
diff changeset
  3136
        ))
1174
1f2b829bd3e6 Certain syntactic errors are reported (like wrong indent).
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1173
diff changeset
  3137
    ;; Certain syntactic errors are reported (like wrong indent).
1f2b829bd3e6 Certain syntactic errors are reported (like wrong indent).
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1173
diff changeset
  3138
    (c-report-syntactic-errors . t)
1173
bf65579bd653 Echo syntactic information on TAB in message buffer.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1172
diff changeset
  3139
    ;; Echo syntactic information on TAB in message buffer.
0
aef1d0017234 Initial commit.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
diff changeset
  3140
    (c-echo-syntactic-information-p . t))
aef1d0017234 Initial commit.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
diff changeset
  3141
  "My C Programming Style")
aef1d0017234 Initial commit.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
diff changeset
  3142
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  3143
(defun my-c-mode-style-hook ()
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  3144
  (c-add-style "my" my-c-style t)
710
49635ebf70f1 Move some anonymous hooks to func definition.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 704
diff changeset
  3145
  ;; If set 'c-default-style' before 'c-add-style'
49635ebf70f1 Move some anonymous hooks to func definition.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 704
diff changeset
  3146
  ;; "Undefined style: my" error occured from 'c-get-style-variables'.
49635ebf70f1 Move some anonymous hooks to func definition.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 704
diff changeset
  3147
  (setq c-default-style
49635ebf70f1 Move some anonymous hooks to func definition.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 704
diff changeset
  3148
        '(
49635ebf70f1 Move some anonymous hooks to func definition.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 704
diff changeset
  3149
          (java-mode . "my") (c-mode . "my") (csharp-mode . "my") (c++-mode . "my") (objc-mode . "my")
49635ebf70f1 Move some anonymous hooks to func definition.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 704
diff changeset
  3150
          (idl-mode . "my")
49635ebf70f1 Move some anonymous hooks to func definition.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 704
diff changeset
  3151
          (awk-mode . "awk")
49635ebf70f1 Move some anonymous hooks to func definition.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 704
diff changeset
  3152
          (other . "my")
49635ebf70f1 Move some anonymous hooks to func definition.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 704
diff changeset
  3153
          ))
49635ebf70f1 Move some anonymous hooks to func definition.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 704
diff changeset
  3154
  )
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  3155
(add-hook 'c-mode-common-hook 'my-c-mode-style-hook)
424
188eba7735eb If set 'c-default-style' before 'c-add-style'
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 423
diff changeset
  3156
718
19ab21ec7640 Define own outline-regex to easy view file structure.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 717
diff changeset
  3157
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1350
82ce5b4ae16e home key move after prompt in inferior-ess-mode
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1349
diff changeset
  3158
(message "python, python-mode")
703
970915b27f69 Don't send ^M to Python process under Windows as you get error
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 699
diff changeset
  3159
1685
6a740def74e8 Fixed error 'eval-when is not defined' after switching to cl-lib.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1684
diff changeset
  3160
(cl-eval-when (compile)
1432
e099be0ee680 Fix: Warning: reference to free variable `python-indent'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1431
diff changeset
  3161
  (require 'python))
e099be0ee680 Fix: Warning: reference to free variable `python-indent'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1431
diff changeset
  3162
1543
438174f1f3f5 Prefer Python 3 for interactive shell.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1542
diff changeset
  3163
(setq python-shell-interpreter "python3")
1700
4b7b0f90d97b Mentioned python-shell-interpreter-args.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1699
diff changeset
  3164
(setq python-shell-interpreter-args "-i")
1543
438174f1f3f5 Prefer Python 3 for interactive shell.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1542
diff changeset
  3165
1432
e099be0ee680 Fix: Warning: reference to free variable `python-indent'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1431
diff changeset
  3166
(setq python-indent-offset 4)
727
4d38b9e96670 Set 'python-indent' and 'python-continuation-offset'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 724
diff changeset
  3167
1727
371302065ef0 Marked some Python related variables / values as safe for being local.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1726
diff changeset
  3168
;; (symbol-plist 'python-shell-process-environment)
371302065ef0 Marked some Python related variables / values as safe for being local.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1726
diff changeset
  3169
(put 'python-shell-process-environment 'safe-local-variable 'listp)
371302065ef0 Marked some Python related variables / values as safe for being local.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1726
diff changeset
  3170
(add-to-list 'safe-local-variable-values '(python-shell-interpreter . "python"))
371302065ef0 Marked some Python related variables / values as safe for being local.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1726
diff changeset
  3171
(add-to-list 'safe-local-variable-values '(python-shell-interpreter . "python2"))
371302065ef0 Marked some Python related variables / values as safe for being local.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1726
diff changeset
  3172
(add-to-list 'safe-local-variable-values '(python-shell-interpreter . "python3"))
371302065ef0 Marked some Python related variables / values as safe for being local.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1726
diff changeset
  3173
1766
407c95f4887f my-python/describe-at-point: With C-u argument ask for symbol and method.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1765
diff changeset
  3174
(defvar my-python/describe-at-point-history nil)
407c95f4887f my-python/describe-at-point: With C-u argument ask for symbol and method.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1765
diff changeset
  3175
407c95f4887f my-python/describe-at-point: With C-u argument ask for symbol and method.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1765
diff changeset
  3176
(defun my-python/describe-at-point (symbol prefix process)
1707
84c30e639991 Unwrap Python's dir() list into multi line text.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1706
diff changeset
  3177
  "Show full docs for symbol at point using Python's help() built-in.
84c30e639991 Unwrap Python's dir() list into multi line text.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1706
diff changeset
  3178
84c30e639991 Unwrap Python's dir() list into multi line text.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1706
diff changeset
  3179
With argument 1 uses Python's type() built-in.
84c30e639991 Unwrap Python's dir() list into multi line text.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1706
diff changeset
  3180
With argument 2 uses Python's repr() built-in.
1766
407c95f4887f my-python/describe-at-point: With C-u argument ask for symbol and method.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1765
diff changeset
  3181
With argument 3 uses Python's dir() built-in.
407c95f4887f my-python/describe-at-point: With C-u argument ask for symbol and method.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1765
diff changeset
  3182
With argument 4 uses Python's vars() built-in.
407c95f4887f my-python/describe-at-point: With C-u argument ask for symbol and method.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1765
diff changeset
  3183
407c95f4887f my-python/describe-at-point: With C-u argument ask for symbol and method.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1765
diff changeset
  3184
With C-u argument ask for symbol and method."
407c95f4887f my-python/describe-at-point: With C-u argument ask for symbol and method.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1765
diff changeset
  3185
  (interactive
407c95f4887f my-python/describe-at-point: With C-u argument ask for symbol and method.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1765
diff changeset
  3186
   (let ((prefix
407c95f4887f my-python/describe-at-point: With C-u argument ask for symbol and method.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1765
diff changeset
  3187
          (if (and current-prefix-arg (listp current-prefix-arg))
407c95f4887f my-python/describe-at-point: With C-u argument ask for symbol and method.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1765
diff changeset
  3188
              (plist-get '(?h nil ?t 1 ?r 2 ?d 3 ?v 4)
407c95f4887f my-python/describe-at-point: With C-u argument ask for symbol and method.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1765
diff changeset
  3189
                         (car (read-multiple-choice "Mode" '((?h "help") (?t "type") (?r "repr") (?d "dir") (?v "vars")))))
407c95f4887f my-python/describe-at-point: With C-u argument ask for symbol and method.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1765
diff changeset
  3190
            current-prefix-arg))
407c95f4887f my-python/describe-at-point: With C-u argument ask for symbol and method.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1765
diff changeset
  3191
         (symbol
407c95f4887f my-python/describe-at-point: With C-u argument ask for symbol and method.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1765
diff changeset
  3192
          (if (and current-prefix-arg (listp current-prefix-arg))
407c95f4887f my-python/describe-at-point: With C-u argument ask for symbol and method.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1765
diff changeset
  3193
              (read-string "EXPR: " (python-info-current-symbol) 'my-python/describe-at-point-history)
407c95f4887f my-python/describe-at-point: With C-u argument ask for symbol and method.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1765
diff changeset
  3194
            (python-info-current-symbol))))
407c95f4887f my-python/describe-at-point: With C-u argument ask for symbol and method.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1765
diff changeset
  3195
     (list symbol prefix (python-shell-get-process))))
1706
26b2fc3886f9 Added other types of introspection to my-python/describe-at-point.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1705
diff changeset
  3196
  (let ( (cmd
26b2fc3886f9 Added other types of introspection to my-python/describe-at-point.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1705
diff changeset
  3197
          (cond
1708
e6320b167b77 It is more informative to get help on symbol type than just type.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1707
diff changeset
  3198
           ((eq 1 prefix) (concat "help(type(" symbol "))\n"))
1707
84c30e639991 Unwrap Python's dir() list into multi line text.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1706
diff changeset
  3199
           ((eq 2 prefix) (concat "repr(" symbol ")\n"))
84c30e639991 Unwrap Python's dir() list into multi line text.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1706
diff changeset
  3200
           ((eq 3 prefix) (concat "print('\\n'.join(dir(" symbol ")))\n"))
84c30e639991 Unwrap Python's dir() list into multi line text.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1706
diff changeset
  3201
           ((eq 4 prefix) (concat "vars(" symbol ")\n"))
1706
26b2fc3886f9 Added other types of introspection to my-python/describe-at-point.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1705
diff changeset
  3202
           ((not prefix) (concat "help('" symbol "')\n"))
26b2fc3886f9 Added other types of introspection to my-python/describe-at-point.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1705
diff changeset
  3203
           (t (concat "dir(" symbol ")\n")))) )
1704
d5d0c845e7ad Shortened name for pydoc buffer.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1703
diff changeset
  3204
    (switch-to-buffer (get-buffer-create (format "*pydoc: %s*" symbol)))
1702
52368d6da1d4 Simplified code for displaying Python help. Shadow default C-c C-d key binding
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1701
diff changeset
  3205
    (fundamental-mode)
1412
04c1fdf1fdc9 Move defuns out of top level macro in order to simplify debugging. Follow
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1409
diff changeset
  3206
    (read-only-mode -1)
04c1fdf1fdc9 Move defuns out of top level macro in order to simplify debugging. Follow
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1409
diff changeset
  3207
    (buffer-disable-undo)
04c1fdf1fdc9 Move defuns out of top level macro in order to simplify debugging. Follow
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1409
diff changeset
  3208
    (erase-buffer)
1702
52368d6da1d4 Simplified code for displaying Python help. Shadow default C-c C-d key binding
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1701
diff changeset
  3209
    (insert (python-shell-send-string-no-output cmd process))
52368d6da1d4 Simplified code for displaying Python help. Shadow default C-c C-d key binding
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1701
diff changeset
  3210
    (setq-local delete-trailing-lines t)
52368d6da1d4 Simplified code for displaying Python help. Shadow default C-c C-d key binding
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1701
diff changeset
  3211
    (delete-trailing-whitespace)
1412
04c1fdf1fdc9 Move defuns out of top level macro in order to simplify debugging. Follow
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1409
diff changeset
  3212
    (read-only-mode 1)
04c1fdf1fdc9 Move defuns out of top level macro in order to simplify debugging. Follow
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1409
diff changeset
  3213
    (goto-char (point-min))))
04c1fdf1fdc9 Move defuns out of top level macro in order to simplify debugging. Follow
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1409
diff changeset
  3214
04c1fdf1fdc9 Move defuns out of top level macro in order to simplify debugging. Follow
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1409
diff changeset
  3215
(defun my-python/send-paragraph ()
04c1fdf1fdc9 Move defuns out of top level macro in order to simplify debugging. Follow
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1409
diff changeset
  3216
  (interactive)
04c1fdf1fdc9 Move defuns out of top level macro in order to simplify debugging. Follow
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1409
diff changeset
  3217
  (save-excursion
1703
003cda885eeb Fixed my-python/send-paragraph: part of region was remained highlighted after (mark-paragraph).
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1702
diff changeset
  3218
    (let ( end )
003cda885eeb Fixed my-python/send-paragraph: part of region was remained highlighted after (mark-paragraph).
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1702
diff changeset
  3219
      (forward-paragraph)
003cda885eeb Fixed my-python/send-paragraph: part of region was remained highlighted after (mark-paragraph).
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1702
diff changeset
  3220
      (setq end (point))
003cda885eeb Fixed my-python/send-paragraph: part of region was remained highlighted after (mark-paragraph).
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1702
diff changeset
  3221
      (backward-paragraph)
003cda885eeb Fixed my-python/send-paragraph: part of region was remained highlighted after (mark-paragraph).
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1702
diff changeset
  3222
      (python-shell-send-region (point) end))))
1342
ca70c69cabe5 Added function and key binding to show docs through built-in "help" Python function.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1341
diff changeset
  3223
1338
a49cca7037ba Add key binding for sending paragraph to python process.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1337
diff changeset
  3224
;; For built-in python.el
a49cca7037ba Add key binding for sending paragraph to python process.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1337
diff changeset
  3225
(my--eval-after-load python
1702
52368d6da1d4 Simplified code for displaying Python help. Shadow default C-c C-d key binding
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1701
diff changeset
  3226
  ;; Shadows primitive built-in `python-describe-at-point'.
52368d6da1d4 Simplified code for displaying Python help. Shadow default C-c C-d key binding
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1701
diff changeset
  3227
  (define-key python-mode-map "\C-c\C-d" 'my-python/describe-at-point)
1338
a49cca7037ba Add key binding for sending paragraph to python process.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1337
diff changeset
  3228
  (define-key python-mode-map [?\C-c ?\C-h] 'my-python/send-paragraph))
a49cca7037ba Add key binding for sending paragraph to python process.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1337
diff changeset
  3229
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  3230
(defgroup my-python nil
1344
131e20ea7dad My Python checkers mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1343
diff changeset
  3231
  "My Python extentions in Emacs."
131e20ea7dad My Python checkers mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1343
diff changeset
  3232
  :group 'python)
131e20ea7dad My Python checkers mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1343
diff changeset
  3233
1412
04c1fdf1fdc9 Move defuns out of top level macro in order to simplify debugging. Follow
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1409
diff changeset
  3234
(defvar my-python/pylint-command "pylint"
1344
131e20ea7dad My Python checkers mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1343
diff changeset
  3235
  "Command to run pylint executable.")
1701
c1ddee0b6366 Set better rename detection (30% similarity) for Git diff.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1700
diff changeset
  3236
(defvar my-python/pylint-args "-f parseable --disable=C0301,C0325"
1344
131e20ea7dad My Python checkers mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1343
diff changeset
  3237
  "Arguments to pass to pylint executable.")
131e20ea7dad My Python checkers mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1343
diff changeset
  3238
1412
04c1fdf1fdc9 Move defuns out of top level macro in order to simplify debugging. Follow
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1409
diff changeset
  3239
(defvar my-python/pep8-command "pep8"
1344
131e20ea7dad My Python checkers mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1343
diff changeset
  3240
  "Command to run pep8 executable.")
1412
04c1fdf1fdc9 Move defuns out of top level macro in order to simplify debugging. Follow
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1409
diff changeset
  3241
(defvar my-python/pep8-args ""
1344
131e20ea7dad My Python checkers mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1343
diff changeset
  3242
  "Arguments to pass to pep8 executable.")
131e20ea7dad My Python checkers mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1343
diff changeset
  3243
1412
04c1fdf1fdc9 Move defuns out of top level macro in order to simplify debugging. Follow
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1409
diff changeset
  3244
(defvar my-python/pyflakes-command "pyflakes"
1344
131e20ea7dad My Python checkers mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1343
diff changeset
  3245
  "Command to run pyflakes executable.")
1412
04c1fdf1fdc9 Move defuns out of top level macro in order to simplify debugging. Follow
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1409
diff changeset
  3246
(defvar my-python/pyflakes-args ""
1344
131e20ea7dad My Python checkers mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1343
diff changeset
  3247
  "Arguments to pass to pyflakes executable.")
131e20ea7dad My Python checkers mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1343
diff changeset
  3248
1450
44a6e8153899 Add pyflakes3.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1449
diff changeset
  3249
(defvar my-python/pyflakes3-command "pyflakes3"
44a6e8153899 Add pyflakes3.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1449
diff changeset
  3250
  "Command to run pyflakes3 executable.")
44a6e8153899 Add pyflakes3.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1449
diff changeset
  3251
(defvar my-python/pyflakes3-args ""
44a6e8153899 Add pyflakes3.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1449
diff changeset
  3252
  "Arguments to pass to pyflakes3 executable.")
44a6e8153899 Add pyflakes3.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1449
diff changeset
  3253
1412
04c1fdf1fdc9 Move defuns out of top level macro in order to simplify debugging. Follow
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1409
diff changeset
  3254
(defvar my-python/checker-alist
04c1fdf1fdc9 Move defuns out of top level macro in order to simplify debugging. Follow
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1409
diff changeset
  3255
  '((pylint . (my-python/pylint-command my-python/pylint-args))
04c1fdf1fdc9 Move defuns out of top level macro in order to simplify debugging. Follow
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1409
diff changeset
  3256
    (pep8 . (my-python/pep8-command my-python/pep8-args))
1450
44a6e8153899 Add pyflakes3.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1449
diff changeset
  3257
    (pyflakes . (my-python/pyflakes-command my-python/pyflakes-args))
44a6e8153899 Add pyflakes3.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1449
diff changeset
  3258
    (pyflakes3 . (my-python/pyflakes3-command my-python/pyflakes3-args)))
1344
131e20ea7dad My Python checkers mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1343
diff changeset
  3259
  "Known Python source code checkers.")
131e20ea7dad My Python checkers mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1343
diff changeset
  3260
1701
c1ddee0b6366 Set better rename detection (30% similarity) for Git diff.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1700
diff changeset
  3261
(defcustom my-python/default-checker
c1ddee0b6366 Set better rename detection (30% similarity) for Git diff.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1700
diff changeset
  3262
  (cond
c1ddee0b6366 Set better rename detection (30% similarity) for Git diff.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1700
diff changeset
  3263
   ((eq system-type 'cygwin) 'pylint)
c1ddee0b6366 Set better rename detection (30% similarity) for Git diff.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1700
diff changeset
  3264
   (t 'pyflakes))
1412
04c1fdf1fdc9 Move defuns out of top level macro in order to simplify debugging. Follow
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1409
diff changeset
  3265
  "Default Python source code checker. See `my-python/checker-alist' for full alist."
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  3266
  :group 'my-python
1412
04c1fdf1fdc9 Move defuns out of top level macro in order to simplify debugging. Follow
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1409
diff changeset
  3267
  :type (cons 'choice (mapcar (lambda (e) (cons 'const e)) my-python/checker-alist)))
04c1fdf1fdc9 Move defuns out of top level macro in order to simplify debugging. Follow
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1409
diff changeset
  3268
04c1fdf1fdc9 Move defuns out of top level macro in order to simplify debugging. Follow
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1409
diff changeset
  3269
(defvar my-python/check-history nil)
04c1fdf1fdc9 Move defuns out of top level macro in order to simplify debugging. Follow
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1409
diff changeset
  3270
04c1fdf1fdc9 Move defuns out of top level macro in order to simplify debugging. Follow
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1409
diff changeset
  3271
(defun my-python/check (&optional checker)
1344
131e20ea7dad My Python checkers mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1343
diff changeset
  3272
  (interactive
131e20ea7dad My Python checkers mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1343
diff changeset
  3273
   (list
1412
04c1fdf1fdc9 Move defuns out of top level macro in order to simplify debugging. Follow
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1409
diff changeset
  3274
    (completing-read "Select cheker: " (mapcar (lambda (e) (car e)) my-python/checker-alist) nil t (symbol-name my-python/default-checker) 'my-python/check-history)))
1344
131e20ea7dad My Python checkers mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1343
diff changeset
  3275
  (let ( entry )
1412
04c1fdf1fdc9 Move defuns out of top level macro in order to simplify debugging. Follow
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1409
diff changeset
  3276
    (unless (setq entry (cdr (assoc (intern-soft checker) my-python/checker-alist)))
1344
131e20ea7dad My Python checkers mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1343
diff changeset
  3277
      (error "Unknown checker..."))
131e20ea7dad My Python checkers mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1343
diff changeset
  3278
    (compilation-start (format "%s %s %s" (symbol-value (car entry)) (symbol-value (cadr entry)) (shell-quote-argument (buffer-file-name))))))
131e20ea7dad My Python checkers mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1343
diff changeset
  3279
131e20ea7dad My Python checkers mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1343
diff changeset
  3280
(my--eval-after-load python
1412
04c1fdf1fdc9 Move defuns out of top level macro in order to simplify debugging. Follow
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1409
diff changeset
  3281
  (define-key python-mode-map [?\C-c ?\C-v] #'my-python/check))
1340
daa03efc12b9 Show full docs for symbol at point for Python mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1339
diff changeset
  3282
1338
a49cca7037ba Add key binding for sending paragraph to python process.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1337
diff changeset
  3283
;; For 3rd party python-mode.el.
1254
19c7b3be9b3a Define special macro to avoid warning about "assignment to free variable".
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1253
diff changeset
  3284
(my--eval-after-load python-mode
1278
8e47e801be9d Remove qouting from 'my--eval-after-load' macro usage because that code doesn't evaluated.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1277
diff changeset
  3285
  (when (and (boundp 'py-version) (equal py-version "5.1.0"))
856
7757d0840a78 Fix bug: http://bugs.debian.org/cgi-bin/bugreport.cgi?bug=654398
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 843
diff changeset
  3286
    ;; (py-toggle-shells 'cpython)
1337
a0eadfd4cff0 Redefine and add some key binding for python-mode.el.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1336
diff changeset
  3287
    (setq-default py-which-shell py-python-command))
a0eadfd4cff0 Redefine and add some key binding for python-mode.el.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1336
diff changeset
  3288
  (when (boundp 'py-version)
a0eadfd4cff0 Redefine and add some key binding for python-mode.el.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1336
diff changeset
  3289
    (define-key python-mode-map [C-backspace] 'backward-kill-word)
a0eadfd4cff0 Redefine and add some key binding for python-mode.el.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1336
diff changeset
  3290
    (define-key python-mode-map [?\C-c ?p] 'py-execute-paragraph)
1339
d276e7a0d704 Seems that python-describe-symbol in python-mode.el and not in
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1338
diff changeset
  3291
    (define-key python-mode-map [?\C-c ?r] 'py-execute-region)
d276e7a0d704 Seems that python-describe-symbol in python-mode.el and not in
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1338
diff changeset
  3292
    (define-key inferior-python-mode-map "\C-c\C-f" 'python-describe-symbol)))
1023
3a49cbe13ae3 Fix 'eval-after-load' usage. Fix mode name.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1022
diff changeset
  3293
957
15fc17674517 Enable "M-/", "C-c g", "C-c d", "C-c f" shortcuts.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 956
diff changeset
  3294
;; Enable "M-/", "C-c g", "C-c d", "C-c f" shortcuts.
15fc17674517 Enable "M-/", "C-c g", "C-c d", "C-c f" shortcuts.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 956
diff changeset
  3295
(setq ropemacs-enable-shortcuts t)
864
adacfc97125b Load 'pymacs' and 'ropemacs' automatically.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 863
diff changeset
  3296
(ignore-errors
1022
37071d001c49 Disable rope.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1021
diff changeset
  3297
  ;; (require 'pymacs)
37071d001c49 Disable rope.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1021
diff changeset
  3298
  ;; (pymacs-load "ropemacs" "rope-")
864
adacfc97125b Load 'pymacs' and 'ropemacs' automatically.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 863
diff changeset
  3299
  )
adacfc97125b Load 'pymacs' and 'ropemacs' automatically.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 863
diff changeset
  3300
;; Automatically save project python buffers before refactorings
adacfc97125b Load 'pymacs' and 'ropemacs' automatically.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 863
diff changeset
  3301
(setq ropemacs-confirm-saving 'nil)
adacfc97125b Load 'pymacs' and 'ropemacs' automatically.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 863
diff changeset
  3302
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  3303
(defun my-python-add-to-path (path)
732
139665dd6ada my-python-django-fix + my-python-add-to-path.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 731
diff changeset
  3304
  (interactive (list (read-directory-name "Enter new path for PYTHONPATH: ")))
139665dd6ada my-python-django-fix + my-python-add-to-path.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 731
diff changeset
  3305
  (when (featurep 'cygwin-mount)
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  3306
    (setq path (my-dos2cygwin-path path)))
1024
4bb32327e98b Fix my-python-add-to-path to allow ~ in path.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1023
diff changeset
  3307
  (python-send-string (format "import sys; sys.path.append(\"%s\")" (expand-file-name path))) )
732
139665dd6ada my-python-django-fix + my-python-add-to-path.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 731
diff changeset
  3308
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  3309
(defun my-python-django-fix (path)
732
139665dd6ada my-python-django-fix + my-python-add-to-path.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 731
diff changeset
  3310
  "XXX not work on Cygwin + naive Emacs."
139665dd6ada my-python-django-fix + my-python-add-to-path.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 731
diff changeset
  3311
  (interactive (list (read-directory-name "Enter new path for PYTHONPATH: ")))
139665dd6ada my-python-django-fix + my-python-add-to-path.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 731
diff changeset
  3312
  (when (featurep 'cygwin-mount)
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  3313
    (setq path (my-dos2cygwin-path path))
732
139665dd6ada my-python-django-fix + my-python-add-to-path.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 731
diff changeset
  3314
    )
139665dd6ada my-python-django-fix + my-python-add-to-path.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 731
diff changeset
  3315
  (let ((file (concat path "manage.py")))
139665dd6ada my-python-django-fix + my-python-add-to-path.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 731
diff changeset
  3316
    (if (file-exists-p file)
139665dd6ada my-python-django-fix + my-python-add-to-path.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 731
diff changeset
  3317
        (python-send-string (format "import os; os.chdir(\"%s\"); execfile(\"%s\")" path file))
139665dd6ada my-python-django-fix + my-python-add-to-path.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 731
diff changeset
  3318
      (error (format "file '%s' does not exist" file))
139665dd6ada my-python-django-fix + my-python-add-to-path.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 731
diff changeset
  3319
      )))
139665dd6ada my-python-django-fix + my-python-add-to-path.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 731
diff changeset
  3320
1129
3458d2911643 Disable eldoc for Python in flavor of Semantic and perfomance reason.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1128
diff changeset
  3321
;; Disable in flavor of Semantic and perfomance reason.
3458d2911643 Disable eldoc for Python in flavor of Semantic and perfomance reason.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1128
diff changeset
  3322
;; (when (>= emacs-major-version 22)
1489
c0c3d88cd779 Windows doesn't have fonts for 'or'/'and' Python keywords.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1488
diff changeset
  3323
;;   (add-hook 'python-mode-hook 'turn-on-eldoc-mode)
c0c3d88cd779 Windows doesn't have fonts for 'or'/'and' Python keywords.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1488
diff changeset
  3324
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  3325
(defun my-python-mode-hook ()
1722
c4feb289e3c2 tags-completion-at-point-function over python-completion-at-point as latter doesn't work for me in Cygwin.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1719
diff changeset
  3326
  (setq completion-at-point-functions '(tags-completion-at-point-function python-completion-at-point))
1489
c0c3d88cd779 Windows doesn't have fonts for 'or'/'and' Python keywords.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1488
diff changeset
  3327
  (when (and (eq window-system 'w32) (fboundp 'prettify-symbols-mode))
c0c3d88cd779 Windows doesn't have fonts for 'or'/'and' Python keywords.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1488
diff changeset
  3328
    (prettify-symbols-mode -1)))
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  3329
(add-hook 'python-mode-hook 'my-python-mode-hook)
729
9c5cb48451ad Enable 'eldoc-mode' for 'python-mode'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 728
diff changeset
  3330
1532
e6ea63ccab39 Modern Windows can work with Unicode. No need for codepage.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1531
diff changeset
  3331
;; (when (equal window-system 'w32)
e6ea63ccab39 Modern Windows can work with Unicode. No need for codepage.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1531
diff changeset
  3332
;;   (add-to-list 'process-coding-system-alist '("python" cp1251-unix . cp1251-unix)))
703
970915b27f69 Don't send ^M to Python process under Windows as you get error
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 699
diff changeset
  3333
1210
b149f50121ac requirements.txt is Python dependency description file probably.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1208
diff changeset
  3334
(add-to-list 'auto-mode-alist '("/requirements.txt\\'" . conf-mode))
b149f50121ac requirements.txt is Python dependency description file probably.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1208
diff changeset
  3335
718
19ab21ec7640 Define own outline-regex to easy view file structure.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 717
diff changeset
  3336
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
884
8c6ff01debc1 Use cperl instead perl mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 883
diff changeset
  3337
(message "perl, cperl")
8c6ff01debc1 Use cperl instead perl mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 883
diff changeset
  3338
1685
6a740def74e8 Fixed error 'eval-when is not defined' after switching to cl-lib.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1684
diff changeset
  3339
(cl-eval-when (compile) (require 'cperl-mode))
1374
313e428cf77c Add (eval-when 'compile ...) to reduce number of Warning: reference to free variable.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1373
diff changeset
  3340
884
8c6ff01debc1 Use cperl instead perl mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 883
diff changeset
  3341
;; Use cperl instead perl mode.
8c6ff01debc1 Use cperl instead perl mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 883
diff changeset
  3342
(mapc
8c6ff01debc1 Use cperl instead perl mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 883
diff changeset
  3343
 (lambda (pair)
8c6ff01debc1 Use cperl instead perl mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 883
diff changeset
  3344
   (if (eq (cdr pair) 'perl-mode)
8c6ff01debc1 Use cperl instead perl mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 883
diff changeset
  3345
       (setcdr pair 'cperl-mode)))
8c6ff01debc1 Use cperl instead perl mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 883
diff changeset
  3346
 (append auto-mode-alist interpreter-mode-alist))
885
fd8ec78ece0a Don't show all man page. I set man switches to "-a"...
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 884
diff changeset
  3347
;; Don't show all man page. I set man switches to "-a"...
fd8ec78ece0a Don't show all man page. I set man switches to "-a"...
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 884
diff changeset
  3348
(add-hook
fd8ec78ece0a Don't show all man page. I set man switches to "-a"...
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 884
diff changeset
  3349
 'cperl-mode-hook
fd8ec78ece0a Don't show all man page. I set man switches to "-a"...
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 884
diff changeset
  3350
 '(lambda ()
fd8ec78ece0a Don't show all man page. I set man switches to "-a"...
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 884
diff changeset
  3351
    (make-local-variable 'Man-switches)
fd8ec78ece0a Don't show all man page. I set man switches to "-a"...
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 884
diff changeset
  3352
    (setq Man-switches nil)))
884
8c6ff01debc1 Use cperl instead perl mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 883
diff changeset
  3353
886
0867fc471c12 Expands for keywords such as foreach, while, etc...
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 885
diff changeset
  3354
;; Expands for keywords such as foreach, while, etc...
0867fc471c12 Expands for keywords such as foreach, while, etc...
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 885
diff changeset
  3355
(setq cperl-electric-keywords t)
0867fc471c12 Expands for keywords such as foreach, while, etc...
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 885
diff changeset
  3356
888
37348d961bfb Set indentation rules for cperl.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 887
diff changeset
  3357
(setq
37348d961bfb Set indentation rules for cperl.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 887
diff changeset
  3358
 cperl-indent-level 2
889
7f24172c2c4b Fix indent level for closed parenthesis.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 888
diff changeset
  3359
 cperl-close-paren-offset -2
888
37348d961bfb Set indentation rules for cperl.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 887
diff changeset
  3360
 cperl-continued-statement-offset 2
37348d961bfb Set indentation rules for cperl.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 887
diff changeset
  3361
 cperl-indent-parens-as-block t
37348d961bfb Set indentation rules for cperl.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 887
diff changeset
  3362
 cperl-tab-always-indent t)
37348d961bfb Set indentation rules for cperl.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 887
diff changeset
  3363
884
8c6ff01debc1 Use cperl instead perl mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 883
diff changeset
  3364
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1350
82ce5b4ae16e home key move after prompt in inferior-ess-mode
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1349
diff changeset
  3365
(message "r, ess-mode")
82ce5b4ae16e home key move after prompt in inferior-ess-mode
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1349
diff changeset
  3366
82ce5b4ae16e home key move after prompt in inferior-ess-mode
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1349
diff changeset
  3367
(setq ess-indent-offset 2)
82ce5b4ae16e home key move after prompt in inferior-ess-mode
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1349
diff changeset
  3368
82ce5b4ae16e home key move after prompt in inferior-ess-mode
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1349
diff changeset
  3369
(my--eval-after-load ess-inf
82ce5b4ae16e home key move after prompt in inferior-ess-mode
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1349
diff changeset
  3370
  (define-key inferior-ess-mode-map [home] 'comint-bol))
82ce5b4ae16e home key move after prompt in inferior-ess-mode
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1349
diff changeset
  3371
82ce5b4ae16e home key move after prompt in inferior-ess-mode
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1349
diff changeset
  3372
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
873
900edc8d663e Define key binding to send paragraph to SML process.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 872
diff changeset
  3373
(message "SML, Standard ML")
900edc8d663e Define key binding to send paragraph to SML process.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 872
diff changeset
  3374
1254
19c7b3be9b3a Define special macro to avoid warning about "assignment to free variable".
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1253
diff changeset
  3375
(my--eval-after-load sml
1278
8e47e801be9d Remove qouting from 'my--eval-after-load' macro usage because that code doesn't evaluated.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1277
diff changeset
  3376
  (define-key sml-mode-map (kbd "C-c C-p") 'sml-send-function))
873
900edc8d663e Define key binding to send paragraph to SML process.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 872
diff changeset
  3377
900edc8d663e Define key binding to send paragraph to SML process.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 872
diff changeset
  3378
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1615
6e1d795f7231 Enable typescript-mode for .tsx files.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1614
diff changeset
  3379
(message "javascript, js, typescript")
508
79bcafd3d45f As old Emacs have on 'js-mode', use 'javascript-generic-mode'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 507
diff changeset
  3380
965
72d443fe2b1d Disable workaround for:
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 964
diff changeset
  3381
(if (>= emacs-major-version 23)
72d443fe2b1d Disable workaround for:
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 964
diff changeset
  3382
    (add-to-list 'auto-mode-alist '("\\.js$" . js-mode))
72d443fe2b1d Disable workaround for:
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 964
diff changeset
  3383
  (add-to-list 'auto-mode-alist '("\\.js$" . javascript-generic-mode))
72d443fe2b1d Disable workaround for:
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 964
diff changeset
  3384
  )
72d443fe2b1d Disable workaround for:
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 964
diff changeset
  3385
1278
8e47e801be9d Remove qouting from 'my--eval-after-load' macro usage because that code doesn't evaluated.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1277
diff changeset
  3386
(my--eval-after-load js
8e47e801be9d Remove qouting from 'my--eval-after-load' macro usage because that code doesn't evaluated.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1277
diff changeset
  3387
  (modify-syntax-entry ?$ "w" js-mode-syntax-table))
1009
c6e2c636296f Treat '$' as word syntax for JS mode to simplify C-Left/Right movement for jQuery.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1001
diff changeset
  3388
1231
a909406cc06c js-indent-level, css-indent-offset
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1230
diff changeset
  3389
(setq js-indent-level 4)
a909406cc06c js-indent-level, css-indent-offset
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1230
diff changeset
  3390
;; js-curly-indent-offset, js-expr-indent-offset, js-paren-indent-offset, 	js-square-indent-offset, js-switch-indent-offset
1009
c6e2c636296f Treat '$' as word syntax for JS mode to simplify C-Left/Right movement for jQuery.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1001
diff changeset
  3391
965
72d443fe2b1d Disable workaround for:
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 964
diff changeset
  3392
;; BUG: all single char comments do not stop highlighting on end of line but
72d443fe2b1d Disable workaround for:
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 964
diff changeset
  3393
;; go to end of buffer. To fix use code:
72d443fe2b1d Disable workaround for:
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 964
diff changeset
  3394
;; (setq auto-mode-alist (rassq-delete-all 'js-mode auto-mode-alist))
72d443fe2b1d Disable workaround for:
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 964
diff changeset
  3395
;; (add-to-list 'auto-mode-alist '("\\.js$" . c++-mode))
0
aef1d0017234 Initial commit.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
diff changeset
  3396
1621
95a7aa1e3e60 Activate typescript mode with eval-after-load as feature isn't registerd during startup process so we cannot detect it earlier.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1620
diff changeset
  3397
(my--eval-after-load typescript-mode
1615
6e1d795f7231 Enable typescript-mode for .tsx files.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1614
diff changeset
  3398
  (add-to-list 'auto-mode-alist '("\\.tsx?$" . typescript-mode)))
6e1d795f7231 Enable typescript-mode for .tsx files.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1614
diff changeset
  3399
718
19ab21ec7640 Define own outline-regex to easy view file structure.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 717
diff changeset
  3400
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1482
d74af7d75f19 Set indentation for json-mode. Require ag.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1481
diff changeset
  3401
(message "json")
d74af7d75f19 Set indentation for json-mode. Require ag.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1481
diff changeset
  3402
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  3403
(defun my-json-mode-hook ()
1482
d74af7d75f19 Set indentation for json-mode. Require ag.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1481
diff changeset
  3404
  (set (make-local-variable 'js-indent-level) 2))
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  3405
(add-hook 'json-mode-hook #'my-json-mode-hook)
1482
d74af7d75f19 Set indentation for json-mode. Require ag.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1481
diff changeset
  3406
d74af7d75f19 Set indentation for json-mode. Require ag.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1481
diff changeset
  3407
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1649
562ee79b1a31 Enable yaml-mode in Jinja templates.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1648
diff changeset
  3408
(message "yaml, yml")
562ee79b1a31 Enable yaml-mode in Jinja templates.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1648
diff changeset
  3409
562ee79b1a31 Enable yaml-mode in Jinja templates.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1648
diff changeset
  3410
(my--eval-after-load yaml-mode
562ee79b1a31 Enable yaml-mode in Jinja templates.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1648
diff changeset
  3411
  (add-to-list 'auto-mode-alist '("\\.ya?ml\\.j2\\'" . yaml-mode)))
562ee79b1a31 Enable yaml-mode in Jinja templates.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1648
diff changeset
  3412
562ee79b1a31 Enable yaml-mode in Jinja templates.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1648
diff changeset
  3413
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
545
24992bae7599 Use 'message' instead of comment to easy debug where error occurred.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 544
diff changeset
  3414
(message "bat file, batch")
272
f7fba93f4028 Enable file association for myself defined modes.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 266
diff changeset
  3415
461
1639d2540bbd Set outline-minor for file. Fix section to feet header outline pattern.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 460
diff changeset
  3416
;; loaded from 'generic-x.el'
1639d2540bbd Set outline-minor for file. Fix section to feet header outline pattern.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 460
diff changeset
  3417
718
19ab21ec7640 Define own outline-regex to easy view file structure.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 717
diff changeset
  3418
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
545
24992bae7599 Use 'message' instead of comment to easy debug where error occurred.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 544
diff changeset
  3419
(message "csharp, c-sharp")
204
4545865a64c3 Move bat file mode code.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 203
diff changeset
  3420
0
aef1d0017234 Initial commit.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
diff changeset
  3421
(autoload 'csharp-mode "csharp-mode" "Major mode for editing C# code." t)
aef1d0017234 Initial commit.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
diff changeset
  3422
(add-to-list 'auto-mode-alist '("\\.cs$" . csharp-mode))
aef1d0017234 Initial commit.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
diff changeset
  3423
718
19ab21ec7640 Define own outline-regex to easy view file structure.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 717
diff changeset
  3424
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
545
24992bae7599 Use 'message' instead of comment to easy debug where error occurred.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 544
diff changeset
  3425
(message "java")
296
e502c69ab80a Make header name like tags, separated by comma and ended on period.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 295
diff changeset
  3426
1179
b2e1cb526649 Fix if subword-mode isn't defined.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1178
diff changeset
  3427
(when (fboundp 'subword-mode)
b2e1cb526649 Fix if subword-mode isn't defined.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1178
diff changeset
  3428
  (add-hook 'java-mode-hook #'subword-mode))
1178
2eeb9a3996b4 subword-mode for java-mode
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1177
diff changeset
  3429
1220
90e3a3721051 abbrev-file-name, pascal-mode
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1218
diff changeset
  3430
(add-hook 'java-mode-hook #'auto-revert-mode)
90e3a3721051 abbrev-file-name, pascal-mode
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1218
diff changeset
  3431
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  3432
(defun my-company-java-setup ()
1467
87b79df71e39 Adjust company mode to Java.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1466
diff changeset
  3433
  (setq-local company-dabbrev-code-other-buffers t)
87b79df71e39 Adjust company mode to Java.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1466
diff changeset
  3434
  (setq-local company-backends '((company-semantic company-capf company-dabbrev-code)))
87b79df71e39 Adjust company mode to Java.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1466
diff changeset
  3435
  (company-mode 1))
87b79df71e39 Adjust company mode to Java.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1466
diff changeset
  3436
(when (and (featurep 'semantic) (featurep 'company))
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  3437
  (add-hook 'java-mode-hook #'my-company-java-setup))
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  3438
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  3439
(defvar my-java-exeption-dirs nil
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  3440
  "List of dirs to look by `my-java-exeption'.")
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  3441
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  3442
(defun my-java-exeption ()
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  3443
  "Look at current line if it like Java exaption and try find file using `my-java-exeption-dirs'"
1497
9a881de3da24 Define function to easy navigate to Java source file from Java exception.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1494
diff changeset
  3444
  (interactive)
9a881de3da24 Define function to easy navigate to Java source file from Java exception.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1494
diff changeset
  3445
  (save-excursion
9a881de3da24 Define function to easy navigate to Java source file from Java exception.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1494
diff changeset
  3446
    (let ( path file line end )
9a881de3da24 Define function to easy navigate to Java source file from Java exception.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1494
diff changeset
  3447
      (forward-line 1)
9a881de3da24 Define function to easy navigate to Java source file from Java exception.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1494
diff changeset
  3448
      (backward-char 1)
9a881de3da24 Define function to easy navigate to Java source file from Java exception.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1494
diff changeset
  3449
      (setq end (point))
9a881de3da24 Define function to easy navigate to Java source file from Java exception.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1494
diff changeset
  3450
      (forward-line 0)
9a881de3da24 Define function to easy navigate to Java source file from Java exception.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1494
diff changeset
  3451
      (if (not (re-search-forward "^\\s-+at \\([a-zA-Z0-9.$]+\\)(\\([^.]+\\)\\.java:\\([1-9][0-9]*\\))" end t))
9a881de3da24 Define function to easy navigate to Java source file from Java exception.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1494
diff changeset
  3452
          (message "Current line doesn't look like Java exeption or lack necessary information...")
9a881de3da24 Define function to easy navigate to Java source file from Java exception.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1494
diff changeset
  3453
        (setq file (match-string 2))
9a881de3da24 Define function to easy navigate to Java source file from Java exception.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1494
diff changeset
  3454
        (setq line (match-string 3))
9a881de3da24 Define function to easy navigate to Java source file from Java exception.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1494
diff changeset
  3455
        (setq path (match-string 1))
9a881de3da24 Define function to easy navigate to Java source file from Java exception.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1494
diff changeset
  3456
        (setq path (replace-regexp-in-string (concat "\\." file ".*") "" path))
9a881de3da24 Define function to easy navigate to Java source file from Java exception.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1494
diff changeset
  3457
        (setq path (replace-regexp-in-string "\\." "/" path))
9a881de3da24 Define function to easy navigate to Java source file from Java exception.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1494
diff changeset
  3458
        (setq path (cl-some (lambda (dir)
9a881de3da24 Define function to easy navigate to Java source file from Java exception.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1494
diff changeset
  3459
                              (let ((full-path (format "%s/%s/%s.java" dir path file)))
9a881de3da24 Define function to easy navigate to Java source file from Java exception.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1494
diff changeset
  3460
                                (when (file-exists-p full-path) full-path)))
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  3461
                            my-java-exeption-dirs))
1497
9a881de3da24 Define function to easy navigate to Java source file from Java exception.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1494
diff changeset
  3462
        (if (not path)
9a881de3da24 Define function to easy navigate to Java source file from Java exception.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1494
diff changeset
  3463
            (message "Can't find file %s.java" file)
9a881de3da24 Define function to easy navigate to Java source file from Java exception.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1494
diff changeset
  3464
          (find-file-other-window path)
1588
a2f88a6df8ab Fixed: ‘goto-line’ is for interactive use only; use ‘forward-line’ instead.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1587
diff changeset
  3465
          (forward-line (string-to-number line)))))))
1497
9a881de3da24 Define function to easy navigate to Java source file from Java exception.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1494
diff changeset
  3466
9a881de3da24 Define function to easy navigate to Java source file from Java exception.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1494
diff changeset
  3467
(my--eval-after-load log4-hi-mode
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  3468
  (define-key log4-hi-mode-map [C-return] #'my-java-exeption))
1497
9a881de3da24 Define function to easy navigate to Java source file from Java exception.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1494
diff changeset
  3469
1220
90e3a3721051 abbrev-file-name, pascal-mode
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1218
diff changeset
  3470
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1537
592689d6d222 Some symbols from default composition rules cause Emacs redisplay hang on Windows.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1536
diff changeset
  3471
(message "cfengine")
592689d6d222 Some symbols from default composition rules cause Emacs redisplay hang on Windows.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1536
diff changeset
  3472
1538
35dbe903d7e0 Problems with hunging on re-display when symbols is used on Windows can be solved by:
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1537
diff changeset
  3473
(add-to-list 'auto-mode-alist '("\\.cf\\'" . cfengine3-mode))
35dbe903d7e0 Problems with hunging on re-display when symbols is used on Windows can be solved by:
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1537
diff changeset
  3474
35dbe903d7e0 Problems with hunging on re-display when symbols is used on Windows can be solved by:
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1537
diff changeset
  3475
;; Problems with hunging on re-display when symbols is used on Windows can be solved by:
35dbe903d7e0 Problems with hunging on re-display when symbols is used on Windows can be solved by:
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1537
diff changeset
  3476
;;   (setq inhibit-compacting-font-caches t)
35dbe903d7e0 Problems with hunging on re-display when symbols is used on Windows can be solved by:
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1537
diff changeset
  3477
;; or choosing "DejaVu Sans Mono" font.
35dbe903d7e0 Problems with hunging on re-display when symbols is used on Windows can be solved by:
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1537
diff changeset
  3478
;; (my--eval-after-load cfengine3
35dbe903d7e0 Problems with hunging on re-display when symbols is used on Windows can be solved by:
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1537
diff changeset
  3479
;;   (defconst cfengine3--prettify-symbols-alist
35dbe903d7e0 Problems with hunging on re-display when symbols is used on Windows can be solved by:
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1537
diff changeset
  3480
;;     '(("->"  . ?→)
35dbe903d7e0 Problems with hunging on re-display when symbols is used on Windows can be solved by:
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1537
diff changeset
  3481
;;       ("=>"  . ?⇛))))
1537
592689d6d222 Some symbols from default composition rules cause Emacs redisplay hang on Windows.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1536
diff changeset
  3482
592689d6d222 Some symbols from default composition rules cause Emacs redisplay hang on Windows.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1536
diff changeset
  3483
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1220
90e3a3721051 abbrev-file-name, pascal-mode
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1218
diff changeset
  3484
(message "Pascal")
90e3a3721051 abbrev-file-name, pascal-mode
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1218
diff changeset
  3485
1685
6a740def74e8 Fixed error 'eval-when is not defined' after switching to cl-lib.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1684
diff changeset
  3486
(cl-eval-when (compile) (require 'pascal))
1374
313e428cf77c Add (eval-when 'compile ...) to reduce number of Warning: reference to free variable.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1373
diff changeset
  3487
1220
90e3a3721051 abbrev-file-name, pascal-mode
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1218
diff changeset
  3488
(setq
90e3a3721051 abbrev-file-name, pascal-mode
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1218
diff changeset
  3489
 pascal-indent-level 4
90e3a3721051 abbrev-file-name, pascal-mode
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1218
diff changeset
  3490
 pascal-case-indent 2
90e3a3721051 abbrev-file-name, pascal-mode
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1218
diff changeset
  3491
 pascal-auto-newline t
90e3a3721051 abbrev-file-name, pascal-mode
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1218
diff changeset
  3492
 pascal-tab-always-indent t
90e3a3721051 abbrev-file-name, pascal-mode
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1218
diff changeset
  3493
 ;; pascal-toggle-completions t
90e3a3721051 abbrev-file-name, pascal-mode
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1218
diff changeset
  3494
 ;; pascal-auto-lineup nil
90e3a3721051 abbrev-file-name, pascal-mode
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1218
diff changeset
  3495
 pascal-auto-endcomments t)
90e3a3721051 abbrev-file-name, pascal-mode
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1218
diff changeset
  3496
718
19ab21ec7640 Define own outline-regex to easy view file structure.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 717
diff changeset
  3497
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1227
e2355b44d39d Enable wesnoth-mode if possible.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1221
diff changeset
  3498
(message "nsis-mode")
e2355b44d39d Enable wesnoth-mode if possible.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1221
diff changeset
  3499
e2355b44d39d Enable wesnoth-mode if possible.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1221
diff changeset
  3500
(when (fboundp 'nsis-mode)
e2355b44d39d Enable wesnoth-mode if possible.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1221
diff changeset
  3501
  (add-to-list 'auto-mode-alist '("\\.\\(nsi\\|nsh\\)\\'" . nsis-mode))
e2355b44d39d Enable wesnoth-mode if possible.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1221
diff changeset
  3502
  )
e2355b44d39d Enable wesnoth-mode if possible.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1221
diff changeset
  3503
e2355b44d39d Enable wesnoth-mode if possible.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1221
diff changeset
  3504
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
e2355b44d39d Enable wesnoth-mode if possible.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1221
diff changeset
  3505
(message "wesnoth-mode")
e2355b44d39d Enable wesnoth-mode if possible.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1221
diff changeset
  3506
e2355b44d39d Enable wesnoth-mode if possible.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1221
diff changeset
  3507
(ignore-errors
e2355b44d39d Enable wesnoth-mode if possible.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1221
diff changeset
  3508
  (require 'wesnoth-mode)
e2355b44d39d Enable wesnoth-mode if possible.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1221
diff changeset
  3509
  (add-to-list 'auto-mode-alist '("wesnoth.*\\.cfg\\'" . wesnoth-mode)) )
e2355b44d39d Enable wesnoth-mode if possible.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1221
diff changeset
  3510
1422
e601b08d4cbd Remove some "Warning: assignment to free variable".
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1421
diff changeset
  3511
(defvar wesnoth-base-indent)
1227
e2355b44d39d Enable wesnoth-mode if possible.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1221
diff changeset
  3512
(setq wesnoth-base-indent 2)
e2355b44d39d Enable wesnoth-mode if possible.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1221
diff changeset
  3513
e2355b44d39d Enable wesnoth-mode if possible.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1221
diff changeset
  3514
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1231
a909406cc06c js-indent-level, css-indent-offset
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1230
diff changeset
  3515
(message "css")
a909406cc06c js-indent-level, css-indent-offset
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1230
diff changeset
  3516
1685
6a740def74e8 Fixed error 'eval-when is not defined' after switching to cl-lib.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1684
diff changeset
  3517
(cl-eval-when (compile) (require 'css-mode))
1422
e601b08d4cbd Remove some "Warning: assignment to free variable".
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1421
diff changeset
  3518
1231
a909406cc06c js-indent-level, css-indent-offset
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1230
diff changeset
  3519
(setq css-indent-offset 4)
a909406cc06c js-indent-level, css-indent-offset
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1230
diff changeset
  3520
1232
8c3600d2317d css-eldoc-enable
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1231
diff changeset
  3521
;; (package-install 'css-eldoc)
8c3600d2317d css-eldoc-enable
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1231
diff changeset
  3522
1254
19c7b3be9b3a Define special macro to avoid warning about "assignment to free variable".
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1253
diff changeset
  3523
(my--eval-after-load css-mode
1233
ac43014e461d Delay loading.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1232
diff changeset
  3524
  (when (fboundp 'css-eldoc-enable)
ac43014e461d Delay loading.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1232
diff changeset
  3525
    (css-eldoc-enable)))
1232
8c3600d2317d css-eldoc-enable
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1231
diff changeset
  3526
1231
a909406cc06c js-indent-level, css-indent-offset
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1230
diff changeset
  3527
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
958
f93fa1c0f480 Add customisation for 'htmlize'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 957
diff changeset
  3528
(message "htmlize")
f93fa1c0f480 Add customisation for 'htmlize'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 957
diff changeset
  3529
1685
6a740def74e8 Fixed error 'eval-when is not defined' after switching to cl-lib.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1684
diff changeset
  3530
(cl-eval-when (compile) (require 'htmlize nil t))
1374
313e428cf77c Add (eval-when 'compile ...) to reduce number of Warning: reference to free variable.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1373
diff changeset
  3531
958
f93fa1c0f480 Add customisation for 'htmlize'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 957
diff changeset
  3532
(setq
f93fa1c0f480 Add customisation for 'htmlize'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 957
diff changeset
  3533
 htmlize-html-charset "utf-8"
f93fa1c0f480 Add customisation for 'htmlize'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 957
diff changeset
  3534
 htmlize-output-type 'inline-css
f93fa1c0f480 Add customisation for 'htmlize'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 957
diff changeset
  3535
 htmlize-html-major-mode 'html-mode
f93fa1c0f480 Add customisation for 'htmlize'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 957
diff changeset
  3536
 htmlize-convert-nonascii-to-entities nil)
f93fa1c0f480 Add customisation for 'htmlize'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 957
diff changeset
  3537
f93fa1c0f480 Add customisation for 'htmlize'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 957
diff changeset
  3538
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
545
24992bae7599 Use 'message' instead of comment to easy debug where error occurred.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 544
diff changeset
  3539
(message "html")
104
e921a5d906ca Use highlighting on sgml modes!
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 102
diff changeset
  3540
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  3541
(defun my-html-charref-escape-region (start end)
628
c00e41cc019e text2html
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 627
diff changeset
  3542
  (interactive "r")
c00e41cc019e text2html
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 627
diff changeset
  3543
  (save-excursion
c00e41cc019e text2html
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 627
diff changeset
  3544
    (save-restriction
c00e41cc019e text2html
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 627
diff changeset
  3545
      (narrow-to-region start end)
c00e41cc019e text2html
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 627
diff changeset
  3546
      (goto-char (point-min))
1539
14739033d89f Prevent error that character not found.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1538
diff changeset
  3547
      (while (search-forward "&" nil t) (replace-match "&amp;"))
628
c00e41cc019e text2html
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 627
diff changeset
  3548
      (goto-char (point-min))
1539
14739033d89f Prevent error that character not found.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1538
diff changeset
  3549
      (while (search-forward "<" nil t) (replace-match "&lt;"))
628
c00e41cc019e text2html
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 627
diff changeset
  3550
      (goto-char (point-min))
1539
14739033d89f Prevent error that character not found.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1538
diff changeset
  3551
      (while (search-forward ">" nil t) (replace-match "&gt;"))
628
c00e41cc019e text2html
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 627
diff changeset
  3552
      )))
c00e41cc019e text2html
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 627
diff changeset
  3553
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  3554
(defun my-html-charref-from-char (char)
654
f08ea38190d6 html-charref package for converting string from/to HTML charref.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 653
diff changeset
  3555
  (format "&#%d;" char)
f08ea38190d6 html-charref package for converting string from/to HTML charref.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 653
diff changeset
  3556
  )
f08ea38190d6 html-charref package for converting string from/to HTML charref.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 653
diff changeset
  3557
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  3558
(defun my-html-charref-from-string (string)
654
f08ea38190d6 html-charref package for converting string from/to HTML charref.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 653
diff changeset
  3559
  (let ((res ""))
f08ea38190d6 html-charref package for converting string from/to HTML charref.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 653
diff changeset
  3560
    (mapc
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  3561
     (lambda (char) (setq res (concat res (my-html-charref-from-char char))))
654
f08ea38190d6 html-charref package for converting string from/to HTML charref.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 653
diff changeset
  3562
     string)
f08ea38190d6 html-charref package for converting string from/to HTML charref.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 653
diff changeset
  3563
    res
f08ea38190d6 html-charref package for converting string from/to HTML charref.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 653
diff changeset
  3564
    ) )
f08ea38190d6 html-charref package for converting string from/to HTML charref.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 653
diff changeset
  3565
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  3566
(defun my-html-charref-escape-region2 (begin end &optional prefix)
654
f08ea38190d6 html-charref package for converting string from/to HTML charref.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 653
diff changeset
  3567
  (interactive "r\nP")
f08ea38190d6 html-charref package for converting string from/to HTML charref.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 653
diff changeset
  3568
  (if prefix
f08ea38190d6 html-charref package for converting string from/to HTML charref.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 653
diff changeset
  3569
      (save-excursion
f08ea38190d6 html-charref package for converting string from/to HTML charref.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 653
diff changeset
  3570
        (goto-char begin)
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  3571
        (insert (my-html-charref-from-string (delete-and-extract-region begin end))))
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  3572
    (my-html-charref-from-string (buffer-substring begin end))
654
f08ea38190d6 html-charref package for converting string from/to HTML charref.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 653
diff changeset
  3573
    ))
f08ea38190d6 html-charref package for converting string from/to HTML charref.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 653
diff changeset
  3574
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  3575
(defun my-html-charref-to-string (html)
1449
61455bf4fb87 Add handling of hex charrefs.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1448
diff changeset
  3576
  "Return string with replaced decimal/hex and string charrefs by
61455bf4fb87 Add handling of hex charrefs.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1448
diff changeset
  3577
correcponding UTF-8 symbol."
1324
f6fc0d332bbc Add my-* prefix to html-charref-* functions. Add support for &lt; /
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1323
diff changeset
  3578
  (let (str)
f6fc0d332bbc Add my-* prefix to html-charref-* functions. Add support for &lt; /
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1323
diff changeset
  3579
    (with-temp-buffer
f6fc0d332bbc Add my-* prefix to html-charref-* functions. Add support for &lt; /
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1323
diff changeset
  3580
      (insert html)
f6fc0d332bbc Add my-* prefix to html-charref-* functions. Add support for &lt; /
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1323
diff changeset
  3581
      (goto-char (point-min))
1449
61455bf4fb87 Add handling of hex charrefs.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1448
diff changeset
  3582
      (while (search-forward-regexp "&\\(?:#\\([[:digit:]]+\\)\\|#x\\([[:xdigit:]]+\\)\\|\\(lt\\|gt\\|amp\\|quot\\)\\);" nil t)
61455bf4fb87 Add handling of hex charrefs.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1448
diff changeset
  3583
        (setq str (or (match-string 1) (match-string 2) (match-string 3)))
1324
f6fc0d332bbc Add my-* prefix to html-charref-* functions. Add support for &lt; /
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1323
diff changeset
  3584
        (cond
1449
61455bf4fb87 Add handling of hex charrefs.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1448
diff changeset
  3585
         ((match-string 1)
61455bf4fb87 Add handling of hex charrefs.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1448
diff changeset
  3586
          (when (> (string-to-number str 10) 0)
61455bf4fb87 Add handling of hex charrefs.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1448
diff changeset
  3587
            (replace-match (string (string-to-number str 10)) t t)))
61455bf4fb87 Add handling of hex charrefs.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1448
diff changeset
  3588
         ((match-string 2)
61455bf4fb87 Add handling of hex charrefs.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1448
diff changeset
  3589
          (when (> (string-to-number str 16) 0)
61455bf4fb87 Add handling of hex charrefs.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1448
diff changeset
  3590
            (replace-match (string (string-to-number str 16)) t t)))
61455bf4fb87 Add handling of hex charrefs.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1448
diff changeset
  3591
         (t
61455bf4fb87 Add handling of hex charrefs.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1448
diff changeset
  3592
          (cond
61455bf4fb87 Add handling of hex charrefs.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1448
diff changeset
  3593
           ((equal str "lt")
61455bf4fb87 Add handling of hex charrefs.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1448
diff changeset
  3594
            (replace-match "<" t t))
61455bf4fb87 Add handling of hex charrefs.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1448
diff changeset
  3595
           ((equal str "gt")
61455bf4fb87 Add handling of hex charrefs.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1448
diff changeset
  3596
            (replace-match ">" t t))
61455bf4fb87 Add handling of hex charrefs.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1448
diff changeset
  3597
           ((equal str "quot")
61455bf4fb87 Add handling of hex charrefs.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1448
diff changeset
  3598
            (replace-match "\"" t t))
61455bf4fb87 Add handling of hex charrefs.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1448
diff changeset
  3599
           ((equal str "amp")
61455bf4fb87 Add handling of hex charrefs.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1448
diff changeset
  3600
            (replace-match "&" t t)))) ))
1324
f6fc0d332bbc Add my-* prefix to html-charref-* functions. Add support for &lt; /
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1323
diff changeset
  3601
      (buffer-string))))
f6fc0d332bbc Add my-* prefix to html-charref-* functions. Add support for &lt; /
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1323
diff changeset
  3602
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  3603
(defun my-html-charref-unescape-region (begin end &optional prefix)
654
f08ea38190d6 html-charref package for converting string from/to HTML charref.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 653
diff changeset
  3604
  (interactive "r\nP")
f08ea38190d6 html-charref package for converting string from/to HTML charref.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 653
diff changeset
  3605
  (if prefix
f08ea38190d6 html-charref package for converting string from/to HTML charref.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 653
diff changeset
  3606
      (save-excursion
f08ea38190d6 html-charref package for converting string from/to HTML charref.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 653
diff changeset
  3607
        (goto-char begin)
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  3608
        (insert (my-html-charref-to-string (delete-and-extract-region begin end))))
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  3609
    (my-html-charref-to-string (buffer-substring begin end))
654
f08ea38190d6 html-charref package for converting string from/to HTML charref.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 653
diff changeset
  3610
    ))
f08ea38190d6 html-charref package for converting string from/to HTML charref.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 653
diff changeset
  3611
718
19ab21ec7640 Define own outline-regex to easy view file structure.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 717
diff changeset
  3612
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
545
24992bae7599 Use 'message' instead of comment to easy debug where error occurred.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 544
diff changeset
  3613
(message "nxml")
520
7e8d77531ecf Make the complete element be treated as a single markup item.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 514
diff changeset
  3614
1685
6a740def74e8 Fixed error 'eval-when is not defined' after switching to cl-lib.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1684
diff changeset
  3615
(cl-eval-when (compile) (require 'nxml-mode))
1374
313e428cf77c Add (eval-when 'compile ...) to reduce number of Warning: reference to free variable.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1373
diff changeset
  3616
520
7e8d77531ecf Make the complete element be treated as a single markup item.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 514
diff changeset
  3617
(setq nxml-sexp-element-flag t)
522
14a5ff978db7 Set indent for NXML.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 521
diff changeset
  3618
(setq nxml-child-indent 2)
14a5ff978db7 Set indent for NXML.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 521
diff changeset
  3619
(setq nxml-attribute-indent 4)
104
e921a5d906ca Use highlighting on sgml modes!
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 102
diff changeset
  3620
1568
c4b43eed6b3d Fixed regex quoting syntax.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1567
diff changeset
  3621
(add-to-list 'auto-mode-alist '("\\.pom\\'" . nxml-mode))
c4b43eed6b3d Fixed regex quoting syntax.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1567
diff changeset
  3622
(add-to-list 'auto-mode-alist '("\\.xsd\\'" . nxml-mode))
c4b43eed6b3d Fixed regex quoting syntax.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1567
diff changeset
  3623
(add-to-list 'auto-mode-alist '("\\.rng\\'" . nxml-mode))
c4b43eed6b3d Fixed regex quoting syntax.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1567
diff changeset
  3624
(add-to-list 'auto-mode-alist '("\\.xul\\'" . nxml-mode))
c4b43eed6b3d Fixed regex quoting syntax.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1567
diff changeset
  3625
(add-to-list 'auto-mode-alist '("\\.xslt\\'" . nxml-mode))
c4b43eed6b3d Fixed regex quoting syntax.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1567
diff changeset
  3626
(add-to-list 'auto-mode-alist '("\\.svg\\'" . nxml-mode))
c4b43eed6b3d Fixed regex quoting syntax.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1567
diff changeset
  3627
(add-to-list 'auto-mode-alist '("\\.rss\\'" . nxml-mode))
c4b43eed6b3d Fixed regex quoting syntax.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1567
diff changeset
  3628
(add-to-list 'auto-mode-alist '("\\.atom\\'" . nxml-mode))
997
28255ceefe52 Use .pom files as XML files.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 993
diff changeset
  3629
1278
8e47e801be9d Remove qouting from 'my--eval-after-load' macro usage because that code doesn't evaluated.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1277
diff changeset
  3630
(my--eval-after-load nxml-mode
1567
3a880076385d Fixed: ‘nxml-complete’ is an obsolete command (as of 26.1); use ‘completion-at-point’ instead.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1566
diff changeset
  3631
  (if (<= emacs-major-version 25)
3a880076385d Fixed: ‘nxml-complete’ is an obsolete command (as of 26.1); use ‘completion-at-point’ instead.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1566
diff changeset
  3632
      (define-key nxml-mode-map [C-return] 'nxml-complete)
1578
1fabb8953172 Simpler key binding to collapse XML documents.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1577
diff changeset
  3633
    (define-key nxml-mode-map [C-return] 'completion-at-point))
1fabb8953172 Simpler key binding to collapse XML documents.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1577
diff changeset
  3634
  (define-key nxml-mode-map [S-tab] 'hs-toggle-hiding))
994
4bc77d7283ea Fix: File mode specification error: (error "The mode `nXML' does not support Imenu").
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 993
diff changeset
  3635
1559
9f4456fcac0e Added pretty-print XML function.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1558
diff changeset
  3636
(defun my-nxml-pp ()
9f4456fcac0e Added pretty-print XML function.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1558
diff changeset
  3637
  "Pretty-print XML."
9f4456fcac0e Added pretty-print XML function.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1558
diff changeset
  3638
  (interactive)
9f4456fcac0e Added pretty-print XML function.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1558
diff changeset
  3639
  (goto-char (point-min))
9f4456fcac0e Added pretty-print XML function.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1558
diff changeset
  3640
  (while (re-search-forward ">[ \t\n\r]+<" nil t)
9f4456fcac0e Added pretty-print XML function.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1558
diff changeset
  3641
    (replace-match ">\n<"))
1560
10e5b207ec7d Fixed my-nxml-pp.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1559
diff changeset
  3642
  (goto-char (point-min))
1559
9f4456fcac0e Added pretty-print XML function.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1558
diff changeset
  3643
  (while (re-search-forward "><" nil t)
9f4456fcac0e Added pretty-print XML function.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1558
diff changeset
  3644
    (replace-match ">\n<"))
9f4456fcac0e Added pretty-print XML function.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1558
diff changeset
  3645
  (indent-region (point-min) (point-max))
9f4456fcac0e Added pretty-print XML function.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1558
diff changeset
  3646
  (goto-char (point-min)))
9f4456fcac0e Added pretty-print XML function.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1558
diff changeset
  3647
1550
e3a381f14ad1 Added function that copies xpath-like path in XML document.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1549
diff changeset
  3648
(defun my-nxml-where (&optional prefix)
e3a381f14ad1 Added function that copies xpath-like path in XML document.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1549
diff changeset
  3649
  "Display the hierarchy of XML elements the point is on as a path."
e3a381f14ad1 Added function that copies xpath-like path in XML document.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1549
diff changeset
  3650
  (interactive "P")
e3a381f14ad1 Added function that copies xpath-like path in XML document.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1549
diff changeset
  3651
  (let (path)
e3a381f14ad1 Added function that copies xpath-like path in XML document.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1549
diff changeset
  3652
    (save-excursion
e3a381f14ad1 Added function that copies xpath-like path in XML document.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1549
diff changeset
  3653
      (save-restriction
e3a381f14ad1 Added function that copies xpath-like path in XML document.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1549
diff changeset
  3654
        (widen)
e3a381f14ad1 Added function that copies xpath-like path in XML document.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1549
diff changeset
  3655
        (while (and (< (point-min) (point))
e3a381f14ad1 Added function that copies xpath-like path in XML document.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1549
diff changeset
  3656
                    (condition-case nil
e3a381f14ad1 Added function that copies xpath-like path in XML document.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1549
diff changeset
  3657
                        (progn
e3a381f14ad1 Added function that copies xpath-like path in XML document.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1549
diff changeset
  3658
                          (nxml-backward-up-element)
e3a381f14ad1 Added function that copies xpath-like path in XML document.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1549
diff changeset
  3659
                          t)
e3a381f14ad1 Added function that copies xpath-like path in XML document.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1549
diff changeset
  3660
                      (error nil)))
e3a381f14ad1 Added function that copies xpath-like path in XML document.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1549
diff changeset
  3661
          (setq path (cons (xmltok-start-tag-local-name) path)))
e3a381f14ad1 Added function that copies xpath-like path in XML document.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1549
diff changeset
  3662
        (setq path (mapconcat 'identity path "/"))
e3a381f14ad1 Added function that copies xpath-like path in XML document.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1549
diff changeset
  3663
        (when prefix
e3a381f14ad1 Added function that copies xpath-like path in XML document.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1549
diff changeset
  3664
          (kill-new path))
e3a381f14ad1 Added function that copies xpath-like path in XML document.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1549
diff changeset
  3665
        (if (called-interactively-p t)
e3a381f14ad1 Added function that copies xpath-like path in XML document.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1549
diff changeset
  3666
            (message "%s" path)
e3a381f14ad1 Added function that copies xpath-like path in XML document.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1549
diff changeset
  3667
          path)))))
e3a381f14ad1 Added function that copies xpath-like path in XML document.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1549
diff changeset
  3668
998
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 995 997
diff changeset
  3669
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 995 997
diff changeset
  3670
(message "relax ng, rng")
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 995 997
diff changeset
  3671
1278
8e47e801be9d Remove qouting from 'my--eval-after-load' macro usage because that code doesn't evaluated.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1277
diff changeset
  3672
(my--eval-after-load rng-loc
8e47e801be9d Remove qouting from 'my--eval-after-load' macro usage because that code doesn't evaluated.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1277
diff changeset
  3673
  (add-to-list 'rng-schema-locating-files "~/.emacs.d/rnc/schemas.xml"))
617
5e34660f1a23 Add path to local rnc schemas.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 616
diff changeset
  3674
718
19ab21ec7640 Define own outline-regex to easy view file structure.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 717
diff changeset
  3675
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1026
ce279dbcf880 Use 'web-mode' if available.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1025
diff changeset
  3676
(message "web-mode")
ce279dbcf880 Use 'web-mode' if available.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1025
diff changeset
  3677
1558
a7bb0608855b Avoid warning "assignment to free variable" for /ido-mode during compilation.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1557
diff changeset
  3678
(require 'web-mode nil t)
1685
6a740def74e8 Fixed error 'eval-when is not defined' after switching to cl-lib.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1684
diff changeset
  3679
(cl-eval-when (compile) (require 'web-mode nil t))
1384
a952b43af57f Suppress another: Warning: assignment to free variable
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1383
diff changeset
  3680
1067
493ae377ca5d Set web-mode offsets.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1064
diff changeset
  3681
(setq web-mode-markup-indent-offset 2
493ae377ca5d Set web-mode offsets.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1064
diff changeset
  3682
      web-mode-css-indent-offset 2
1074
fffe729d20a0 Update web-mode setting to new version.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1073
diff changeset
  3683
      web-mode-code-indent-offset 2
fffe729d20a0 Update web-mode setting to new version.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1073
diff changeset
  3684
      web-mode-script-padding 2
fffe729d20a0 Update web-mode setting to new version.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1073
diff changeset
  3685
      web-mode-style-padding 2)
fffe729d20a0 Update web-mode setting to new version.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1073
diff changeset
  3686
fffe729d20a0 Update web-mode setting to new version.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1073
diff changeset
  3687
(setq web-mode-enable-comment-keywords t)
1067
493ae377ca5d Set web-mode offsets.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1064
diff changeset
  3688
1554
42a48016fc5a Disable auto indenting on copy/paste in web-mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1553
diff changeset
  3689
(setq web-mode-enable-auto-indentation nil)
42a48016fc5a Disable auto indenting on copy/paste in web-mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1553
diff changeset
  3690
1026
ce279dbcf880 Use 'web-mode' if available.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1025
diff changeset
  3691
(ignore-errors (require 'web-mode))
1447
8cde360dda53 Replace html-mode with web-mode in ``magic-fallback-mode-alist``.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1445
diff changeset
  3692
1026
ce279dbcf880 Use 'web-mode' if available.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1025
diff changeset
  3693
(when (featurep 'web-mode)
1447
8cde360dda53 Replace html-mode with web-mode in ``magic-fallback-mode-alist``.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1445
diff changeset
  3694
  ;; Replace html-mode  with web-mode.
8cde360dda53 Replace html-mode with web-mode in ``magic-fallback-mode-alist``.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1445
diff changeset
  3695
  (when (cl-some (lambda (spec) (eq (cdr spec) 'html-mode))
8cde360dda53 Replace html-mode with web-mode in ``magic-fallback-mode-alist``.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1445
diff changeset
  3696
                 magic-fallback-mode-alist)
8cde360dda53 Replace html-mode with web-mode in ``magic-fallback-mode-alist``.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1445
diff changeset
  3697
    (setq magic-fallback-mode-alist (copy-tree magic-fallback-mode-alist))
8cde360dda53 Replace html-mode with web-mode in ``magic-fallback-mode-alist``.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1445
diff changeset
  3698
    (mapc (lambda (spec) (when (eq (cdr spec) 'html-mode) (setcdr spec 'web-mode)))
8cde360dda53 Replace html-mode with web-mode in ``magic-fallback-mode-alist``.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1445
diff changeset
  3699
          magic-fallback-mode-alist))
1128
33ab3ce7f973 Use original values of web-mode-engine-file-regexps. Enable PHP mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1127
diff changeset
  3700
  (setq web-mode-engine-file-regexps (delq (assoc "jsp" web-mode-engine-file-regexps) web-mode-engine-file-regexps))
33ab3ce7f973 Use original values of web-mode-engine-file-regexps. Enable PHP mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1127
diff changeset
  3701
  (mapc (lambda (i) (add-to-list 'web-mode-engine-file-regexps i))
33ab3ce7f973 Use original values of web-mode-engine-file-regexps. Enable PHP mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1127
diff changeset
  3702
          '(("jsp" . "\\.tagf?\\'")
33ab3ce7f973 Use original values of web-mode-engine-file-regexps. Enable PHP mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1127
diff changeset
  3703
            ("jsp" . "\\.jspf?\\'")))
1026
ce279dbcf880 Use 'web-mode' if available.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1025
diff changeset
  3704
  (add-to-list 'auto-mode-alist '("\\.phtml\\'" . web-mode))
1130
4aea0ddc3607 Use web-mode for PHP.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1125
diff changeset
  3705
  (add-to-list 'auto-mode-alist '("\\.php\\'" . web-mode))
1027
53633ac1c134 Fix pattern for '.jspf' files.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1026
diff changeset
  3706
  (add-to-list 'auto-mode-alist '("\\.jspf?\\'" . web-mode))
1028
939bec5b98f8 Add JSP tag file to web-modes.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1027
diff changeset
  3707
  (add-to-list 'auto-mode-alist '("/WEB-INF/tags/.*\\.tagf?\\'" . web-mode))
1026
ce279dbcf880 Use 'web-mode' if available.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1025
diff changeset
  3708
  (add-to-list 'auto-mode-alist '("\\.as[cp]x\\'" . web-mode))
ce279dbcf880 Use 'web-mode' if available.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1025
diff changeset
  3709
  (add-to-list 'auto-mode-alist '("\\.erb\\'" . web-mode))
ce279dbcf880 Use 'web-mode' if available.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1025
diff changeset
  3710
  (add-to-list 'auto-mode-alist '("\\.mustache\\'" . web-mode))
ce279dbcf880 Use 'web-mode' if available.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1025
diff changeset
  3711
  (add-to-list 'auto-mode-alist '("\\.djhtml\\'" . web-mode))
ce279dbcf880 Use 'web-mode' if available.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1025
diff changeset
  3712
  (add-to-list 'auto-mode-alist '("\\.html?\\'" . web-mode)) )
ce279dbcf880 Use 'web-mode' if available.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1025
diff changeset
  3713
1448
6e3c4ea65439 Redefine some web-mode faces.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1447
diff changeset
  3714
(face-spec-set 'web-mode-html-tag-face
6e3c4ea65439 Redefine some web-mode faces.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1447
diff changeset
  3715
               '((((class color) (min-colors 16)) :foreground "blue")
6e3c4ea65439 Redefine some web-mode faces.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1447
diff changeset
  3716
                 (((type tty) (class mono)) :inverse-video t)))
6e3c4ea65439 Redefine some web-mode faces.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1447
diff changeset
  3717
(face-spec-set 'web-mode-html-tag-custom-face
6e3c4ea65439 Redefine some web-mode faces.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1447
diff changeset
  3718
               '((((class color) (min-colors 16)) :foreground "red")
6e3c4ea65439 Redefine some web-mode faces.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1447
diff changeset
  3719
                 (((type tty) (class mono)) :inverse-video t)))
6e3c4ea65439 Redefine some web-mode faces.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1447
diff changeset
  3720
(face-spec-set 'web-mode-html-tag-custom-face
6e3c4ea65439 Redefine some web-mode faces.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1447
diff changeset
  3721
               '((((class color) (min-colors 16)) :foreground "red")
6e3c4ea65439 Redefine some web-mode faces.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1447
diff changeset
  3722
                 (((type tty) (class mono)) :inverse-video t)))
6e3c4ea65439 Redefine some web-mode faces.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1447
diff changeset
  3723
(face-spec-set 'web-mode-html-tag-bracket-face
6e3c4ea65439 Redefine some web-mode faces.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1447
diff changeset
  3724
               '((((background dark)) . (:foreground "white"))
6e3c4ea65439 Redefine some web-mode faces.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1447
diff changeset
  3725
                 (((background light)) . (:foreground "black"))))
6e3c4ea65439 Redefine some web-mode faces.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1447
diff changeset
  3726
(copy-face 'font-lock-variable-name-face 'web-mode-html-attr-name-face)
6e3c4ea65439 Redefine some web-mode faces.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1447
diff changeset
  3727
(copy-face 'web-mode-html-tag-bracket-face 'web-mode-html-attr-equal-face)
6e3c4ea65439 Redefine some web-mode faces.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1447
diff changeset
  3728
1026
ce279dbcf880 Use 'web-mode' if available.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1025
diff changeset
  3729
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1392
2979c26ce356 sgml-set-face is not defined anywhere. Fix some Warning: assignment to free variable.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1391
diff changeset
  3730
(message "sgml")
2979c26ce356 sgml-set-face is not defined anywhere. Fix some Warning: assignment to free variable.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1391
diff changeset
  3731
1685
6a740def74e8 Fixed error 'eval-when is not defined' after switching to cl-lib.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1684
diff changeset
  3732
(cl-eval-when (compile) (require 'sgml-mode))
1392
2979c26ce356 sgml-set-face is not defined anywhere. Fix some Warning: assignment to free variable.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1391
diff changeset
  3733
2979c26ce356 sgml-set-face is not defined anywhere. Fix some Warning: assignment to free variable.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1391
diff changeset
  3734
(setq sgml-basic-offset 4)
2979c26ce356 sgml-set-face is not defined anywhere. Fix some Warning: assignment to free variable.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1391
diff changeset
  3735
2979c26ce356 sgml-set-face is not defined anywhere. Fix some Warning: assignment to free variable.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1391
diff changeset
  3736
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
545
24992bae7599 Use 'message' instead of comment to easy debug where error occurred.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 544
diff changeset
  3737
(message "psgml")
296
e502c69ab80a Make header name like tags, separated by comma and ended on period.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 295
diff changeset
  3738
1685
6a740def74e8 Fixed error 'eval-when is not defined' after switching to cl-lib.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1684
diff changeset
  3739
(cl-eval-when (compile) (require 'psgml nil t))
1392
2979c26ce356 sgml-set-face is not defined anywhere. Fix some Warning: assignment to free variable.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1391
diff changeset
  3740
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  3741
(defvar my-html-template
698
2a081d4e2e7c FIX: 'html-tag-alist' is not defined in 'psgml' mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 691
diff changeset
  3742
      '("html"
2a081d4e2e7c FIX: 'html-tag-alist' is not defined in 'psgml' mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 691
diff changeset
  3743
        (nil
2a081d4e2e7c FIX: 'html-tag-alist' is not defined in 'psgml' mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 691
diff changeset
  3744
         "\n<head>" \n
1366
f9989b9060aa Fix: Warning: `read-input' is an obsolete function (as of 22.1); use `read-string' instead.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1365
diff changeset
  3745
         "<meta http-equiv=\"Content-Type\" content=\"text/html; charset=" (read-string "Charset: ") "\">" \n
f9989b9060aa Fix: Warning: `read-input' is an obsolete function (as of 22.1); use `read-string' instead.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1365
diff changeset
  3746
         "<title>" (setq str (read-string "Title: ")) "</title>\n"
698
2a081d4e2e7c FIX: 'html-tag-alist' is not defined in 'psgml' mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 691
diff changeset
  3747
         "</head>\n"
2a081d4e2e7c FIX: 'html-tag-alist' is not defined in 'psgml' mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 691
diff changeset
  3748
         "<body>\n<h1>" str "</h1>"
2a081d4e2e7c FIX: 'html-tag-alist' is not defined in 'psgml' mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 691
diff changeset
  3749
         "\n<address>" \n
2a081d4e2e7c FIX: 'html-tag-alist' is not defined in 'psgml' mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 691
diff changeset
  3750
         "<a href=\"mailto:" user-mail-address "\">" (user-full-name) "</a>" \n
2a081d4e2e7c FIX: 'html-tag-alist' is not defined in 'psgml' mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 691
diff changeset
  3751
         "</address>" \n
2a081d4e2e7c FIX: 'html-tag-alist' is not defined in 'psgml' mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 691
diff changeset
  3752
         "</body>\n"
1392
2979c26ce356 sgml-set-face is not defined anywhere. Fix some Warning: assignment to free variable.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1391
diff changeset
  3753
         )))
2979c26ce356 sgml-set-face is not defined anywhere. Fix some Warning: assignment to free variable.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1391
diff changeset
  3754
1254
19c7b3be9b3a Define special macro to avoid warning about "assignment to free variable".
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1253
diff changeset
  3755
(my--eval-after-load sgml-mode
1278
8e47e801be9d Remove qouting from 'my--eval-after-load' macro usage because that code doesn't evaluated.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1277
diff changeset
  3756
  (unless (featurep 'psgml)
8e47e801be9d Remove qouting from 'my--eval-after-load' macro usage because that code doesn't evaluated.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1277
diff changeset
  3757
    (setq html-tag-alist
8e47e801be9d Remove qouting from 'my--eval-after-load' macro usage because that code doesn't evaluated.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1277
diff changeset
  3758
          (cons
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  3759
           my-html-template
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  3760
           (my-filter
1278
8e47e801be9d Remove qouting from 'my--eval-after-load' macro usage because that code doesn't evaluated.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1277
diff changeset
  3761
            (lambda (item) (not (equal (car item) "html")))
8e47e801be9d Remove qouting from 'my--eval-after-load' macro usage because that code doesn't evaluated.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1277
diff changeset
  3762
            html-tag-alist)))
8e47e801be9d Remove qouting from 'my--eval-after-load' macro usage because that code doesn't evaluated.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1277
diff changeset
  3763
    (add-to-list 'html-tag-alist '("script" (\n) ("type" "text/javascript") ))
8e47e801be9d Remove qouting from 'my--eval-after-load' macro usage because that code doesn't evaluated.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1277
diff changeset
  3764
    (add-to-list 'html-tag-alist '("style" (\n) ("type" "text/css") )) ))
985
ad3c49e55848 Define own jsp-mode based on html-mode with JSP comment style.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 984
diff changeset
  3765
ad3c49e55848 Define own jsp-mode based on html-mode with JSP comment style.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 984
diff changeset
  3766
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
ad3c49e55848 Define own jsp-mode based on html-mode with JSP comment style.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 984
diff changeset
  3767
(message "jsp")
ad3c49e55848 Define own jsp-mode based on html-mode with JSP comment style.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 984
diff changeset
  3768
1420
3327e11cea09 Fix many of "Warning: assignment to free variable".
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1419
diff changeset
  3769
(defvar jsp-font-lock-syntactic-keywords
3327e11cea09 Fix many of "Warning: assignment to free variable".
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1419
diff changeset
  3770
  '(("\\(<\\)%--" (1 "< b"))
3327e11cea09 Fix many of "Warning: assignment to free variable".
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1419
diff changeset
  3771
    ("--%\\(>\\)" (1 "> b"))))
3327e11cea09 Fix many of "Warning: assignment to free variable".
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1419
diff changeset
  3772
985
ad3c49e55848 Define own jsp-mode based on html-mode with JSP comment style.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 984
diff changeset
  3773
(define-derived-mode jsp-mode html-mode "JSP"
ad3c49e55848 Define own jsp-mode based on html-mode with JSP comment style.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 984
diff changeset
  3774
  "JSP editing mode. Redefine HTML comment syntax to JSP."
ad3c49e55848 Define own jsp-mode based on html-mode with JSP comment style.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 984
diff changeset
  3775
  (setq comment-start "<%--")
ad3c49e55848 Define own jsp-mode based on html-mode with JSP comment style.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 984
diff changeset
  3776
  (setq comment-end "--%>")
ad3c49e55848 Define own jsp-mode based on html-mode with JSP comment style.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 984
diff changeset
  3777
  (setq comment-start-skip "<[!%]--[ \t]*")
ad3c49e55848 Define own jsp-mode based on html-mode with JSP comment style.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 984
diff changeset
  3778
  (setq comment-end-skip "[ \t]*--[% \t\n]*>")
ad3c49e55848 Define own jsp-mode based on html-mode with JSP comment style.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 984
diff changeset
  3779
  (setcdr (assoc 'font-lock-syntactic-keywords font-lock-defaults) 'jsp-font-lock-syntactic-keywords) )
ad3c49e55848 Define own jsp-mode based on html-mode with JSP comment style.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 984
diff changeset
  3780
1026
ce279dbcf880 Use 'web-mode' if available.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1025
diff changeset
  3781
(unless (featurep 'web-mode)
ce279dbcf880 Use 'web-mode' if available.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1025
diff changeset
  3782
  (add-to-list 'auto-mode-alist '("\\.jspf?\\'" . jsp-mode)))
985
ad3c49e55848 Define own jsp-mode based on html-mode with JSP comment style.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 984
diff changeset
  3783
718
19ab21ec7640 Define own outline-regex to easy view file structure.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 717
diff changeset
  3784
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1556
835b8743f9d3 Added emmet-mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1555
diff changeset
  3785
(message "emmet")
835b8743f9d3 Added emmet-mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1555
diff changeset
  3786
1685
6a740def74e8 Fixed error 'eval-when is not defined' after switching to cl-lib.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1684
diff changeset
  3787
(cl-eval-when (compile) (require 'emmet-mode nil t))
1556
835b8743f9d3 Added emmet-mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1555
diff changeset
  3788
835b8743f9d3 Added emmet-mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1555
diff changeset
  3789
(when (featurep 'emmet-mode)
1739
0274fa6f1aca emmet might be absent when we activate it in web-mode-hook.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1738
diff changeset
  3790
  (add-hook 'sgml-mode-hook 'emmet-mode)
0274fa6f1aca emmet might be absent when we activate it in web-mode-hook.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1738
diff changeset
  3791
  (when (featurep 'web-mode)
0274fa6f1aca emmet might be absent when we activate it in web-mode-hook.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1738
diff changeset
  3792
    (add-hook 'web-mode-hook 'emmet-mode)))
1556
835b8743f9d3 Added emmet-mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1555
diff changeset
  3793
1557
89e2bb5c7333 Added emmet customization.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1556
diff changeset
  3794
(setq emmet-move-cursor-between-quotes t)
89e2bb5c7333 Added emmet customization.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1556
diff changeset
  3795
(setq emmet-move-cursor-after-expanding t)
89e2bb5c7333 Added emmet customization.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1556
diff changeset
  3796
1556
835b8743f9d3 Added emmet-mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1555
diff changeset
  3797
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
545
24992bae7599 Use 'message' instead of comment to easy debug where error occurred.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 544
diff changeset
  3798
(message "sh, bash")
438
740efbdc5777 Associate shell-script-mode for .cygport files.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 437
diff changeset
  3799
1685
6a740def74e8 Fixed error 'eval-when is not defined' after switching to cl-lib.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1684
diff changeset
  3800
(cl-eval-when (compile) (require 'sh-script))
1392
2979c26ce356 sgml-set-face is not defined anywhere. Fix some Warning: assignment to free variable.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1391
diff changeset
  3801
2979c26ce356 sgml-set-face is not defined anywhere. Fix some Warning: assignment to free variable.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1391
diff changeset
  3802
(setq sh-basic-offset 2)
2979c26ce356 sgml-set-face is not defined anywhere. Fix some Warning: assignment to free variable.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1391
diff changeset
  3803
438
740efbdc5777 Associate shell-script-mode for .cygport files.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 437
diff changeset
  3804
(add-to-list 'auto-mode-alist '("\\.cygport\\'" . shell-script-mode))
740efbdc5777 Associate shell-script-mode for .cygport files.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 437
diff changeset
  3805
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  3806
(defun my-sh-company-setup ()
1463
4c92e9fc2efd Add company completion for executable in PATH. Enable company for Makefile and progmodes.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1462
diff changeset
  3807
  (setq-local company-backends '((company-capf company-files company-dabbrev-code)))
4c92e9fc2efd Add company completion for executable in PATH. Enable company for Makefile and progmodes.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1462
diff changeset
  3808
  (setq-local company-dabbrev-code-other-buffers t)
1460
d6606777ff0a Enable company mode for shell scripts.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1459
diff changeset
  3809
  (company-mode 1))
d6606777ff0a Enable company mode for shell scripts.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1459
diff changeset
  3810
d6606777ff0a Enable company mode for shell scripts.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1459
diff changeset
  3811
(when (featurep 'company)
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  3812
  (add-hook 'sh-mode-hook #'my-sh-company-setup))
1460
d6606777ff0a Enable company mode for shell scripts.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1459
diff changeset
  3813
718
19ab21ec7640 Define own outline-regex to easy view file structure.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 717
diff changeset
  3814
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
870
faf5e15495dc Add Proof General settings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 869
diff changeset
  3815
(message "pg, Proof General")
faf5e15495dc Add Proof General settings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 869
diff changeset
  3816
1685
6a740def74e8 Fixed error 'eval-when is not defined' after switching to cl-lib.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1684
diff changeset
  3817
(cl-eval-when (compile) (require 'proof nil t))
1392
2979c26ce356 sgml-set-face is not defined anywhere. Fix some Warning: assignment to free variable.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1391
diff changeset
  3818
875
ad6675a2cc8e Disable shown consts in *goal* buffer.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 874
diff changeset
  3819
(setq proof-splash-enable nil)
870
faf5e15495dc Add Proof General settings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 869
diff changeset
  3820
;; (setq proof-toolbar-enable nil)
faf5e15495dc Add Proof General settings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 869
diff changeset
  3821
875
ad6675a2cc8e Disable shown consts in *goal* buffer.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 874
diff changeset
  3822
(setq
ad6675a2cc8e Disable shown consts in *goal* buffer.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 874
diff changeset
  3823
 isar-display:show-types t
ad6675a2cc8e Disable shown consts in *goal* buffer.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 874
diff changeset
  3824
 isar-display:show-sorts t
ad6675a2cc8e Disable shown consts in *goal* buffer.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 874
diff changeset
  3825
 isar-display:show-main-goal t
ad6675a2cc8e Disable shown consts in *goal* buffer.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 874
diff changeset
  3826
 isar-display:show-brackets t
ad6675a2cc8e Disable shown consts in *goal* buffer.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 874
diff changeset
  3827
 ;; Too many output, so commented:
ad6675a2cc8e Disable shown consts in *goal* buffer.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 874
diff changeset
  3828
 ;; isar-display:show-consts t
ad6675a2cc8e Disable shown consts in *goal* buffer.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 874
diff changeset
  3829
 )
871
209250a782ff Set isar-display:show-types and isar-display:show-brackets.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 870
diff changeset
  3830
1254
19c7b3be9b3a Define special macro to avoid warning about "assignment to free variable".
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1253
diff changeset
  3831
(my--eval-after-load proof
1278
8e47e801be9d Remove qouting from 'my--eval-after-load' macro usage because that code doesn't evaluated.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1277
diff changeset
  3832
  ;; (proof-maths-menu-toggle 1)
8e47e801be9d Remove qouting from 'my--eval-after-load' macro usage because that code doesn't evaluated.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1277
diff changeset
  3833
  ;; (unicode-tokens-mode 1)
8e47e801be9d Remove qouting from 'my--eval-after-load' macro usage because that code doesn't evaluated.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1277
diff changeset
  3834
  ;; (proof-imenu-toggle 1)
8e47e801be9d Remove qouting from 'my--eval-after-load' macro usage because that code doesn't evaluated.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1277
diff changeset
  3835
  )
1254
19c7b3be9b3a Define special macro to avoid warning about "assignment to free variable".
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1253
diff changeset
  3836
(my--eval-after-load isar
1278
8e47e801be9d Remove qouting from 'my--eval-after-load' macro usage because that code doesn't evaluated.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1277
diff changeset
  3837
  (define-key isar-mode-map (kbd "C-c C-m") 'proof-goto-point))
870
faf5e15495dc Add Proof General settings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 869
diff changeset
  3838
faf5e15495dc Add Proof General settings.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 869
diff changeset
  3839
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
545
24992bae7599 Use 'message' instead of comment to easy debug where error occurred.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 544
diff changeset
  3840
(message "printing")
0
aef1d0017234 Initial commit.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
diff changeset
  3841
881
10910d09430c Set ps-paper-type.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 880
diff changeset
  3842
(setq ps-paper-type 'a4)
10910d09430c Set ps-paper-type.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 880
diff changeset
  3843
0
aef1d0017234 Initial commit.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
diff changeset
  3844
;; Use Notepad to print plain text files to the default Windows printer
aef1d0017234 Initial commit.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
diff changeset
  3845
;(setq lpr-command "notepad")
aef1d0017234 Initial commit.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
diff changeset
  3846
;(setq lpr-headers-switches '("/p"))    ; \ mis-use these
aef1d0017234 Initial commit.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
diff changeset
  3847
;(setq lpr-switches nil)                ; / two variables
9
96e0cbcd92ab Untabify.
Oleksander Gavenko <gavenko_a@3g.ua>
parents: 8
diff changeset
  3848
;(setq printer-name nil)        ; notepad takes the default
0
aef1d0017234 Initial commit.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
diff changeset
  3849
;(setq lpr-printer-switch "/P") ;; run notepad as batch printer
aef1d0017234 Initial commit.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
diff changeset
  3850
;;
295
5be44cff4683 Use utf-8 encoding.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 289
diff changeset
  3851
461
1639d2540bbd Set outline-minor for file. Fix section to feet header outline pattern.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 460
diff changeset
  3852
;; Printing to file.
295
5be44cff4683 Use utf-8 encoding.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 289
diff changeset
  3853
0
aef1d0017234 Initial commit.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
diff changeset
  3854
;(setq printer-name "~/myprint.txt")
aef1d0017234 Initial commit.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
diff changeset
  3855
;(setq ps-printer-name nil)
aef1d0017234 Initial commit.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
diff changeset
  3856
;(setq ps-print-header nil)
aef1d0017234 Initial commit.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
diff changeset
  3857
718
19ab21ec7640 Define own outline-regex to easy view file structure.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 717
diff changeset
  3858
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
545
24992bae7599 Use 'message' instead of comment to easy debug where error occurred.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 544
diff changeset
  3859
(message "SQL")
102
25585e240b4a Move customization from .emacs (custom-set-variables) to .emacs-my. Remove duplication.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 101
diff changeset
  3860
1685
6a740def74e8 Fixed error 'eval-when is not defined' after switching to cl-lib.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1684
diff changeset
  3861
(cl-eval-when (compile) (require 'sql))
1374
313e428cf77c Add (eval-when 'compile ...) to reduce number of Warning: reference to free variable.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1373
diff changeset
  3862
102
25585e240b4a Move customization from .emacs (custom-set-variables) to .emacs-my. Remove duplication.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 101
diff changeset
  3863
(setq sql-password "")
1051
1248821d9d0b Add plsql file extension to auto-mode-alist.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1050
diff changeset
  3864
(add-to-list 'auto-mode-alist '("\\.plsql\\'" . sql-mode))
0
aef1d0017234 Initial commit.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
diff changeset
  3865
1110
6b18658edec8 Disable placeholders substitution in Oracle SQLi by Emacs itself.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1107
diff changeset
  3866
;; Disable placeholders substitution in Oracle SQLi by Emacs itself.
6b18658edec8 Disable placeholders substitution in Oracle SQLi by Emacs itself.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1107
diff changeset
  3867
;; This enable "define" and "&var" syntax.
6b18658edec8 Disable placeholders substitution in Oracle SQLi by Emacs itself.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1107
diff changeset
  3868
(setq sql-oracle-scan-on nil)
6b18658edec8 Disable placeholders substitution in Oracle SQLi by Emacs itself.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1107
diff changeset
  3869
1280
300a2718b555 Disable line wrapping for SQLi buffers.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1279
diff changeset
  3870
(add-hook 'sql-interactive-mode-hook (lambda () (toggle-truncate-lines 1)))
300a2718b555 Disable line wrapping for SQLi buffers.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1279
diff changeset
  3871
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  3872
(defun my-sql-explain-paragraph ()
1323
08ca6cc08d2c Send the current paragraph to the SQL process with \"explain \" keyword.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1322
diff changeset
  3873
  "Send the current paragraph to the SQL process with \"explain \" keyword.
08ca6cc08d2c Send the current paragraph to the SQL process with \"explain \" keyword.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1322
diff changeset
  3874
Works at least for MySql/MariaDB."
08ca6cc08d2c Send the current paragraph to the SQL process with \"explain \" keyword.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1322
diff changeset
  3875
  (interactive)
08ca6cc08d2c Send the current paragraph to the SQL process with \"explain \" keyword.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1322
diff changeset
  3876
  (let ((start (save-excursion
08ca6cc08d2c Send the current paragraph to the SQL process with \"explain \" keyword.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1322
diff changeset
  3877
                 (backward-paragraph)
08ca6cc08d2c Send the current paragraph to the SQL process with \"explain \" keyword.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1322
diff changeset
  3878
                 (point)))
08ca6cc08d2c Send the current paragraph to the SQL process with \"explain \" keyword.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1322
diff changeset
  3879
        (end (save-excursion
08ca6cc08d2c Send the current paragraph to the SQL process with \"explain \" keyword.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1322
diff changeset
  3880
               (forward-paragraph)
08ca6cc08d2c Send the current paragraph to the SQL process with \"explain \" keyword.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1322
diff changeset
  3881
               (point))))
08ca6cc08d2c Send the current paragraph to the SQL process with \"explain \" keyword.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1322
diff changeset
  3882
    (sql-send-string (concat "explain " (buffer-substring-no-properties start end)))))
1326
7fc5b4f72144 Fix: Symbol's value as variable is void: sql-mode-map
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1325
diff changeset
  3883
7fc5b4f72144 Fix: Symbol's value as variable is void: sql-mode-map
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1325
diff changeset
  3884
(my--eval-after-load sql
1514
1ce5595fe5f1 Use 'my-' prefix instead 'my/' with nonstandard character.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1507
diff changeset
  3885
  (define-key sql-mode-map (kbd "C-c C-e") 'my-sql-explain-paragraph))
1323
08ca6cc08d2c Send the current paragraph to the SQL process with \"explain \" keyword.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1322
diff changeset
  3886
718
19ab21ec7640 Define own outline-regex to easy view file structure.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 717
diff changeset
  3887
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1548
f7b46111fd5a Added hideshow mode for nxml.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1547
diff changeset
  3888
(message "hideshow")
f7b46111fd5a Added hideshow mode for nxml.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1547
diff changeset
  3889
f7b46111fd5a Added hideshow mode for nxml.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1547
diff changeset
  3890
(require 'hideshow)
f7b46111fd5a Added hideshow mode for nxml.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1547
diff changeset
  3891
1604
72fa4385c7ba Fallback to selective-display if not in hs-minor-mode. Make corresponding key binding global.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1603
diff changeset
  3892
(defun my-selective-display-toggle ()
72fa4385c7ba Fallback to selective-display if not in hs-minor-mode. Make corresponding key binding global.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1603
diff changeset
  3893
  "Better alternative to 'C-x $' using current column as threshold."
72fa4385c7ba Fallback to selective-display if not in hs-minor-mode. Make corresponding key binding global.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1603
diff changeset
  3894
  (interactive)
72fa4385c7ba Fallback to selective-display if not in hs-minor-mode. Make corresponding key binding global.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1603
diff changeset
  3895
  (set-selective-display
72fa4385c7ba Fallback to selective-display if not in hs-minor-mode. Make corresponding key binding global.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1603
diff changeset
  3896
   (unless selective-display
72fa4385c7ba Fallback to selective-display if not in hs-minor-mode. Make corresponding key binding global.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1603
diff changeset
  3897
     (1+ (current-column)))))
72fa4385c7ba Fallback to selective-display if not in hs-minor-mode. Make corresponding key binding global.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1603
diff changeset
  3898
72fa4385c7ba Fallback to selective-display if not in hs-minor-mode. Make corresponding key binding global.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1603
diff changeset
  3899
(defun my-hs-toggle ()
72fa4385c7ba Fallback to selective-display if not in hs-minor-mode. Make corresponding key binding global.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1603
diff changeset
  3900
  (interactive)
72fa4385c7ba Fallback to selective-display if not in hs-minor-mode. Make corresponding key binding global.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1603
diff changeset
  3901
  (if hs-minor-mode
1723
6533fa2834cf hs-toggle-hiding has bug in v27.1. I eliminated "(event-end e)" from "hs-toggle-hiding" as workaround.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1722
diff changeset
  3902
      ;; hs-toggle-hiding has bug in v27.1. I eliminated "(event-end e)" from "hs-toggle-hiding" as workaround.
6533fa2834cf hs-toggle-hiding has bug in v27.1. I eliminated "(event-end e)" from "hs-toggle-hiding" as workaround.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1722
diff changeset
  3903
      (hs-life-goes-on
6533fa2834cf hs-toggle-hiding has bug in v27.1. I eliminated "(event-end e)" from "hs-toggle-hiding" as workaround.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1722
diff changeset
  3904
       (if (hs-already-hidden-p)
6533fa2834cf hs-toggle-hiding has bug in v27.1. I eliminated "(event-end e)" from "hs-toggle-hiding" as workaround.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1722
diff changeset
  3905
           (hs-show-block)
6533fa2834cf hs-toggle-hiding has bug in v27.1. I eliminated "(event-end e)" from "hs-toggle-hiding" as workaround.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1722
diff changeset
  3906
         (hs-hide-block)))
1604
72fa4385c7ba Fallback to selective-display if not in hs-minor-mode. Make corresponding key binding global.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1603
diff changeset
  3907
    (my-selective-display-toggle)))
72fa4385c7ba Fallback to selective-display if not in hs-minor-mode. Make corresponding key binding global.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1603
diff changeset
  3908
72fa4385c7ba Fallback to selective-display if not in hs-minor-mode. Make corresponding key binding global.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1603
diff changeset
  3909
(define-key global-map (kbd "s--") #'my-hs-toggle)
1548
f7b46111fd5a Added hideshow mode for nxml.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1547
diff changeset
  3910
f7b46111fd5a Added hideshow mode for nxml.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1547
diff changeset
  3911
(add-to-list
f7b46111fd5a Added hideshow mode for nxml.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1547
diff changeset
  3912
 'hs-special-modes-alist
f7b46111fd5a Added hideshow mode for nxml.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1547
diff changeset
  3913
 '(nxml-mode
1596
caadc3835d6c Fix: removed quotation from sub-element inside quoted expression.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1595
diff changeset
  3914
   "<!--\\|<[^/>][^>]*>" "-->\\|</[^/>]+>" "<!--" nxml-forward-element nil))
1548
f7b46111fd5a Added hideshow mode for nxml.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1547
diff changeset
  3915
(add-hook 'nxml-mode-hook #'hs-minor-mode)
1594
cf7966919bd9 Fixed hs-special-modes-alist START regex to allow '/' in attr values (like base64 encoded data) and enabled proper nxml-forward-element balancing function.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1593
diff changeset
  3916
;; (setcdr (assoc 'nxml-mode hs-special-modes-alist) (list "<!--\\|<[^/>][^>]*>" "-->\\|</[^/>]+>" "<!--" #'nxml-forward-element nil))
1548
f7b46111fd5a Added hideshow mode for nxml.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1547
diff changeset
  3917
f7b46111fd5a Added hideshow mode for nxml.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1547
diff changeset
  3918
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1614
c858fc552ec5 my-pp based on context so I don't need to remember my-nxml-pp, json-pretty-print-buffer, etc.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1613
diff changeset
  3919
(message "prettyprint, pp")
c858fc552ec5 my-pp based on context so I don't need to remember my-nxml-pp, json-pretty-print-buffer, etc.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1613
diff changeset
  3920
c858fc552ec5 my-pp based on context so I don't need to remember my-nxml-pp, json-pretty-print-buffer, etc.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1613
diff changeset
  3921
(defun my-pp ()
c858fc552ec5 my-pp based on context so I don't need to remember my-nxml-pp, json-pretty-print-buffer, etc.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1613
diff changeset
  3922
  (interactive)
c858fc552ec5 my-pp based on context so I don't need to remember my-nxml-pp, json-pretty-print-buffer, etc.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1613
diff changeset
  3923
  (let ( (fname (buffer-file-name)) )
c858fc552ec5 my-pp based on context so I don't need to remember my-nxml-pp, json-pretty-print-buffer, etc.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1613
diff changeset
  3924
    (cond
c858fc552ec5 my-pp based on context so I don't need to remember my-nxml-pp, json-pretty-print-buffer, etc.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1613
diff changeset
  3925
     ((eq major-mode 'nxml-mode)
c858fc552ec5 my-pp based on context so I don't need to remember my-nxml-pp, json-pretty-print-buffer, etc.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1613
diff changeset
  3926
      (my-nxml-pp))
c858fc552ec5 my-pp based on context so I don't need to remember my-nxml-pp, json-pretty-print-buffer, etc.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1613
diff changeset
  3927
     ((string-match "\\.json\\'" fname)
c858fc552ec5 my-pp based on context so I don't need to remember my-nxml-pp, json-pretty-print-buffer, etc.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1613
diff changeset
  3928
       (json-pretty-print-buffer)))))
c858fc552ec5 my-pp based on context so I don't need to remember my-nxml-pp, json-pretty-print-buffer, etc.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1613
diff changeset
  3929
c858fc552ec5 my-pp based on context so I don't need to remember my-nxml-pp, json-pretty-print-buffer, etc.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1613
diff changeset
  3930
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1378
892deca62b56 Remove support for Emacs 21.x.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1377
diff changeset
  3931
(message "desktop")
892deca62b56 Remove support for Emacs 21.x.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1377
diff changeset
  3932
657
e8416d2b2f6a Use c++-mode for JS files because of single char comment highlight but when
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 656
diff changeset
  3933
;; Save and restore my buffers every time.
1378
892deca62b56 Remove support for Emacs 21.x.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1377
diff changeset
  3934
(require 'desktop)
1374
313e428cf77c Add (eval-when 'compile ...) to reduce number of Warning: reference to free variable.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1373
diff changeset
  3935
766
31b6b63917df Use different 'recentf' and 'desktop' files and do not enable
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 764
diff changeset
  3936
(setq desktop-base-file-name ".emacs.desktop")
31b6b63917df Use different 'recentf' and 'desktop' files and do not enable
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 764
diff changeset
  3937
(setq desktop-base-lock-name ".emacs.desktop.lock")
1215
c7e52e93465a Move .emacs files to user-emacs-directory.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1210
diff changeset
  3938
(setq desktop-dirname user-emacs-directory)
766
31b6b63917df Use different 'recentf' and 'desktop' files and do not enable
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 764
diff changeset
  3939
1378
892deca62b56 Remove support for Emacs 21.x.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1377
diff changeset
  3940
(add-to-list 'desktop-path desktop-dirname)
1650
60f7bae01cdd Lazy loading of buffer significantly reduces startup time!
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1649
diff changeset
  3941
; Lazy loading of buffer significantly reduces startup time!
60f7bae01cdd Lazy loading of buffer significantly reduces startup time!
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1649
diff changeset
  3942
(setq desktop-restore-eager 1)
1378
892deca62b56 Remove support for Emacs 21.x.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1377
diff changeset
  3943
(setq desktop-restore-frames nil)
1688
0bab53c47567 Moved startup profiler settings to init.el and simplified activation.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1687
diff changeset
  3944
(unless my-profiler-enabled
1679
5ee3a93090f0 Added option to disable activation of desktop-save-mode.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1678
diff changeset
  3945
  (desktop-save-mode 1))
1378
892deca62b56 Remove support for Emacs 21.x.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1377
diff changeset
  3946
(setq
892deca62b56 Remove support for Emacs 21.x.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1377
diff changeset
  3947
 desktop-globals-to-save
892deca62b56 Remove support for Emacs 21.x.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1377
diff changeset
  3948
 (append
892deca62b56 Remove support for Emacs 21.x.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1377
diff changeset
  3949
  '((file-name-history . 100)
892deca62b56 Remove support for Emacs 21.x.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1377
diff changeset
  3950
    (compile-history . 100)
892deca62b56 Remove support for Emacs 21.x.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1377
diff changeset
  3951
    (command-history . 100)
892deca62b56 Remove support for Emacs 21.x.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1377
diff changeset
  3952
    (extended-command-history . 100)
892deca62b56 Remove support for Emacs 21.x.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1377
diff changeset
  3953
    (shell-command-history . 100)
892deca62b56 Remove support for Emacs 21.x.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1377
diff changeset
  3954
    (search-ring . 20)
892deca62b56 Remove support for Emacs 21.x.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1377
diff changeset
  3955
    (query-replace-history . 100)
892deca62b56 Remove support for Emacs 21.x.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1377
diff changeset
  3956
    (regexp-history . 100)
892deca62b56 Remove support for Emacs 21.x.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1377
diff changeset
  3957
    (grep-history . 100)
892deca62b56 Remove support for Emacs 21.x.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1377
diff changeset
  3958
    (minibuffer-history . 100)
892deca62b56 Remove support for Emacs 21.x.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1377
diff changeset
  3959
    tags-file-name
892deca62b56 Remove support for Emacs 21.x.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1377
diff changeset
  3960
    register-alist)
892deca62b56 Remove support for Emacs 21.x.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 1377
diff changeset
  3961
  desktop-globals-to-save))
657
e8416d2b2f6a Use c++-mode for JS files because of single char comment highlight but when
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 656
diff changeset
  3962
718
19ab21ec7640 Define own outline-regex to easy view file structure.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 717
diff changeset
  3963
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
545
24992bae7599 Use 'message' instead of comment to easy debug where error occurred.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 544
diff changeset
  3964
(message "User welcome msg")
0
aef1d0017234 Initial commit.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
diff changeset
  3965
250
ef1c7269280f Show different messages on statup.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 249
diff changeset
  3966
(add-hook 'emacs-startup-hook
ef1c7269280f Show different messages on statup.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 249
diff changeset
  3967
          (lambda ()
ef1c7269280f Show different messages on statup.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 249
diff changeset
  3968
            (let ( (mgs-list '("Welcome to emacs, the thermonuclear editor."
ef1c7269280f Show different messages on statup.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 249
diff changeset
  3969
                               "You enter to Out Space. Emacs on."
ef1c7269280f Show different messages on statup.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 249
diff changeset
  3970
                               "Nice day for Emacsing!")) )
ef1c7269280f Show different messages on statup.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 249
diff changeset
  3971
              (message (nth (random (length mgs-list)) mgs-list)))))
0
aef1d0017234 Initial commit.
Oleksander Gavenko <gavenko_a@3g.ua>
parents:
diff changeset
  3972
548
1bfa0cf51c9c Set *Messages* buffer 'default-directory' to $HOME.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 547
diff changeset
  3973
(switch-to-buffer "*Messages*")
1bfa0cf51c9c Set *Messages* buffer 'default-directory' to $HOME.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 547
diff changeset
  3974
(setq default-directory "~/")
546
083974006b4a 'default-directory' for '*scratch*' buffer. This allow 'eval-buffer' on '.emacs-my'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 545
diff changeset
  3975
(switch-to-buffer "*scratch*")
083974006b4a 'default-directory' for '*scratch*' buffer. This allow 'eval-buffer' on '.emacs-my'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 545
diff changeset
  3976
(setq default-directory "~/")
083974006b4a 'default-directory' for '*scratch*' buffer. This allow 'eval-buffer' on '.emacs-my'.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 545
diff changeset
  3977
461
1639d2540bbd Set outline-minor for file. Fix section to feet header outline pattern.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 460
diff changeset
  3978
;;; End loading...
718
19ab21ec7640 Define own outline-regex to easy view file structure.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 717
diff changeset
  3979
19ab21ec7640 Define own outline-regex to easy view file structure.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 717
diff changeset
  3980
;; Local variables:
19ab21ec7640 Define own outline-regex to easy view file structure.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 717
diff changeset
  3981
;; mode: outline-minor
19ab21ec7640 Define own outline-regex to easy view file structure.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 717
diff changeset
  3982
;; outline-regexp: "(message \""
19ab21ec7640 Define own outline-regex to easy view file structure.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 717
diff changeset
  3983
;; End: