[ELPA] Package Update

This commit is contained in:
Daniel - 2018-12-02 14:52:36 +01:00
parent 926e977016
commit 8950a3e8ab
Signed by: dbo
GPG Key ID: 4F63DB96D45AA9C6
18 changed files with 51 additions and 43 deletions

View File

@ -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))
;;;*** ;;;***

View File

@ -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")

View File

@ -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)

View File

@ -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)

View File

@ -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))
;;;*** ;;;***

View File

@ -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))

View File

@ -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