X-Git-Url: https://code.delx.au/dotemacs/blobdiff_plain/d8086c25f927c30bcaae0945a019510c1f999450..f84b05a83397bb6c54af9796794190628bb867e7:/lisp/my-keys.el

diff --git a/lisp/my-keys.el b/lisp/my-keys.el
index 7bb45ce..b8c9469 100644
--- a/lisp/my-keys.el
+++ b/lisp/my-keys.el
@@ -17,7 +17,7 @@
 (global-set-key (kbd "C-x g") 'counsel-git-grep)
 (global-set-key (kbd "C-x c") 'my/kill-buffers-not-in-frame)
 (global-set-key (kbd "C-x C-b") 'ibuffer)
-(global-set-key (kbd "C-x C-r") 'ivy-recentf)
+(global-set-key (kbd "C-x C-r") 'counsel-recentf)
 (global-set-key (kbd "C-x t") 'my/find-prod-or-test-file)
 (global-set-key (kbd "C-c g d") 'git-gutter:popup-hunk)
 (global-set-key (kbd "C-c g p") 'git-gutter:previous-hunk)
@@ -25,6 +25,8 @@
 (global-set-key (kbd "C-c g r") 'git-gutter:revert-hunk)
 
 ;; Windows/frames
+(global-set-key (kbd "C-x o") 'ace-window)
+(global-set-key (kbd "C-x 9") 'my/window-resize-mode)
 (global-set-key (kbd "<C-up>") 'windmove-up)
 (global-set-key (kbd "<C-down>") 'windmove-down)
 (global-set-key (kbd "<C-left>") 'windmove-left)
@@ -65,3 +67,14 @@
 (global-set-key (kbd "<f8>") 'flyspell-mode)
 (global-set-key (kbd "<f9>") 'whitespace-mode)
 (global-set-key (kbd "<f10>") 'toggle-truncate-lines)
+
+
+(defun my/window-resize-mode ()
+  (interactive)
+  (message "Resize window with the arrow keys")
+  (let ((keymap (make-sparse-keymap)))
+    (define-key keymap [up] #'enlarge-window)
+    (define-key keymap [down] #'shrink-window)
+    (define-key keymap [left] #'shrink-window-horizontally)
+    (define-key keymap [right] #'enlarge-window-horizontally)
+    (set-transient-map keymap t)))