diff --git a/elpa/dash-20171028.854/dash-pkg.el b/elpa/dash-20171028.854/dash-pkg.el deleted file mode 100644 index e9c44af..0000000 --- a/elpa/dash-20171028.854/dash-pkg.el +++ /dev/null @@ -1,2 +0,0 @@ -;;; -*- no-byte-compile: t -*- -(define-package "dash" "20171028.854" "A modern list library for Emacs" 'nil :commit "91d8cb01e62bab0d6267d3d4dbcabd6da6fdea78" :keywords '("lists")) diff --git a/elpa/dash-20171028.854/dash-autoloads.el b/elpa/dash-20180206.2124/dash-autoloads.el similarity index 83% rename from elpa/dash-20171028.854/dash-autoloads.el rename to elpa/dash-20180206.2124/dash-autoloads.el index 77f943d..e00ed98 100644 --- a/elpa/dash-20171028.854/dash-autoloads.el +++ b/elpa/dash-20180206.2124/dash-autoloads.el @@ -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)) ;;;*** diff --git a/elpa/dash-20180206.2124/dash-pkg.el b/elpa/dash-20180206.2124/dash-pkg.el new file mode 100644 index 0000000..25a0334 --- /dev/null +++ b/elpa/dash-20180206.2124/dash-pkg.el @@ -0,0 +1,2 @@ +;;; -*- no-byte-compile: t -*- +(define-package "dash" "20180206.2124" "A modern list library for Emacs" 'nil :commit "48a5015dd1314a8bcad48f2ad8866dd911001b01" :keywords '("lists")) diff --git a/elpa/dash-20171028.854/dash.el b/elpa/dash-20180206.2124/dash.el similarity index 98% rename from elpa/dash-20171028.854/dash.el rename to elpa/dash-20180206.2124/dash.el index 7cc8f1f..4e71108 100644 --- a/elpa/dash-20171028.854/dash.el +++ b/elpa/dash-20180206.2124/dash.el @@ -4,7 +4,7 @@ ;; Author: Magnar Sveen ;; 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?" diff --git a/elpa/hydra-20171120.1042/hydra-autoloads.el b/elpa/hydra-20180201.846/hydra-autoloads.el similarity index 95% rename from elpa/hydra-20171120.1042/hydra-autoloads.el rename to elpa/hydra-20180201.846/hydra-autoloads.el index 2442f4f..f5deb33 100644 --- a/elpa/hydra-20171120.1042/hydra-autoloads.el +++ b/elpa/hydra-20180201.846/hydra-autoloads.el @@ -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)) ;;;*** diff --git a/elpa/hydra-20171120.1042/hydra-examples.el b/elpa/hydra-20180201.846/hydra-examples.el similarity index 100% rename from elpa/hydra-20171120.1042/hydra-examples.el rename to elpa/hydra-20180201.846/hydra-examples.el diff --git a/elpa/hydra-20171120.1042/hydra-ox.el b/elpa/hydra-20180201.846/hydra-ox.el similarity index 100% rename from elpa/hydra-20171120.1042/hydra-ox.el rename to elpa/hydra-20180201.846/hydra-ox.el diff --git a/elpa/hydra-20171120.1042/hydra-pkg.el b/elpa/hydra-20180201.846/hydra-pkg.el similarity index 64% rename from elpa/hydra-20171120.1042/hydra-pkg.el rename to elpa/hydra-20180201.846/hydra-pkg.el index 89bca20..a501a78 100644 --- a/elpa/hydra-20171120.1042/hydra-pkg.el +++ b/elpa/hydra-20180201.846/hydra-pkg.el @@ -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")) diff --git a/elpa/hydra-20171120.1042/hydra.el b/elpa/hydra-20180201.846/hydra.el similarity index 99% rename from elpa/hydra-20171120.1042/hydra.el rename to elpa/hydra-20180201.846/hydra.el index d1f4ee6..c8b4ce1 100644 --- a/elpa/hydra-20171120.1042/hydra.el +++ b/elpa/hydra-20180201.846/hydra.el @@ -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)) diff --git a/elpa/hydra-20171120.1042/lv.el b/elpa/hydra-20180201.846/lv.el similarity index 100% rename from elpa/hydra-20171120.1042/lv.el rename to elpa/hydra-20180201.846/lv.el diff --git a/elpa/use-package-20171215.2248/dir b/elpa/use-package-20180206.1414/dir similarity index 100% rename from elpa/use-package-20171215.2248/dir rename to elpa/use-package-20180206.1414/dir diff --git a/elpa/use-package-20171215.2248/use-package-autoloads.el b/elpa/use-package-20180206.1414/use-package-autoloads.el similarity index 96% rename from elpa/use-package-20171215.2248/use-package-autoloads.el rename to elpa/use-package-20180206.1414/use-package-autoloads.el index 1e125bb..5b5d0ac 100644 --- a/elpa/use-package-20171215.2248/use-package-autoloads.el +++ b/elpa/use-package-20180206.1414/use-package-autoloads.el @@ -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)) ;;;*** diff --git a/elpa/use-package-20171215.2248/use-package-bind-key.el b/elpa/use-package-20180206.1414/use-package-bind-key.el similarity index 100% rename from elpa/use-package-20171215.2248/use-package-bind-key.el rename to elpa/use-package-20180206.1414/use-package-bind-key.el diff --git a/elpa/use-package-20171215.2248/use-package-core.el b/elpa/use-package-20180206.1414/use-package-core.el similarity index 97% rename from elpa/use-package-20171215.2248/use-package-core.el rename to elpa/use-package-20180206.1414/use-package-core.el index dad6859..a649d08 100644 --- a/elpa/use-package-20171215.2248/use-package-core.el +++ b/elpa/use-package-20180206.1414/use-package-core.el @@ -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))))))) diff --git a/elpa/use-package-20171215.2248/use-package-delight.el b/elpa/use-package-20180206.1414/use-package-delight.el similarity index 100% rename from elpa/use-package-20171215.2248/use-package-delight.el rename to elpa/use-package-20180206.1414/use-package-delight.el diff --git a/elpa/use-package-20171215.2248/use-package-diminish.el b/elpa/use-package-20180206.1414/use-package-diminish.el similarity index 100% rename from elpa/use-package-20171215.2248/use-package-diminish.el rename to elpa/use-package-20180206.1414/use-package-diminish.el diff --git a/elpa/use-package-20171215.2248/use-package-ensure.el b/elpa/use-package-20180206.1414/use-package-ensure.el similarity index 100% rename from elpa/use-package-20171215.2248/use-package-ensure.el rename to elpa/use-package-20180206.1414/use-package-ensure.el diff --git a/elpa/use-package-20171215.2248/use-package-jump.el b/elpa/use-package-20180206.1414/use-package-jump.el similarity index 100% rename from elpa/use-package-20171215.2248/use-package-jump.el rename to elpa/use-package-20180206.1414/use-package-jump.el diff --git a/elpa/use-package-20171215.2248/use-package-lint.el b/elpa/use-package-20180206.1414/use-package-lint.el similarity index 100% rename from elpa/use-package-20171215.2248/use-package-lint.el rename to elpa/use-package-20180206.1414/use-package-lint.el diff --git a/elpa/use-package-20171215.2248/use-package-pkg.el b/elpa/use-package-20180206.1414/use-package-pkg.el similarity index 78% rename from elpa/use-package-20171215.2248/use-package-pkg.el rename to elpa/use-package-20180206.1414/use-package-pkg.el index 5bc351d..85954aa 100644 --- a/elpa/use-package-20171215.2248/use-package-pkg.el +++ b/elpa/use-package-20180206.1414/use-package-pkg.el @@ -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 diff --git a/elpa/use-package-20171215.2248/use-package.el b/elpa/use-package-20180206.1414/use-package.el similarity index 100% rename from elpa/use-package-20171215.2248/use-package.el rename to elpa/use-package-20180206.1414/use-package.el diff --git a/elpa/use-package-20171215.2248/use-package.info b/elpa/use-package-20180206.1414/use-package.info similarity index 100% rename from elpa/use-package-20171215.2248/use-package.info rename to elpa/use-package-20180206.1414/use-package.info