From d39fa1a565e7002dd5a85eceb0910d27b3534e91 Mon Sep 17 00:00:00 2001 From: Daniel Borchmann Date: Fri, 13 Oct 2017 22:18:22 +0200 Subject: [PATCH] [ELPA] Package updates --- elpa/dash-20170810.137/dash-pkg.el | 2 - .../dash-autoloads.el | 2 +- elpa/dash-20171010.131/dash-pkg.el | 2 + .../dash.el | 80 ++++++++++++++----- .../hydra-autoloads.el | 4 +- .../hydra-examples.el | 0 .../hydra-ox.el | 0 .../hydra-pkg.el | 2 +- .../hydra.el | 2 +- .../lv.el | 0 10 files changed, 66 insertions(+), 28 deletions(-) delete mode 100644 elpa/dash-20170810.137/dash-pkg.el rename elpa/{dash-20170810.137 => dash-20171010.131}/dash-autoloads.el (83%) create mode 100644 elpa/dash-20171010.131/dash-pkg.el rename elpa/{dash-20170810.137 => dash-20171010.131}/dash.el (98%) rename elpa/{hydra-20170903.218 => hydra-20170924.2259}/hydra-autoloads.el (95%) rename elpa/{hydra-20170903.218 => hydra-20170924.2259}/hydra-examples.el (100%) rename elpa/{hydra-20170903.218 => hydra-20170924.2259}/hydra-ox.el (100%) rename elpa/{hydra-20170903.218 => hydra-20170924.2259}/hydra-pkg.el (64%) rename elpa/{hydra-20170903.218 => hydra-20170924.2259}/hydra.el (99%) rename elpa/{hydra-20170903.218 => hydra-20170924.2259}/lv.el (100%) diff --git a/elpa/dash-20170810.137/dash-pkg.el b/elpa/dash-20170810.137/dash-pkg.el deleted file mode 100644 index a25f7a5..0000000 --- a/elpa/dash-20170810.137/dash-pkg.el +++ /dev/null @@ -1,2 +0,0 @@ -;;; -*- no-byte-compile: t -*- -(define-package "dash" "20170810.137" "A modern list library for Emacs" 'nil :commit "0df0ff1a65d54377381e50c08d88b247db44c3dd" :keywords '("lists")) diff --git a/elpa/dash-20170810.137/dash-autoloads.el b/elpa/dash-20171010.131/dash-autoloads.el similarity index 83% rename from elpa/dash-20170810.137/dash-autoloads.el rename to elpa/dash-20171010.131/dash-autoloads.el index 6ffe377..f49049b 100644 --- a/elpa/dash-20170810.137/dash-autoloads.el +++ b/elpa/dash-20171010.131/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") (22942 51308 152174 503000)) +;;;### (autoloads nil nil ("dash.el") (23004 61741 650744 218000)) ;;;*** diff --git a/elpa/dash-20171010.131/dash-pkg.el b/elpa/dash-20171010.131/dash-pkg.el new file mode 100644 index 0000000..281a4c8 --- /dev/null +++ b/elpa/dash-20171010.131/dash-pkg.el @@ -0,0 +1,2 @@ +;;; -*- no-byte-compile: t -*- +(define-package "dash" "20171010.131" "A modern list library for Emacs" 'nil :commit "4b465277809aa49e4d34438877b0b2d8eeb4a6b8" :keywords '("lists")) diff --git a/elpa/dash-20170810.137/dash.el b/elpa/dash-20171010.131/dash.el similarity index 98% rename from elpa/dash-20170810.137/dash.el rename to elpa/dash-20171010.131/dash.el index 02b04b7..ff1ba2b 100644 --- a/elpa/dash-20170810.137/dash.el +++ b/elpa/dash-20171010.131/dash.el @@ -4,7 +4,7 @@ ;; Author: Magnar Sveen ;; Version: 2.13.0 -;; Package-Version: 20170810.137 +;; Package-Version: 20171010.131 ;; Keywords: lists ;; This program is free software; you can redistribute it and/or modify @@ -237,7 +237,9 @@ See also: `-reduce-r-from', `-reduce'" `(-reduce-r (lambda (&optional it acc) ,form) ,list)) (defmacro --filter (form list) - "Anaphoric form of `-filter'." + "Anaphoric form of `-filter'. + +See also: `--remove'." (declare (debug (form form))) (let ((r (make-symbol "result"))) `(let (,r) @@ -249,21 +251,25 @@ See also: `-reduce-r-from', `-reduce'" Alias: `-select' -See also: `-keep'" +See also: `-keep', `-remove'." (--filter (funcall pred it) list)) (defalias '-select '-filter) (defalias '--select '--filter) (defmacro --remove (form list) - "Anaphoric form of `-remove'." + "Anaphoric form of `-remove'. + +See also `--filter'." (declare (debug (form form))) `(--filter (not ,form) ,list)) (defun -remove (pred list) "Return a new list of the items in LIST for which PRED returns nil. -Alias: `-reject'" +Alias: `-reject' + +See also: `-filter'." (--remove (funcall pred it) list)) (defalias '-reject '-remove) @@ -577,6 +583,8 @@ Alias: `-any'" (defalias '-first-item 'car "Return the first item of LIST, or nil on an empty list. +See also: `-second-item', `-last-item'. + \(fn LIST)") ;; Ensure that calls to `-first-item' are compiled to a single opcode, @@ -584,6 +592,34 @@ Alias: `-any'" (put '-first-item 'byte-opcode 'byte-car) (put '-first-item 'byte-compile 'byte-compile-one-arg) +(defalias '-second-item 'cadr + "Return the second item of LIST, or nil if LIST is too short. + +See also: `-third-item'. + +\(fn LIST)") + +(defalias '-third-item 'caddr + "Return the third item of LIST, or nil if LIST is too short. + +See also: `-fourth-item'. + +\(fn LIST)") + +(defun -fourth-item (list) + "Return the fourth item of LIST, or nil if LIST is too short. + +See also: `-fifth-item'." + (declare (pure t) (side-effect-free t)) + (car (cdr (cdr (cdr list))))) + +(defun -fifth-item (list) + "Return the fifth item of LIST, or nil if LIST is too short. + +See also: `-last-item'." + (declare (pure t) (side-effect-free t)) + (car (cdr (cdr (cdr (cdr list)))))) + ;; TODO: emacs23 support, when dropped remove the condition (eval-when-compile (require 'cl) @@ -630,7 +666,7 @@ Alias: `-any'" (defmacro --any? (form list) "Anaphoric form of `-any?'." (declare (debug (form form))) - `(---truthy? (--first ,form ,list))) + `(---truthy? (--some ,form ,list))) (defun -any? (pred list) "Return t if (PRED x) is non-nil for any x in LIST, else nil. @@ -1105,11 +1141,12 @@ elements of LIST. Keys are compared by `equal'." (defun -interleave (&rest lists) "Return a new list of the first item in each list, then the second etc." (declare (pure t) (side-effect-free t)) - (let (result) - (while (-none? 'null lists) - (--each lists (!cons (car it) result)) - (setq lists (-map 'cdr lists))) - (nreverse result))) + (when lists + (let (result) + (while (-none? 'null lists) + (--each lists (!cons (car it) result)) + (setq lists (-map 'cdr lists))) + (nreverse result)))) (defmacro --zip-with (form list1 list2) "Anaphoric form of `-zip-with'. @@ -1151,16 +1188,17 @@ of cons cells. Otherwise, return the groupings as a list of lists. Please note! This distinction is being removed in an upcoming 3.0 release of Dash. If you rely on this behavior, use -zip-pair instead." (declare (pure t) (side-effect-free t)) - (let (results) - (while (-none? 'null lists) - (setq results (cons (mapcar 'car lists) results)) - (setq lists (mapcar 'cdr lists))) - (setq results (nreverse results)) - (if (= (length lists) 2) - ;; to support backward compatability, return - ;; a cons cell if two lists were provided - (--map (cons (car it) (cadr it)) results) - results))) + (when lists + (let (results) + (while (-none? 'null lists) + (setq results (cons (mapcar 'car lists) results)) + (setq lists (mapcar 'cdr lists))) + (setq results (nreverse results)) + (if (= (length lists) 2) + ;; to support backward compatability, return + ;; a cons cell if two lists were provided + (--map (cons (car it) (cadr it)) results) + results)))) (defalias '-zip-pair '-zip) diff --git a/elpa/hydra-20170903.218/hydra-autoloads.el b/elpa/hydra-20170924.2259/hydra-autoloads.el similarity index 95% rename from elpa/hydra-20170903.218/hydra-autoloads.el rename to elpa/hydra-20170924.2259/hydra-autoloads.el index e02a331..8c796d0 100644 --- a/elpa/hydra-20170903.218/hydra-autoloads.el +++ b/elpa/hydra-20170924.2259/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" (22981 14450 559411 900000)) +;;;### (autoloads nil "hydra" "hydra.el" (23004 61710 690801 163000)) ;;; 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") (22981 14450 567411 943000)) +;;;;;; "lv.el") (23004 61710 702801 140000)) ;;;*** diff --git a/elpa/hydra-20170903.218/hydra-examples.el b/elpa/hydra-20170924.2259/hydra-examples.el similarity index 100% rename from elpa/hydra-20170903.218/hydra-examples.el rename to elpa/hydra-20170924.2259/hydra-examples.el diff --git a/elpa/hydra-20170903.218/hydra-ox.el b/elpa/hydra-20170924.2259/hydra-ox.el similarity index 100% rename from elpa/hydra-20170903.218/hydra-ox.el rename to elpa/hydra-20170924.2259/hydra-ox.el diff --git a/elpa/hydra-20170903.218/hydra-pkg.el b/elpa/hydra-20170924.2259/hydra-pkg.el similarity index 64% rename from elpa/hydra-20170903.218/hydra-pkg.el rename to elpa/hydra-20170924.2259/hydra-pkg.el index 05f762f..dd35d7a 100644 --- a/elpa/hydra-20170903.218/hydra-pkg.el +++ b/elpa/hydra-20170924.2259/hydra-pkg.el @@ -1,4 +1,4 @@ -(define-package "hydra" "20170903.218" "Make bindings that stick around." +(define-package "hydra" "20170924.2259" "Make bindings that stick around." '((cl-lib "0.5")) :url "https://github.com/abo-abo/hydra" :keywords '("bindings")) diff --git a/elpa/hydra-20170903.218/hydra.el b/elpa/hydra-20170924.2259/hydra.el similarity index 99% rename from elpa/hydra-20170903.218/hydra.el rename to elpa/hydra-20170924.2259/hydra.el index 2eff8fe..a786d80 100644 --- a/elpa/hydra-20170903.218/hydra.el +++ b/elpa/hydra-20170924.2259/hydra.el @@ -631,7 +631,7 @@ HEAD's binding is returned as a string wrapped with [] or {}." (defconst hydra-width-spec-regex " ?-?[0-9]*?" "Regex for the width spec in keys and %` quoted sexps.") -(defvar hydra-key-regex "\\[\\|]\\|[-[:alnum:] ~.,;:/|?<>={}*+#%@!&^↑↓←→⌫⌦⏎'`()\"$]+?" +(defvar hydra-key-regex "\\[\\|]\\|[-\\[:alnum:] ~.,;:/|?<>={}*+#%@!&^↑↓←→⌫⌦⏎'`()\"$]+?" "Regex for the key quoted in the docstring.") (defun hydra--format (_name body docstring heads) diff --git a/elpa/hydra-20170903.218/lv.el b/elpa/hydra-20170924.2259/lv.el similarity index 100% rename from elpa/hydra-20170903.218/lv.el rename to elpa/hydra-20170924.2259/lv.el