[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/objed a277292 191/216: Add option to wrap the region wi
From: |
Stefan Monnier |
Subject: |
[elpa] externals/objed a277292 191/216: Add option to wrap the region with any string(using universal arg) |
Date: |
Tue, 8 Jan 2019 12:29:37 -0500 (EST) |
branch: externals/objed
commit a2772928ecdf267921fb04b94c7929a909b104c7
Author: Clemera <address@hidden>
Commit: Clemera <address@hidden>
Add option to wrap the region with any string(using universal arg)
---
objed.el | 17 ++++++++++++++---
1 file changed, 14 insertions(+), 3 deletions(-)
diff --git a/objed.el b/objed.el
index 459b8f3..976706b 100644
--- a/objed.el
+++ b/objed.el
@@ -2097,10 +2097,21 @@ append it to the `kill-ring'."
"Saves the event used for `objed-electric'.")
(defun objed-electric-pair (beg end)
- "Wrap region between BEG, END like `electric'."
+ "Wrap region between BEG, END.
+
+If `current-prefix-arg' query for strings to wrap the region with
+else query for key event and use `electric'."
+ (if current-prefix-arg
+ ;; TODO: offer default, omit <> in html
+ (let ((left (read-string "Left side: "))
+ (right (read-string "Right side: ")))
+ (goto-char end)
+ (insert right)
+ (goto-char beg)
+ (insert left))
(let ((event (or objed--electric-event
- (setq objed--electric-event (read-event)))))
- (objed-electric beg end event)))
+ (setq objed--electric-event (read-event "Wrap with: ")))))
+ (objed-electric beg end event))))
(defun objed-electric (beg end &optional event)
- [elpa] externals/objed 179ac60 185/216: Update docs for exit-op, (continued)
- [elpa] externals/objed 179ac60 185/216: Update docs for exit-op, Stefan Monnier, 2019/01/08
- [elpa] externals/objed de09955 153/216: Markup fixes again, Stefan Monnier, 2019/01/08
- [elpa] externals/objed 4489ea3 187/216: Fixup forward word extend when already at word end pos, Stefan Monnier, 2019/01/08
- [elpa] externals/objed 9a0ea65 192/216: Fix override of default for comint-prompt-regexp, Stefan Monnier, 2019/01/08
- [elpa] externals/objed a7b9df6 183/216: Add C-RET, M-RET for eval-in-repl and inserting new object, Stefan Monnier, 2019/01/08
- [elpa] externals/objed 5ca0678 195/216: Indent for tab command should not activate objed, Stefan Monnier, 2019/01/08
- [elpa] externals/objed 93db5bc 215/216: Fix last commit, Stefan Monnier, 2019/01/08
- [elpa] externals/objed cd7be8b 211/216: Improve objed-extend, Stefan Monnier, 2019/01/08
- [elpa] externals/objed 10de1ad 189/216: Comment about commandline test, Stefan Monnier, 2019/01/08
- [elpa] externals/objed 77d1691 157/216: Update extend behavior, Stefan Monnier, 2019/01/08
- [elpa] externals/objed a277292 191/216: Add option to wrap the region with any string(using universal arg),
Stefan Monnier <=
- [elpa] externals/objed 043ec68 198/216: Adjust some bindings (q should quit window for convenience), Stefan Monnier, 2019/01/08
- [elpa] externals/objed 90af56a 203/216: Adjust objed-activate, Stefan Monnier, 2019/01/08
- [elpa] externals/objed 1bbd30f 210/216: Dont activate in minibuffer, Stefan Monnier, 2019/01/08
- [elpa] externals/objed b006b28 213/216: Change toggle state binding, Stefan Monnier, 2019/01/08
- [elpa] externals/objed 8ac3ec3 169/216: Mention numeric args, Stefan Monnier, 2019/01/08
- [elpa] externals/objed 0800b1f 201/216: Improve objed-quit-window, Stefan Monnier, 2019/01/08
- [elpa] externals/objed 8e86602 212/216: Change del-insert binding, leave binding DEL free, Stefan Monnier, 2019/01/08
- [elpa] externals/objed 4aa3530 196/216: Don't init when mode has own modal setup, Stefan Monnier, 2019/01/08
- [elpa] externals/objed c87e826 150/216: Add News file to document changes., Stefan Monnier, 2019/01/08
- [elpa] externals/objed db542e0 127/216: Add replace inside object op, Stefan Monnier, 2019/01/08