Archived
1
0
Fork 0

add auto compile of elisp in packages to speed startup time

This commit is contained in:
KemoNine 2022-04-23 15:35:42 -04:00
parent b9dc7d469b
commit 19600905e5
2 changed files with 36 additions and 0 deletions

View file

@ -13,6 +13,22 @@
(setq kmn/is-termux
(string-suffix-p "Android" (string-trim (shell-command-to-string "uname -a"))))
; ensure elisp plugins are compiled
(require 'dash)
(require 'f)
(defun was-compiled-p (path)
"Does the directory at PATH contain any .elc files?"
(--any-p (f-ext? it "elc") (f-files path)))
(defun ensure-packages-compiled ()
"If any packages installed with package.el aren't compiled yet, compile them."
(--each (f-directories package-user-dir)
(unless (was-compiled-p it)
(byte-recompile-directory it 0))))
(ensure-packages-compiled)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; backups
(defconst kmn/backup-dir

View file

@ -75,6 +75,7 @@ open scratch buffer. paste below into it as the contents then do `M-x ev-b RET`
diminish
dash
s
f
oragami
ido-completing-read+
dired-single
@ -99,3 +100,22 @@ open scratch buffer. paste below into it as the contents then do `M-x ev-b RET`
(package-install p))))
```
speed up runtime by compiling all packages
```
(require 'dash)
(require 'f)
(defun was-compiled-p (path)
"Does the directory at PATH contain any .elc files?"
(--any-p (f-ext? it "elc") (f-files path)))
(defun ensure-packages-compiled ()
"If any packages installed with package.el aren't compiled yet, compile them."
(--each (f-directories package-user-dir)
(unless (was-compiled-p it)
(byte-recompile-directory it 0))))
(ensure-packages-compiled)
```