[ELPA] Package Update
This commit is contained in:
parent
926e977016
commit
8950a3e8ab
|
@ -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" (23517 56142 130390 488000))
|
;;;### (autoloads nil "hydra" "hydra.el" (23555 58032 639630 221000))
|
||||||
;;; 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") (23517 56142 142390 549000))
|
;;;;;; "lv.el") (23555 58032 655630 298000))
|
||||||
|
|
||||||
;;;***
|
;;;***
|
||||||
|
|
|
@ -1,4 +1,4 @@
|
||||||
(define-package "hydra" "20181030.1925" "Make bindings that stick around."
|
(define-package "hydra" "20181128.1716" "Make bindings that stick around."
|
||||||
'((cl-lib "0.5"))
|
'((cl-lib "0.5"))
|
||||||
:keywords
|
:keywords
|
||||||
'("bindings")
|
'("bindings")
|
|
@ -724,7 +724,13 @@ The expressions can be auto-expanded according to NAME."
|
||||||
(t
|
(t
|
||||||
(let ((r `(replace-regexp-in-string
|
(let ((r `(replace-regexp-in-string
|
||||||
" +$" ""
|
" +$" ""
|
||||||
(concat ,docstring ": "
|
(concat ,docstring
|
||||||
|
,(cond ((string-match-p "\\`\n" rest)
|
||||||
|
":")
|
||||||
|
((string-match-p "\n" rest)
|
||||||
|
":\n")
|
||||||
|
(t
|
||||||
|
": "))
|
||||||
(replace-regexp-in-string
|
(replace-regexp-in-string
|
||||||
"\\(%\\)" "\\1\\1" ,rest)))))
|
"\\(%\\)" "\\1\\1" ,rest)))))
|
||||||
(if (stringp rest)
|
(if (stringp rest)
|
|
@ -54,6 +54,8 @@ Only the background color is significant."
|
||||||
(defvar lv-wnd nil
|
(defvar lv-wnd nil
|
||||||
"Holds the current LV window.")
|
"Holds the current LV window.")
|
||||||
|
|
||||||
|
(defvar display-line-numbers)
|
||||||
|
|
||||||
(defun lv-window ()
|
(defun lv-window ()
|
||||||
"Ensure that LV window is live and return it."
|
"Ensure that LV window is live and return it."
|
||||||
(if (window-live-p lv-wnd)
|
(if (window-live-p lv-wnd)
|
|
@ -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"
|
||||||
;;;;;; (23441 26325 101319 983000))
|
;;;;;; (23555 57959 115271 477000))
|
||||||
;;; 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" (23441
|
;;;### (autoloads nil "use-package-core" "use-package-core.el" (23555
|
||||||
;;;;;; 26325 45319 621000))
|
;;;;;; 57959 63271 224000))
|
||||||
;;; 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"
|
||||||
;;;;;; (23441 26325 33319 544000))
|
;;;;;; (23555 57959 51271 166000))
|
||||||
;;; 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"
|
||||||
;;;;;; (23441 26325 81319 854000))
|
;;;;;; (23555 57959 95271 379000))
|
||||||
;;; 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"
|
||||||
;;;;;; (23441 26325 53319 673000))
|
;;;;;; (23555 57959 71271 263000))
|
||||||
;;; 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" (23441
|
;;;### (autoloads nil "use-package-jump" "use-package-jump.el" (23555
|
||||||
;;;;;; 26325 61319 724000))
|
;;;;;; 57959 79271 302000))
|
||||||
;;; 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" (23441
|
;;;### (autoloads nil "use-package-lint" "use-package-lint.el" (23555
|
||||||
;;;;;; 26325 73319 802000))
|
;;;;;; 57959 91271 361000))
|
||||||
;;; 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")
|
||||||
;;;;;; (23441 26325 65319 751000))
|
;;;;;; (23555 57959 83271 321000))
|
||||||
|
|
||||||
;;;***
|
;;;***
|
||||||
|
|
|
@ -988,10 +988,10 @@ The date is returned as a string."
|
||||||
|
|
||||||
(defun use-package-statistics-time (package)
|
(defun use-package-statistics-time (package)
|
||||||
"Return the time is took for PACKAGE to load."
|
"Return the time is took for PACKAGE to load."
|
||||||
(+ (float-time (gethash :config-secs package 0))
|
(+ (float-time (gethash :config-secs package '(0 0 0 0)))
|
||||||
(float-time (gethash :init-secs package 0))
|
(float-time (gethash :init-secs package '(0 0 0 0)))
|
||||||
(float-time (gethash :preface-secs package 0))
|
(float-time (gethash :preface-secs package '(0 0 0 0)))
|
||||||
(float-time (gethash :use-package-secs package 0))))
|
(float-time (gethash :use-package-secs package '(0 0 0 0)))))
|
||||||
|
|
||||||
(defun use-package-statistics-convert (package)
|
(defun use-package-statistics-convert (package)
|
||||||
"Return information about PACKAGE.
|
"Return information about PACKAGE.
|
||||||
|
@ -1315,41 +1315,41 @@ meaning:
|
||||||
args
|
args
|
||||||
(list args)))
|
(list args)))
|
||||||
|
|
||||||
(defun use-package-after-count-uses (features)
|
(defun use-package-after-count-uses (features*)
|
||||||
"Count the number of time the body would appear in the result."
|
"Count the number of time the body would appear in the result."
|
||||||
(cond ((use-package-non-nil-symbolp features)
|
(cond ((use-package-non-nil-symbolp features*)
|
||||||
1)
|
1)
|
||||||
((and (consp features)
|
((and (consp features*)
|
||||||
(memq (car features) '(:or :any)))
|
(memq (car features*) '(:or :any)))
|
||||||
(let ((num 0))
|
(let ((num 0))
|
||||||
(cl-dolist (next (cdr features))
|
(cl-dolist (next (cdr features*))
|
||||||
(setq num (+ num (use-package-after-count-uses next))))
|
(setq num (+ num (use-package-after-count-uses next))))
|
||||||
num))
|
num))
|
||||||
((and (consp features)
|
((and (consp features*)
|
||||||
(memq (car features) '(:and :all)))
|
(memq (car features*) '(:and :all)))
|
||||||
(apply #'max (mapcar #'use-package-after-count-uses
|
(apply #'max (mapcar #'use-package-after-count-uses
|
||||||
(cdr features))))
|
(cdr features*))))
|
||||||
((listp features)
|
((listp features*)
|
||||||
(use-package-after-count-uses (cons :all features)))))
|
(use-package-after-count-uses (cons :all features*)))))
|
||||||
|
|
||||||
(defun use-package-require-after-load (features body)
|
(defun use-package-require-after-load (features* body)
|
||||||
"Generate `eval-after-load' statements to represents FEATURES.
|
"Generate `eval-after-load' statements to represents FEATURES*.
|
||||||
FEATURES is a list containing keywords `:and' and `:all', where
|
FEATURES* is a list containing keywords `:and' and `:all', where
|
||||||
no keyword implies `:all'."
|
no keyword implies `:all'."
|
||||||
(cond
|
(cond
|
||||||
((use-package-non-nil-symbolp features)
|
((use-package-non-nil-symbolp features*)
|
||||||
`((eval-after-load ',features ',(macroexp-progn body))))
|
`((eval-after-load ',features* ',(macroexp-progn body))))
|
||||||
((and (consp features)
|
((and (consp features*)
|
||||||
(memq (car features) '(:or :any)))
|
(memq (car features*) '(:or :any)))
|
||||||
(cl-mapcan #'(lambda (x) (use-package-require-after-load x body))
|
(cl-mapcan #'(lambda (x) (use-package-require-after-load x body))
|
||||||
(cdr features)))
|
(cdr features*)))
|
||||||
((and (consp features)
|
((and (consp features*)
|
||||||
(memq (car features) '(:and :all)))
|
(memq (car features*) '(:and :all)))
|
||||||
(cl-dolist (next (cdr features))
|
(cl-dolist (next (cdr features*))
|
||||||
(setq body (use-package-require-after-load next body)))
|
(setq body (use-package-require-after-load next body)))
|
||||||
body)
|
body)
|
||||||
((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))
|
|
@ -1,4 +1,4 @@
|
||||||
(define-package "use-package" "20180715.1801" "A configuration macro for simplifying your .emacs"
|
(define-package "use-package" "20181119.2350" "A configuration macro for simplifying your .emacs"
|
||||||
'((emacs "24.3")
|
'((emacs "24.3")
|
||||||
(bind-key "2.4"))
|
(bind-key "2.4"))
|
||||||
:keywords
|
:keywords
|
Loading…
Reference in New Issue