workgroups2 Changeset - cd853be79b05

Changeset - cd853be79b05

Parent rev.

Child rev.

[Not reviewed]

0 1 0

Sergey Pashinin - 11 years ago 2014-08-23 16:15:00
sergey@pashinin.com

wg-take replaced

1 file changed with 2 insertions and 6 deletions:

src/workgroups-utils-basic.el

0 comments (0 inline, 0 general)

src/workgroups-utils-basic.el

➞

Show inline comments

@@ @@ -29,7 +29,7 @@ N defaults to 2, and STEP defaults to N. @@
 Iterative to prevent stack overflow."
   (let* ((n (or n 2)) (step (or step n)) acc)
     (while list
-      (push (wg-take list n) acc)
+      (push (-take n list) acc)
       (setq list (nthcdr step list)))
     (nreverse acc)))
   `(< (length ,seq-place)
       (length (cl-pushnew ,item ,seq-place ,@keys))))
 (defun wg-take (list n)
   "Return a list of the first N elts in LIST."
   (butlast list (- (length list) n)))
 (defun wg-range (start end)
   "Return a list of integers from START up to but not including END."
   (let (accum)
   "Rotate LIST by OFFSET.  Positive OFFSET rotates left, negative right."
   (when list
     (let ((split (mod (or offset 1) (length list))))
-      (append (nthcdr split list) (wg-take list split)))))
+      (append (nthcdr split list) (-take split list)))))
 (defun wg-center-rotate-list (list)
   "Rotate LIST so it's first elt is in the center.  When LIST's

0 comments (0 inline, 0 general)