diff --git a/ansible/roles/emacs/files/early-init.el b/ansible/roles/emacs/files/early-init.el index e69de29..ae8a347 100644 --- a/ansible/roles/emacs/files/early-init.el +++ b/ansible/roles/emacs/files/early-init.el @@ -0,0 +1,25 @@ +(setq gc-cons-threshold 100000000) ;; Increase garbage collection threshold for performance (default 800000) +;; Increase amount of data read from processes, default 4k +(when (>= emacs-major-version 27) + (setq read-process-output-max (* 1024 1024)) ;; 1mb + ) + +;; Suppress warnings +(setq byte-compile-warnings '(not obsolete)) +(setq warning-suppress-log-types '((comp) (bytecomp))) +(setq native-comp-async-report-warnings-errors 'silent) + +;; Set up default visual settings +(setq frame-resize-pixelwise t) +;; Disable toolbar & menubar +(menu-bar-mode -1) +(when (fboundp 'tool-bar-mode) + (tool-bar-mode -1)) +(when (display-graphic-p) + (context-menu-mode +1)) + +(setq default-frame-alist '((fullscreen . maximized) + (vertical-scroll-bars . nil) + (horizontal-scroll-bars . nil) + ;; Set dark colors in early-init to prevent flashes of white. + (background-color . "#000000"))) diff --git a/ansible/roles/emacs/files/elisp/base.el b/ansible/roles/emacs/files/elisp/base.el index 743db2f..58d54a5 100644 --- a/ansible/roles/emacs/files/elisp/base.el +++ b/ansible/roles/emacs/files/elisp/base.el @@ -85,15 +85,6 @@ backup-directory-alist `((".*" . ,(concat temp-dir "/backup/"))) auto-save-file-name-transforms `((".*" ,(concat temp-dir "/auto-save-list/") t))) -;; Disable toolbar & menubar -(menu-bar-mode -1) -(when (fboundp 'tool-bar-mode) - (tool-bar-mode -1)) -(when ( fboundp 'scroll-bar-mode) - (scroll-bar-mode -1)) - -(context-menu-mode +1) - ;; Delete trailing whitespace before save (add-hook 'before-save-hook 'delete-trailing-whitespace) diff --git a/ansible/roles/emacs/files/elisp/common-lsp.el b/ansible/roles/emacs/files/elisp/common-lsp.el index 9a1e550..40ad135 100644 --- a/ansible/roles/emacs/files/elisp/common-lsp.el +++ b/ansible/roles/emacs/files/elisp/common-lsp.el @@ -7,6 +7,8 @@ ;; M-? ;; ([remap xref-find-references] . lsp-ui-peek-find-references) ("C-c C-a" . eglot-code-actions) + ;; C-M-. + ([remap xref-find-apropos] . #'consult-eglot-symbols) ) :hook ( (eglot-managed-mode . (lambda () @@ -16,27 +18,19 @@ )) ) :config - ;; Increase garbage collection threshold for performance (default 800000) - (setq gc-cons-threshold 100000000) - - ;; Increase amount of data read from processes, default 4k - (when (>= emacs-major-version 27) - (setq read-process-output-max (* 1024 1024)) ;; 1mb - ) - + (fset #'jsonrpc--log-event #'ignore) ;; Disable logging LSP traffic for performance boost (set-face-attribute 'eglot-highlight-symbol-face nil :background "#0291a1" :foreground "black") (set-face-attribute 'eglot-mode-line nil :inherit 'mode-line :bold nil) - (use-package consult-eglot - :bind ( - :map eglot-mode-map - ;; C-M-. - ([remap xref-find-apropos] . #'consult-eglot-symbols) - ) - ) + :custom (eglot-autoshutdown t "Shut down server when last buffer is killed.") (eglot-sync-connect 0 "Don't block on language server starting.") + (eglot-send-changes-idle-time 0.1) + ) + +(use-package consult-eglot + :commands (consult-eglot-symbols) ) (provide 'common-lsp)