Remove gpolonkai/enclose-region
I never really used this command.
This commit is contained in:
parent
87137be645
commit
0b00baff99
@ -416,44 +416,6 @@ Copied from http://whattheemacsd.com/editing-defuns.el-01.html
|
|||||||
(indent-for-tab-command))
|
(indent-for-tab-command))
|
||||||
#+END_SRC
|
#+END_SRC
|
||||||
|
|
||||||
*** Enclose region in a specific character
|
|
||||||
|
|
||||||
#+BEGIN_SRC emacs-lisp
|
|
||||||
(defun gpolonkai/enclose-region (character &optional start end)
|
|
||||||
"Enclose region between CHARACTER.
|
|
||||||
|
|
||||||
If region is empty and neither START nor END is set, simply inserts CHARACTER
|
|
||||||
two times and moves point between them.
|
|
||||||
|
|
||||||
If character is present in `insert-pair-alist', this function will enclose
|
|
||||||
region in the corresponding pair. In this case, CHARACTER must be the opening
|
|
||||||
member of the pair."
|
|
||||||
|
|
||||||
(interactive "cWhat character? \nr")
|
|
||||||
|
|
||||||
(let ((open character)
|
|
||||||
(close character)
|
|
||||||
(pair (assq character 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))))
|
|
||||||
(unless (and open close)
|
|
||||||
(setq open character
|
|
||||||
close character))
|
|
||||||
(unless (use-region-p)
|
|
||||||
(setq start (point)
|
|
||||||
end (point)))
|
|
||||||
(save-excursion
|
|
||||||
(goto-char end)
|
|
||||||
(insert-char close)
|
|
||||||
|
|
||||||
(goto-char start)
|
|
||||||
(insert-char open))
|
|
||||||
(unless (use-region-p)
|
|
||||||
(forward-char))))
|
|
||||||
#+END_SRC
|
|
||||||
|
|
||||||
*** Convert ~camelCase~ to ~snake_case~
|
*** Convert ~camelCase~ to ~snake_case~
|
||||||
|
|
||||||
#+BEGIN_SRC emacs-lisp
|
#+BEGIN_SRC emacs-lisp
|
||||||
@ -3917,7 +3879,6 @@ directory. It is available from [[http://plantuml.com/download][here]].
|
|||||||
#+BEGIN_SRC emacs-lisp
|
#+BEGIN_SRC emacs-lisp
|
||||||
(bind-keys
|
(bind-keys
|
||||||
:map global-map
|
:map global-map
|
||||||
("M-(" . gpolonkai/enclose-region)
|
|
||||||
("<C-return>" . open-line-below)
|
("<C-return>" . open-line-below)
|
||||||
("<C-S-return>" . open-line-above)
|
("<C-S-return>" . open-line-above)
|
||||||
("M-t" . nil) ;; Remove the old keybinding
|
("M-t" . nil) ;; Remove the old keybinding
|
||||||
|
Loading…
Reference in New Issue
Block a user