2020-01-16 01:34:14 -08:00
|
|
|
(defvar agw-mode-map (make-sparse-keymap)
|
|
|
|
"Global keymap for `agw-mode'.")
|
|
|
|
|
|
|
|
(define-minor-mode agw-key-map
|
|
|
|
"Minor mode for key bindings."
|
|
|
|
:global t
|
|
|
|
:keymap agw-mode-map)
|
|
|
|
|
|
|
|
(defun agw-set-key (key def)
|
|
|
|
(define-key agw-mode-map (kbd (concat "C-<tab> " key)) def))
|
|
|
|
|
2020-01-21 23:48:27 -08:00
|
|
|
(agw-set-key "b d" #'kill-this-buffer)
|
|
|
|
(agw-set-key "b e" #'ibuffer)
|
2020-01-16 01:34:14 -08:00
|
|
|
|
2020-01-21 23:48:27 -08:00
|
|
|
(agw-set-key "f" #'dired)
|
2020-01-16 01:34:14 -08:00
|
|
|
|
2020-01-21 23:48:27 -08:00
|
|
|
(agw-set-key "w" #'deadgrep)
|
2020-01-16 01:34:14 -08:00
|
|
|
|
2020-01-21 23:48:27 -08:00
|
|
|
(agw-set-key "h" #'windmove-left)
|
|
|
|
(agw-set-key "j" #'windmove-down)
|
|
|
|
(agw-set-key "k" #'windmove-up)
|
|
|
|
(agw-set-key "l" #'windmove-right)
|
2020-01-16 01:34:14 -08:00
|
|
|
|
2020-01-21 23:48:27 -08:00
|
|
|
(agw-set-key "s" #'sort-lines)
|
2020-01-16 01:34:14 -08:00
|
|
|
|
|
|
|
(agw-key-map)
|
|
|
|
|
|
|
|
; just in case - bind for disabling key map mode
|
2020-01-21 23:48:27 -08:00
|
|
|
(global-set-key (kbd "C-x C-<tab>") #'agw-key-map)
|
2020-01-16 01:34:14 -08:00
|
|
|
|
|
|
|
;; EOF
|