[ELPA] Package updates

This commit is contained in:
Daniel - 2017-10-13 22:18:22 +02:00
parent f4a593551c
commit d39fa1a565
Signed by: dbo
GPG Key ID: 4F63DB96D45AA9C6
10 changed files with 66 additions and 28 deletions

View File

@ -1,2 +0,0 @@
;;; -*- no-byte-compile: t -*-
(define-package "dash" "20170810.137" "A modern list library for Emacs" 'nil :commit "0df0ff1a65d54377381e50c08d88b247db44c3dd" :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") (22942 51308 152174 503000))
;;;### (autoloads nil nil ("dash.el") (23004 61741 650744 218000))
;;;***

View File

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

View File

@ -4,7 +4,7 @@
;; Author: Magnar Sveen <magnars@gmail.com>
;; 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))
(when lists
(let (result)
(while (-none? 'null lists)
(--each lists (!cons (car it) result))
(setq lists (-map 'cdr lists)))
(nreverse result)))
(nreverse result))))
(defmacro --zip-with (form list1 list2)
"Anaphoric form of `-zip-with'.
@ -1151,6 +1188,7 @@ 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))
(when lists
(let (results)
(while (-none? 'null lists)
(setq results (cons (mapcar 'car lists) results))
@ -1160,7 +1198,7 @@ release of Dash. If you rely on this behavior, use -zip-pair instead."
;; to support backward compatability, return
;; a cons cell if two lists were provided
(--map (cons (car it) (cadr it)) results)
results)))
results))))
(defalias '-zip-pair '-zip)

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" (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))
;;;***

View File

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

View File

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