mirror of
https://github.com/jimeh/.emacs.d.git
synced 2026-02-19 13:46:41 +00:00
79 lines
2.6 KiB
EmacsLisp
79 lines
2.6 KiB
EmacsLisp
;;; siren-windmove.el --- jimeh's Emacs Siren: windmove -*- lexical-binding: nil; -*-
|
|
|
|
;;; Commentary:
|
|
|
|
;; Configuration for windmove.
|
|
|
|
;;; Code:
|
|
|
|
;; Emacs 26.x and earlier
|
|
(when (version< emacs-version "27.0")
|
|
(use-package windmove
|
|
:ensure nil
|
|
|
|
:general
|
|
(:keymaps '(global ibuffer-mode-map)
|
|
"M-i" 'windmove-up
|
|
"M-k" 'windmove-down
|
|
"M-j" 'windmove-left
|
|
"M-l" 'windmove-right))
|
|
|
|
(use-package buffer-move
|
|
:general
|
|
("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
|
|
:ensure nil
|
|
|
|
:general
|
|
(:keymaps '(global ibuffer-mode-map)
|
|
"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
|