mirror of
https://github.com/jimeh/.emacs.d.git
synced 2026-02-19 13:46:41 +00:00
77 lines
2.5 KiB
EmacsLisp
77 lines
2.5 KiB
EmacsLisp
;;; siren-windmove.el --- jimeh's Emacs Siren: windmove
|
|
|
|
;;; Commentary:
|
|
|
|
;; Configuration for windmove.
|
|
|
|
;;; Code:
|
|
|
|
;; Emacs 26.x and earlier
|
|
(when (version< emacs-version "27.0")
|
|
(use-package windmove
|
|
:straight (:type built-in)
|
|
|
|
:bind
|
|
("M-i" . siren-windmove-up)
|
|
("M-k" . siren-windmove-down)
|
|
("M-j" . siren-windmove-left)
|
|
("M-l" . siren-windmove-right))
|
|
|
|
(use-package buffer-move
|
|
:bind
|
|
("M-K" . buf-move-down)
|
|
("M-I" . buf-move-up)
|
|
("M-J" . buf-move-left)
|
|
("M-L" . buf-move-right)))
|
|
|
|
;; Emacs 27.0 and later
|
|
(when (not (version< emacs-version "27.0"))
|
|
(use-package windmove
|
|
:straight (:type built-in)
|
|
|
|
:bind
|
|
("M-i" . windmove-up)
|
|
("M-k" . windmove-down)
|
|
("M-j" . windmove-left)
|
|
("M-l" . windmove-right)
|
|
("M-K" . windmove-swap-states-down)
|
|
("M-I" . windmove-swap-states-up)
|
|
("M-J" . windmove-swap-states-left)
|
|
("M-L" . windmove-swap-states-right)
|
|
("C-x M-i" . windmove-delete-up)
|
|
("C-x M-k" . windmove-delete-down)
|
|
("C-x M-j" . windmove-delete-left)
|
|
("C-x M-l" . windmove-delete-right)))
|
|
|
|
;; Tmux integration with windmove
|
|
(when (and (getenv "TMUX")
|
|
(executable-find "tmux"))
|
|
(with-eval-after-load 'windmove
|
|
(defun siren-windmove-tmux-left-advice (orig-fun &rest args)
|
|
"Advice windmove-left to enable Tmux integration"
|
|
(if (not (ignore-errors (apply orig-fun args)))
|
|
(call-process "tmux" nil nil nil "select-pane" "-L")))
|
|
|
|
(defun siren-windmove-tmux-right-advice (orig-fun &rest args)
|
|
"Advice windmove-right to enable Tmux integration"
|
|
(if (not (ignore-errors (apply orig-fun args)))
|
|
(call-process "tmux" nil nil nil "select-pane" "-R")))
|
|
|
|
(defun siren-windmove-tmux-up-advice (orig-fun &rest args)
|
|
"Advice windmove-up to enable Tmux integration"
|
|
(if (not (ignore-errors (apply orig-fun args)))
|
|
(call-process "tmux" nil nil nil "select-pane" "-U")))
|
|
|
|
(defun siren-windmove-tmux-down-advice (orig-fun &rest args)
|
|
"Advice windmove-down to enable Tmux integration"
|
|
(if (not (ignore-errors (apply orig-fun args)))
|
|
(call-process "tmux" nil nil nil "select-pane" "-D")))
|
|
|
|
(advice-add 'windmove-left :around 'siren-windmove-tmux-left-advice)
|
|
(advice-add 'windmove-right :around 'siren-windmove-tmux-right-advice)
|
|
(advice-add 'windmove-up :around 'siren-windmove-tmux-up-advice)
|
|
(advice-add 'windmove-down :around 'siren-windmove-tmux-down-advice)))
|
|
|
|
(provide 'siren-windmove)
|
|
;;; siren-windmove.el ends here
|