[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/seq 1580064 04/53: Update seq.el to version 1.2
From: |
Stefan Monnier |
Subject: |
[elpa] externals/seq 1580064 04/53: Update seq.el to version 1.2 |
Date: |
Tue, 1 Dec 2020 17:06:03 -0500 (EST) |
branch: externals/seq
commit 158006459c6c36b095836c7f24bea83f89e98729
Author: Nicolas Petton <nicolas@petton.fr>
Commit: Nicolas Petton <nicolas@petton.fr>
Update seq.el to version 1.2
* package/seq/seq.el: Update to version 1.2
* packages/seq/tests/seq-tests.el: Update to version 1.2
---
seq.el | 28 +++++++++++++++++++++++-----
tests/seq-tests.el | 11 +++++++++--
2 files changed, 32 insertions(+), 7 deletions(-)
diff --git a/seq.el b/seq.el
index bc0344d..5366fd2 100644
--- a/seq.el
+++ b/seq.el
@@ -4,7 +4,7 @@
;; Author: Nicolas Petton <nicolas@petton.fr>
;; Keywords: sequences
-;; Version: 1.1.1
+;; Version: 1.2
;; Package: seq
;; Maintainer: emacs-devel@gnu.org
@@ -172,9 +172,7 @@ The result is a sequence of the same type as SEQ."
(if (listp seq)
(sort (seq-copy seq) pred)
(let ((result (seq-sort pred (append seq nil))))
- (cond ((stringp seq) (concat result))
- ((vectorp seq) (vconcat result))
- (t (error "Unsupported sequence: %s" seq))))))
+ (seq--into result (type-of seq)))))
(defun seq-contains-p (seq elt &optional testfn)
"Return the first element in SEQ that equals to ELT.
@@ -257,6 +255,27 @@ keys. Keys are compared using `equal'."
(seq-reverse seq)
nil))
+(defalias 'seq-reverse
+ (if (ignore-errors (reverse [1 2]))
+ #'reverse
+ (lambda (seq)
+ "Return the reversed copy of list, vector, or string SEQ.
+See also the function `nreverse', which is used more often."
+ (let ((result '()))
+ (seq-map (lambda (elt) (push elt result))
+ seq)
+ (if (listp seq)
+ result
+ (seq--into result (type-of seq)))))))
+
+(defun seq--into (seq type)
+ "Convert the sequence SEQ into a sequence of type TYPE."
+ (pcase type
+ (`vector (vconcat seq))
+ (`string (concat seq))
+ (`list (append seq nil))
+ (t (error "Not a sequence type name: %s" type))))
+
(defun seq--drop-list (list n)
"Return a list from LIST without its first N elements.
This is an optimization for lists in `seq-drop'."
@@ -300,7 +319,6 @@ This is an optimization for lists in `seq-take-while'."
(defalias 'seq-copy #'copy-sequence)
(defalias 'seq-elt #'elt)
-(defalias 'seq-reverse #'reverse)
(defalias 'seq-length #'length)
(defalias 'seq-do #'mapc)
(defalias 'seq-each #'seq-do)
diff --git a/tests/seq-tests.el b/tests/seq-tests.el
index b92a15c..badb326 100644
--- a/tests/seq-tests.el
+++ b/tests/seq-tests.el
@@ -216,10 +216,17 @@ Evaluate BODY for each created sequence.
(should (equal (seq-partition '(1 2 3) -1) '())))
(ert-deftest test-seq-group-by ()
- (should (equal (seq-group-by #'test-sequences-oddp '(1 2 3 4))
- '((t 1 3) (nil 2 4))))
+ (with-test-sequences (seq '(1 2 3 4))
+ (should (equal (seq-group-by #'test-sequences-oddp seq)
+ '((t 1 3) (nil 2 4)))))
(should (equal (seq-group-by #'car '((a 1) (b 3) (c 4) (a 2)))
'((b (b 3)) (c (c 4)) (a (a 1) (a 2))))))
+(ert-deftest test-seq-reverse ()
+ (with-test-sequences (seq '(1 2 3 4))
+ (should (same-contents-p (seq-reverse seq) '(4 3 2 1)))
+ (should (equal (type-of (seq-reverse seq))
+ (type-of seq)))))
+
(provide 'seq-tests)
;;; seq-tests.el ends here
- [elpa] externals/seq 380986d 02/53: Update seq.el to version 1.1, (continued)
- [elpa] externals/seq 380986d 02/53: Update seq.el to version 1.1, Stefan Monnier, 2020/12/01
- [elpa] externals/seq 088b2d6 09/53: Update seq.el to version 1.7, Stefan Monnier, 2020/12/01
- [elpa] externals/seq c555087 06/53: Rephrases a comment in seq.el about the order of the arguments, Stefan Monnier, 2020/12/01
- [elpa] externals/seq 81682a1 11/53: Update seq.el to version 1.9, Stefan Monnier, 2020/12/01
- [elpa] externals/seq 444ca62 01/53: packages/seq: New package, Stefan Monnier, 2020/12/01
- [elpa] externals/seq 503dc82 03/53: Update seq.el to version 1.1.1, Stefan Monnier, 2020/12/01
- [elpa] externals/seq 021f678 12/53: Update seq.el to version 1.11, Stefan Monnier, 2020/12/01
- [elpa] externals/seq 0ffc6fd 05/53: Update seq.el to version 1.3, Stefan Monnier, 2020/12/01
- [elpa] externals/seq 5d295d9 10/53: Update seq.el to version 1.8, Stefan Monnier, 2020/12/01
- [elpa] externals/seq 0455744 08/53: * packages/seq/seq.el: Update seq.el to version 1.5., Stefan Monnier, 2020/12/01
- [elpa] externals/seq 1580064 04/53: Update seq.el to version 1.2,
Stefan Monnier <=
- [elpa] externals/seq 3c98f64 07/53: seq.el update, Stefan Monnier, 2020/12/01