From 1e92032263327765d5ae7e6e55e70ebfab35a4f3 Mon Sep 17 00:00:00 2001 From: Thanos Apollo Date: Wed, 30 Nov 2022 05:59:18 +0200 Subject: Add exwm size functions +bindings --- .emacs.d/init.el | 30 ++++++++++++++++++++++++------ 1 file changed, 24 insertions(+), 6 deletions(-) (limited to '.emacs.d') diff --git a/.emacs.d/init.el b/.emacs.d/init.el index 8b688a1..67f414d 100644 --- a/.emacs.d/init.el +++ b/.emacs.d/init.el @@ -368,12 +368,6 @@ (setq lsp-keymap-prefix "C-c l") ;; Or 'C-l', 's-l' :config (lsp-enable-which-key-integration t) - (lsp-register-custom-settings - '(("pyls.plugins.pyls_mypy.enabled" t t) - ("pyls.plugins.pyls_mypy.live_mode" nil t) - ("pyls.plugins.pyls_black.enabled" t t) - ("pyls.plugins.pyls_isort.enabled" t t) - ("pyls.plugins.flake8.enable" t t))) (setq lsp-pyls-server-command "~/.local/bin/pyls") ) @@ -643,6 +637,25 @@ (exwm-workspace-switch-create ,i)))) (number-sequence 0 9)))) + (defun exwm-enlarge-horizontally-50 () + (interactive) + (exwm-layout-enlarge-window-horizontally 50)) + + (defun exwm-shrink-horizontally-50 () + "Shrink window horizontally by 10" + (interactive) + (exwm-layout-shrink-window-horizontally 50)) + + (defun exwm-shrink-vertically-50 () + "Shrink window by 50." + (interactive) + (exwm-layout-shrink-window 50)) + + (defun exwm-enlarge-vertically-50 () + "Enlarge window by 50." + (interactive) + (exwm-layout-enlarge-window 50)) + (exwm-input-set-key (kbd "C-c d") 'dmenu) (exwm-input-set-key (kbd "s-") 'rofi) (exwm-input-set-key (kbd "s-Q") 'kill-emacs) @@ -650,6 +663,11 @@ (exwm-input-set-key (kbd "") 'apollo/volume-decrease) (exwm-input-set-key (kbd "s-0") 'apollo/emacs-keys) (exwm-input-set-key (kbd "s-9") 'apollo/greek-keyboard) + (exwm-input-set-key (kbd "C-w C-") 'exwm-shrink-horizontally-50) + (exwm-input-set-key (kbd "C-w C-") 'exwm-enlarge-horizontally-50) + (exwm-input-set-key (kbd "C-w C-") 'exwm-shrink-vertically-50) + (exwm-input-set-key (kbd "C-w C-") 'exwm-enlarge-vertically-50) + (exwm-enable)) ;;Transparency -- cgit v1.2.3