mirror of
https://github.com/doomemacs/doomemacs
synced 2025-08-03 12:27:26 -05:00
0425724571
+ Fix #446, where the .local/packages.el cache was generated with a faulty load-path. + Entries in the doom-modules hash table are now plists, containing :flags and :path, at least. + Add doom-initialize-modules for loading module config.el files. + Add doom-module-get for accessing this plist, e.g. (doom-module-get :some module) ; returns plist (doom-module-get :some module :flags) ; return specific property + Replace doom-module-enable with doom-module-set, e.g. (doom-module-set :some module :flags '(+a +b +c)) + Remove doom-module-flags (use doom-module-get instead) + Rename doom-module-enabled-p with doom-module-p + Replace doom-module-path with doom-module-find-path and doom-module-expand-file. The former will search for an existing module or file in doom-modules-dirs. The latter will expand the path from whatever path is stored in doom-modules. + Replace doom-module-paths with doom-module-load-path + Changed doom! to allow for nested doom! calls by delaying the loading of module config.el files until as late as possible. + Refactor doom-initialize-packages to only ihitialize package state (i.e. doom-packages, package-alist, and quelpa-cache), rather than its previous behavior of loading all Doom files (and sometimes all module files). This is faster and more predictable.
175 lines
7.0 KiB
EmacsLisp
175 lines
7.0 KiB
EmacsLisp
;;; core/autoload/debug.el -*- lexical-binding: t; -*-
|
|
|
|
;;;###autoload
|
|
(defun doom/what-face (&optional pos)
|
|
"Shows all faces and overlay faces at point.
|
|
|
|
Interactively prints the list to the echo area. Noninteractively, returns a list
|
|
whose car is the list of faces and cadr is the list of overlay faces."
|
|
(interactive)
|
|
(let* ((pos (or pos (point)))
|
|
(faces (let ((face (get-text-property pos 'face)))
|
|
(if (keywordp (car-safe face))
|
|
(list face)
|
|
(cl-loop for f in (doom-enlist face) collect f))))
|
|
(overlays (cl-loop for ov in (overlays-at pos (1+ pos))
|
|
nconc (doom-enlist (overlay-get ov 'face)))))
|
|
(cond ((called-interactively-p 'any)
|
|
(message "%s %s\n%s %s"
|
|
(propertize "Faces:" 'face 'font-lock-comment-face)
|
|
(if faces
|
|
(cl-loop for face in faces
|
|
if (listp face)
|
|
concat (format "'%s " face)
|
|
else
|
|
concat (concat (propertize (symbol-name face) 'face face) " "))
|
|
"n/a ")
|
|
(propertize "Overlays:" 'face 'font-lock-comment-face)
|
|
(if overlays
|
|
(cl-loop for ov in overlays
|
|
concat (concat (propertize (symbol-name ov) 'face ov) " "))
|
|
"n/a")))
|
|
(t
|
|
(and (or faces overlays)
|
|
(list faces overlays))))))
|
|
|
|
;;;###autoload
|
|
(defun doom-active-minor-modes ()
|
|
"Get a list of active minor-mode symbols."
|
|
(cl-loop for mode in minor-mode-list
|
|
unless (and (boundp mode) (symbol-value mode))
|
|
collect mode))
|
|
|
|
;;;###autoload
|
|
(defun doom/what-minor-mode (mode)
|
|
"Get information on an active minor mode. Use `describe-minor-mode' for a
|
|
selection of all minor-modes, active or not."
|
|
(interactive
|
|
(list (completing-read "Minor mode: "
|
|
(doom-active-minor-modes))))
|
|
(describe-minor-mode-from-symbol
|
|
(cl-typecase mode
|
|
(string (intern mode))
|
|
(symbol mode)
|
|
(t (error "Expected a symbol/string, got a %s" (type-of mode))))))
|
|
|
|
;;;###autoload
|
|
(defun doom/am-i-secure ()
|
|
"Test to see if your root certificates are securely configured in emacs."
|
|
(declare (interactive-only t))
|
|
(interactive)
|
|
(unless (string-match-p "\\_<GNUTLS\\_>" system-configuration-features)
|
|
(warn "gnutls support isn't built into Emacs, there may be problems"))
|
|
(if-let* ((bad-hosts
|
|
(cl-loop for bad
|
|
in '("https://wrong.host.badssl.com/"
|
|
"https://self-signed.badssl.com/")
|
|
if (condition-case _e
|
|
(url-retrieve-synchronously bad)
|
|
(error nil))
|
|
collect bad)))
|
|
(error (format "tls seems to be misconfigured (it got %s)."
|
|
bad-hosts))
|
|
(url-retrieve "https://badssl.com"
|
|
(lambda (status)
|
|
(if (or (not status) (plist-member status :error))
|
|
(warn "Something went wrong.\n\n%s" (pp-to-string status))
|
|
(message "Your trust roots are set up properly.\n\n%s" (pp-to-string status))
|
|
t)))))
|
|
|
|
(defvar doom--profiler nil)
|
|
;;;###autoload
|
|
(defun doom/toggle-profiler ()
|
|
"Toggle the Emacs profiler. Starts it if isn't running. Stops it and pops up
|
|
the profiling report otherwise."
|
|
(interactive)
|
|
(if (not doom--profiler)
|
|
(profiler-start 'cpu+mem)
|
|
(profiler-report)
|
|
(profiler-stop))
|
|
(setq doom--profiler (not doom--profiler)))
|
|
|
|
;;;###autoload
|
|
(defun doom-info ()
|
|
"Returns diagnostic information about the current Emacs session in markdown,
|
|
ready to be pasted in a bug report on github."
|
|
(require 'vc-git)
|
|
(let ((default-directory doom-emacs-dir))
|
|
(format
|
|
(concat "- OS: %s (%s)\n"
|
|
"- Emacs: %s (%s)\n"
|
|
"- Doom: %s (%s https://github.com/hlissner/doom-emacs/commit/%s)\n"
|
|
"- Graphic display: %s (daemon: %s)\n"
|
|
"- System features: %s\n"
|
|
"- Details:\n"
|
|
" ```elisp\n"
|
|
" modules: %s\n"
|
|
" packages: %s\n"
|
|
" elc dirs: %s\n"
|
|
" exec-path: %s\n"
|
|
" ```\n")
|
|
system-type system-configuration
|
|
emacs-version (format-time-string "%b %d, %Y" emacs-build-time)
|
|
doom-version
|
|
(vc-git--symbolic-ref "core/core.el") (vc-git-working-revision "core/core.el")
|
|
(display-graphic-p) (daemonp)
|
|
(bound-and-true-p system-configuration-features)
|
|
;; details
|
|
(or (cl-loop with cat = nil
|
|
for key being the hash-keys of doom-modules
|
|
if (or (not cat) (not (eq cat (car key))))
|
|
do (setq cat (car key)) and collect cat
|
|
else collect
|
|
(let ((flags (doom-module-get cat (cdr key) :flags)))
|
|
(if (equal flags '(t))
|
|
(cdr key)
|
|
(list (cdr key) flags))))
|
|
"n/a")
|
|
(or (let (packages)
|
|
(ignore-errors
|
|
(require 'async)
|
|
;; collect these in another session to protect this
|
|
;; session's state
|
|
(async-get
|
|
(async-start
|
|
`(lambda ()
|
|
(setq load-path ',load-path)
|
|
(load ,(expand-file-name "core/core.el" doom-emacs-dir))
|
|
(load ,(expand-file-name "init.el" doom-emacs-dir))
|
|
(load ,(expand-file-name "core/autoload/packages.el" doom-emacs-dir))
|
|
(doom-get-packages))
|
|
(lambda (p) (setq packages p))))
|
|
(mapcar (lambda (x)
|
|
(if (cdr x)
|
|
(format "%s" x)
|
|
(symbol-name (car x))))
|
|
(cl-sort packages #'string-lessp :key (lambda (x) (symbol-name (car x)))))))
|
|
"n/a")
|
|
(or (ignore-errors
|
|
(cl-delete-duplicates
|
|
(cl-loop for file in (append (reverse (directory-files-recursively doom-core-dir "\\.elc$"))
|
|
(cl-loop for dir in doom-modules-dirs
|
|
nconc (directory-files-recursively dir "\\.elc$")))
|
|
collect (file-relative-name (file-name-directory file) doom-emacs-dir))
|
|
:test #'equal))
|
|
"n/a")
|
|
exec-path)))
|
|
|
|
;;;###autoload
|
|
(defun doom/info ()
|
|
"Collects some debug information about your Emacs session, formats it into
|
|
markdown and copies it to your clipboard, ready to be pasted into bug reports!"
|
|
(declare (interactive-only t))
|
|
(interactive)
|
|
(if noninteractive
|
|
(message "%s" (doom-info))
|
|
(message "Generating Doom info...")
|
|
(kill-new (doom-info))
|
|
(message "Done! Copied to clipboard.")))
|
|
|
|
;;;###autoload
|
|
(defun doom/toggle-debug-mode ()
|
|
(interactive)
|
|
(setq doom-debug-mode (not doom-debug-mode))
|
|
(toggle-debug-on-error))
|