From a2f3d65ef8824e231a8a4d4b3618762a5d40fde1 Mon Sep 17 00:00:00 2001 From: Thomas Ulmer Date: Tue, 3 Jun 2025 14:00:23 -0700 Subject: lsp and exwm multi-monitor fixes --- emacs/init.el | 15 +++++++++++---- 1 file changed, 11 insertions(+), 4 deletions(-) (limited to 'emacs/init.el') diff --git a/emacs/init.el b/emacs/init.el index 403feb2..30d7d54 100644 --- a/emacs/init.el +++ b/emacs/init.el @@ -456,7 +456,15 @@ the cyclic ordering. Don't involve windows that are dedicated." (use-package lsp-mode :commands (lsp) :init - (use-package lsp-haskell)) + (use-package lsp-haskell) + :custom + (lsp-completion-provider . :none) + :config + (defun corfu-lsp-setup () + (setq-local completion-styles '(orderless) + completion-category-defaults nil)) + (add-hook 'lsp-completion-mode-hook #'corfu-lsp-setup) + ) (use-package pyvenv) @@ -626,6 +634,7 @@ the cyclic ordering. Don't involve windows that are dedicated." (require 'exwm-xim) (require 'exwm-systemtray) (require 'exwm-manage) + (add-to-list 'exwm-manage-configurations '((equal exwm-class-name "Slack") managed t)) (use-package exwm-modeline) ;;(exwm-xim-mode 1) @@ -732,9 +741,7 @@ the cyclic ordering. Don't involve windows that are dedicated." ;; Bind "s-w" to window switcher ([?\M-W] . consult-buffer) ([?\M-o] . other-window) - - ;;fast workspace switch - ([?\M-O] . exwm-other-assigned-workspace) + ([?\M-O] . my/exwm-other-assigned-workspace) ([?\M-D] . my/dmenu) ([?\M-E] . my/browser) -- cgit v1.2.3