emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Don't wrap forward/backward-button keys

Browse source
This commit is contained in:
Henrik Lissner 2018-07-03 20:05:27 +02:00
parent d0eaa0af1e
commit 1d4a41833e
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
2 changed files with 14 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

12
modules/ui/doom-dashboard/autoload.el
View file

@ -6,3 +6,15 @@
(interactive (list (selected-frame))) (interactive (list (selected-frame)))
(with-selected-frame frame (with-selected-frame frame
(switch-to-buffer (+doom-dashboard-initial-buffer)))) (switch-to-buffer (+doom-dashboard-initial-buffer))))
;;;###autoload
(defun +doom-dashboard/forward-button (n)
"Like `forward-button', but don't wrap."
(interactive "p")
(forward-button n nil))
;;;###autoload
(defun +doom-dashboard/backward-button (n)
"Like `backward-button', but don't wrap."
(interactive "p")
(backward-button n nil))

2
modules/ui/doom-dashboard/config.el
View file

@ -131,6 +131,8 @@ PLIST can have the following properties:
(add-hook 'post-command-hook #'+doom-dashboard|reposition-point nil t)) (add-hook 'post-command-hook #'+doom-dashboard|reposition-point nil t))
(define-key! +doom-dashboard-mode-map (define-key! +doom-dashboard-mode-map
[remap forward-button] #'+doom-dashboard/forward-button
[remap backward-button] #'+doom-dashboard/backward-button
"n" #'forward-button "n" #'forward-button
"p" #'backward-button "p" #'backward-button
"\C-n" #'forward-button "\C-n" #'forward-button