Fix lag when opening new frames

This commit is contained in:
outfoxxed 2023-06-30 08:58:30 -07:00
parent e79a0f867d
commit 9a0b8c6d04
Signed by: outfoxxed
GPG key ID: 4C88A185FB89301E
2 changed files with 25 additions and 10 deletions

27
init.el
View file

@ -1,18 +1,29 @@
;;;; Appearance
(defun apply-appearance ()
(defun apply-appearance-first-frame ()
(message "Set first frame appearance")
;; Set theme
(load-theme 'my-theme +1)
;; Use JBMono
(set-frame-font "-JB-JetBrainsMonoNL Nerd Font-normal-normal-normal-*-18-*-*-*-m-0-iso10646-1" nil t)
;; Hide GTK scroll bar
(toggle-scroll-bar -1))
(load-theme 'my-theme +1))
(apply-appearance)
(defun apply-appearance-per-frame ()
(message "Set per frame appearance")
;; Hide scroll bar
(toggle-scroll-bar -1)
;; Use JBMono
(set-frame-font "-JB-JetBrainsMonoNL Nerd Font-normal-normal-normal-*-18-*-*-*-m-0-iso10646-1" nil t))
(apply-appearance-first-frame)
(apply-appearance-per-frame)
(setq seen-first-frame nil)
(add-hook 'after-make-frame-functions
(lambda (frame)
(with-selected-frame frame
(apply-appearance))))
(apply-appearance-per-frame)
(if (not seen-first-frame)
(progn
(setq seen-first-frame 1)
(apply-appearance-first-frame))))))
;; Hide ribbon, menu bar
(menu-bar-mode -1)