ld/multiple-cursors.el
1
0
Fork 0
mirror of https://github.com/magnars/multiple-cursors.el.git synced 2025-10-13 13:03:03 +00:00
Code Issues Packages Projects Releases Wiki Activity

Refactor mc/first-cursor-after and mc/last-cursor-before to not use extreme.

Browse Source 
Sometimes imperative code is more readable.
Suggested by magnars (https://github.com/magnars/multiple-cursors.el/pull/23#commitcomment-1983268)
This commit is contained in:
Marco Baringer 2012-10-12 16:51:01 +02:00
parent a8b632386d
commit 19b1a83925
1 changed files with 18 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

44
mc-cycle-cursors.el
View File

@ -66,6 +66,24 @@
(warn (message error-message)) (warn (message error-message))
(continue nil))) (continue nil)))
(defun mc/first-cursor-after (point)
"Very similar to mc/furthest-cursor-before-point, but ignores (mark) and (point)."
(let* ((cursors (mc/all-fake-cursors))
(cursors-after-point (remove-if (lambda (cursor)
(< (mc/cursor-beg cursor) point))
cursors))
(cursors-in-order (sort* cursors-after-point '< :key 'mc/cursor-beg)))
(first cursors-in-order)))
(defun mc/last-cursor-before (point)
"Very similar to mc/furthest-cursor-before-point, but ignores (mark) and (point)."
(let* ((cursors (mc/all-fake-cursors))
(cursors-before-point (remove-if (lambda (cursor)
(> (mc/cursor-end cursor) point))
cursors))
(cursors-in-order (sort* cursors-before-point '> :key 'mc/cursor-end)))
(first cursors-in-order)))
(defun mc/cycle (next-cursor fallback-cursor loop-message) (defun mc/cycle (next-cursor fallback-cursor loop-message)
(when (null next-cursor) (when (null next-cursor)
(mc/handle-loop-condition loop-message) (mc/handle-loop-condition loop-message)
@ -74,32 +92,6 @@
(mc/pop-state-from-overlay next-cursor) (mc/pop-state-from-overlay next-cursor)
(recenter)) (recenter))
(defun extreme (sequence predicate &optional key)
"Returns the most predicate-y element of sequence; equivalent
to (first (sort sequence text)). The extreme of the empty list is
always nil."
(let ((extreme (first sequence)))
(dolist (i (rest sequence))
(when (funcall predicate
(funcall (or key 'identity) i)
(funcall (or key 'identity) extreme))
(setf extreme i)))
extreme))
(defun mc/first-cursor-after (point)
"Very similar to mc/furthest-cursor-before-point, but ignores (mark) and (point)."
(extreme (remove-if (lambda (cursor)
(< (mc/cursor-beg cursor) point))
(mc/all-fake-cursors))
'< 'mc/cursor-beg))
(defun mc/last-cursor-before (point)
"Very similar to mc/furthest-cursor-before-point, but ignores (mark) and (point)."
(extreme (remove-if (lambda (cursor)
(> (mc/cursor-end cursor) point))
(mc/all-fake-cursors))
'> 'mc/cursor-end))
(defun mc/cycle-forward () (defun mc/cycle-forward ()
(interactive) (interactive)
(mc/cycle (mc/next-cursor-after-point) (mc/cycle (mc/next-cursor-after-point)