[ELPA] Update
This commit is contained in:
parent
f5b20152dd
commit
34e1775698
|
@ -1,2 +0,0 @@
|
||||||
;;; -*- no-byte-compile: t -*-
|
|
||||||
(define-package "bind-key" "20171210.2125" "A simple way to manage personal keybindings" 'nil :commit "33e9a4b74042e46161bff70e19b87317b1781fc5" :url "https://github.com/jwiegley/use-package" :keywords '("keys" "keybinding" "config" "dotemacs"))
|
|
|
@ -3,8 +3,8 @@
|
||||||
;;; Code:
|
;;; Code:
|
||||||
(add-to-list 'load-path (directory-file-name (or (file-name-directory #$) (car load-path))))
|
(add-to-list 'load-path (directory-file-name (or (file-name-directory #$) (car load-path))))
|
||||||
|
|
||||||
;;;### (autoloads nil "bind-key" "bind-key.el" (23094 13992 105416
|
;;;### (autoloads nil "bind-key" "bind-key.el" (23362 18484 20841
|
||||||
;;;;;; 163000))
|
;;;;;; 29000))
|
||||||
;;; Generated autoloads from bind-key.el
|
;;; Generated autoloads from bind-key.el
|
||||||
|
|
||||||
(autoload 'bind-key "bind-key" "\
|
(autoload 'bind-key "bind-key" "\
|
|
@ -0,0 +1,2 @@
|
||||||
|
;;; -*- no-byte-compile: t -*-
|
||||||
|
(define-package "bind-key" "20180512.2130" "A simple way to manage personal keybindings" 'nil)
|
|
@ -7,7 +7,7 @@
|
||||||
;; Created: 16 Jun 2012
|
;; Created: 16 Jun 2012
|
||||||
;; Modified: 29 Nov 2017
|
;; Modified: 29 Nov 2017
|
||||||
;; Version: 2.4
|
;; Version: 2.4
|
||||||
;; Package-Version: 20171210.2125
|
;; Package-Version: 20180512.2130
|
||||||
;; Keywords: keys keybinding config dotemacs
|
;; Keywords: keys keybinding config dotemacs
|
||||||
;; URL: https://github.com/jwiegley/use-package
|
;; URL: https://github.com/jwiegley/use-package
|
||||||
|
|
||||||
|
@ -39,6 +39,12 @@
|
||||||
;;
|
;;
|
||||||
;; (bind-key "C-c x" 'my-ctrl-c-x-command)
|
;; (bind-key "C-c x" 'my-ctrl-c-x-command)
|
||||||
;;
|
;;
|
||||||
|
;; If the keybinding argument is a vector, it is passed straight to
|
||||||
|
;; `define-key', so remapping a key with `[remap COMMAND]' works as
|
||||||
|
;; expected:
|
||||||
|
;;
|
||||||
|
;; (bind-key [remap original-ctrl-c-x-command] 'my-ctrl-c-x-command)
|
||||||
|
;;
|
||||||
;; If you want the keybinding to override all minor modes that may also bind
|
;; If you want the keybinding to override all minor modes that may also bind
|
||||||
;; the same key, use the `bind-key*' form:
|
;; the same key, use the `bind-key*' form:
|
||||||
;;
|
;;
|
|
@ -1,7 +0,0 @@
|
||||||
(define-package "hydra" "20180226.1116" "Make bindings that stick around."
|
|
||||||
'((cl-lib "0.5"))
|
|
||||||
:url "https://github.com/abo-abo/hydra" :keywords
|
|
||||||
'("bindings"))
|
|
||||||
;; Local Variables:
|
|
||||||
;; no-byte-compile: t
|
|
||||||
;; End:
|
|
|
@ -3,7 +3,7 @@
|
||||||
;;; Code:
|
;;; Code:
|
||||||
(add-to-list 'load-path (directory-file-name (or (file-name-directory #$) (car load-path))))
|
(add-to-list 'load-path (directory-file-name (or (file-name-directory #$) (car load-path))))
|
||||||
|
|
||||||
;;;### (autoloads nil "hydra" "hydra.el" (23194 22908 273187 855000))
|
;;;### (autoloads nil "hydra" "hydra.el" (23362 18420 988487 438000))
|
||||||
;;; Generated autoloads from hydra.el
|
;;; Generated autoloads from hydra.el
|
||||||
|
|
||||||
(autoload 'defhydra "hydra" "\
|
(autoload 'defhydra "hydra" "\
|
||||||
|
@ -65,7 +65,7 @@ result of `defhydra'.
|
||||||
;;;***
|
;;;***
|
||||||
|
|
||||||
;;;### (autoloads nil nil ("hydra-examples.el" "hydra-ox.el" "hydra-pkg.el"
|
;;;### (autoloads nil nil ("hydra-examples.el" "hydra-ox.el" "hydra-pkg.el"
|
||||||
;;;;;; "lv.el") (23194 22908 285187 927000))
|
;;;;;; "lv.el") (23362 18421 487 506000))
|
||||||
|
|
||||||
;;;***
|
;;;***
|
||||||
|
|
|
@ -0,0 +1,8 @@
|
||||||
|
(define-package "hydra" "20180703.802" "Make bindings that stick around."
|
||||||
|
'((cl-lib "0.5"))
|
||||||
|
:keywords
|
||||||
|
'("bindings")
|
||||||
|
:url "https://github.com/abo-abo/hydra")
|
||||||
|
;; Local Variables:
|
||||||
|
;; no-byte-compile: t
|
||||||
|
;; End:
|
|
@ -646,17 +646,18 @@ The expressions can be auto-expanded according to NAME."
|
||||||
""
|
""
|
||||||
(hydra--hint body heads)))
|
(hydra--hint body heads)))
|
||||||
(start 0)
|
(start 0)
|
||||||
|
(inner-regex (format "\\(%s\\)\\(%s\\)" hydra-width-spec-regex hydra-key-regex))
|
||||||
varlist
|
varlist
|
||||||
offset)
|
offset)
|
||||||
(while (setq start
|
(while (setq start
|
||||||
(string-match
|
(string-match
|
||||||
(format
|
(format
|
||||||
"\\(?:%%\\( ?-?[0-9]*s?\\)\\(`[a-z-A-Z/0-9]+\\|(\\)\\)\\|\\(?:[_?]\\(%s\\)\\(%s\\)[_?]\\)"
|
"\\(?:%%\\( ?-?[0-9]*s?\\)\\(`[a-z-A-Z/0-9]+\\|(\\)\\)\\|\\(?:_%s_\\)\\|\\(?:[?]%s[?]\\)"
|
||||||
hydra-width-spec-regex
|
inner-regex
|
||||||
hydra-key-regex)
|
inner-regex)
|
||||||
docstring start))
|
docstring start))
|
||||||
(cond ((eq ?? (aref (match-string 0 docstring) 0))
|
(cond ((eq ?? (aref (match-string 0 docstring) 0))
|
||||||
(let* ((key (match-string 4 docstring))
|
(let* ((key (match-string 6 docstring))
|
||||||
(head (assoc key heads)))
|
(head (assoc key heads)))
|
||||||
(if head
|
(if head
|
||||||
(progn
|
(progn
|
||||||
|
@ -714,9 +715,13 @@ The expressions can be auto-expanded according to NAME."
|
||||||
(substring docstring 0 start)
|
(substring docstring 0 start)
|
||||||
"%" spec
|
"%" spec
|
||||||
(substring docstring (+ start offset 1 lspec varp))))))))
|
(substring docstring (+ start offset 1 lspec varp))))))))
|
||||||
(if (eq ?\n (aref docstring 0))
|
(cond
|
||||||
|
((string= docstring "")
|
||||||
|
(substring rest 1))
|
||||||
|
((eq ?\n (aref docstring 0))
|
||||||
`(concat (format ,(substring docstring 1) ,@(nreverse varlist))
|
`(concat (format ,(substring docstring 1) ,@(nreverse varlist))
|
||||||
,rest)
|
,rest))
|
||||||
|
(t
|
||||||
(let ((r `(replace-regexp-in-string
|
(let ((r `(replace-regexp-in-string
|
||||||
" +$" ""
|
" +$" ""
|
||||||
(concat ,docstring ": "
|
(concat ,docstring ": "
|
||||||
|
@ -724,7 +729,7 @@ The expressions can be auto-expanded according to NAME."
|
||||||
"\\(%\\)" "\\1\\1" ,rest)))))
|
"\\(%\\)" "\\1\\1" ,rest)))))
|
||||||
(if (stringp rest)
|
(if (stringp rest)
|
||||||
`(format ,(eval r))
|
`(format ,(eval r))
|
||||||
`(format ,r)))))))
|
`(format ,r))))))))
|
||||||
|
|
||||||
(defun hydra--complain (format-string &rest args)
|
(defun hydra--complain (format-string &rest args)
|
||||||
"Forward to (`message' FORMAT-STRING ARGS) unless `hydra-verbose' is nil."
|
"Forward to (`message' FORMAT-STRING ARGS) unless `hydra-verbose' is nil."
|
||||||
|
@ -1178,15 +1183,17 @@ result of `defhydra'."
|
||||||
(setq docstring (concat "\n" (eval docstring))))
|
(setq docstring (concat "\n" (eval docstring))))
|
||||||
(t
|
(t
|
||||||
(setq heads (cons docstring heads))
|
(setq heads (cons docstring heads))
|
||||||
(setq docstring "hydra")))
|
(setq docstring "")))
|
||||||
(when (keywordp (car body))
|
(when (keywordp (car body))
|
||||||
(setq body (cons nil (cons nil body))))
|
(setq body (cons nil (cons nil body))))
|
||||||
(condition-case-unless-debug err
|
(condition-case-unless-debug err
|
||||||
(let* ((keymap (copy-keymap hydra-base-map))
|
(let* ((keymap-name (intern (format "%S/keymap" name)))
|
||||||
(keymap-name (intern (format "%S/keymap" name)))
|
|
||||||
(body-name (intern (format "%S/body" name)))
|
(body-name (intern (format "%S/body" name)))
|
||||||
(body-key (cadr body))
|
(body-key (cadr body))
|
||||||
(body-plist (cddr body))
|
(body-plist (cddr body))
|
||||||
|
(base-map (or (eval (plist-get body-plist :base-map))
|
||||||
|
hydra-base-map))
|
||||||
|
(keymap (copy-keymap base-map))
|
||||||
(body-map (or (car body)
|
(body-map (or (car body)
|
||||||
(plist-get body-plist :bind)))
|
(plist-get body-plist :bind)))
|
||||||
(body-pre (plist-get body-plist :pre))
|
(body-pre (plist-get body-plist :pre))
|
|
@ -1,5 +0,0 @@
|
||||||
(define-package "multiple-cursors" "20180406.1350" "Multiple cursors for Emacs."
|
|
||||||
'((cl-lib "0.5")))
|
|
||||||
;; Local Variables:
|
|
||||||
;; no-byte-compile: t
|
|
||||||
;; End:
|
|
|
@ -131,7 +131,7 @@ Use like case-fold-search, don't recommend setting it globally.")
|
||||||
(when point-out-of-order
|
(when point-out-of-order
|
||||||
(exchange-point-and-mark))
|
(exchange-point-and-mark))
|
||||||
(mc/create-fake-cursor-at-point))
|
(mc/create-fake-cursor-at-point))
|
||||||
(error "no more matches found."))))))
|
(user-error "no more matches found."))))))
|
||||||
|
|
||||||
;;;###autoload
|
;;;###autoload
|
||||||
(defun mc/mark-next-like-this (arg)
|
(defun mc/mark-next-like-this (arg)
|
|
@ -3,8 +3,8 @@
|
||||||
;;; Code:
|
;;; Code:
|
||||||
(add-to-list 'load-path (directory-file-name (or (file-name-directory #$) (car load-path))))
|
(add-to-list 'load-path (directory-file-name (or (file-name-directory #$) (car load-path))))
|
||||||
|
|
||||||
;;;### (autoloads nil "mc-edit-lines" "mc-edit-lines.el" (23272 10009
|
;;;### (autoloads nil "mc-edit-lines" "mc-edit-lines.el" (23362 18400
|
||||||
;;;;;; 169638 219000))
|
;;;;;; 264371 251000))
|
||||||
;;; Generated autoloads from mc-edit-lines.el
|
;;; Generated autoloads from mc-edit-lines.el
|
||||||
|
|
||||||
(autoload 'mc/edit-lines "mc-edit-lines" "\
|
(autoload 'mc/edit-lines "mc-edit-lines" "\
|
||||||
|
@ -34,7 +34,7 @@ Add one cursor to the beginning of each line in the active region.
|
||||||
;;;***
|
;;;***
|
||||||
|
|
||||||
;;;### (autoloads nil "mc-hide-unmatched-lines-mode" "mc-hide-unmatched-lines-mode.el"
|
;;;### (autoloads nil "mc-hide-unmatched-lines-mode" "mc-hide-unmatched-lines-mode.el"
|
||||||
;;;;;; (23272 10009 193638 364000))
|
;;;;;; (23362 18400 292371 408000))
|
||||||
;;; Generated autoloads from mc-hide-unmatched-lines-mode.el
|
;;; Generated autoloads from mc-hide-unmatched-lines-mode.el
|
||||||
|
|
||||||
(autoload 'mc-hide-unmatched-lines-mode "mc-hide-unmatched-lines-mode" "\
|
(autoload 'mc-hide-unmatched-lines-mode "mc-hide-unmatched-lines-mode" "\
|
||||||
|
@ -48,8 +48,8 @@ mode. To leave this mode press <return> or \"C-g\"
|
||||||
|
|
||||||
;;;***
|
;;;***
|
||||||
|
|
||||||
;;;### (autoloads nil "mc-mark-more" "mc-mark-more.el" (23272 10009
|
;;;### (autoloads nil "mc-mark-more" "mc-mark-more.el" (23362 18400
|
||||||
;;;;;; 213638 485000))
|
;;;;;; 308371 498000))
|
||||||
;;; Generated autoloads from mc-mark-more.el
|
;;; Generated autoloads from mc-mark-more.el
|
||||||
|
|
||||||
(autoload 'mc/mark-next-like-this "mc-mark-more" "\
|
(autoload 'mc/mark-next-like-this "mc-mark-more" "\
|
||||||
|
@ -246,8 +246,8 @@ Mark the tag we're in and its pair for renaming.
|
||||||
|
|
||||||
;;;***
|
;;;***
|
||||||
|
|
||||||
;;;### (autoloads nil "mc-mark-pop" "mc-mark-pop.el" (23272 10009
|
;;;### (autoloads nil "mc-mark-pop" "mc-mark-pop.el" (23362 18400
|
||||||
;;;;;; 189638 340000))
|
;;;;;; 288371 385000))
|
||||||
;;; Generated autoloads from mc-mark-pop.el
|
;;; Generated autoloads from mc-mark-pop.el
|
||||||
|
|
||||||
(autoload 'mc/mark-pop "mc-mark-pop" "\
|
(autoload 'mc/mark-pop "mc-mark-pop" "\
|
||||||
|
@ -259,7 +259,7 @@ to the popped mark.
|
||||||
;;;***
|
;;;***
|
||||||
|
|
||||||
;;;### (autoloads nil "mc-separate-operations" "mc-separate-operations.el"
|
;;;### (autoloads nil "mc-separate-operations" "mc-separate-operations.el"
|
||||||
;;;;;; (23272 10009 205638 437000))
|
;;;;;; (23362 18400 300371 453000))
|
||||||
;;; Generated autoloads from mc-separate-operations.el
|
;;; Generated autoloads from mc-separate-operations.el
|
||||||
|
|
||||||
(autoload 'mc/insert-numbers "mc-separate-operations" "\
|
(autoload 'mc/insert-numbers "mc-separate-operations" "\
|
||||||
|
@ -299,7 +299,7 @@ Aligns all cursors with whitespace like `mc/vertical-align' does
|
||||||
;;;***
|
;;;***
|
||||||
|
|
||||||
;;;### (autoloads nil "multiple-cursors-core" "multiple-cursors-core.el"
|
;;;### (autoloads nil "multiple-cursors-core" "multiple-cursors-core.el"
|
||||||
;;;;;; (23272 10009 165638 194000))
|
;;;;;; (23362 18400 248371 161000))
|
||||||
;;; Generated autoloads from multiple-cursors-core.el
|
;;; Generated autoloads from multiple-cursors-core.el
|
||||||
|
|
||||||
(autoload 'multiple-cursors-mode "multiple-cursors-core" "\
|
(autoload 'multiple-cursors-mode "multiple-cursors-core" "\
|
||||||
|
@ -310,7 +310,7 @@ Mode while multiple cursors are active.
|
||||||
;;;***
|
;;;***
|
||||||
|
|
||||||
;;;### (autoloads nil "rectangular-region-mode" "rectangular-region-mode.el"
|
;;;### (autoloads nil "rectangular-region-mode" "rectangular-region-mode.el"
|
||||||
;;;;;; (23272 10009 185638 316000))
|
;;;;;; (23362 18400 280371 341000))
|
||||||
;;; Generated autoloads from rectangular-region-mode.el
|
;;; Generated autoloads from rectangular-region-mode.el
|
||||||
|
|
||||||
(autoload 'set-rectangular-region-anchor "rectangular-region-mode" "\
|
(autoload 'set-rectangular-region-anchor "rectangular-region-mode" "\
|
||||||
|
@ -329,7 +329,7 @@ A mode for creating a rectangular region to edit
|
||||||
;;;***
|
;;;***
|
||||||
|
|
||||||
;;;### (autoloads nil nil ("mc-cycle-cursors.el" "multiple-cursors-pkg.el"
|
;;;### (autoloads nil nil ("mc-cycle-cursors.el" "multiple-cursors-pkg.el"
|
||||||
;;;;;; "multiple-cursors.el") (23272 10009 229638 582000))
|
;;;;;; "multiple-cursors.el") (23362 18400 316371 542000))
|
||||||
|
|
||||||
;;;***
|
;;;***
|
||||||
|
|
|
@ -0,0 +1,5 @@
|
||||||
|
(define-package "multiple-cursors" "20180615.518" "Multiple cursors for Emacs."
|
||||||
|
'((cl-lib "0.5")))
|
||||||
|
;; Local Variables:
|
||||||
|
;; no-byte-compile: t
|
||||||
|
;; End:
|
|
@ -4,7 +4,7 @@
|
||||||
(add-to-list 'load-path (directory-file-name (or (file-name-directory #$) (car load-path))))
|
(add-to-list 'load-path (directory-file-name (or (file-name-directory #$) (car load-path))))
|
||||||
|
|
||||||
;;;### (autoloads nil "use-package-bind-key" "use-package-bind-key.el"
|
;;;### (autoloads nil "use-package-bind-key" "use-package-bind-key.el"
|
||||||
;;;;;; (23232 59783 369947 51000))
|
;;;;;; (23362 18341 680043 7000))
|
||||||
;;; Generated autoloads from use-package-bind-key.el
|
;;; Generated autoloads from use-package-bind-key.el
|
||||||
|
|
||||||
(autoload 'use-package-autoload-keymap "use-package-bind-key" "\
|
(autoload 'use-package-autoload-keymap "use-package-bind-key" "\
|
||||||
|
@ -55,8 +55,8 @@ deferred until the prefix key sequence is pressed.
|
||||||
|
|
||||||
;;;***
|
;;;***
|
||||||
|
|
||||||
;;;### (autoloads nil "use-package-core" "use-package-core.el" (23232
|
;;;### (autoloads nil "use-package-core" "use-package-core.el" (23362
|
||||||
;;;;;; 59783 273946 507000))
|
;;;;;; 18341 624042 694000))
|
||||||
;;; Generated autoloads from use-package-core.el
|
;;; Generated autoloads from use-package-core.el
|
||||||
|
|
||||||
(autoload 'use-package "use-package-core" "\
|
(autoload 'use-package "use-package-core" "\
|
||||||
|
@ -121,7 +121,7 @@ this file. Usage:
|
||||||
;;;***
|
;;;***
|
||||||
|
|
||||||
;;;### (autoloads nil "use-package-delight" "use-package-delight.el"
|
;;;### (autoloads nil "use-package-delight" "use-package-delight.el"
|
||||||
;;;;;; (23232 59783 301946 666000))
|
;;;;;; (23362 18341 640042 783000))
|
||||||
;;; Generated autoloads from use-package-delight.el
|
;;; Generated autoloads from use-package-delight.el
|
||||||
|
|
||||||
(autoload 'use-package-normalize/:delight "use-package-delight" "\
|
(autoload 'use-package-normalize/:delight "use-package-delight" "\
|
||||||
|
@ -137,7 +137,7 @@ Normalize arguments to delight.
|
||||||
;;;***
|
;;;***
|
||||||
|
|
||||||
;;;### (autoloads nil "use-package-diminish" "use-package-diminish.el"
|
;;;### (autoloads nil "use-package-diminish" "use-package-diminish.el"
|
||||||
;;;;;; (23232 59783 341946 893000))
|
;;;;;; (23362 18341 660042 895000))
|
||||||
;;; Generated autoloads from use-package-diminish.el
|
;;; Generated autoloads from use-package-diminish.el
|
||||||
|
|
||||||
(autoload 'use-package-normalize/:diminish "use-package-diminish" "\
|
(autoload 'use-package-normalize/:diminish "use-package-diminish" "\
|
||||||
|
@ -153,7 +153,7 @@ Normalize arguments to delight.
|
||||||
;;;***
|
;;;***
|
||||||
|
|
||||||
;;;### (autoloads nil "use-package-ensure" "use-package-ensure.el"
|
;;;### (autoloads nil "use-package-ensure" "use-package-ensure.el"
|
||||||
;;;;;; (23232 59783 293946 621000))
|
;;;;;; (23362 18341 636042 760000))
|
||||||
;;; Generated autoloads from use-package-ensure.el
|
;;; Generated autoloads from use-package-ensure.el
|
||||||
|
|
||||||
(autoload 'use-package-normalize/:ensure "use-package-ensure" "\
|
(autoload 'use-package-normalize/:ensure "use-package-ensure" "\
|
||||||
|
@ -168,8 +168,8 @@ Normalize arguments to delight.
|
||||||
|
|
||||||
;;;***
|
;;;***
|
||||||
|
|
||||||
;;;### (autoloads nil "use-package-jump" "use-package-jump.el" (23232
|
;;;### (autoloads nil "use-package-jump" "use-package-jump.el" (23362
|
||||||
;;;;;; 59783 361947 6000))
|
;;;;;; 18341 676042 985000))
|
||||||
;;; Generated autoloads from use-package-jump.el
|
;;; Generated autoloads from use-package-jump.el
|
||||||
|
|
||||||
(autoload 'use-package-jump-to-package-form "use-package-jump" "\
|
(autoload 'use-package-jump-to-package-form "use-package-jump" "\
|
||||||
|
@ -183,8 +183,8 @@ instead.
|
||||||
|
|
||||||
;;;***
|
;;;***
|
||||||
|
|
||||||
;;;### (autoloads nil "use-package-lint" "use-package-lint.el" (23232
|
;;;### (autoloads nil "use-package-lint" "use-package-lint.el" (23362
|
||||||
;;;;;; 59783 305946 689000))
|
;;;;;; 18341 644042 805000))
|
||||||
;;; Generated autoloads from use-package-lint.el
|
;;; Generated autoloads from use-package-lint.el
|
||||||
|
|
||||||
(autoload 'use-package-lint "use-package-lint" "\
|
(autoload 'use-package-lint "use-package-lint" "\
|
||||||
|
@ -197,7 +197,7 @@ with the specified `:load-path' the module cannot be found.
|
||||||
;;;***
|
;;;***
|
||||||
|
|
||||||
;;;### (autoloads nil nil ("use-package-pkg.el" "use-package.el")
|
;;;### (autoloads nil nil ("use-package-pkg.el" "use-package.el")
|
||||||
;;;;;; (23232 59783 349946 938000))
|
;;;;;; (23362 18341 672042 962000))
|
||||||
|
|
||||||
;;;***
|
;;;***
|
||||||
|
|
|
@ -1,4 +1,4 @@
|
||||||
;;; use-package-bind-key.el --- Support for the :bind/:bind-keymap keywords
|
;;; use-package-bind-key.el --- Support for the :bind/:bind-keymap keywords -*- lexical-binding: t; -*-
|
||||||
|
|
||||||
;; Copyright (C) 2012-2017 John Wiegley
|
;; Copyright (C) 2012-2017 John Wiegley
|
||||||
|
|
||||||
|
@ -127,7 +127,7 @@ deferred until the prefix key sequence is pressed."
|
||||||
|
|
||||||
;;;###autoload
|
;;;###autoload
|
||||||
(defun use-package-handler/:bind
|
(defun use-package-handler/:bind
|
||||||
(name keyword args rest state &optional bind-macro)
|
(name _keyword args rest state &optional bind-macro)
|
||||||
(use-package-concat
|
(use-package-concat
|
||||||
(use-package-process-keywords name rest state)
|
(use-package-process-keywords name rest state)
|
||||||
`(,@(mapcar
|
`(,@(mapcar
|
||||||
|
@ -148,7 +148,7 @@ deferred until the prefix key sequence is pressed."
|
||||||
|
|
||||||
;;;###autoload
|
;;;###autoload
|
||||||
(defun use-package-handler/:bind-keymap
|
(defun use-package-handler/:bind-keymap
|
||||||
(name keyword args rest state &optional override)
|
(name _keyword args rest state &optional override)
|
||||||
(use-package-concat
|
(use-package-concat
|
||||||
(use-package-process-keywords name rest state)
|
(use-package-process-keywords name rest state)
|
||||||
(mapcar
|
(mapcar
|
|
@ -1,4 +1,4 @@
|
||||||
;;; use-package-core.el --- A configuration macro for simplifying your .emacs
|
;;; use-package-core.el --- A configuration macro for simplifying your .emacs -*- lexical-binding: t; -*-
|
||||||
|
|
||||||
;; Copyright (C) 2012-2017 John Wiegley
|
;; Copyright (C) 2012-2017 John Wiegley
|
||||||
|
|
||||||
|
@ -47,10 +47,9 @@
|
||||||
(defsubst hash-table-keys (hash-table)
|
(defsubst hash-table-keys (hash-table)
|
||||||
"Return a list of keys in HASH-TABLE."
|
"Return a list of keys in HASH-TABLE."
|
||||||
(cl-loop for k being the hash-keys of hash-table collect k))
|
(cl-loop for k being the hash-keys of hash-table collect k))
|
||||||
(require 'subr-x))
|
(eval-when-compile (require 'subr-x)))
|
||||||
|
|
||||||
(eval-when-compile
|
(eval-when-compile
|
||||||
(require 'cl)
|
|
||||||
(require 'regexp-opt))
|
(require 'regexp-opt))
|
||||||
|
|
||||||
(defgroup use-package nil
|
(defgroup use-package nil
|
||||||
|
@ -300,7 +299,7 @@ include support for finding `use-package' and `require' forms.
|
||||||
Must be set before loading use-package."
|
Must be set before loading use-package."
|
||||||
:type 'boolean
|
:type 'boolean
|
||||||
:set
|
:set
|
||||||
#'(lambda (sym value)
|
#'(lambda (_sym value)
|
||||||
(eval-after-load 'lisp-mode
|
(eval-after-load 'lisp-mode
|
||||||
(if value
|
(if value
|
||||||
`(add-to-list 'lisp-imenu-generic-expression
|
`(add-to-list 'lisp-imenu-generic-expression
|
||||||
|
@ -546,7 +545,7 @@ extending any keys already present."
|
||||||
name tail plist merge-function))
|
name tail plist merge-function))
|
||||||
(use-package-error error-string))))))
|
(use-package-error error-string))))))
|
||||||
|
|
||||||
(defun use-package-unalias-keywords (name args)
|
(defun use-package-unalias-keywords (_name args)
|
||||||
(setq args (cl-nsubstitute :if :when args))
|
(setq args (cl-nsubstitute :if :when args))
|
||||||
(let (temp)
|
(let (temp)
|
||||||
(while (setq temp (plist-get args :unless))
|
(while (setq temp (plist-get args :unless))
|
||||||
|
@ -779,7 +778,7 @@ no more than once."
|
||||||
(setq ,loaded t ,result ,arg))))
|
(setq ,loaded t ,result ,arg))))
|
||||||
,@(funcall f `((funcall ,next))))))
|
,@(funcall f `((funcall ,next))))))
|
||||||
|
|
||||||
(defsubst use-package-normalize-value (label arg)
|
(defsubst use-package-normalize-value (_label arg)
|
||||||
"Normalize the Lisp value given by ARG.
|
"Normalize the Lisp value given by ARG.
|
||||||
The argument LABEL is ignored."
|
The argument LABEL is ignored."
|
||||||
(cond ((null arg) nil)
|
(cond ((null arg) nil)
|
||||||
|
@ -801,7 +800,7 @@ The argument LABEL is ignored."
|
||||||
(use-package-error
|
(use-package-error
|
||||||
(concat label " wants a symbol, or list of symbols")))))
|
(concat label " wants a symbol, or list of symbols")))))
|
||||||
|
|
||||||
(defun use-package-normalize-symlist (name keyword args)
|
(defun use-package-normalize-symlist (_name keyword args)
|
||||||
(use-package-as-one (symbol-name keyword) args
|
(use-package-as-one (symbol-name keyword) args
|
||||||
#'use-package-normalize-symbols))
|
#'use-package-normalize-symbols))
|
||||||
|
|
||||||
|
@ -817,7 +816,7 @@ The argument LABEL is ignored."
|
||||||
(use-package-error
|
(use-package-error
|
||||||
(concat label " wants a symbol, or nested list of symbols")))))
|
(concat label " wants a symbol, or nested list of symbols")))))
|
||||||
|
|
||||||
(defun use-package-normalize-recursive-symlist (name keyword args)
|
(defun use-package-normalize-recursive-symlist (_name keyword args)
|
||||||
(use-package-as-one (symbol-name keyword) args
|
(use-package-as-one (symbol-name keyword) args
|
||||||
#'use-package-normalize-recursive-symbols))
|
#'use-package-normalize-recursive-symbols))
|
||||||
|
|
||||||
|
@ -839,7 +838,7 @@ The argument LABEL is ignored."
|
||||||
(use-package-error
|
(use-package-error
|
||||||
(concat label " wants a directory path, or list of paths")))))
|
(concat label " wants a directory path, or list of paths")))))
|
||||||
|
|
||||||
(defun use-package-normalize-predicate (name keyword args)
|
(defun use-package-normalize-predicate (_name keyword args)
|
||||||
(if (null args)
|
(if (null args)
|
||||||
t
|
t
|
||||||
(use-package-only-one (symbol-name keyword) args
|
(use-package-only-one (symbol-name keyword) args
|
||||||
|
@ -857,7 +856,7 @@ The argument LABEL is ignored."
|
||||||
(macroexpand form)
|
(macroexpand form)
|
||||||
form)) args))
|
form)) args))
|
||||||
|
|
||||||
(defun use-package-normalize-forms (name keyword args)
|
(defun use-package-normalize-forms (_name keyword args)
|
||||||
(use-package-normalize-form (symbol-name keyword) args))
|
(use-package-normalize-form (symbol-name keyword) args))
|
||||||
|
|
||||||
(defun use-package-normalize-pairs
|
(defun use-package-normalize-pairs
|
||||||
|
@ -921,7 +920,7 @@ If RECURSED is non-nil, recurse into sublists."
|
||||||
(eq 'lambda (car v)))
|
(eq 'lambda (car v)))
|
||||||
v)
|
v)
|
||||||
((and (listp v)
|
((and (listp v)
|
||||||
(memq '(quote function) (car v))
|
(memq (car v) '(quote function))
|
||||||
(eq 'lambda (car (cadr v))))
|
(eq 'lambda (car (cadr v))))
|
||||||
(cadr v))
|
(cadr v))
|
||||||
(t v)))
|
(t v)))
|
||||||
|
@ -942,7 +941,7 @@ If RECURSED is non-nil, recurse into sublists."
|
||||||
#'use-package-recognize-function
|
#'use-package-recognize-function
|
||||||
name)))
|
name)))
|
||||||
|
|
||||||
(defun use-package-autoloads-mode (name keyword args)
|
(defun use-package-autoloads-mode (_name _keyword args)
|
||||||
(mapcar
|
(mapcar
|
||||||
#'(lambda (x) (cons (cdr x) 'command))
|
#'(lambda (x) (cons (cdr x) 'command))
|
||||||
(cl-remove-if-not #'(lambda (x)
|
(cl-remove-if-not #'(lambda (x)
|
||||||
|
@ -1055,20 +1054,21 @@ meaning:
|
||||||
|
|
||||||
;; Don't alias this to `ignore', as that will cause the resulting
|
;; Don't alias this to `ignore', as that will cause the resulting
|
||||||
;; function to be interactive.
|
;; function to be interactive.
|
||||||
(defun use-package-normalize/:disabled (name keyword arg))
|
(defun use-package-normalize/:disabled (_name _keyword _arg)
|
||||||
|
"Do nothing, return nil.")
|
||||||
|
|
||||||
(defun use-package-handler/:disabled (name keyword arg rest state)
|
(defun use-package-handler/:disabled (name _keyword _arg rest state)
|
||||||
(use-package-process-keywords name rest state))
|
(use-package-process-keywords name rest state))
|
||||||
|
|
||||||
;;;; :if, :when and :unless
|
;;;; :if, :when and :unless
|
||||||
|
|
||||||
(defun use-package-normalize-test (name keyword args)
|
(defun use-package-normalize-test (_name keyword args)
|
||||||
(use-package-only-one (symbol-name keyword) args
|
(use-package-only-one (symbol-name keyword) args
|
||||||
#'use-package-normalize-value))
|
#'use-package-normalize-value))
|
||||||
|
|
||||||
(defalias 'use-package-normalize/:if 'use-package-normalize-test)
|
(defalias 'use-package-normalize/:if 'use-package-normalize-test)
|
||||||
|
|
||||||
(defun use-package-handler/:if (name keyword pred rest state)
|
(defun use-package-handler/:if (name _keyword pred rest state)
|
||||||
(let ((body (use-package-process-keywords name rest state)))
|
(let ((body (use-package-process-keywords name rest state)))
|
||||||
`((when ,pred ,@body))))
|
`((when ,pred ,@body))))
|
||||||
|
|
||||||
|
@ -1078,7 +1078,7 @@ meaning:
|
||||||
|
|
||||||
(defalias 'use-package-normalize/:unless 'use-package-normalize-test)
|
(defalias 'use-package-normalize/:unless 'use-package-normalize-test)
|
||||||
|
|
||||||
(defun use-package-handler/:unless (name keyword pred rest state)
|
(defun use-package-handler/:unless (name _keyword pred rest state)
|
||||||
(let ((body (use-package-process-keywords name rest state)))
|
(let ((body (use-package-process-keywords name rest state)))
|
||||||
`((unless ,pred ,@body))))
|
`((unless ,pred ,@body))))
|
||||||
|
|
||||||
|
@ -1086,7 +1086,7 @@ meaning:
|
||||||
|
|
||||||
(defalias 'use-package-normalize/:requires 'use-package-normalize-symlist)
|
(defalias 'use-package-normalize/:requires 'use-package-normalize-symlist)
|
||||||
|
|
||||||
(defun use-package-handler/:requires (name keyword requires rest state)
|
(defun use-package-handler/:requires (name _keyword requires rest state)
|
||||||
(let ((body (use-package-process-keywords name rest state)))
|
(let ((body (use-package-process-keywords name rest state)))
|
||||||
(if (null requires)
|
(if (null requires)
|
||||||
body
|
body
|
||||||
|
@ -1097,11 +1097,11 @@ meaning:
|
||||||
|
|
||||||
;;;; :load-path
|
;;;; :load-path
|
||||||
|
|
||||||
(defun use-package-normalize/:load-path (name keyword args)
|
(defun use-package-normalize/:load-path (_name keyword args)
|
||||||
(use-package-as-one (symbol-name keyword) args
|
(use-package-as-one (symbol-name keyword) args
|
||||||
#'use-package-normalize-paths))
|
#'use-package-normalize-paths))
|
||||||
|
|
||||||
(defun use-package-handler/:load-path (name keyword arg rest state)
|
(defun use-package-handler/:load-path (name _keyword arg rest state)
|
||||||
(let ((body (use-package-process-keywords name rest state)))
|
(let ((body (use-package-process-keywords name rest state)))
|
||||||
(use-package-concat
|
(use-package-concat
|
||||||
(mapcar #'(lambda (path)
|
(mapcar #'(lambda (path)
|
||||||
|
@ -1113,28 +1113,28 @@ meaning:
|
||||||
|
|
||||||
(defalias 'use-package-normalize/:no-require 'use-package-normalize-predicate)
|
(defalias 'use-package-normalize/:no-require 'use-package-normalize-predicate)
|
||||||
|
|
||||||
(defun use-package-handler/:no-require (name keyword arg rest state)
|
(defun use-package-handler/:no-require (name _keyword _arg rest state)
|
||||||
(use-package-process-keywords name rest state))
|
(use-package-process-keywords name rest state))
|
||||||
|
|
||||||
;;;; :defines
|
;;;; :defines
|
||||||
|
|
||||||
(defalias 'use-package-normalize/:defines 'use-package-normalize-symlist)
|
(defalias 'use-package-normalize/:defines 'use-package-normalize-symlist)
|
||||||
|
|
||||||
(defun use-package-handler/:defines (name keyword arg rest state)
|
(defun use-package-handler/:defines (name _keyword _arg rest state)
|
||||||
(use-package-process-keywords name rest state))
|
(use-package-process-keywords name rest state))
|
||||||
|
|
||||||
;;;; :functions
|
;;;; :functions
|
||||||
|
|
||||||
(defalias 'use-package-normalize/:functions 'use-package-normalize-symlist)
|
(defalias 'use-package-normalize/:functions 'use-package-normalize-symlist)
|
||||||
|
|
||||||
(defun use-package-handler/:functions (name keyword arg rest state)
|
(defun use-package-handler/:functions (name _keyword _arg rest state)
|
||||||
(use-package-process-keywords name rest state))
|
(use-package-process-keywords name rest state))
|
||||||
|
|
||||||
;;;; :preface
|
;;;; :preface
|
||||||
|
|
||||||
(defalias 'use-package-normalize/:preface 'use-package-normalize-forms)
|
(defalias 'use-package-normalize/:preface 'use-package-normalize-forms)
|
||||||
|
|
||||||
(defun use-package-handler/:preface (name keyword arg rest state)
|
(defun use-package-handler/:preface (name _keyword arg rest state)
|
||||||
(let ((body (use-package-process-keywords name rest state)))
|
(let ((body (use-package-process-keywords name rest state)))
|
||||||
(use-package-concat
|
(use-package-concat
|
||||||
(when use-package-compute-statistics
|
(when use-package-compute-statistics
|
||||||
|
@ -1148,14 +1148,14 @@ meaning:
|
||||||
;;;; :catch
|
;;;; :catch
|
||||||
|
|
||||||
(defvar use-package--form)
|
(defvar use-package--form)
|
||||||
(defvar use-package--hush-function #'(lambda (keyword body) body))
|
(defvar use-package--hush-function #'(lambda (_keyword body) body))
|
||||||
|
|
||||||
(defsubst use-package-hush (context keyword body)
|
(defsubst use-package-hush (context keyword body)
|
||||||
`((condition-case-unless-debug err
|
`((condition-case-unless-debug err
|
||||||
,(macroexp-progn body)
|
,(macroexp-progn body)
|
||||||
(error (funcall ,context ,keyword err)))))
|
(error (funcall ,context ,keyword err)))))
|
||||||
|
|
||||||
(defun use-package-normalize/:catch (name keyword args)
|
(defun use-package-normalize/:catch (_name keyword args)
|
||||||
(if (null args)
|
(if (null args)
|
||||||
t
|
t
|
||||||
(use-package-only-one (symbol-name keyword) args
|
(use-package-only-one (symbol-name keyword) args
|
||||||
|
@ -1199,7 +1199,7 @@ meaning:
|
||||||
(defalias 'use-package-normalize/:interpreter 'use-package-normalize-mode)
|
(defalias 'use-package-normalize/:interpreter 'use-package-normalize-mode)
|
||||||
(defalias 'use-package-autoloads/:interpreter 'use-package-autoloads-mode)
|
(defalias 'use-package-autoloads/:interpreter 'use-package-autoloads-mode)
|
||||||
|
|
||||||
(defun use-package-handler/:interpreter (name keyword arg rest state)
|
(defun use-package-handler/:interpreter (name _keyword arg rest state)
|
||||||
(use-package-handle-mode name 'interpreter-mode-alist arg rest state))
|
(use-package-handle-mode name 'interpreter-mode-alist arg rest state))
|
||||||
|
|
||||||
;;;; :mode
|
;;;; :mode
|
||||||
|
@ -1207,7 +1207,7 @@ meaning:
|
||||||
(defalias 'use-package-normalize/:mode 'use-package-normalize-mode)
|
(defalias 'use-package-normalize/:mode 'use-package-normalize-mode)
|
||||||
(defalias 'use-package-autoloads/:mode 'use-package-autoloads-mode)
|
(defalias 'use-package-autoloads/:mode 'use-package-autoloads-mode)
|
||||||
|
|
||||||
(defun use-package-handler/:mode (name keyword arg rest state)
|
(defun use-package-handler/:mode (name _keyword arg rest state)
|
||||||
(use-package-handle-mode name 'auto-mode-alist arg rest state))
|
(use-package-handle-mode name 'auto-mode-alist arg rest state))
|
||||||
|
|
||||||
;;;; :magic
|
;;;; :magic
|
||||||
|
@ -1215,7 +1215,7 @@ meaning:
|
||||||
(defalias 'use-package-normalize/:magic 'use-package-normalize-mode)
|
(defalias 'use-package-normalize/:magic 'use-package-normalize-mode)
|
||||||
(defalias 'use-package-autoloads/:magic 'use-package-autoloads-mode)
|
(defalias 'use-package-autoloads/:magic 'use-package-autoloads-mode)
|
||||||
|
|
||||||
(defun use-package-handler/:magic (name keyword arg rest state)
|
(defun use-package-handler/:magic (name _keyword arg rest state)
|
||||||
(use-package-handle-mode name 'magic-mode-alist arg rest state))
|
(use-package-handle-mode name 'magic-mode-alist arg rest state))
|
||||||
|
|
||||||
;;;; :magic-fallback
|
;;;; :magic-fallback
|
||||||
|
@ -1223,7 +1223,7 @@ meaning:
|
||||||
(defalias 'use-package-normalize/:magic-fallback 'use-package-normalize-mode)
|
(defalias 'use-package-normalize/:magic-fallback 'use-package-normalize-mode)
|
||||||
(defalias 'use-package-autoloads/:magic-fallback 'use-package-autoloads-mode)
|
(defalias 'use-package-autoloads/:magic-fallback 'use-package-autoloads-mode)
|
||||||
|
|
||||||
(defun use-package-handler/:magic-fallback (name keyword arg rest state)
|
(defun use-package-handler/:magic-fallback (name _keyword arg rest state)
|
||||||
(use-package-handle-mode name 'magic-fallback-mode-alist arg rest state))
|
(use-package-handle-mode name 'magic-fallback-mode-alist arg rest state))
|
||||||
|
|
||||||
;;;; :hook
|
;;;; :hook
|
||||||
|
@ -1250,7 +1250,7 @@ meaning:
|
||||||
|
|
||||||
(defalias 'use-package-autoloads/:hook 'use-package-autoloads-mode)
|
(defalias 'use-package-autoloads/:hook 'use-package-autoloads-mode)
|
||||||
|
|
||||||
(defun use-package-handler/:hook (name keyword args rest state)
|
(defun use-package-handler/:hook (name _keyword args rest state)
|
||||||
"Generate use-package custom keyword code."
|
"Generate use-package custom keyword code."
|
||||||
(use-package-concat
|
(use-package-concat
|
||||||
(use-package-process-keywords name rest state)
|
(use-package-process-keywords name rest state)
|
||||||
|
@ -1273,7 +1273,7 @@ meaning:
|
||||||
|
|
||||||
(defalias 'use-package-normalize/:commands 'use-package-normalize-symlist)
|
(defalias 'use-package-normalize/:commands 'use-package-normalize-symlist)
|
||||||
|
|
||||||
(defun use-package-handler/:commands (name keyword arg rest state)
|
(defun use-package-handler/:commands (name _keyword arg rest state)
|
||||||
(use-package-concat
|
(use-package-concat
|
||||||
;; Since we deferring load, establish any necessary autoloads, and also
|
;; Since we deferring load, establish any necessary autoloads, and also
|
||||||
;; keep the byte-compiler happy.
|
;; keep the byte-compiler happy.
|
||||||
|
@ -1295,7 +1295,7 @@ meaning:
|
||||||
|
|
||||||
(defalias 'use-package-normalize/:defer 'use-package-normalize-predicate)
|
(defalias 'use-package-normalize/:defer 'use-package-normalize-predicate)
|
||||||
|
|
||||||
(defun use-package-handler/:defer (name keyword arg rest state)
|
(defun use-package-handler/:defer (name _keyword arg rest state)
|
||||||
(let ((body (use-package-process-keywords name rest state)))
|
(let ((body (use-package-process-keywords name rest state)))
|
||||||
(use-package-concat
|
(use-package-concat
|
||||||
;; Load the package after a set amount of idle time, if the argument to
|
;; Load the package after a set amount of idle time, if the argument to
|
||||||
|
@ -1351,7 +1351,7 @@ no keyword implies `:all'."
|
||||||
((listp features)
|
((listp features)
|
||||||
(use-package-require-after-load (cons :all features) body))))
|
(use-package-require-after-load (cons :all features) body))))
|
||||||
|
|
||||||
(defun use-package-handler/:after (name keyword arg rest state)
|
(defun use-package-handler/:after (name _keyword arg rest state)
|
||||||
(let ((body (use-package-process-keywords name rest state))
|
(let ((body (use-package-process-keywords name rest state))
|
||||||
(uses (use-package-after-count-uses arg)))
|
(uses (use-package-after-count-uses arg)))
|
||||||
(if (or (null uses) (null body))
|
(if (or (null uses) (null body))
|
||||||
|
@ -1366,12 +1366,12 @@ no keyword implies `:all'."
|
||||||
|
|
||||||
(defalias 'use-package-normalize/:demand 'use-package-normalize-predicate)
|
(defalias 'use-package-normalize/:demand 'use-package-normalize-predicate)
|
||||||
|
|
||||||
(defun use-package-handler/:demand (name keyword arg rest state)
|
(defun use-package-handler/:demand (name _keyword _arg rest state)
|
||||||
(use-package-process-keywords name rest state))
|
(use-package-process-keywords name rest state))
|
||||||
|
|
||||||
;;;; :custom
|
;;;; :custom
|
||||||
|
|
||||||
(defun use-package-normalize/:custom (name keyword args)
|
(defun use-package-normalize/:custom (_name keyword args)
|
||||||
"Normalize use-package custom keyword."
|
"Normalize use-package custom keyword."
|
||||||
(use-package-as-one (symbol-name keyword) args
|
(use-package-as-one (symbol-name keyword) args
|
||||||
#'(lambda (label arg)
|
#'(lambda (label arg)
|
||||||
|
@ -1383,7 +1383,7 @@ no keyword implies `:all'."
|
||||||
(list arg)
|
(list arg)
|
||||||
arg))))
|
arg))))
|
||||||
|
|
||||||
(defun use-package-handler/:custom (name keyword args rest state)
|
(defun use-package-handler/:custom (name _keyword args rest state)
|
||||||
"Generate use-package custom keyword code."
|
"Generate use-package custom keyword code."
|
||||||
(use-package-concat
|
(use-package-concat
|
||||||
(mapcar
|
(mapcar
|
||||||
|
@ -1399,7 +1399,7 @@ no keyword implies `:all'."
|
||||||
|
|
||||||
;;;; :custom-face
|
;;;; :custom-face
|
||||||
|
|
||||||
(defun use-package-normalize/:custom-face (name-symbol keyword arg)
|
(defun use-package-normalize/:custom-face (name-symbol _keyword arg)
|
||||||
"Normalize use-package custom-face keyword."
|
"Normalize use-package custom-face keyword."
|
||||||
(let ((error-msg
|
(let ((error-msg
|
||||||
(format "%s wants a (<symbol> <face-spec>) or list of these"
|
(format "%s wants a (<symbol> <face-spec>) or list of these"
|
||||||
|
@ -1416,7 +1416,7 @@ no keyword implies `:all'."
|
||||||
(> (length def) 2))
|
(> (length def) 2))
|
||||||
(use-package-error error-msg))))))
|
(use-package-error error-msg))))))
|
||||||
|
|
||||||
(defun use-package-handler/:custom-face (name keyword args rest state)
|
(defun use-package-handler/:custom-face (name _keyword args rest state)
|
||||||
"Generate use-package custom-face keyword code."
|
"Generate use-package custom-face keyword code."
|
||||||
(use-package-concat
|
(use-package-concat
|
||||||
(mapcar #'(lambda (def) `(custom-set-faces (quote ,def))) args)
|
(mapcar #'(lambda (def) `(custom-set-faces (quote ,def))) args)
|
||||||
|
@ -1426,7 +1426,7 @@ no keyword implies `:all'."
|
||||||
|
|
||||||
(defalias 'use-package-normalize/:init 'use-package-normalize-forms)
|
(defalias 'use-package-normalize/:init 'use-package-normalize-forms)
|
||||||
|
|
||||||
(defun use-package-handler/:init (name keyword arg rest state)
|
(defun use-package-handler/:init (name _keyword arg rest state)
|
||||||
(use-package-concat
|
(use-package-concat
|
||||||
(when use-package-compute-statistics
|
(when use-package-compute-statistics
|
||||||
`((use-package-statistics-gather :init ',name nil)))
|
`((use-package-statistics-gather :init ',name nil)))
|
||||||
|
@ -1451,7 +1451,7 @@ no keyword implies `:all'."
|
||||||
args
|
args
|
||||||
(list args)))
|
(list args)))
|
||||||
|
|
||||||
(defun use-package-handler/:load (name keyword arg rest state)
|
(defun use-package-handler/:load (name _keyword arg rest state)
|
||||||
(let ((body (use-package-process-keywords name rest state)))
|
(let ((body (use-package-process-keywords name rest state)))
|
||||||
(cl-dolist (pkg arg)
|
(cl-dolist (pkg arg)
|
||||||
(setq body (use-package-require (if (eq t pkg) name pkg) nil body)))
|
(setq body (use-package-require (if (eq t pkg) name pkg) nil body)))
|
||||||
|
@ -1461,7 +1461,7 @@ no keyword implies `:all'."
|
||||||
|
|
||||||
(defalias 'use-package-normalize/:config 'use-package-normalize-forms)
|
(defalias 'use-package-normalize/:config 'use-package-normalize-forms)
|
||||||
|
|
||||||
(defun use-package-handler/:config (name keyword arg rest state)
|
(defun use-package-handler/:config (name _keyword arg rest state)
|
||||||
(let* ((body (use-package-process-keywords name rest state))
|
(let* ((body (use-package-process-keywords name rest state))
|
||||||
(name-symbol (use-package-as-symbol name)))
|
(name-symbol (use-package-as-symbol name)))
|
||||||
(use-package-concat
|
(use-package-concat
|
|
@ -1,4 +1,4 @@
|
||||||
;;; use-package-delight.el --- Support for the :delight keyword
|
;;; use-package-delight.el --- Support for the :delight keyword -*- lexical-binding: t; -*-
|
||||||
|
|
||||||
;; Copyright (C) 2012-2017 John Wiegley
|
;; Copyright (C) 2012-2017 John Wiegley
|
||||||
|
|
||||||
|
@ -52,7 +52,7 @@
|
||||||
":delight expects `delight' arguments or a list of them"))))
|
":delight expects `delight' arguments or a list of them"))))
|
||||||
|
|
||||||
;;;###autoload
|
;;;###autoload
|
||||||
(defun use-package-normalize/:delight (name keyword args)
|
(defun use-package-normalize/:delight (name _keyword args)
|
||||||
"Normalize arguments to delight."
|
"Normalize arguments to delight."
|
||||||
(cond ((null args)
|
(cond ((null args)
|
||||||
`((,(use-package-as-mode name) nil ,name)))
|
`((,(use-package-as-mode name) nil ,name)))
|
||||||
|
@ -77,7 +77,7 @@
|
||||||
args)))))
|
args)))))
|
||||||
|
|
||||||
;;;###autoload
|
;;;###autoload
|
||||||
(defun use-package-handler/:delight (name keyword args rest state)
|
(defun use-package-handler/:delight (name _keyword args rest state)
|
||||||
(let ((body (use-package-process-keywords name rest state)))
|
(let ((body (use-package-process-keywords name rest state)))
|
||||||
(use-package-concat
|
(use-package-concat
|
||||||
body
|
body
|
|
@ -1,4 +1,4 @@
|
||||||
;;; use-package-diminish.el --- Support for the :diminish keyword
|
;;; use-package-diminish.el --- Support for the :diminish keyword -*- lexical-binding: t; -*-
|
||||||
|
|
||||||
;; Copyright (C) 2012-2017 John Wiegley
|
;; Copyright (C) 2012-2017 John Wiegley
|
||||||
|
|
||||||
|
@ -62,7 +62,7 @@
|
||||||
(apply-partially #'use-package-normalize-diminish name) t))
|
(apply-partially #'use-package-normalize-diminish name) t))
|
||||||
|
|
||||||
;;;###autoload
|
;;;###autoload
|
||||||
(defun use-package-handler/:diminish (name keyword arg rest state)
|
(defun use-package-handler/:diminish (name _keyword arg rest state)
|
||||||
(let ((body (use-package-process-keywords name rest state)))
|
(let ((body (use-package-process-keywords name rest state)))
|
||||||
(use-package-concat
|
(use-package-concat
|
||||||
(mapcar #'(lambda (var)
|
(mapcar #'(lambda (var)
|
|
@ -1,4 +1,4 @@
|
||||||
;;; use-package-ensure.el --- Support for the :ensure and :pin keywords
|
;;; use-package-ensure.el --- Support for the :ensure and :pin keywords -*- lexical-binding: t; -*-
|
||||||
|
|
||||||
;; Copyright (C) 2012-2017 John Wiegley
|
;; Copyright (C) 2012-2017 John Wiegley
|
||||||
|
|
||||||
|
@ -76,9 +76,9 @@ The default value uses package.el to install the package."
|
||||||
|
|
||||||
;;;; :pin
|
;;;; :pin
|
||||||
|
|
||||||
(defun use-package-normalize/:pin (name keyword args)
|
(defun use-package-normalize/:pin (_name keyword args)
|
||||||
(use-package-only-one (symbol-name keyword) args
|
(use-package-only-one (symbol-name keyword) args
|
||||||
#'(lambda (label arg)
|
#'(lambda (_label arg)
|
||||||
(cond
|
(cond
|
||||||
((stringp arg) arg)
|
((stringp arg) arg)
|
||||||
((use-package-non-nil-symbolp arg) (symbol-name arg))
|
((use-package-non-nil-symbolp arg) (symbol-name arg))
|
||||||
|
@ -116,7 +116,7 @@ manually updated package."
|
||||||
(unless (bound-and-true-p package--initialized)
|
(unless (bound-and-true-p package--initialized)
|
||||||
(package-initialize t))))
|
(package-initialize t))))
|
||||||
|
|
||||||
(defun use-package-handler/:pin (name keyword archive-name rest state)
|
(defun use-package-handler/:pin (name _keyword archive-name rest state)
|
||||||
(let ((body (use-package-process-keywords name rest state))
|
(let ((body (use-package-process-keywords name rest state))
|
||||||
(pin-form (if archive-name
|
(pin-form (if archive-name
|
||||||
`(use-package-pin-package ',(use-package-as-symbol name)
|
`(use-package-pin-package ',(use-package-as-symbol name)
|
||||||
|
@ -133,11 +133,11 @@ manually updated package."
|
||||||
(defvar package-archive-contents)
|
(defvar package-archive-contents)
|
||||||
|
|
||||||
;;;###autoload
|
;;;###autoload
|
||||||
(defun use-package-normalize/:ensure (name keyword args)
|
(defun use-package-normalize/:ensure (_name keyword args)
|
||||||
(if (null args)
|
(if (null args)
|
||||||
(list t)
|
(list t)
|
||||||
(use-package-only-one (symbol-name keyword) args
|
(use-package-only-one (symbol-name keyword) args
|
||||||
#'(lambda (label arg)
|
#'(lambda (_label arg)
|
||||||
(cond
|
(cond
|
||||||
((symbolp arg)
|
((symbolp arg)
|
||||||
(list arg))
|
(list arg))
|
||||||
|
@ -152,7 +152,7 @@ manually updated package."
|
||||||
(concat ":ensure wants an optional package name "
|
(concat ":ensure wants an optional package name "
|
||||||
"(an unquoted symbol name), or (<symbol> :pin <string>)"))))))))
|
"(an unquoted symbol name), or (<symbol> :pin <string>)"))))))))
|
||||||
|
|
||||||
(defun use-package-ensure-elpa (name args state &optional no-refresh)
|
(defun use-package-ensure-elpa (name args _state &optional _no-refresh)
|
||||||
(dolist (ensure args)
|
(dolist (ensure args)
|
||||||
(let ((package
|
(let ((package
|
||||||
(or (and (eq ensure t) (use-package-as-symbol name))
|
(or (and (eq ensure t) (use-package-as-symbol name))
|
||||||
|
@ -183,7 +183,7 @@ manually updated package."
|
||||||
:error))))))))
|
:error))))))))
|
||||||
|
|
||||||
;;;###autoload
|
;;;###autoload
|
||||||
(defun use-package-handler/:ensure (name keyword ensure rest state)
|
(defun use-package-handler/:ensure (name _keyword ensure rest state)
|
||||||
(let* ((body (use-package-process-keywords name rest state)))
|
(let* ((body (use-package-process-keywords name rest state)))
|
||||||
;; We want to avoid installing packages when the `use-package' macro is
|
;; We want to avoid installing packages when the `use-package' macro is
|
||||||
;; being macro-expanded by elisp completion (see `lisp--local-variables'),
|
;; being macro-expanded by elisp completion (see `lisp--local-variables'),
|
|
@ -1,4 +1,4 @@
|
||||||
;;; use-package-jump.el --- Attempt to jump to a use-package declaration
|
;;; use-package-jump.el --- Attempt to jump to a use-package declaration -*- lexical-binding: t; -*-
|
||||||
|
|
||||||
;; Copyright (C) 2012-2017 John Wiegley
|
;; Copyright (C) 2012-2017 John Wiegley
|
||||||
|
|
|
@ -1,4 +1,4 @@
|
||||||
;;; use-package-lint.el --- Attempt to find errors in use-package declarations
|
;;; use-package-lint.el --- Attempt to find errors in use-package declarations -*- lexical-binding: t; -*-
|
||||||
|
|
||||||
;; Copyright (C) 2012-2017 John Wiegley
|
;; Copyright (C) 2012-2017 John Wiegley
|
||||||
|
|
|
@ -1,4 +1,4 @@
|
||||||
(define-package "use-package" "20180314.1143" "A configuration macro for simplifying your .emacs"
|
(define-package "use-package" "20180613.2219" "A configuration macro for simplifying your .emacs"
|
||||||
'((emacs "24.3")
|
'((emacs "24.3")
|
||||||
(bind-key "2.4"))
|
(bind-key "2.4"))
|
||||||
:keywords
|
:keywords
|
|
@ -1,4 +1,4 @@
|
||||||
;;; use-package.el --- A configuration macro for simplifying your .emacs
|
;;; use-package.el --- A configuration macro for simplifying your .emacs -*- lexical-binding: t; -*-
|
||||||
|
|
||||||
;; Copyright (C) 2012-2017 John Wiegley
|
;; Copyright (C) 2012-2017 John Wiegley
|
||||||
|
|
|
@ -109,7 +109,12 @@ File: use-package.info, Node: Introduction, Next: Installation, Prev: Top, U
|
||||||
1 Introduction
|
1 Introduction
|
||||||
**************
|
**************
|
||||||
|
|
||||||
TODO
|
The ‘use-package’ macro allows you to isolate package configuration in
|
||||||
|
your ‘.emacs’ file in a way that is both performance-oriented and, well,
|
||||||
|
tidy. I created it because I have over 400 packages that I use in
|
||||||
|
Emacs, and things were getting difficult to manage. Yet with this
|
||||||
|
utility my total load time is around 2 seconds, with no loss of
|
||||||
|
functionality!
|
||||||
|
|
||||||
|
|
||||||
File: use-package.info, Node: Installation, Next: Getting Started, Prev: Introduction, Up: Top
|
File: use-package.info, Node: Installation, Next: Getting Started, Prev: Introduction, Up: Top
|
||||||
|
@ -999,41 +1004,41 @@ Appendix E Variable Index
|
||||||
Tag Table:
|
Tag Table:
|
||||||
Node: Top784
|
Node: Top784
|
||||||
Node: Introduction2838
|
Node: Introduction2838
|
||||||
Node: Installation2965
|
Node: Installation3325
|
||||||
Node: Installing from an Elpa Archive3317
|
Node: Installing from an Elpa Archive3677
|
||||||
Node: Installing from the Git Repository4432
|
Node: Installing from the Git Repository4792
|
||||||
Node: Post-Installation Tasks5968
|
Node: Post-Installation Tasks6328
|
||||||
Node: Getting Started6681
|
Node: Getting Started7041
|
||||||
Node: Keywords6853
|
Node: Keywords7213
|
||||||
Node: after7791
|
Node: after8151
|
||||||
Node: bind-keymap bind-keymap*9323
|
Node: bind-keymap bind-keymap*9683
|
||||||
Node: bind bind*10376
|
Node: bind bind*10736
|
||||||
Node: Binding to local keymaps12416
|
Node: Binding to local keymaps12776
|
||||||
Node: commands13507
|
Node: commands13867
|
||||||
Node: preface init config13649
|
Node: preface init config14009
|
||||||
Node: custom15727
|
Node: custom16087
|
||||||
Node: custom-face16167
|
Node: custom-face16527
|
||||||
Node: defer demand16487
|
Node: defer demand16847
|
||||||
Node: defines functions17299
|
Node: defines functions17659
|
||||||
Node: diminish delight18444
|
Node: diminish delight18804
|
||||||
Node: disabled20387
|
Node: disabled20747
|
||||||
Node: ensure pin20882
|
Node: ensure pin21242
|
||||||
Node: hook23612
|
Node: hook23972
|
||||||
Node: if when unless25030
|
Node: if when unless25390
|
||||||
Node: load-path25976
|
Node: load-path26336
|
||||||
Node: mode interpreter27122
|
Node: mode interpreter27482
|
||||||
Node: magic magic-fallback28433
|
Node: magic magic-fallback28793
|
||||||
Node: no-require29278
|
Node: no-require29638
|
||||||
Node: requires29982
|
Node: requires30342
|
||||||
Node: FAQ30869
|
Node: FAQ31229
|
||||||
Node: FAQ - How to ...?31152
|
Node: FAQ - How to ...?31512
|
||||||
Node: This is a question31324
|
Node: This is a question31684
|
||||||
Node: FAQ - Issues and Errors31472
|
Node: FAQ - Issues and Errors31832
|
||||||
Node: This is an issues31655
|
Node: This is an issues32015
|
||||||
Node: Debugging Tools31810
|
Node: Debugging Tools32170
|
||||||
Node: Command Index31984
|
Node: Command Index32344
|
||||||
Node: Function Index32140
|
Node: Function Index32500
|
||||||
Node: Variable Index32297
|
Node: Variable Index32657
|
||||||
|
|
||||||
End Tag Table
|
End Tag Table
|
||||||
|
|
Loading…
Reference in New Issue