Files
nix-doom-emacs/advice.el
2019-10-23 22:15:54 +02:00

21 lines
949 B
EmacsLisp

;;; -*- lexical-binding: t; -*-
(advice-add 'nix-straight-get-used-packages
:before (lambda (&rest r)
(message "Advising doom installer to gather packages to install...")
(advice-add 'doom-reload-autoloads
:override (lambda (&optional file force-p)
(message "Skipping generating autoloads...")))
(advice-add 'doom--format-print
:around (lambda (orig-print &rest r)
(let ((noninteractive nil))
(apply orig-print r))))))
(advice-add 'doom-call-process
:before (lambda (&rest r)
(message "> call-process %s" r)))
(advice-add 'doom-call-process
:after (lambda (&rest r)
(message "< call-process %s" r)))