Add some optimizations stolen off Doom Emacs

This commit is contained in:
Maciej 2020-07-24 16:21:35 +03:00
parent 4b10beec8d
commit e586cda3c1
Signed by: maciej
GPG key ID: 41D62D42D3B0D765
3 changed files with 44 additions and 19 deletions

View file

@ -6,6 +6,27 @@
;;;;;;;;; GC configuration ;;;;;;;;;;;;;;;;;;; ;;;;;;;;; GC configuration ;;;;;;;;;;;;;;;;;;;
(setq gc-cons-threshold 50000000) (setq gc-cons-threshold 50000000)
;;;;;;;; Other optimizations ;;;;;;;;;;;;;;;;;
;; Update emacs less often
(setq idle-update-delay 1.0)
;; Disable bidirectional text rendering for a modest performance boost. I've set
;; this to `nil' in the past, but the `bidi-display-reordering's docs say that
;; is an undefined state and suggest this to be just as good:
(setq-default bidi-display-reordering 'left-to-right
bidi-paragraph-direction 'left-to-right)
;; Reduce rendering/line scan work for Emacs by not rendering cursors or regions
;; in non-focused windows.
(setq-default cursor-in-non-selected-windows nil)
(setq highlight-nonselected-windows nil)
;; More performant rapid scrolling over unfontified regions. May cause brief
;; spells of inaccurate syntax highlighting right after scrolling, which should
;; quickly self-correct.
(setq fast-but-imprecise-scrolling t)
;;;;;;;;; TRAMP configuration ;;;;;;;;;;;;;;;; ;;;;;;;;; TRAMP configuration ;;;;;;;;;;;;;;;;
(require 'tramp) (require 'tramp)
(setq tramp-default-method "ssh") (setq tramp-default-method "ssh")
@ -169,9 +190,14 @@
;; Disable meta on right alt (useful for Polish characters) ;; Disable meta on right alt (useful for Polish characters)
(setq mac-right-option-modifier nil) (setq mac-right-option-modifier nil)
;; Draw underline lower
(setq x-underline-at-descent-line t)
;;; Get rid of bad parts of the windows ;;; Get rid of bad parts of the windows
(tool-bar-mode -1) (tool-bar-mode -1)
(scroll-bar-mode -1) (scroll-bar-mode -1)
(setq indicate-buffer-boundaries nil
indicate-empty-lines nil)
;;;;;;;;;;;;;;;;; Record frequency of different commands. Review them later ;;;;;;;;;;;;;;;;; Record frequency of different commands. Review them later
(use-package keyfreq (use-package keyfreq

35
init.el
View file

@ -13,7 +13,7 @@
(package-refresh-contents)) (package-refresh-contents))
;; list the packages you want ;; list the packages you want
(setq package-list '( (defvar package-list '(
use-package use-package
visual-regexp ;; Regexp replacement with preview in visual-regexp ;; Regexp replacement with preview in
;; current buffer. ;; current buffer.
@ -24,10 +24,6 @@
flatui-theme flatui-theme
planet-theme planet-theme
;; Web
web-mode
js2-mode
;; Infrastructure files ;; Infrastructure files
dockerfile-mode dockerfile-mode
terraform-mode terraform-mode
@ -49,19 +45,19 @@
(require 'use-package) (require 'use-package)
;; Additional files ;; Additional files
(load "$HOME/.emacs.d/01mac.el" 'f 't) (require '01mac "$HOME/.emacs.d/01mac.el")
(load "$HOME/.emacs.d/05macros.el" 'f 't) (require '05macros "$HOME/.emacs.d/05macros.el")
(load "$HOME/.emacs.d/05ivy.el" 'f 't) (require '05ivy "$HOME/.emacs.d/05ivy.el")
(load "$HOME/.emacs.d/05hydra.el" 'f 't) (require '05hydra "$HOME/.emacs.d/05hydra.el")
(load "$HOME/.emacs.d/05magit.el" 'f 't) (require '05magit "$HOME/.emacs.d/05magit.el")
(load "$HOME/.emacs.d/05prog-mode.el" 'f 't) (require '05prog-mode "$HOME/.emacs.d/05prog-mode.el")
(load "$HOME/.emacs.d/05company-yasnippet.el" 'f 't) (require '05company-yasnippet "$HOME/.emacs.d/05company-yasnippet.el")
(load "$HOME/.emacs.d/05flycheck.el" 'f 't) (require '05flycheck "$HOME/.emacs.d/05flycheck.el")
(load "$HOME/.emacs.d/05projectile.el" 'f 't) (require '05projectile "$HOME/.emacs.d/05projectile.el")
(load "$HOME/.emacs.d/05ctags.el" 'f 't) (require '05ctags "$HOME/.emacs.d/05ctags.el")
(load "$HOME/.emacs.d/05ispell.el" 'f 't) (require '05ispell "$HOME/.emacs.d/05ispell.el")
(load "$HOME/.emacs.d/05deft.el" 'f 't) (require '05deft "$HOME/.emacs.d/05deft.el")
(load "$HOME/.emacs.d/05lsp.el" 'f 't) (require '05lsp "$HOME/.emacs.d/05lsp.el")
;; Themes ;; Themes
(load "$HOME/.emacs.d/themes/themes.el" 'f 't) (load "$HOME/.emacs.d/themes/themes.el" 'f 't)
@ -101,3 +97,6 @@
'(font-lock-constant-face ((((type graphic)) (:foreground "#dfaf8f")) (((min-colors 256)) (:foreground "brightred")) (t (:foreground "brightred")))) '(font-lock-constant-face ((((type graphic)) (:foreground "#dfaf8f")) (((min-colors 256)) (:foreground "brightred")) (t (:foreground "brightred"))))
'(font-lock-type-face ((t (:foreground "#ffcb6b" :family "IBM Plex Mono")))) '(font-lock-type-face ((t (:foreground "#ffcb6b" :family "IBM Plex Mono"))))
'(markdown-code-face ((t (:inherit fixed-pitch :family "IBM Plex Mono"))))) '(markdown-code-face ((t (:inherit fixed-pitch :family "IBM Plex Mono")))))
(provide 'init)
;;; init.el ends here

View file

@ -37,7 +37,7 @@
(random 2) (random 2)
'(base16-atelier-forest-light base16-harmonic-light)))) '(base16-atelier-forest-light base16-harmonic-light))))
(progn (progn
(setq base16-theme-256-color-source "base16-shell") (defvar base16-theme-256-color-source "base16-shell")
(enable-theme 'base16-atelier-forest-light))) (enable-theme 'base16-atelier-forest-light)))
;; Set font face ;; Set font face