[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/dash ec835e4 081/426: Add !split-at
From: |
Phillip Lord |
Subject: |
[elpa] externals/dash ec835e4 081/426: Add !split-at |
Date: |
Tue, 04 Aug 2015 19:36:51 +0000 |
branch: externals/dash
commit ec835e44181690cc3e90b992cca5392452f0f7ef
Author: Magnar Sveen <address@hidden>
Commit: Magnar Sveen <address@hidden>
Add !split-at
---
README.md | 10 ++++++++++
bang.el | 5 +++++
examples.el | 4 ++++
3 files changed, 19 insertions(+), 0 deletions(-)
diff --git a/README.md b/README.md
index 8ff0a3f..e044d39 100644
--- a/README.md
+++ b/README.md
@@ -24,6 +24,7 @@ Or you can just dump `bang.el` in your load path somewhere.
* [!drop](#drop-n-list) `(n list)`
* [!take-while](#take-while-fn-list) `(fn list)`
* [!drop-while](#drop-while-fn-list) `(fn list)`
+* [!split-at](#split-at-n-list) `(n list)`
* [!split-with](#split-with-fn-list) `(fn list)`
* [!interpose](#interpose-sep-list) `(sep list)`
* [!replace-where](#replace-where-pred-rep-list) `(pred rep list)`
@@ -205,6 +206,15 @@ Returns the tail of `list` starting from the first item
for which (`fn` item) re
(!!drop-while (< it 4) '(1 2 3 4 3 2 1)) ;; => '(4 3 2 1)
```
+### !split-at `(n list)`
+
+Returns a list of ((!take `n` `list`) (!drop `n` `list`))
+
+```cl
+(!split-at 3 '(1 2 3 4 5)) ;; => '((1 2 3) (4 5))
+(!split-at 17 '(1 2 3 4 5)) ;; => '((1 2 3 4 5) nil)
+```
+
### !split-with `(fn list)`
Returns a list of ((!take-while `fn` `list`) (!drop-while `fn` `list`))
diff --git a/bang.el b/bang.el
index f52caef..91918aa 100644
--- a/bang.el
+++ b/bang.el
@@ -187,6 +187,11 @@ Thus function FN should return a collection."
"Returns the tail of LIST starting from the first item for which (FN item)
returns nil."
(!!drop-while (funcall fn it) list))
+(defun !split-at (n list)
+ "Returns a list of ((!take N LIST) (!drop N LIST))"
+ (list (!take n list)
+ (!drop n list)))
+
(defmacro !!split-with (form list)
"Anaphoric form of `!split-with'."
`(list (!!take-while ,form ,list)
diff --git a/examples.el b/examples.el
index 01c3b15..0a7c828 100644
--- a/examples.el
+++ b/examples.el
@@ -76,6 +76,10 @@
(!drop-while 'even? '(2 4 5 6)) => '(5 6)
(!!drop-while (< it 4) '(1 2 3 4 3 2 1)) => '(4 3 2 1))
+(defexamples !split-at
+ (!split-at 3 '(1 2 3 4 5)) => '((1 2 3) (4 5))
+ (!split-at 17 '(1 2 3 4 5)) => '((1 2 3 4 5) nil))
+
(defexamples !split-with
(!split-with 'even? '(1 2 3 4)) => '(() (1 2 3 4))
(!split-with 'even? '(2 4 5 6)) => '((2 4) (5 6))
- [elpa] externals/dash ca3eea7 070/426: Fix examples-to-docs to support documenting macros., (continued)
- [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, 2015/08/04
- [elpa] externals/dash 3802890 082/426: Simplify !concat, Phillip Lord, 2015/08/04
- [elpa] externals/dash ec835e4 081/426: Add !split-at,
Phillip Lord <=
- [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
- [elpa] externals/dash 9ff9fd0 085/426: Move functions that are not strictly list related last., Phillip Lord, 2015/08/04
- [elpa] externals/dash 0c55a4b 090/426: 1.0.0, Phillip Lord, 2015/08/04