mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-24 13:32:41 -08:00
Code Issues Projects Releases Wiki Activity

Add a ":first" keyword for those occasions that it's necessary

Browse source
This commit is contained in:
Phillip Lord 2013-08-13 11:40:54 +01:00
parent e38cfff8b6
commit e7a343828a
1 changed files with 11 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

11
lisp/use-package/use-package.el
View file

@ -147,6 +147,11 @@
;; value of `use-package-verbose'. Other good candidates for `:idle' are
;; `yasnippet', `auto-complete' and `autopair'.
;;
;; Finally, you may wish to use `:first'. This form runs before everything
;; else whenever the `use-package' form evals; the package in question will
;; never have been required. This can be useful, if you wish for instance, to
;; pull files from a git repository, or mount a file system.
;;
;; The `:bind' keyword takes either a cons or a list of conses:
;;
;; (use-package hi-lock
@ -401,6 +406,9 @@ For full documentation. please see commentary.
:bind Perform key bindings, and define autoload for bound
commands.
:commands Define autoloads for given commands.
:first Code to run when `use-package' form evals and before
anything else. Unlike :init this form runs before the
package is required or autoloads added.
:mode Form to be added to `auto-mode-alist'.
:interpreter Form to be added to `interpreter-mode-alist'.
:defer Defer loading of package -- automatic
@ -414,6 +422,7 @@ For full documentation. please see commentary.
:idle adds a form to run on an idle timer"
(let* ((commands (plist-get args :commands))
(pre-init-body (plist-get args :pre-init))
(first-body (plist-get args :first))
(init-body (plist-get args :init))
(config-body (plist-get args :config))
(diminish-var (plist-get args :diminish))
@ -441,6 +450,7 @@ For full documentation. please see commentary.
;; force this immediately -- one off cost
(unless (plist-get args :disabled)
(let* ((ensure (plist-get args :ensure))
(package-name
(or (and (eq ensure t)
@ -517,6 +527,7 @@ For full documentation. please see commentary.
(plist-get args :interpreter)))
`(progn
,first-body
,@(mapcar
#'(lambda (path)
`(add-to-list 'load-path