[elpa] externals/objed a277292 191/216: Add option to wrap the region with any string(using universal arg)

[Stefan Monnier]

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)