Add exwm size functions +bindings

1 files changed, 24 insertions, 6 deletions

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-<tab>") 'rofi)
   (exwm-input-set-key (kbd "s-Q") 'kill-emacs)
@@ -650,6 +663,11 @@
   (exwm-input-set-key (kbd "<XF86AudioLowerVolume>") '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-<left>") 'exwm-shrink-horizontally-50)
+  (exwm-input-set-key (kbd "C-w C-<right>") 'exwm-enlarge-horizontally-50)
+  (exwm-input-set-key (kbd "C-w C-<up>") 'exwm-shrink-vertically-50)
+  (exwm-input-set-key (kbd "C-w C-<up>") 'exwm-enlarge-vertically-50)
+  
   (exwm-enable))
 
 ;;Transparency