blob: 90268b7d792d2d5e557f0f1bea09821f153c7ea0 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
|
;;; config-utilities --- Config Hacking Utilities -*- lexical-binding: t; -*-
;; author Craig Jennings <c@cjennings.net>
;;; Commentary:
;; Convenience utilities for working on Emacs configuration.
;;; Code:
;; ------------------------------- Load ERT Tests ------------------------------
(defun cj/load-all-tests ()
"`load' all ert libraries in test which are not already loaded."
(interactive)
(require 'ert)
(setq ert--tests (make-hash-table :test 'equal)) ;; forget all existing tests
(eval-buffer)
(let ((libraries-loaded (mapcar #'file-name-sans-extension
(delq nil (mapcar #'car load-history))))
(dir (concat user-emacs-directory "tests/")))
(dolist (file (directory-files dir t ".+\\.elc?$"))
(let ((library (file-name-sans-extension file)))
(unless (member library libraries-loaded)
(load library nil t)
(push library libraries-loaded))))))
;; ------------------------------ Reload Init File -----------------------------
;; it does what it says it does.
(defun cj/reload-init-file ()
"Reload the init file. Useful when modifying Emacs config."
(interactive)
(load-file user-init-file))
;; ---------------------------- Recompile Emacs Home ---------------------------
;; deletes all .elc and .eln files in user-emacs-directory, then compiles
;; all emacs-lisp files natively if supported, or byte-compiles them if not.
(defun cj/recompile-emacs-home()
"Delete all compiled files in Emacs home recursively before recompilation.
Will recompile natively if supported, or byte-compiled if not."
(interactive)
(let* ((native-comp-supported (boundp 'native-compile-async))
(elt-dir
(expand-file-name (if native-comp-supported "eln" "elc")
user-emacs-directory))
(message-format
(format "Please confirm recursive %s recompilation of %%s: "
(if native-comp-supported "native" "byte")))
(compile-message (format "%scompiling all emacs-lisp files in %%s"
(if native-comp-supported "Natively " "Byte-"))))
(if (yes-or-no-p (format message-format user-emacs-directory))
(progn
(message "Deleting all compiled files in %s" user-emacs-directory)
(dolist (file (directory-files-recursively user-emacs-directory
"\\(\\.elc\\|\\.eln\\)$"))
(delete-file file))
(when (file-directory-p elt-dir)
(delete-directory elt-dir t t))
(message compile-message user-emacs-directory)
(if native-comp-supported
(let ((comp-async-report-warnings-errors nil))
(native-compile-async user-emacs-directory 'recursively))
(byte-recompile-directory user-emacs-directory 0)))
(message "Cancelled recompilation of %s" user-emacs-directory))))
;; ---------------------- Delete Emacs Home Compiled Files ---------------------
;; removes all compiled files and deletes the eln directory
(defun cj/delete-emacs-home-compiled-files ()
"Delete all compiled files recursively in \='user-emacs-directory\='."
(interactive)
(message "Deleting compiled files under %s. This may take a while."
user-emacs-directory)
(require 'find-lisp) ;; make sure the package is required
(mapc (lambda (path)
(when (or (string-suffix-p ".elc" path)
(string-suffix-p ".eln" path))
(delete-file path)))
(find-lisp-find-files user-emacs-directory ""))
(message "Done. Compiled files removed under %s" user-emacs-directory))
;; ---------------------- List Loaded Packages ---------------------
;; you don't really need an explanation for this function, do you?
(defvar cj--loaded-file-paths nil
"All file paths that are loaded.")
(defvar cj--loaded-packages-buffer "*loaded-packages*"
"Buffer name for data about loaded packages.")
(defvar cj--loaded-features-buffer "*loaded-features*"
"Buffer name for data about loaded features.")
(defun cj/list-loaded-packages()
"List all currently loaded packages."
(interactive)
(with-current-buffer (get-buffer-create cj--loaded-packages-buffer)
(erase-buffer)
(pop-to-buffer (current-buffer))
(insert "* Live Packages Exploration\n\n")
(insert (format "%s total packages currently loaded\n"
(length cj--loaded-file-paths)))
;; Extract data from builtin variable `load-history'.
(setq cj--loaded-file-paths
(seq-filter #'stringp
(mapcar #'car load-history)))
(cl-sort cj--loaded-file-paths 'string-lessp)
(cl-loop for file in cj--loaded-file-paths
do (insert "\n" file))
(goto-char (point-min))))
;; ---------------------------- List Loaded Features ---------------------------
;; this function's also self-explanatory
(defun cj/list-loaded-features()
"List all currently loaded features."
(interactive)
(with-current-buffer (get-buffer-create cj--loaded-features-buffer)
(erase-buffer)
(pop-to-buffer (current-buffer))
(insert (format "\n** %d features currently loaded\n"
(length features)))
(let ((features-vec (apply 'vector features)))
(cl-sort features-vec 'string-lessp)
(cl-loop for x across features-vec
do (insert (format " - %-25s: %s\n" x
(locate-library (symbol-name x))))))
(goto-char (point-min))))
(provide 'config-utilities)
;;; config-utilities.el ends here
|
