From e70fa82b11d1150257be1063462cd67abc62ce0f Mon Sep 17 00:00:00 2001 From: Kjetil Orbekk Date: Sat, 4 Feb 2023 21:06:23 -0500 Subject: add some more shortcuts --- emacs/.config/emacs-kj/init.el | 15 ++++++++++++++- 1 file changed, 14 insertions(+), 1 deletion(-) (limited to 'emacs') 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-") @@ -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 -- cgit v1.2.3