djm
/
dotfiles
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Add latest buffer switching experiments

This commit is contained in:
David Morgan 2023-01-17 13:19:08 +00:00
parent 8b81aa24e1
commit fe4e881156
Signed by: djm
GPG Key ID: C171251002C200F2
1 changed files with 22 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
.emacs.d/lisp/init-windows.el
View File

@ -171,23 +171,34 @@
("C-<" . buffer-ring-prev-buffer)
("C->" . buffer-ring-next-buffer)))
(use-package cbm
:config
(defvar cbm-repeat-map
(let ((map (make-sparse-keymap)))
(define-key map (kbd "<") #'cbm-cycle)
map))
(put 'cbm-cycle 'repeat-map 'cbm-repeat-map)
:bind
("C-c C-b <" . cbm-cycle)
("C-c C-b C-b" . cbm-switch-buffer))
(use-package buffer-flip
:custom (buffer-flip-skip-patterns '("^[*]"))
:config
;; (defun persp-buffer-flip-skip-buffer (orig &rest args)
;; (or (apply orig args)
;; (persp-buffer-filter (car args))))
;; (advice-add 'buffer-flip-skip-buffer :around 'persp-buffer-flip-skip-buffer)
(defun persp-buffer-flip-skip-buffer (orig-val)
(or orig-val (persp-buffer-filter (car args))))
(advice-add 'buffer-flip-skip-buffer :filter-return 'persp-buffer-flip-skip-buffer)
:bind (("C-c C-<left>" . buffer-flip)
(:map buffer-flip-map
( "C-<left>" . buffer-flip-forward)
( "C-<right>" . buffer-flip-backward)
( "C-g" . buffer-flip-abort))))
(use-package iflipb
:config
(defun iflipb-persp-buffer-list ()
"Buffer list for iflipb."
(seq-filter 'buffer-live-p (persp-current-buffers* t)))
(dolist (cmd '(iflipb-previous-buffer iflipb-next-buffer))
(put cmd 'repeat-map 'iflipb-repeat-map))
: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))
(provide 'init-windows)
;;; init-windows.el ends here