summaryrefslogtreecommitdiff
path: root/emacs
diff options
context:
space:
mode:
authorKjetil Orbekk <kj@orbekk.com>2023-02-04 21:06:23 -0500
committerKjetil Orbekk <kj@orbekk.com>2023-02-04 21:09:59 -0500
commite70fa82b11d1150257be1063462cd67abc62ce0f (patch)
treea01f4a73f551c48cc27f7c10a9308585eda71ea7 /emacs
parent30f39c3be4920398019d1eea615f467e74cc5cc7 (diff)
add some more shortcuts
Diffstat (limited to 'emacs')
-rw-r--r--emacs/.config/emacs-kj/init.el15
1 files changed, 14 insertions, 1 deletions
diff --git a/emacs/.config/emacs-kj/init.el b/emacs/.config/emacs-kj/init.el
index ce3c47b..e6121de 100644
--- a/emacs/.config/emacs-kj/init.el
+++ b/emacs/.config/emacs-kj/init.el
@@ -246,7 +246,7 @@
;; M-s bindings (search-map)
("M-s d" . consult-find)
("M-s D" . consult-locate)
- ("M-s g" . consult-grep)
+ ;; ("M-s g" . consult-grep)
("M-s G" . consult-git-grep)
("M-s r" . consult-ripgrep)
("M-s l" . consult-line)
@@ -748,6 +748,14 @@
:config
(selected-global-mode 1))
+(setq kj/some-lines 6)
+(defun kj/forward-some-lines ()
+ (interactive)
+ (forward-line kj/some-lines))
+(defun kj/previous-some-lines ()
+ (interactive)
+ (previous-line kj/some-lines))
+
(use-package emacs
:init
(defvar kj/leader-map
@@ -766,11 +774,14 @@
("s" . set-rectangular-region-anchor)
("y" . mc/mark-next-like-this-symbol)
("Y" . mc/mark-all-like-this-symbol)
+ ("d" . kj/forward-some-lines)
+ ("u" . kj/previous-some-lines)
("C-SPC" . mc/mark-pop)
("(" . mc/mark-all-symbols-like-this-in-defun)
("C-(" . mc/mark-all-words-like-this-in-defun)
("M-(" . mc/mark-all-like-this-in-defun)
:exit
+ ("$" . eshell)
("b" . consult-buffer))
:bind (("S-<down-mouse-1>")
@@ -826,6 +837,8 @@
(seq "*WoMan " (* anything) "*")
(seq "*man " (* anything) "*")
(seq "fig: " (* anything))
+ (seq "*htop*" (* anything))
+ (seq "*Proced*" (* anything))
(seq "*eshell*" (* anything))
"*Occur*")) buffer)
(with-current-buffer buffer