[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/objed 85019a8 14/21: Add raise command
From: |
Clemens Radermacher |
Subject: |
[elpa] externals/objed 85019a8 14/21: Add raise command |
Date: |
Sun, 17 Mar 2019 15:00:18 -0400 (EDT) |
branch: externals/objed
commit 85019a8c9cf7f037e65d8d4c57ea4ce8cef44e45
Author: Clemens Radermacher <address@hidden>
Commit: Clemens Radermacher <address@hidden>
Add raise command
---
README.asc | 3 +++
objed.el | 21 ++++++++++++++++++---
2 files changed, 21 insertions(+), 3 deletions(-)
diff --git a/README.asc b/README.asc
index 2b335e7..36a54f2 100644
--- a/README.asc
+++ b/README.asc
@@ -321,6 +321,9 @@ once you can mark them first (see the "Misc commands"
below):
|kbd:[%]
|Query replace narrowed to current object.
+|kbd:[^]
+|Replace object with inner part (raise).
+
|kbd:[!]
|Replace object(s) with minibuffer input.
diff --git a/objed.el b/objed.el
index 9358cd0..557dd25 100644
--- a/objed.el
+++ b/objed.el
@@ -789,8 +789,7 @@ to the selected one."
nil objed-run-or-eval ignore))
(define-key map (kbd "<M-return>")
'objed-insert-new-object)
- ;; TODO:
- ;; (define-key map "^" 'objed-raise-inner)
+ (define-key map "^" 'objed-raise)
map)
"Keymap for commands when `objed' is active.")
@@ -3160,7 +3159,23 @@ If nil ‘eval-region’ is used instead.")
(eval-region beg end t))
((and (require lib nil t)
(commandp cmd))
- (call-interactively cmd))))))
+ (call-interactively cmd))))))
+
+
+(defun objed-raise ()
+ "Replace object with inner part."
+ (interactive)
+ (let* ((ibeg (objed--ibeg))
+ (iend (objed--iend))
+ (istring (buffer-substring ibeg iend))
+ (obeg (objed--obeg))
+ (oend (objed--oend)))
+ (objed--reset)
+ (delete-region obeg oend)
+ (save-excursion
+ (insert istring))))
+
+
;; * Exit active state
- [elpa] externals/objed 209f0a6 20/21: Add reformat op, (continued)
- [elpa] externals/objed 209f0a6 20/21: Add reformat op, Clemens Radermacher, 2019/03/17
- [elpa] externals/objed cc629a5 18/21: Add imenu to op map, Clemens Radermacher, 2019/03/17
- [elpa] externals/objed 0676656 19/21: Improve url object, Clemens Radermacher, 2019/03/17
- [elpa] externals/objed 4cb9beb 21/21: Version bump, Clemens Radermacher, 2019/03/17
- [elpa] externals/objed 9689c72 17/21: Reinit after raise, Clemens Radermacher, 2019/03/17
- [elpa] externals/objed 85941b8 16/21: Add objed-execute command, Clemens Radermacher, 2019/03/17
- [elpa] externals/objed 4bb1b90 12/21: Add url object, Clemens Radermacher, 2019/03/17
- [elpa] externals/objed 7627082 13/21: Don't ignore search errors, error with not other object found msg., Clemens Radermacher, 2019/03/17
- [elpa] externals/objed 998563a 06/21: Remove redundant :group declarations, Clemens Radermacher, 2019/03/17
- [elpa] externals/objed e9bf605 07/21: Refactor objec-replace, Clemens Radermacher, 2019/03/17
- [elpa] externals/objed 85019a8 14/21: Add raise command,
Clemens Radermacher <=
- [elpa] externals/objed c9b7c2a 05/21: Fix var not defined for edit-indirect, Clemens Radermacher, 2019/03/17
- [elpa] externals/objed 2274a94 02/21: Add package-lint to linting tests, and fix its errors/warnings, Clemens Radermacher, 2019/03/17
- [elpa] externals/objed 6ea0268 01/21: Buffer switch: Keep objed--object if possible, and update highlight, Clemens Radermacher, 2019/03/17
- [elpa] externals/objed 1054cd8 03/21: Compile tests like elpa does, and fix the compile errors in tests, Clemens Radermacher, 2019/03/17
- [elpa] externals/objed f5cc1ce 15/21: Remove binding for disfunct objed repeat, Clemens Radermacher, 2019/03/17
- [elpa] externals/objed bb5d097 11/21: Improve file object, Clemens Radermacher, 2019/03/17
- [elpa] externals/objed 96d5bc9 10/21: Add mail object, Clemens Radermacher, 2019/03/17
- [elpa] externals/objed cc6c36f 08/21: Derive package name from current dir, Clemens Radermacher, 2019/03/17
- [elpa] externals/objed be0cd7c 09/21: Fix identifier immediate jumping if used as last command, Clemens Radermacher, 2019/03/17
- [elpa] externals/objed 5a52e13 04/21: Remove load message, Clemens Radermacher, 2019/03/17