diff --git a/early-init.el b/early-init.el index 2a95422..a176b6c 100644 --- a/early-init.el +++ b/early-init.el @@ -1,15 +1,20 @@ ;; -*- lexical-binding: t -*- -(setq gc-cons-threshold most-positive-fixnum) +(setq gc-cons-threshold most-positive-fixnum + gc-cons-percentage 0.6) + +;; After init, use gcmh +(add-hook 'emacs-startup-hook + (lambda () + (setq gc-cons-threshold #x6400000 + gc-cons-percentage 0.1))) + (setq package-enable-at-startup nil) (add-to-list 'load-path (expand-file-name "lisp/" user-emacs-directory)) (setq use-package-enable-imenu-support t) (setq load-prefer-newer noninteractive) -(require 'init-elpaca) -(require 'init-gc) - (prefer-coding-system 'utf-8) ;; Inhibit resizing frame (setq frame-inhibit-implied-resize t) diff --git a/init.el b/init.el index b5e2f02..eb6edef 100644 --- a/init.el +++ b/init.el @@ -2,6 +2,8 @@ ;;; Commentary: ;;; blablabla +(require 'init-elpaca) +(require 'init-gc) (require 'init-better-default) (require 'init-hydra) diff --git a/lisp/init-eglot.el b/lisp/init-eglot.el index fc26f21..21df4ef 100644 --- a/lisp/init-eglot.el +++ b/lisp/init-eglot.el @@ -7,17 +7,18 @@ (unless (derived-mode-p 'emacs-lisp-mode 'lisp-mode 'makefile-mode 'snippet-mode + 'lisp-interaction-mode 'ron-mode) (eglot-ensure)))) ((markdown-mode yaml-mode yaml-ts-mode) . eglot-ensure)) - :init + :bind (:map eglot-mode-map + ("C-c c a" . eglot-code-actions)) + :config + (setq completion-category-defaults nil) (setq eglot-autoshutdown t eglot-events-buffer-config 0 eglot-send-changes-idle-time 0.5 - eglot-code-action-indications '(eldoc-hint)) - :bind (:map eglot-mode-map - ("C-c c a" . eglot-code-actions)) - :config (setq completion-category-defaults nil)) + eglot-code-action-indications '(eldoc-hint))) (use-package eglot-booster :ensure (eglot-booster :type git :host nil :repo "https://github.com/jdtsmith/eglot-booster") diff --git a/lisp/init-gc.el b/lisp/init-gc.el index 4c55ef3..321596c 100644 --- a/lisp/init-gc.el +++ b/lisp/init-gc.el @@ -3,6 +3,7 @@ (use-package gcmh :diminish + :ensure (:wait t) ;; what does this do in elpaca :init (gcmh-mode 1) :config diff --git a/lisp/init-workspace.el b/lisp/init-workspace.el index 847b00a..01ac75c 100644 --- a/lisp/init-workspace.el +++ b/lisp/init-workspace.el @@ -62,7 +62,8 @@ (use-package beframe :hook elpaca-after-init :bind (("C-x b" . beframe-switch-buffer) - ("C-x C-b" . beframe-buffer-menu))) + ("C-x C-b" . beframe-buffer-menu) + ("C-x f" . other-frame-prefix))) ;; :config ;; (setq beframe-functions-in-frames '(project-prompt-project-dir)))