ld/avy
1
0
Fork 0
mirror of https://github.com/abo-abo/avy.git synced 2026-02-04 06:42:26 +00:00
Code Issues Packages Projects Releases Wiki Activity

avy.el (avy-transpose-lines-in-region): Add

Browse Source 
Fixes #317
Fixes #310
This commit is contained in:
lWarne
2020-12-23 14:58:17 +00:00
committed by Oleh Krehel
parent bbf1e7339e
commit e92cb37457
1 changed files with 16 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
avy.el
View File

@@ -2176,6 +2176,22 @@ The window scope is determined by `avy-all-windows' (ARG negates it)."
(select-window window) (select-window window)
(goto-char (car res)))) (goto-char (car res))))
(error (error
(set-mark-command 4)))))
;;;###autoload
(defun avy-transpose-lines-in-region ()
"Transpose lines in the active region."
(interactive)
(when (and (use-region-p) (> (count-lines (region-beginning) (region-end)) 1))
(let ((avy-all-windows nil)
(fst-line-point (avy--line nil (region-beginning) (region-end))))
(when fst-line-point
(let ((snd-line-point (avy--line nil (region-beginning) (region-end))))
(when snd-line-point
(save-mark-and-excursion
(push-mark fst-line-point)
(goto-char snd-line-point)
(transpose-lines 0))
(avy-transpose-lines-in-region))))))) (avy-transpose-lines-in-region)))))))
;; ** Org-mode ;; ** Org-mode