From 9c7ab29f97398056b0ac4c41f2bd524e797b2955 Mon Sep 17 00:00:00 2001 From: Jim Myhrberg Date: Sat, 12 Nov 2011 11:54:00 +0000 Subject: [PATCH] Turned all swap and resize window keybindings into functions. When they were called with lambda they'd cause delete-selection-mode to stop working every now and then. Don't know why, but at least this fixes it. --- helpers.el | 15 +++++++++++++++ keybindings.el | 16 ++++++++-------- 2 files changed, 23 insertions(+), 8 deletions(-) diff --git a/helpers.el b/helpers.el index 831f226..f0e1fea 100644 --- a/helpers.el +++ b/helpers.el @@ -67,6 +67,16 @@ (other-window -1)) +;; +;; Window Resizing +;; + +(defun enlarge-window-down () (interactive) (enlarge-window 1)) +(defun enlarge-window-up () (interactive) (enlarge-window -1)) +(defun enlarge-window-left () (interactive) (enlarge-window -1 t)) +(defun enlarge-window-right () (interactive) (enlarge-window 1 t)) + + ;; ;; Window Swapping ;; - from https://gist.github.com/287633 @@ -86,6 +96,11 @@ (set-window-start this-window other-start) (set-window-start other-window this-start))))) +(defun swap-with-down () (interactive) (swap-with 'down)) +(defun swap-with-up () (interactive) (swap-with 'up)) +(defun swap-with-left () (interactive) (swap-with 'left)) +(defun swap-with-right () (interactive) (swap-with 'right)) + ;; ;; Transparency ;; diff --git a/keybindings.el b/keybindings.el index 464466d..094d600 100644 --- a/keybindings.el +++ b/keybindings.el @@ -55,15 +55,15 @@ (global-set-key (kbd "C->") 'transparency-decrease) ;; Window Tiling (via helpers.el) -(global-set-key (kbd "C-M-K") (lambda () (interactive) (swap-with 'down))) -(global-set-key (kbd "C-M-I") (lambda () (interactive) (swap-with 'up))) -(global-set-key (kbd "C-M-J") (lambda () (interactive) (swap-with 'left))) -(global-set-key (kbd "C-M-L") (lambda () (interactive) (swap-with 'right))) +(global-set-key (kbd "C-M-K") 'swap-with-down) +(global-set-key (kbd "C-M-I") 'swap-with-up) +(global-set-key (kbd "C-M-J") 'swap-with-left) +(global-set-key (kbd "C-M-L") 'swap-with-right) -(global-set-key (kbd "M-K") (lambda () (interactive) (enlarge-window 1))) -(global-set-key (kbd "M-I") (lambda () (interactive) (enlarge-window -1))) -(global-set-key (kbd "M-J") (lambda () (interactive) (enlarge-window -1 t))) -(global-set-key (kbd "M-L") (lambda () (interactive) (enlarge-window 1 t))) +(global-set-key (kbd "M-K") 'enlarge-window-down) +(global-set-key (kbd "M-I") 'enlarge-window-up) +(global-set-key (kbd "M-J") 'enlarge-window-left) +(global-set-key (kbd "M-L") 'enlarge-window-right) (global-set-key (kbd "M-k") 'windmove-down) (global-set-key (kbd "M-i") 'windmove-up)