blob: c5f09b6183f5ed4421bc7e64889612315bd6917e (
plain)
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
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
|
#+TITLE: mms's Emacs Config - Keyboard configuration
#+AUTHOR: Michał Sapka (https://michal.sapka.me)
#+STARTUP: showall indent logdoneGeneral settings
#+HUGO_BASE_DIR: ~/ghq/vcs.sapka.me/michal-sapka-me/
#+HUGO_WEIGHT: 10
#+HUGO_SECTION: emacs/config
#+HUGO_CATEGORIES: emacs emacs-config
#+HUGO_MENU :menu "emacs-config"
#+HUGO_CUSTOM_FRONT_MATTER: :abstract "My emacs config - keyboard config"
#+HUGO_CUSTOM_FRONT_MATTER: :menu-abstract "evil mode, basic key bindings and misc"
#+EXPORT_FILE_NAME: keyboard
* Which key
WK adds a on-the-fly cheatsheet.
#+begin_src emacs-lisp
(use-package which-key
:ensure t
:config
(which-key-mode))
#+end_src
* Xah Lee Flykeys
#+begin_src emacs-lisp
;; (use-package xah-fly-keys
;; :config
;; (xah-fly-keys-set-layout "qwerty")
;; (xah-fly-keys 1)
;;
;; (define-key xah-fly-command-map (kbd "SPC i o") 'consult-bookmark)
;; (define-key xah-fly-command-map (kbd "SPC i f") 'consult-find)
;; (define-key xah-fly-command-map (kbd "SPC i F") 'find-file)
;; (define-key xah-fly-command-map (kbd "SPC i g") 'consult-ripgrep)
;; (
;; load-file "~/.emacs.d/ext/xah-fk-org.el")
;; )
#+end_src
* Avy
Avy is a quick jump-to-place package.
I use it in a very basic way.
#+begin_src emacs-lisp
;; (use-package avy
;; :ensure t)
;; :after xah-fly-keys
;; :config
;; (define-key xah-fly-command-map (kbd "-") 'avy-goto-char-timer)
;; )
#+end_src
* VI keys
#+begin_src emacs-lisp
(use-package evil
:ensure t
:init
(setq evil-want-keybinding nil)
(setq evil-want-integration t)
:config
(evil-mode 1))
(use-package general
:ensure t
:config
(general-evil-setup))
(elpaca-wait)
#+end_src
#+begin_src emacs-lisp
(use-package fzf
:config
(setq fzf/args "-x --color bw --print-query --margin=1,0 --no-hscroll"
fzf/executable "fzf"
fzf/git-grep-args "-i --line-number %s"
;; command used for `fzf-grep-*` functions
;; example usage for ripgrep:
;; fzf/grep-command "rg --no-heading -nH"
fzf/grep-command "grep -nrH"
;; If nil, the fzf buffer will appear at the top of the window
fzf/position-bottom t
fzf/window-height 15))
#+end_src
#+begin_src emacs-lisp
(use-package evil-collection
:ensure t
:after evil
:config
(evil-collection-init
'(eww
emms
pass
calendar
dired
ibuffer
elfeed
bookmark
company
flycheck
notmuch
eshell
helpful
comint
magit
forge
view
gnus
outline)))
#+end_src
#+begin_src emacs-lisp
(general-create-definer my-leader-def
:keymaps 'override
:prefix "SPC"
:states '(normal motion emacs))
;; Git
(my-leader-def "g" 'magit)
;; Navigation
(my-leader-def "io" 'consult-bookmark)
(my-leader-def "ib" 'bookmark-set)
(my-leader-def "if" 'fzf-git-files)
(my-leader-def "ig" 'fzf-grep-dwim-with-narrowing)
;; (define-key xah-fly-command-map (kbd "SPC i o") 'consult-bookmark)
;; (define-key xah-fly-command-map (kbd "SPC i f") 'consult-find)
;; (define-key xah-fly-command-map (kbd "SPC i F") 'find-file)
;; (define-key xah-fly-command-map (kbd "SPC i g") 'consult-ripgrep)
;; Email
(my-leader-def "mm" 'notmuch)
#+end_src
#+begin_src emacs-lisp
(general-define-key
:keymaps 'override
"C-h" 'evil-window-left
"C-l" 'evil-window-right
"C-k" 'evil-window-up
"C-j" 'evil-window-down
"C-x h" 'previous-buffer
"C-x l" 'next-buffer)
(general-define-key
:keymaps 'evil-window-map
"x" 'kill-buffer-and-window
"d" 'kill-current-buffer)
#+end_src
|
