[Misc] Package updates
This commit is contained in:
parent
b55dbfa9d3
commit
1d579ffa14
|
@ -1,2 +0,0 @@
|
|||
;;; -*- no-byte-compile: t -*-
|
||||
(define-package "dash" "20171028.854" "A modern list library for Emacs" 'nil :commit "91d8cb01e62bab0d6267d3d4dbcabd6da6fdea78" :keywords '("lists"))
|
|
@ -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))
|
||||
|
||||
;;;***
|
||||
|
|
@ -0,0 +1,2 @@
|
|||
;;; -*- no-byte-compile: t -*-
|
||||
(define-package "dash" "20180206.2124" "A modern list library for Emacs" 'nil :commit "48a5015dd1314a8bcad48f2ad8866dd911001b01" :keywords '("lists"))
|
|
@ -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?"
|
|
@ -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))
|
||||
|
||||
;;;***
|
||||
|
|
@ -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"))
|
|
@ -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))
|
|
@ -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))
|
||||
|
||||
;;;***
|
||||
|
|
@ -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)))))))
|
||||
|
|
@ -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
|
Loading…
Reference in New Issue