[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/objed 6f50de1 20/59: Add objed-append-mode for objed-co
From: |
Clemens Radermacher |
Subject: |
[elpa] externals/objed 6f50de1 20/59: Add objed-append-mode for objed-copy repeat |
Date: |
Sun, 24 Mar 2019 06:06:37 -0400 (EDT) |
branch: externals/objed
commit 6f50de1e2e24f918620ccde4f0151137f5fbb1f1
Author: Clemens Radermacher <address@hidden>
Commit: Clemens Radermacher <address@hidden>
Add objed-append-mode for objed-copy repeat
---
objed.el | 37 ++++++++++++++++++++++++-------------
1 file changed, 24 insertions(+), 13 deletions(-)
diff --git a/objed.el b/objed.el
index 7c7900a..8c49f81 100644
--- a/objed.el
+++ b/objed.el
@@ -2391,19 +2391,27 @@ region command."
(interactive)
(objed--do #'delete-region))
+(define-minor-mode objed-append-mode
+ "Append kills on `objed-copy'.
+
+When `objed-append-mode' is active `objed-copy' will append kills
+to the `kill-ring'.")
+
(defun objed-copy ()
"Copy objects.
-On repeat move on the next instance of current object type and
-append it to the `kill-ring'."
+On repeat activate `objed-append-mode'"
(interactive)
- (when (and (eq last-command 'kill-region)
- (not (eq real-last-command 'append-next-kill)))
- (objed--goto-next))
+ (when objed-append-mode
+ ;; append on repeat
+ (setq last-command 'kill-region))
(objed--do #'copy-region-as-kill)
- ;; append on repeat
- (setq this-command 'kill-region)
- (message "Copied to `kill-ring.'"))
+ (if (eq real-last-command real-this-command)
+ (progn (objed-append-mode 1)
+ (message "Append mode activated. Press g to stop."))
+ (message (if objed-append-mode
+ "Appended to `kill-ring'"
+ "Copied to `kill-ring.'"))))
(defun objed-del-insert ()
"Delete current object and exit to insert state."
@@ -3311,11 +3319,14 @@ on and RANGE hold the object position data."
If region is active deactivate it first."
(interactive)
- (if mark-active
- (progn
- (setq mark-active nil)
- (objed--init objed--object))
- (objed--exit-objed)))
+ (cond (mark-active
+ (setq mark-active nil)
+ (objed--init objed--object))
+ (objed-append-mode
+ (objed-append-mode -1)
+ (message "Append mode deactivated"))
+ (t
+ (objed--exit-objed))))
(defun objed--check-buffer ()
"Check if current buffer is still the `objed--buffer'.
- [elpa] externals/objed 084c9ea 39/59: Adding toggle identifier place command, (continued)
- [elpa] externals/objed 084c9ea 39/59: Adding toggle identifier place command, Clemens Radermacher, 2019/03/24
- [elpa] externals/objed d35abd5 30/59: Improve eval context op for comments and change its binding, Clemens Radermacher, 2019/03/24
- [elpa] externals/objed 26235a7 44/59: Improve duplicate op, Clemens Radermacher, 2019/03/24
- [elpa] externals/objed 5f9a7f6 37/59: Give feedback message on reformat, Clemens Radermacher, 2019/03/24
- [elpa] externals/objed bc5aa6c 26/59: Add left/right char to cmd-alist, Clemens Radermacher, 2019/03/24
- [elpa] externals/objed 041109d 27/59: Change object at point semantics (rules for o/[/]), Clemens Radermacher, 2019/03/24
- [elpa] externals/objed bad4e56 25/59: Add objed append mode binding "W", Clemens Radermacher, 2019/03/24
- [elpa] externals/objed d2e3da3 24/59: Add objed-eval binding ":", Clemens Radermacher, 2019/03/24
- [elpa] externals/objed 23005a3 23/59: Add object to register functionality, Clemens Radermacher, 2019/03/24
- [elpa] externals/objed a341a60 22/59: Fix identifier movement, Clemens Radermacher, 2019/03/24
- [elpa] externals/objed 6f50de1 20/59: Add objed-append-mode for objed-copy repeat,
Clemens Radermacher <=
- [elpa] externals/objed 850c2e9 16/59: Improve object next identifier, Clemens Radermacher, 2019/03/24
- [elpa] externals/objed c893402 17/59: Unify no next/prev message, Clemens Radermacher, 2019/03/24
- [elpa] externals/objed 4936ef0 18/59: Optionally use expand-region for extend expansion, Clemens Radermacher, 2019/03/24
- [elpa] externals/objed 00fd599 09/59: Skip leading ws on first/last instance command, too, Clemens Radermacher, 2019/03/24
- [elpa] externals/objed d56bf74 07/59: Don't ignore errors for try-next/prev, Clemens Radermacher, 2019/03/24
- [elpa] externals/objed 68c2a1e 01/59: Improve quit window, reformat if in edit buffer, Clemens Radermacher, 2019/03/24
- [elpa] externals/objed 5761dcf 29/59: Obey lexical binding for eval op, Clemens Radermacher, 2019/03/24
- [elpa] externals/objed 77fad58 19/59: If region is activated, deactivate it first on objed-quit, Clemens Radermacher, 2019/03/24
- [elpa] externals/objed 1c04620 49/59: Skip docstring for inner elisp defun object, Clemens Radermacher, 2019/03/24
- [elpa] externals/objed e771f06 14/59: Improve ace object, Clemens Radermacher, 2019/03/24