[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/dash 4e76865 075/426: Add !take-while
From: |
Phillip Lord |
Subject: |
[elpa] externals/dash 4e76865 075/426: Add !take-while |
Date: |
Tue, 04 Aug 2015 19:36:48 +0000 |
branch: externals/dash
commit 4e76865ace9dad63721272e59a11f09b37823e28
Author: Magnar Sveen <address@hidden>
Commit: Magnar Sveen <address@hidden>
Add !take-while
---
README.md | 11 +++++++++++
bang.el | 15 +++++++++++++++
examples.el | 5 +++++
3 files changed, 31 insertions(+), 0 deletions(-)
diff --git a/README.md b/README.md
index 5441fd2..15da0c9 100644
--- a/README.md
+++ b/README.md
@@ -20,6 +20,7 @@ Or you can just dump `bang.el` in your load path somewhere.
* [!keep](#keep-fn-list) `(fn list)`
* [!concat](#concat-rest-lists) `(&rest lists)`
* [!mapcat](#mapcat-fn-list) `(fn list)`
+* [!take-while](#take-while-fn-list) `(fn list)`
* [!interpose](#interpose-sep-list) `(sep list)`
* [!replace-where](#replace-where-pred-rep-list) `(pred rep list)`
* [!first](#first-fn-list) `(fn list)`
@@ -162,6 +163,16 @@ Thus function `fn` should return a collection.
(!!mapcat (list 0 it) '(1 2 3)) ;; => '(0 1 0 2 0 3)
```
+### !take-while `(fn list)`
+
+Returns a new list of successive items from `list` while (`fn` item) returns a
non-nil value.
+
+```cl
+(!take-while 'even? '(1 2 3 4)) ;; => '()
+(!take-while 'even? '(2 4 5 6)) ;; => '(2 4)
+(!!take-while (< it 4) '(1 2 3 4 3 2 1)) ;; => '(1 2 3)
+```
+
### !interpose `(sep list)`
Returns a new list of all elements in `list` separated by `sep`.
diff --git a/bang.el b/bang.el
index 4f5c404..4fc290f 100644
--- a/bang.el
+++ b/bang.el
@@ -144,6 +144,21 @@ the supplied LISTS."
Thus function FN should return a collection."
(!!mapcat (funcall fn it) list))
+(defmacro !!take-while (form list)
+ "Anaphoric form of `!take-while'."
+ (let ((l (make-symbol "list"))
+ (r (make-symbol "result")))
+ `(let ((,l ,list)
+ (,r '()))
+ (while (and ,l (let ((it (car ,l))) ,form))
+ (setq ,r (cons (car ,l) ,r))
+ (setq ,l (cdr ,l)))
+ (nreverse ,r))))
+
+(defun !take-while (fn list)
+ "Returns a new list of successive items from LIST while (FN item) returns a
non-nil value."
+ (!!take-while (funcall fn it) list))
+
(defun !interpose (sep list)
"Returns a new list of all elements in LIST separated by SEP."
(let (result)
diff --git a/examples.el b/examples.el
index d894a4d..32f9221 100644
--- a/examples.el
+++ b/examples.el
@@ -58,6 +58,11 @@
(!mapcat (lambda (item) (list 0 item)) '(1 2 3)) => '(0 1 0 2 0 3)
(!!mapcat (list 0 it) '(1 2 3)) => '(0 1 0 2 0 3))
+(defexamples !take-while
+ (!take-while 'even? '(1 2 3 4)) => '()
+ (!take-while 'even? '(2 4 5 6)) => '(2 4)
+ (!!take-while (< it 4) '(1 2 3 4 3 2 1)) => '(1 2 3))
+
(defexamples !interpose
(!interpose "-" '()) => '()
(!interpose "-" '("a")) => '("a")
- [elpa] externals/dash 6be4c03 058/426: !first, (continued)
- [elpa] externals/dash 6be4c03 058/426: !first, Phillip Lord, 2015/08/04
- [elpa] externals/dash 0991c29 057/426: Added some common aliases, Phillip Lord, 2015/08/04
- [elpa] externals/dash ca3eea7 070/426: Fix examples-to-docs to support documenting macros., Phillip Lord, 2015/08/04
- [elpa] externals/dash a6323eb 059/426: Add some tests that verify that the lists are evaled by the anaphoric macros., Phillip Lord, 2015/08/04
- [elpa] externals/dash b29a5bb 071/426: Use make-symbol in macros to avoid names clashing., Phillip Lord, 2015/08/04
- [elpa] externals/dash 6520496 060/426: First release, remove warning., Phillip Lord, 2015/08/04
- [elpa] externals/dash 8bd82c7 051/426: Show empty lists as '() instead of nil in docs., Phillip Lord, 2015/08/04
- [elpa] externals/dash 66ffaa6 072/426: Add !interpose, Phillip Lord, 2015/08/04
- [elpa] externals/dash ec6a85f 074/426: Add threading macro !!-> with `it` as placeholder., Phillip Lord, 2015/08/04
- [elpa] externals/dash 6238f8f 077/426: Add !split-with, Phillip Lord, 2015/08/04
- [elpa] externals/dash 4e76865 075/426: Add !take-while,
Phillip Lord <=
- [elpa] externals/dash 3802890 082/426: Simplify !concat, Phillip Lord, 2015/08/04
- [elpa] externals/dash ec835e4 081/426: Add !split-at, Phillip Lord, 2015/08/04
- [elpa] externals/dash 0dab44c 084/426: Add -flatten, Phillip Lord, 2015/08/04
- [elpa] externals/dash 047eeea 066/426: Run tests on Emacs 24., Phillip Lord, 2015/08/04
- [elpa] externals/dash 9410f7e 073/426: Add !replace-where, Phillip Lord, 2015/08/04
- [elpa] externals/dash 123eaaa 078/426: Docs: Refer to !replace-where from !!replace-where., Phillip Lord, 2015/08/04
- [elpa] externals/dash 70488c2 063/426: Add !rpartial, Phillip Lord, 2015/08/04
- [elpa] externals/dash 82a12a2 076/426: Add !drop-while, Phillip Lord, 2015/08/04
- [elpa] externals/dash fea1aa3 086/426: Add -interleave, Phillip Lord, 2015/08/04
- [elpa] externals/dash 38cc9e7 088/426: Simplify -interleave with -none?, Phillip Lord, 2015/08/04