[Misc] Package updates

This commit is contained in:
Daniel - 2018-02-19 22:05:23 +01:00
parent b55dbfa9d3
commit 1d579ffa14
Signed by: dbo
GPG Key ID: 4F63DB96D45AA9C6
22 changed files with 93 additions and 36 deletions

View File

@ -1,2 +0,0 @@
;;; -*- no-byte-compile: t -*-
(define-package "dash" "20171028.854" "A modern list library for Emacs" 'nil :commit "91d8cb01e62bab0d6267d3d4dbcabd6da6fdea78" :keywords '("lists"))

View File

@ -3,7 +3,7 @@
;;; Code:
(add-to-list 'load-path (directory-file-name (or (file-name-directory #$) (car load-path))))
;;;### (autoloads nil nil ("dash.el") (23028 47952 758677 500000))
;;;### (autoloads nil nil ("dash.el") (23179 13963 741041 342000))
;;;***

View File

@ -0,0 +1,2 @@
;;; -*- no-byte-compile: t -*-
(define-package "dash" "20180206.2124" "A modern list library for Emacs" 'nil :commit "48a5015dd1314a8bcad48f2ad8866dd911001b01" :keywords '("lists"))

View File

@ -4,7 +4,7 @@
;; Author: Magnar Sveen <magnars@gmail.com>
;; Version: 2.13.0
;; Package-Version: 20171028.854
;; Package-Version: 20180206.2124
;; Keywords: lists
;; This program is free software; you can redistribute it and/or modify
@ -1325,7 +1325,7 @@ combinations created by taking one element from each list in
order. The results are flattened, ignoring the tensor structure
of the result. This is equivalent to calling:
(-flatten-n (1- (length lists)) (apply '-table fn lists))
(-flatten-n (1- (length lists)) (apply \\='-table fn lists))
but the implementation here is much more efficient.
@ -2047,7 +2047,7 @@ execute body."
"Tests for equality use this function or `equal' if this is nil.
It should only be set using dynamic scope with a let, like:
(let ((-compare-fn #'=)) (-union numbers1 numbers2 numbers3)")
(let ((-compare-fn #\\='=)) (-union numbers1 numbers2 numbers3)")
(defun -distinct (list)
"Return a new list with all duplicates removed.
@ -2116,6 +2116,12 @@ or with `-compare-fn' if that's non-nil."
"Return all suffixes of LIST"
(-reductions-r-from 'cons nil list))
(defun -common-prefix (&rest lists)
"Return the longest common prefix of LISTS."
(declare (pure t) (side-effect-free t))
(--reduce (--take-while (and acc (equal (pop acc) it)) it)
lists))
(defun -contains? (list element)
"Return non-nil if LIST contains ELEMENT.
@ -2503,12 +2509,15 @@ structure such as plist or alist."
(eval-after-load 'lisp-mode
'(progn
(let ((new-keywords '(
"!cons"
"!cdr"
"-each"
"--each"
"-each-indexed"
"--each-indexed"
"-each-while"
"--each-while"
"-doto"
"-dotimes"
"--dotimes"
"-map"
@ -2581,6 +2590,10 @@ structure such as plist or alist."
"-last"
"--last"
"-first-item"
"-second-item"
"-third-item"
"-fourth-item"
"-fifth-item"
"-last-item"
"-butlast"
"-count"
@ -2593,8 +2606,13 @@ structure such as plist or alist."
"--any-p"
"-some-p"
"--some-p"
"-some->"
"-some->>"
"-some-->"
"-all?"
"-all-p"
"--all?"
"--all-p"
"-every?"
"--every?"
"-all-p"
@ -2612,6 +2630,8 @@ structure such as plist or alist."
"-slice"
"-take"
"-drop"
"-drop-last"
"-take-last"
"-take-while"
"--take-while"
"-drop-while"
@ -2635,6 +2655,10 @@ structure such as plist or alist."
"-partition-in-steps"
"-partition-all"
"-partition"
"-partition-after-item"
"-partition-after-pred"
"-partition-before-item"
"-partition-before-pred"
"-partition-by"
"--partition-by"
"-partition-by-header"
@ -2643,10 +2667,12 @@ structure such as plist or alist."
"--group-by"
"-interpose"
"-interleave"
"-unzip"
"-zip-with"
"--zip-with"
"-zip"
"-zip-fill"
"-zip-pair"
"-cycle"
"-pad"
"-annotate"
@ -2670,6 +2696,7 @@ structure such as plist or alist."
"->"
"->>"
"-->"
"-as->"
"-when-let"
"-when-let*"
"--when-let"
@ -2688,6 +2715,7 @@ structure such as plist or alist."
"-permutations"
"-inits"
"-tails"
"-common-prefix"
"-contains?"
"-contains-p"
"-same-items?"

View File

@ -3,7 +3,7 @@
;;; Code:
(add-to-list 'load-path (directory-file-name (or (file-name-directory #$) (car load-path))))
;;;### (autoloads nil "hydra" "hydra.el" (23074 63707 509730 106000))
;;;### (autoloads nil "hydra" "hydra.el" (23179 13926 352819 118000))
;;; Generated autoloads from hydra.el
(autoload 'defhydra "hydra" "\
@ -65,7 +65,7 @@ result of `defhydra'.
;;;***
;;;### (autoloads nil nil ("hydra-examples.el" "hydra-ox.el" "hydra-pkg.el"
;;;;;; "lv.el") (23074 63707 525730 189000))
;;;;;; "lv.el") (23179 13926 364819 184000))
;;;***

View File

@ -1,4 +1,4 @@
(define-package "hydra" "20171120.1042" "Make bindings that stick around."
(define-package "hydra" "20180201.846" "Make bindings that stick around."
'((cl-lib "0.5"))
:url "https://github.com/abo-abo/hydra" :keywords
'("bindings"))

View File

@ -738,15 +738,15 @@ BODY-KEY is the body key binding.
BODY-NAME is the symbol that identifies the Hydra.
HEADS is a list of heads."
(format
"Create a hydra with %s body and the heads:\n\n%s\n\n%s"
(if body-key
(format "a \"%s\"" body-key)
"no")
"The heads for the associated hydra are:\n\n%s\n\n%s%s."
(mapconcat
(lambda (x)
(format "\"%s\": `%S'" (car x) (cadr x)))
heads ",\n")
(format "The body can be accessed via `%S'." body-name)))
(format "The body can be accessed via `%S'" body-name)
(if body-key
(format ", which is bound to \"%s\"" body-key)
"")))
(defun hydra--call-interactively-remap-maybe (cmd)
"`call-interactively' the given CMD or its remapped equivalent.
@ -783,8 +783,10 @@ BODY-AFTER-EXIT is added to the end of the wrapper."
(hydra--make-callable
(cadr head))))
(doc (if (car head)
(format "%s\n\nCall the head: `%S'." doc (cadr head))
doc))
(format "Call the head `%S' in the \"%s\" hydra.\n\n%s"
(cadr head) name doc)
(format "Call the body in the \"%s\" hydra.\n\n%s"
name doc)))
(hint (intern (format "%S/hint" name)))
(body-foreign-keys (hydra--body-foreign-keys body))
(body-timeout (plist-get body :timeout))

View File

@ -4,7 +4,7 @@
(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"
;;;;;; (23094 13913 221017 92000))
;;;;;; (23179 13836 404336 368000))
;;; Generated autoloads from use-package-bind-key.el
(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" (23094
;;;;;; 13913 161016 787000))
;;;### (autoloads nil "use-package-core" "use-package-core.el" (23179
;;;;;; 13836 312335 874000))
;;; Generated autoloads from use-package-core.el
(autoload 'use-package "use-package-core" "\
@ -121,7 +121,7 @@ this file. Usage:
;;;***
;;;### (autoloads nil "use-package-delight" "use-package-delight.el"
;;;;;; (23094 13913 181016 889000))
;;;;;; (23179 13836 356336 111000))
;;; Generated autoloads from use-package-delight.el
(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"
;;;;;; (23094 13913 205017 10000))
;;;;;; (23179 13836 388336 282000))
;;; Generated autoloads from use-package-diminish.el
(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"
;;;;;; (23094 13913 177016 868000))
;;;;;; (23179 13836 340336 24000))
;;; Generated autoloads from use-package-ensure.el
(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" (23094
;;;;;; 13913 213017 52000))
;;;### (autoloads nil "use-package-jump" "use-package-jump.el" (23179
;;;;;; 13836 400336 347000))
;;; Generated autoloads from use-package-jump.el
(autoload 'use-package-jump-to-package-form "use-package-jump" "\
@ -183,8 +183,8 @@ instead.
;;;***
;;;### (autoloads nil "use-package-lint" "use-package-lint.el" (23094
;;;;;; 13913 189016 929000))
;;;### (autoloads nil "use-package-lint" "use-package-lint.el" (23179
;;;;;; 13836 372336 197000))
;;; Generated autoloads from use-package-lint.el
(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")
;;;;;; (23094 13913 209017 32000))
;;;;;; (23179 13836 392336 304000))
;;;***

