puni-wrap-pair function

[tpeacock19]

I currently use the below configuration to emulate insert-pair from lisp.el with puni-wrap-next-sexps. I figured it may be useful to add to puni itself. I'm happy to open a PR, but wanted to get your opinion first. This allows for the delimiter to be defined after calling the function, so there would be less need for puni-wrap-{round,square,curly,angle}.

Note: I currently use insert-pair-alist, but perhaps adding an alist specific to puni would be better.

(setf insert-pair-alist '((?\( ?\)) (?\[ ?\]) (?\{ ?\}) (?\< ?\>)
                               (?\" ?\") (?\' ?\') (?\` ?\') (?r "(" ")")
                               (?R "( " " )") (?c "{" "}") (?C "{ " " }")
                               (?b "[" "]") (?B "[ " " ]") (?o "<" ">")
                               (?O "< " " >") (?s "\"" "\"") (?t "\'" "\'")
                               (?v "`" "`")))

(defun +puni-wrap-pair (&optional n open close)
  (interactive "P")
  (let ((pair (or (assq last-command-event insert-pair-alist)
                  (assq (event-basic-type last-command-event)
                        insert-pair-alist))))
    (if pair
        (if (nth 2 pair)
            (setq open (nth 1 pair) close (nth 2 pair))
          (setq open (nth 0 pair) close (nth 1 pair)))))
  (puni-wrap-next-sexps
   (puni--parse-interactive-argument-for-wrap n)
   open close))

(defvar-keymap insert-pair-map
    :prefix 'insert-pair-map
    "<t>" #'+puni-wrap-pair)

(keymap-global-set "C-S-w" insert-pair-map)

[AmaiKinono]

Sorry for the late response.

I'm not sure if people will actually use +puni-wrap-pair often, based on my own habit:

• I'll just do it manually for pairs like (/) or backticks.
• I use electric-pair-mode to insert delimiters around the selection, so I'm used to mark the region to be wrapped first. "Wrapping the next N sexps" is not intuitive for me. If you are also used to mark things first, you could rewrite +puni-wrap-pair to be not based on Puni.

But if you are sure some users will found it useful, please go ahead.

[hkjels]

(defun puni-wrap (char)
    "Wrap the region with the given CHAR."
    (cond ((or (eq char ?\)) (eq char ?\()) (puni-wrap-round))
      ((or (eq char ?\]) (eq char ?\[)) (puni-wrap-square))
      ((or (eq char ?\}) (eq char ?\{)) (puni-wrap-curly))
      (t (save-excursion
           (goto-char (region-end))
           (insert char)
           (goto-char (region-beginning))
           (insert char)))))

(defun meow-wrap-with-pair ()
    "Prompt user to enter a character to wrap the active region, and use `puni-wrap`."
    (interactive)
    (if (use-region-p)
    (let ((char (read-char "Enter the character to wrap with: ")))
          (puni-wrap char))
      (message "No active region")))

I'm using this myself. Just sharing for others to steal