module: add :config use-package
I intend to phase out the internal usage of use-package in Doom's core and modules. The macro is too complex and magical for our needs. That said, until we've fully removed it, this :config use-package is hardcoded to be enabled-by-default, until use-package has been refactored out of core and modules. It'd be wise not to add it to your doom! blocks yet.
This commit is contained in:
Henrik Lissner
parent
e61441af52
commit
dda848e089
4 changed files with 207 additions and 181 deletions
|
|
@ -345,118 +345,6 @@ those directories."
|
||||||
(nreverse results)))
|
(nreverse results)))
|
||||||
|
|
||||||
|
|
||||||
;;
|
|
||||||
;;; Use-package modifications
|
|
||||||
|
|
||||||
(defvar doom--deferred-packages-alist '(t))
|
|
||||||
|
|
||||||
(autoload 'use-package "use-package-core" nil nil t)
|
|
||||||
|
|
||||||
(setq use-package-compute-statistics init-file-debug
|
|
||||||
use-package-verbose init-file-debug
|
|
||||||
use-package-minimum-reported-time (if init-file-debug 0 0.1)
|
|
||||||
use-package-expand-minimally (not noninteractive))
|
|
||||||
|
|
||||||
;; A common mistake for new users is that they inadvertently install their
|
|
||||||
;; packages with package.el, by copying over old `use-package' declarations with
|
|
||||||
;; an :ensure t property. Doom doesn't use package.el, so this will throw an
|
|
||||||
;; error that will confuse beginners, so we disable `:ensure'.
|
|
||||||
(setq use-package-ensure-function
|
|
||||||
(lambda (name &rest _)
|
|
||||||
(message "Ignoring ':ensure t' in '%s' config" name)))
|
|
||||||
;; ...On the other hand, if the user has loaded `package', then we should assume
|
|
||||||
;; they know what they're doing and restore the old behavior:
|
|
||||||
(add-transient-hook! 'package-initialize
|
|
||||||
(when (eq use-package-ensure-function #'ignore)
|
|
||||||
(setq use-package-ensure-function #'use-package-ensure-elpa)))
|
|
||||||
|
|
||||||
(with-eval-after-load 'use-package-core
|
|
||||||
;; We define :minor and :magic-minor from the `auto-minor-mode' package here
|
|
||||||
;; so we don't have to load `auto-minor-mode' so early.
|
|
||||||
(dolist (keyword '(:minor :magic-minor))
|
|
||||||
(setq use-package-keywords
|
|
||||||
(use-package-list-insert keyword use-package-keywords :commands)))
|
|
||||||
|
|
||||||
(defalias 'use-package-normalize/:minor #'use-package-normalize-mode)
|
|
||||||
(defun use-package-handler/:minor (name _ arg rest state)
|
|
||||||
(use-package-handle-mode name 'auto-minor-mode-alist arg rest state))
|
|
||||||
|
|
||||||
(defalias 'use-package-normalize/:magic-minor #'use-package-normalize-mode)
|
|
||||||
(defun use-package-handler/:magic-minor (name _ arg rest state)
|
|
||||||
(use-package-handle-mode name 'auto-minor-mode-magic-alist arg rest state))
|
|
||||||
|
|
||||||
;; HACK Fix `:load-path' so it resolves relative paths to the containing file,
|
|
||||||
;; rather than `user-emacs-directory'. This is a done as a convenience
|
|
||||||
;; for users, wanting to specify a local directory.
|
|
||||||
(defadvice! doom--resolve-load-path-from-containg-file-a (fn label arg &optional recursed)
|
|
||||||
"Resolve :load-path from the current directory."
|
|
||||||
:around #'use-package-normalize-paths
|
|
||||||
;; `use-package-normalize-paths' resolves paths relative to
|
|
||||||
;; `user-emacs-directory', so we change that.
|
|
||||||
(let ((user-emacs-directory
|
|
||||||
(or (and (stringp arg)
|
|
||||||
(not (file-name-absolute-p arg))
|
|
||||||
(ignore-errors (dir!)))
|
|
||||||
doom-emacs-dir)))
|
|
||||||
(funcall fn label arg recursed)))
|
|
||||||
|
|
||||||
;; Adds two keywords to `use-package' to expand its lazy-loading capabilities:
|
|
||||||
;;
|
|
||||||
;; :after-call SYMBOL|LIST
|
|
||||||
;; :defer-incrementally SYMBOL|LIST|t
|
|
||||||
;;
|
|
||||||
;; Check out `use-package!'s documentation for more about these two.
|
|
||||||
(dolist (keyword '(:defer-incrementally :after-call))
|
|
||||||
(push keyword use-package-deferring-keywords)
|
|
||||||
(setq use-package-keywords
|
|
||||||
(use-package-list-insert keyword use-package-keywords :after)))
|
|
||||||
|
|
||||||
(defalias 'use-package-normalize/:defer-incrementally #'use-package-normalize-symlist)
|
|
||||||
(defun use-package-handler/:defer-incrementally (name _keyword targets rest state)
|
|
||||||
(use-package-concat
|
|
||||||
`((doom-load-packages-incrementally
|
|
||||||
',(if (equal targets '(t))
|
|
||||||
(list name)
|
|
||||||
(append targets (list name)))))
|
|
||||||
(use-package-process-keywords name rest state)))
|
|
||||||
|
|
||||||
(defalias 'use-package-normalize/:after-call #'use-package-normalize-symlist)
|
|
||||||
(defun use-package-handler/:after-call (name _keyword hooks rest state)
|
|
||||||
(if (plist-get state :demand)
|
|
||||||
(use-package-process-keywords name rest state)
|
|
||||||
(let ((fn (make-symbol (format "doom--after-call-%s-h" name))))
|
|
||||||
(use-package-concat
|
|
||||||
`((fset ',fn
|
|
||||||
(lambda (&rest _)
|
|
||||||
(doom-log "use-package: lazy loading %s from %s" ',name ',fn)
|
|
||||||
(condition-case e
|
|
||||||
;; If `default-directory' is a directory that doesn't
|
|
||||||
;; exist or is unreadable, Emacs throws up file-missing
|
|
||||||
;; errors, so we set it to a directory we know exists and
|
|
||||||
;; is readable.
|
|
||||||
(let ((default-directory doom-emacs-dir))
|
|
||||||
(require ',name))
|
|
||||||
((debug error)
|
|
||||||
(message "Failed to load deferred package %s: %s" ',name e)))
|
|
||||||
(when-let (deferral-list (assq ',name doom--deferred-packages-alist))
|
|
||||||
(dolist (hook (cdr deferral-list))
|
|
||||||
(advice-remove hook #',fn)
|
|
||||||
(remove-hook hook #',fn))
|
|
||||||
(delq! deferral-list doom--deferred-packages-alist)
|
|
||||||
(unintern ',fn nil)))))
|
|
||||||
(let (forms)
|
|
||||||
(dolist (hook hooks forms)
|
|
||||||
(push (if (string-match-p "-\\(?:functions\\|hook\\)$" (symbol-name hook))
|
|
||||||
`(add-hook ',hook #',fn)
|
|
||||||
`(advice-add #',hook :before #',fn))
|
|
||||||
forms)))
|
|
||||||
`((unless (assq ',name doom--deferred-packages-alist)
|
|
||||||
(push '(,name) doom--deferred-packages-alist))
|
|
||||||
(nconc (assq ',name doom--deferred-packages-alist)
|
|
||||||
'(,@hooks)))
|
|
||||||
(use-package-process-keywords name rest state))))))
|
|
||||||
|
|
||||||
|
|
||||||
;;
|
;;
|
||||||
;;; Module config macros
|
;;; Module config macros
|
||||||
|
|
||||||
|
|
@ -493,70 +381,6 @@ to least)."
|
||||||
modules))
|
modules))
|
||||||
doom-modules))
|
doom-modules))
|
||||||
|
|
||||||
(defvar doom-disabled-packages)
|
|
||||||
(defmacro use-package! (name &rest plist)
|
|
||||||
"Declares and configures a package.
|
|
||||||
|
|
||||||
This is a thin wrapper around `use-package', and is ignored if the NAME package
|
|
||||||
is disabled by the user (with `package!').
|
|
||||||
|
|
||||||
See `use-package' to see what properties can be provided. Doom adds support for
|
|
||||||
two extra properties:
|
|
||||||
|
|
||||||
:after-call SYMBOL|LIST
|
|
||||||
Takes a symbol or list of symbols representing functions or hook variables.
|
|
||||||
The first time any of these functions or hooks are executed, the package is
|
|
||||||
loaded.
|
|
||||||
|
|
||||||
:defer-incrementally SYMBOL|LIST|t
|
|
||||||
Takes a symbol or list of symbols representing packages that will be loaded
|
|
||||||
incrementally at startup before this one. This is helpful for large packages
|
|
||||||
like magit or org, which load a lot of dependencies on first load. This lets
|
|
||||||
you load them piece-meal during idle periods, so that when you finally do need
|
|
||||||
the package, it'll load quicker.
|
|
||||||
|
|
||||||
NAME is implicitly added if this property is present and non-nil. No need to
|
|
||||||
specify it. A value of `t' implies NAME."
|
|
||||||
(declare (indent 1))
|
|
||||||
(unless (or (memq name doom-disabled-packages)
|
|
||||||
;; At compile-time, use-package will forcibly load packages to
|
|
||||||
;; prevent compile-time errors. However, if a Doom user has
|
|
||||||
;; disabled packages you get file-missing package errors, so it's
|
|
||||||
;; necessary to check for packages at compile time:
|
|
||||||
(and (bound-and-true-p byte-compile-current-file)
|
|
||||||
(not (locate-library (symbol-name name)))))
|
|
||||||
`(use-package ,name ,@plist)))
|
|
||||||
|
|
||||||
(defmacro use-package-hook! (package when &rest body)
|
|
||||||
"Reconfigures a package's `use-package!' block.
|
|
||||||
|
|
||||||
This macro must be used *before* PACKAGE's `use-package!' block. Often, this
|
|
||||||
means using it from your DOOMDIR/init.el.
|
|
||||||
|
|
||||||
Under the hood, this uses use-package's `use-package-inject-hooks'.
|
|
||||||
|
|
||||||
PACKAGE is a symbol; the package's name.
|
|
||||||
WHEN should be one of the following:
|
|
||||||
:pre-init :post-init :pre-config :post-config
|
|
||||||
|
|
||||||
WARNINGS:
|
|
||||||
- The use of this macro is more often than not a code smell. Use it as last
|
|
||||||
resort. There is almost always a better alternative.
|
|
||||||
- If you are using this solely for :post-config, stop! `after!' is much better.
|
|
||||||
- If :pre-init or :pre-config hooks return nil, the original `use-package!''s
|
|
||||||
:init/:config block (respectively) is overwritten, so remember to have them
|
|
||||||
return non-nil (or exploit that to overwrite Doom's config)."
|
|
||||||
(declare (indent defun))
|
|
||||||
(unless (memq when '(:pre-init :post-init :pre-config :post-config))
|
|
||||||
(error "'%s' isn't a valid hook for use-package-hook!" when))
|
|
||||||
`(progn
|
|
||||||
(setq use-package-inject-hooks t)
|
|
||||||
(add-hook ',(intern (format "use-package--%s--%s-hook"
|
|
||||||
package
|
|
||||||
(substring (symbol-name when) 1)))
|
|
||||||
(lambda () ,@body)
|
|
||||||
'append)))
|
|
||||||
|
|
||||||
;; DEPRECATED Remove in 3.0
|
;; DEPRECATED Remove in 3.0
|
||||||
(define-obsolete-function-alias 'featurep! 'modulep! "3.0.0")
|
(define-obsolete-function-alias 'featurep! 'modulep! "3.0.0")
|
||||||
|
|
||||||
|
|
@ -603,5 +427,13 @@ For more about modules and flags, see `doom!'."
|
||||||
(doom-module-set :core nil :path doom-core-dir :depth -110)
|
(doom-module-set :core nil :path doom-core-dir :depth -110)
|
||||||
(doom-module-set :user nil :path doom-user-dir :depth '(-105 . 105))
|
(doom-module-set :user nil :path doom-user-dir :depth '(-105 . 105))
|
||||||
|
|
||||||
|
;; DEPRECATED: I intend to phase out our internal usage of `use-package' and
|
||||||
|
;; move it to a :config use-package module. The macro is far too complex and
|
||||||
|
;; magical for our needs, but until this move is done, ':config use-package'
|
||||||
|
;; will remain a hardcoded module for backwards compatibility.
|
||||||
|
(doom-module-set :config 'use-package
|
||||||
|
:path (doom-module-locate-path :config 'use-package)
|
||||||
|
:depth -111)
|
||||||
|
|
||||||
(provide 'doom-modules)
|
(provide 'doom-modules)
|
||||||
;;; doom-modules.el ends here
|
;;; doom-modules.el ends here
|
||||||
|
|
|
||||||
|
|
@ -19,11 +19,6 @@
|
||||||
:files ("straight*.el"))
|
:files ("straight*.el"))
|
||||||
:pin "e20a44c4ac5c04896aecd43a5fdd12c67527c69e")
|
:pin "e20a44c4ac5c04896aecd43a5fdd12c67527c69e")
|
||||||
|
|
||||||
;; doom-modules.el
|
|
||||||
(package! use-package
|
|
||||||
:type 'core
|
|
||||||
:pin "e2d173b1200865a9efd5c2066831a230497582c0")
|
|
||||||
|
|
||||||
;; doom-ui.el
|
;; doom-ui.el
|
||||||
(package! all-the-icons :pin "4a4d6269b8b85b0b15954f063e6ce378630d80c0")
|
(package! all-the-icons :pin "4a4d6269b8b85b0b15954f063e6ce378630d80c0")
|
||||||
(package! hide-mode-line :pin "bc5d293576c5e08c29e694078b96a5ed85631942")
|
(package! hide-mode-line :pin "bc5d293576c5e08c29e694078b96a5ed85631942")
|
||||||
|
|
|
||||||
195
modules/config/use-package/init.el
Normal file
195
modules/config/use-package/init.el
Normal file
|
|
@ -0,0 +1,195 @@
|
||||||
|
;;; config/use-package/init.el -*- lexical-binding: t; -*-
|
||||||
|
;;; Commentary:
|
||||||
|
;;
|
||||||
|
;; In the near future, Doom will stop using `use-package' internally (in its
|
||||||
|
;; modules and core), because it's far too complex and magical for our needs.
|
||||||
|
;; However, folks who still want to use it may enable this module. However, it
|
||||||
|
;; will be enabled by default until Doom no longer depends on it.
|
||||||
|
;;
|
||||||
|
;;; Code:
|
||||||
|
|
||||||
|
(defvar doom--deferred-packages-alist '(t))
|
||||||
|
(autoload 'use-package "use-package-core" nil nil t)
|
||||||
|
|
||||||
|
|
||||||
|
;;
|
||||||
|
;;; Use-package modifications
|
||||||
|
|
||||||
|
(setq use-package-compute-statistics init-file-debug
|
||||||
|
use-package-verbose init-file-debug
|
||||||
|
use-package-minimum-reported-time (if init-file-debug 0 0.1)
|
||||||
|
use-package-expand-minimally (not noninteractive))
|
||||||
|
|
||||||
|
;; A common mistake for new users is that they inadvertently install their
|
||||||
|
;; packages with package.el, by copying over old `use-package' declarations with
|
||||||
|
;; an :ensure t property. Doom doesn't use package.el, so this will throw an
|
||||||
|
;; error that will confuse beginners, so we disable `:ensure'.
|
||||||
|
(setq use-package-ensure-function
|
||||||
|
(lambda (name &rest _)
|
||||||
|
(message "Ignoring ':ensure t' in '%s' config" name)))
|
||||||
|
;; ...On the other hand, if the user has loaded `package', then we should assume
|
||||||
|
;; they know what they're doing and restore the old behavior:
|
||||||
|
(add-transient-hook! 'package-initialize
|
||||||
|
(when (eq use-package-ensure-function #'ignore)
|
||||||
|
(setq use-package-ensure-function #'use-package-ensure-elpa)))
|
||||||
|
|
||||||
|
(with-eval-after-load 'use-package-core
|
||||||
|
;; `use-package' adds syntax highlighting for the `use-package' macro, but
|
||||||
|
;; Emacs 26+ already highlights macros, so it's redundant.
|
||||||
|
(font-lock-remove-keywords 'emacs-lisp-mode use-package-font-lock-keywords)
|
||||||
|
|
||||||
|
;; We define :minor and :magic-minor from the `auto-minor-mode' package here
|
||||||
|
;; so we don't have to load `auto-minor-mode' so early.
|
||||||
|
(dolist (keyword '(:minor :magic-minor))
|
||||||
|
(setq use-package-keywords
|
||||||
|
(use-package-list-insert keyword use-package-keywords :commands)))
|
||||||
|
|
||||||
|
(defalias 'use-package-normalize/:minor #'use-package-normalize-mode)
|
||||||
|
(defun use-package-handler/:minor (name _ arg rest state)
|
||||||
|
(use-package-handle-mode name 'auto-minor-mode-alist arg rest state))
|
||||||
|
|
||||||
|
(defalias 'use-package-normalize/:magic-minor #'use-package-normalize-mode)
|
||||||
|
(defun use-package-handler/:magic-minor (name _ arg rest state)
|
||||||
|
(use-package-handle-mode name 'auto-minor-mode-magic-alist arg rest state))
|
||||||
|
|
||||||
|
;; HACK Fix `:load-path' so it resolves relative paths to the containing file,
|
||||||
|
;; rather than `user-emacs-directory'. This is a done as a convenience
|
||||||
|
;; for users, wanting to specify a local directory.
|
||||||
|
(defadvice! doom--resolve-load-path-from-containg-file-a (fn label arg &optional recursed)
|
||||||
|
"Resolve :load-path from the current directory."
|
||||||
|
:around #'use-package-normalize-paths
|
||||||
|
;; `use-package-normalize-paths' resolves paths relative to
|
||||||
|
;; `user-emacs-directory', so we change that.
|
||||||
|
(let ((user-emacs-directory
|
||||||
|
(or (and (stringp arg)
|
||||||
|
(not (file-name-absolute-p arg))
|
||||||
|
(ignore-errors (dir!)))
|
||||||
|
doom-emacs-dir)))
|
||||||
|
(funcall fn label arg recursed)))
|
||||||
|
|
||||||
|
;; Adds two keywords to `use-package' to expand its lazy-loading capabilities:
|
||||||
|
;;
|
||||||
|
;; :after-call SYMBOL|LIST
|
||||||
|
;; :defer-incrementally SYMBOL|LIST|t
|
||||||
|
;;
|
||||||
|
;; Check out `use-package!'s documentation for more about these two.
|
||||||
|
(dolist (keyword '(:defer-incrementally :after-call))
|
||||||
|
(push keyword use-package-deferring-keywords)
|
||||||
|
(setq use-package-keywords
|
||||||
|
(use-package-list-insert keyword use-package-keywords :after)))
|
||||||
|
|
||||||
|
(defalias 'use-package-normalize/:defer-incrementally #'use-package-normalize-symlist)
|
||||||
|
(defun use-package-handler/:defer-incrementally (name _keyword targets rest state)
|
||||||
|
(use-package-concat
|
||||||
|
`((doom-load-packages-incrementally
|
||||||
|
',(if (equal targets '(t))
|
||||||
|
(list name)
|
||||||
|
(append targets (list name)))))
|
||||||
|
(use-package-process-keywords name rest state)))
|
||||||
|
|
||||||
|
(defalias 'use-package-normalize/:after-call #'use-package-normalize-symlist)
|
||||||
|
(defun use-package-handler/:after-call (name _keyword hooks rest state)
|
||||||
|
(if (plist-get state :demand)
|
||||||
|
(use-package-process-keywords name rest state)
|
||||||
|
(let ((fn (make-symbol (format "doom--after-call-%s-h" name))))
|
||||||
|
(use-package-concat
|
||||||
|
`((fset ',fn
|
||||||
|
(lambda (&rest _)
|
||||||
|
(doom-log "use-package: lazy loading %s from %s" ',name ',fn)
|
||||||
|
(condition-case e
|
||||||
|
;; If `default-directory' is a directory that doesn't
|
||||||
|
;; exist or is unreadable, Emacs throws up file-missing
|
||||||
|
;; errors, so we set it to a directory we know exists and
|
||||||
|
;; is readable.
|
||||||
|
(let ((default-directory doom-emacs-dir))
|
||||||
|
(require ',name))
|
||||||
|
((debug error)
|
||||||
|
(message "Failed to load deferred package %s: %s" ',name e)))
|
||||||
|
(when-let (deferral-list (assq ',name doom--deferred-packages-alist))
|
||||||
|
(dolist (hook (cdr deferral-list))
|
||||||
|
(advice-remove hook #',fn)
|
||||||
|
(remove-hook hook #',fn))
|
||||||
|
(delq! deferral-list doom--deferred-packages-alist)
|
||||||
|
(unintern ',fn nil)))))
|
||||||
|
(let (forms)
|
||||||
|
(dolist (hook hooks forms)
|
||||||
|
(push (if (string-match-p "-\\(?:functions\\|hook\\)$" (symbol-name hook))
|
||||||
|
`(add-hook ',hook #',fn)
|
||||||
|
`(advice-add #',hook :before #',fn))
|
||||||
|
forms)))
|
||||||
|
`((unless (assq ',name doom--deferred-packages-alist)
|
||||||
|
(push '(,name) doom--deferred-packages-alist))
|
||||||
|
(nconc (assq ',name doom--deferred-packages-alist)
|
||||||
|
'(,@hooks)))
|
||||||
|
(use-package-process-keywords name rest state))))))
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
;;
|
||||||
|
;;; Macros
|
||||||
|
|
||||||
|
(defvar doom-disabled-packages)
|
||||||
|
(defmacro use-package! (name &rest plist)
|
||||||
|
"Declares and configures a package.
|
||||||
|
|
||||||
|
This is a thin wrapper around `use-package', and is ignored if the NAME package
|
||||||
|
is disabled by the user (with `package!').
|
||||||
|
|
||||||
|
See `use-package' to see what properties can be provided. Doom adds support for
|
||||||
|
two extra properties:
|
||||||
|
|
||||||
|
:after-call SYMBOL|LIST
|
||||||
|
Takes a symbol or list of symbols representing functions or hook variables.
|
||||||
|
The first time any of these functions or hooks are executed, the package is
|
||||||
|
loaded.
|
||||||
|
|
||||||
|
:defer-incrementally SYMBOL|LIST|t
|
||||||
|
Takes a symbol or list of symbols representing packages that will be loaded
|
||||||
|
incrementally at startup before this one. This is helpful for large packages
|
||||||
|
like magit or org, which load a lot of dependencies on first load. This lets
|
||||||
|
you load them piece-meal during idle periods, so that when you finally do need
|
||||||
|
the package, it'll load quicker.
|
||||||
|
|
||||||
|
NAME is implicitly added if this property is present and non-nil. No need to
|
||||||
|
specify it. A value of `t' implies NAME."
|
||||||
|
(declare (indent 1))
|
||||||
|
(unless (or (memq name doom-disabled-packages)
|
||||||
|
;; At compile-time, use-package will forcibly load packages to
|
||||||
|
;; prevent compile-time errors. However, if a Doom user has
|
||||||
|
;; disabled packages you get file-missing package errors, so it's
|
||||||
|
;; necessary to check for packages at compile time:
|
||||||
|
(and (bound-and-true-p byte-compile-current-file)
|
||||||
|
(not (locate-library (symbol-name name)))))
|
||||||
|
`(use-package ,name ,@plist)))
|
||||||
|
|
||||||
|
(defmacro use-package-hook! (package when &rest body)
|
||||||
|
"Reconfigures a package's `use-package!' block.
|
||||||
|
|
||||||
|
This macro must be used *before* PACKAGE's `use-package!' block. Often, this
|
||||||
|
means using it from your DOOMDIR/init.el.
|
||||||
|
|
||||||
|
Under the hood, this uses use-package's `use-package-inject-hooks'.
|
||||||
|
|
||||||
|
PACKAGE is a symbol; the package's name.
|
||||||
|
WHEN should be one of the following:
|
||||||
|
:pre-init :post-init :pre-config :post-config
|
||||||
|
|
||||||
|
WARNINGS:
|
||||||
|
- The use of this macro is more often than not a code smell. Use it as last
|
||||||
|
resort. There is almost always a better alternative.
|
||||||
|
- If you are using this solely for :post-config, stop! `after!' is much better.
|
||||||
|
- If :pre-init or :pre-config hooks return nil, the original `use-package!''s
|
||||||
|
:init/:config block (respectively) is overwritten, so remember to have them
|
||||||
|
return non-nil (or exploit that to overwrite Doom's config)."
|
||||||
|
(declare (indent defun))
|
||||||
|
(unless (memq when '(:pre-init :post-init :pre-config :post-config))
|
||||||
|
(error "'%s' isn't a valid hook for use-package-hook!" when))
|
||||||
|
`(progn
|
||||||
|
(setq use-package-inject-hooks t)
|
||||||
|
(add-hook ',(intern (format "use-package--%s--%s-hook"
|
||||||
|
package
|
||||||
|
(substring (symbol-name when) 1)))
|
||||||
|
(lambda () ,@body)
|
||||||
|
'append)))
|
||||||
|
|
||||||
|
;;; init.el ends here
|
||||||
4
modules/config/use-package/packages.el
Normal file
4
modules/config/use-package/packages.el
Normal file
|
|
@ -0,0 +1,4 @@
|
||||||
|
;; -*- no-byte-compile: t; -*-
|
||||||
|
;;; core/use-package/packages.el
|
||||||
|
|
||||||
|
(package! use-package :pin "e2d173b1200865a9efd5c2066831a230497582c0")
|
||||||
Loading…
Add table
Add a link
Reference in a new issue