View File

@ -112,6 +112,13 @@ otherwise requested."
:type '(repeat symbol)
:group 'use-package)
(defcustom use-package-ignore-unknown-keywords nil
"If non-nil, issue warning instead of error when unknown
keyword is encountered. The unknown keyword and its associated
arguments will be ignored in the `use-package' expansion."
:type 'boolean
:group 'use-package)
(defcustom use-package-verbose nil
"Whether to report about loading and configuration details.
If you customize this, then you should require the `use-package'
@ -504,7 +511,8 @@ This is in contrast to merely setting it to 0."
"Given a pseudo-plist, normalize it to a regular plist.
The normalized key/value pairs from input are added to PLIST,
extending any keys already present."
(when input
(if (null input)
plist
(let* ((keyword (car input))
(xs (use-package-split-list #'keywordp (cdr input)))
(args (car xs))
@ -513,7 +521,8 @@ extending any keys already present."
(intern-soft (concat "use-package-normalize/"
(symbol-name keyword))))
(arg (and (functionp normalizer)
(funcall normalizer name keyword args))))
(funcall normalizer name keyword args)))
(error-string (format "Unrecognized keyword: %s" keyword)))
(if (memq keyword use-package-keywords)
(progn
(setq plist (use-package-normalize-plist
@ -523,7 +532,12 @@ extending any keys already present."
(funcall merge-function keyword arg
(plist-get plist keyword))
arg)))
(use-package-error (format "Unrecognized keyword: %s" keyword))))))
(if use-package-ignore-unknown-keywords
(progn
(display-warning 'use-package error-string)
(use-package-normalize-plist
name tail plist merge-function))
(use-package-error error-string))))))
(defun use-package-unalias-keywords (name args)
(setq args (cl-nsubstitute :if :when args))
@ -559,6 +573,15 @@ extending any keys already present."
(let* ((name-symbol (if (stringp name) (intern name) name))
(name-string (symbol-name name-symbol)))
;; The function `elisp--local-variables' inserts this unbound variable into
;; macro forms to determine the locally bound variables for
;; `elisp-completion-at-point'. It ends up throwing a lot of errors since it
;; can occupy the position of a keyword (or look like a second argument to a
;; keyword that takes one). Deleting it when it's at the top level should be
;; harmless since there should be no locally bound variables to discover
;; here anyway.
(setq args (delq 'elisp--witness--lisp args))
;; Reduce the set of keywords down to its most fundamental expression.
(setq args (use-package-unalias-keywords name-symbol args))
@ -972,6 +995,9 @@ meaning:
(float-time (gethash :preface-secs hash 0))
(float-time (gethash :use-package-secs hash 0))))))
use-package-statistics)
(goto-char (point-min))
(orgtbl-mode)
(org-table-align)
(display-buffer (current-buffer))))
(defun use-package-statistics-gather (keyword name after)
@ -1351,7 +1377,7 @@ no keyword implies `:all'."
(spec (nth 1 def)))
(when (or (not face)
(not spec)
(> (length arg) 2))
(> (length def) 2))
(use-package-error error-msg))))))
(defun use-package-handler/:custom-face (name keyword args rest state)
@ -1510,10 +1536,11 @@ this file. Usage:
(condition-case-unless-debug err
(use-package-core name args)
(error
(display-warning
'use-package
(format "Failed to parse package %s: %s"
name (error-message-string err)) :error))))
(ignore
(display-warning
'use-package
(format "Failed to parse package %s: %s"
name (error-message-string err)) :error)))))
(when use-package-compute-statistics
`((use-package-statistics-gather :use-package ',name t)))))))

View File

@ -1,4 +1,4 @@
(define-package "use-package" "20171215.2248" "A configuration macro for simplifying your .emacs"
(define-package "use-package" "20180206.1414" "A configuration macro for simplifying your .emacs"
'((emacs "24.3")
(bind-key "2.4"))
:url "https://github.com/jwiegley/use-package" :keywords