Add iflibp-abort function

This commit is contained in:
David Morgan 2023-09-21 07:45:35 +01:00
parent 6b9c2997a7
commit 967609917c
Signed by: djm
GPG Key ID: C171251002C200F2
1 changed files with 6 additions and 1 deletions

View File

@ -196,11 +196,16 @@
(seq-filter 'buffer-live-p (persp-current-buffers* t)))
(dolist (cmd '(iflipb-previous-buffer iflipb-next-buffer))
(put cmd 'repeat-map 'iflipb-repeat-map))
(defun iflibp-abort ()
"Abort buffer flipping and return to the original buffer."
(interactive)
(iflipb-restore-buffers))
:custom (iflipb-buffer-list-function 'iflipb-persp-buffer-list)
:bind
("C-x k" . iflipb-kill-buffer) ;; TODO replace with a kill currently selected buffer command
("<f12>" . iflipb-previous-buffer)
("<f11>" . iflipb-next-buffer))
("<f11>" . iflipb-next-buffer)
("<f10>" . iflibp-abort))
(provide 'init-windows)
;;; init-windows.el ends here