From b25634682a4bda072cdb471d78a2de82c15a5101 Mon Sep 17 00:00:00 2001 From: Grégoire Duchêne Date: Sun, 30 May 2021 15:45:37 +0100 Subject: emacs: Add focus-frame --- emacs/init.el | 12 +++++++++++- 1 file changed, 11 insertions(+), 1 deletion(-) (limited to 'emacs') diff --git a/emacs/init.el b/emacs/init.el index 355fd65..a3da349 100644 --- a/emacs/init.el +++ b/emacs/init.el @@ -165,9 +165,18 @@ (use-package timer-list :config (put 'list-timers 'disabled nil)) (defun center-frame (&optional frame) - (interactive) + "Center FRAME." + (interactive) (modify-frame-parameters frame '((left . 0.5) (top . 0.5)))) +(defun focus-frame (&optional frame) + "Focus FRAME." + (interactive) + (delete-other-windows) + (modify-frame-parameters frame '((fullscreen . fullheight) + (left . 0.5) + (width . 100)))) + (defun maybe-switch-theme (light-theme dark-theme enable-dark-theme-p) "Switch between themes. @@ -185,6 +194,7 @@ returns nil." (global-set-key (kbd "") 'other-window) (global-set-key (kbd "") 'other-frame) +(global-set-key (kbd "C-c l") 'focus-frame) (global-set-key (kbd "C-c s") 'toggle-frame-maximized) (global-set-key (kbd "C-x C-b") 'ibuffer) (global-set-key (kbd "C-x 0") -- cgit v1.2.3-70-g09d2