summary refs log tree commit diff
path: root/emacs/custom/my-navigation.el
blob: e9197b578cde6ca43c8d9295ba27fd40cf87fb98 (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
;;; my-navigation.el --- Configure parts related to navigation
;;; Commentary:
;;; Code:

(require 'use-package)

(setq help-window-select t)

(use-package project
  :ensure t
  :bind-keymap ("C-c p" . project-prefix-map)
  :custom
  (project-switch-commands
   '((?f "File" project-find-file)
     (?d "Dired" project-dired)
     (?b "Buffer" project-switch-to-buffer)
     (?e "Eshell" project-eshell)
     (?m "Magit status" magit-project-status)
     (?r "Search" rg-project))))

(use-package bookmark
  :custom
  (bookmark-save-flag 1))

(use-package ls-lisp
  :ensure nil
  :custom
  (ls-lisp-use-insert-directory-program nil)
  (ls-lisp-dirs-first t))

(use-package dired
  :defer t
  :bind (("C-x C-d" . dired)
         ("C-x C-j" . dired-jump))
  :init
  (setq-default dired-dwim-target t)
  (setq-default dired-listing-switches "-alh")
  (setq dired-recursive-deletes 'always)
  (setq dired-recursive-copies 'always))

(use-package dired-x
  :ensure nil
  :hook ((dired-mode . dired-omit-mode))
  :config
  (setq dired-omit-verbose nil)
  ;; hide backup, autosave, *.*~ files
  ;; omit mode can be toggled using `C-x M-o' in dired buffer.
  (setq dired-omit-files
        (concat dired-omit-files "\\|^.DS_Store$\\|^.localized$\\|^.projectile$\\|^.git$")))

(use-package ibuffer
  :bind ("C-x C-b" . ibuffer))

(use-package recentf
  :init (recentf-mode 1)
  :config
  (setq recentf-max-saved-items 500
        recentf-exclude '(".gz" ".xz" ".zip")
        recentf-save-file (expand-file-name "var/recentf" user-emacs-directory)))

(use-package rg
  :ensure t
  :custom
  (rg-group-result t)
  (rg-show-columns t)
  (rg-align-position-numbers t)
  (rg-align-line-number-field-length 3)
  (rg-align-column-number-field-length 3)
  (rg-align-line-column-separator "#")
  (rg-align-position-content-separator "|"))

(use-package counsel
  :diminish counsel-mode
  :ensure t
  :after ivy
  :init (counsel-mode 1)
  :bind
  (("M-x"     . counsel-M-x)
   ("C-x C-f" . counsel-find-file)
   ("C-x C-r" . counsel-recentf)
   ("C-c i "  . counsel-imenu)
   ("C-c f"   . counsel-git)
   ("C-c /"   . counsel-rg)
   ("C-c m"   . counsel-mark-ring)
   ("C-c V"   . counsel-describe-variable)
   ("C-c C-l" . counsel-find-library)
   ("C-c U"   . counsel-unicode-char)
   ("C-x r l" . counsel-bookmark))
  :custom
  (counsel-find-file-ignore-regexp "\\.git\\|\\.DS_Store\\|\\.localized\\'")
  (counsel-find-file-at-point t))

(use-package ivy
  :ensure t
  :diminish ivy-mode
  :init (ivy-mode 1)
  :custom
  (ivy-use-virtual-buffers t)
  (ivy-count-format "(%d/%d) ")
  (ivy-height 20)
  (ivy-use-selectable-prompt t)
  :bind (("C-x b"   . ivy-switch-buffer)
         ("C-s"     . swiper)))

(use-package ivy-rich
  :ensure t
  :after (ivy)
  :config
  (ivy-rich-mode 1)
  :custom
  (ivy-extra-directories '("../" "./"))
  (ivy-virtual-abbreviate 'full)
  (ivy-rich-switch-buffer-align-virtual-buffer t)
  (ivy-rich-path-style 'abbrev))

(use-package which-key
  :diminish which-key-mode
  :ensure t
  :config
  (which-key-mode))

(provide 'my-navigation)
;;; my-navigation.el ends here