[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] master 2e3c2f7 013/110: Add new command `avy-move-region'
From: |
Oleh Krehel |
Subject: |
[elpa] master 2e3c2f7 013/110: Add new command `avy-move-region' |
Date: |
Sat, 11 May 2019 10:15:34 -0400 (EDT) |
branch: master
commit 2e3c2f7c88e226eaa74b64180c4dd68c1b83581e
Author: York Zhao <address@hidden>
Commit: Oleh Krehel <address@hidden>
Add new command `avy-move-region'
Fixes #75
---
avy.el | 18 ++++++++++++++++++
1 file changed, 18 insertions(+)
diff --git a/avy.el b/avy.el
index 496dfd5..1e5ee1a 100644
--- a/avy.el
+++ b/avy.el
@@ -82,6 +82,7 @@ in the avy overlays."
(const avy-copy-line)
(const avy-copy-region)
(const avy-move-line)
+ (const avy-move-region)
(function :tag "Other command"))
:value-type (repeat :tag "Keys" character)))
@@ -111,6 +112,7 @@ If the commands isn't on the list, `avy-style' is used."
(const avy-copy-line)
(const avy-copy-region)
(const avy-move-line)
+ (const avy-move-region)
(function :tag "Other command"))
:value-type (choice
(const :tag "Pre" pre)
@@ -1254,6 +1256,22 @@ The window scope is determined by `avy-all-windows' or
(user-error "Unexpected `avy-line-insert-style'")))))))
;;;###autoload
+(defun avy-move-region ()
+ "Select two lines and move the text between them here."
+ (interactive)
+ (avy-with avy-move-region
+ (let* ((beg (avy--line))
+ (end (save-excursion
+ (goto-char (avy--line))
+ (forward-line)
+ (point)))
+ (text (buffer-substring beg end))
+ (pad (if (bolp) "" "\n")))
+ (move-beginning-of-line nil)
+ (delete-region beg end)
+ (insert text pad))))
+
+;;;###autoload
(defun avy-setup-default ()
"Setup the default shortcuts."
(eval-after-load "isearch"
- [elpa] master 05a5003 022/110: avy.el: Fix linum-related compile warnings, (continued)
- [elpa] master 05a5003 022/110: avy.el: Fix linum-related compile warnings, Oleh Krehel, 2019/05/11
- [elpa] master 430d750 019/110: avy.el (avy--line-cands): Split away from avy--line, Oleh Krehel, 2019/05/11
- [elpa] master 0f5e99b 030/110: avy.el: Use next-char-property-change, not next-overlay-change, Oleh Krehel, 2019/05/11
- [elpa] master 33af738 017/110: avy.el (avy-goto-word-1-above): Add, Oleh Krehel, 2019/05/11
- [elpa] master 105efc8 037/110: avy.el (avy-action-copy): Copy line for avy-goto-line, Oleh Krehel, 2019/05/11
- [elpa] master 4e4c488 020/110: Add avy-linum-mode, Oleh Krehel, 2019/05/11
- [elpa] master d644be1 016/110: avy.el (avy-goto-char-2-above): Simplify, Oleh Krehel, 2019/05/11
- [elpa] master 4dcf0a9 018/110: avy.el (avy-goto-char-2): Translate "RET" to "C-j", Oleh Krehel, 2019/05/11
- [elpa] master ba950a0 015/110: avy.el (avy-goto-char-2-above): Add, Oleh Krehel, 2019/05/11
- [elpa] master 58bc417 014/110: Escape regex metacharacters for standard isearch, Oleh Krehel, 2019/05/11
- [elpa] master 2e3c2f7 013/110: Add new command `avy-move-region',
Oleh Krehel <=
- [elpa] master 85a384a 012/110: Add char at window start for avy-goto-subword-0, Oleh Krehel, 2019/05/11
- [elpa] master a80f95c 007/110: Add "X" dispatch to kill a word without moving there, Oleh Krehel, 2019/05/11
- [elpa] master 9e61f78 006/110: avy.el: Improve defcustom :type, Oleh Krehel, 2019/05/11
- [elpa] master 5ba3602 009/110: Assign avy-action-ispell to "i", Oleh Krehel, 2019/05/11
- [elpa] master 53706d2 011/110: avy.el (avy-all-windows-alt): Change the default to nil, Oleh Krehel, 2019/05/11
- [elpa] master 4c072be 010/110: README.md (avy-goto-char-timer): Add entry, Oleh Krehel, 2019/05/11
- [elpa] master c0db364 008/110: Add avy-action-ispell to avy.el, Oleh Krehel, 2019/05/11
- [elpa] master 3b75d95 005/110: Make "C-g" and "ESC" fail silently when reading char, Oleh Krehel, 2019/05/11
- [elpa] master 5f76c9d 004/110: avy.el (avy-goto-word-0-regexp): New defcustom, Oleh Krehel, 2019/05/11
- [elpa] master 5f6dd00 001/110: avy.el (avy-action-copy): Save window and frame, Oleh Krehel, 2019/05/11