From 0b00baff99dcccb0800a7504c49c4a6102db1054 Mon Sep 17 00:00:00 2001 From: Gergely Polonkai Date: Fri, 20 Oct 2023 13:35:23 +0200 Subject: [PATCH] Remove gpolonkai/enclose-region I never really used this command. --- configuration.org | 39 --------------------------------------- 1 file changed, 39 deletions(-) diff --git a/configuration.org b/configuration.org index 1ba4ba7..6f5f2a6 100644 --- a/configuration.org +++ b/configuration.org @@ -416,44 +416,6 @@ Copied from http://whattheemacsd.com/editing-defuns.el-01.html (indent-for-tab-command)) #+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~ #+BEGIN_SRC emacs-lisp @@ -3917,7 +3879,6 @@ directory. It is available from [[http://plantuml.com/download][here]]. #+BEGIN_SRC emacs-lisp (bind-keys :map global-map - ("M-(" . gpolonkai/enclose-region) ("" . open-line-below) ("" . open-line-above) ("M-t" . nil) ;; Remove the old keybinding