dotfiles

commit 6891e979959f719675f612b607b780fdbe95c955
parent 2f987e42f1eb9daf864285d5a51de69ed4743b04
Author: Kévin Le Gouguec <kevin.legouguec@gmail.com>
Date:   Sat,  5 Nov 2022 14:27:45 +0100

Rename some Emacs commands

Diffstat:
M
.emacs
 | 
12
++++++------

1 file changed, 6 insertions(+), 6 deletions(-)
diff --git a/.emacs b/.emacs
@@ -172,11 +172,11 @@
   (kill-new stuff)
   (message stuff))
 
-(defun my/kill-ring-filename ()
+(defun my/kill-filename ()
   (interactive)
   (my/kill (or (buffer-file-name) default-directory)))
 
-(defun my/kill-ring-pipe-region (command)
+(defun my/kill-pipe-region (command)
   (interactive (list (read-shell-command "Shell command on region: ")))
   (let ((input (funcall region-extract-function nil)))
     (with-temp-buffer
@@ -185,7 +185,7 @@
                            t t nil shell-command-switch command)
       (my/kill (buffer-string)))))
 
-(defun my/kill-ring-shell (command)
+(defun my/kill-shell (command)
   (interactive (list (read-shell-command "Shell command: ")))
   (with-temp-buffer
     (call-process-shell-command command nil t)
@@ -244,9 +244,9 @@
 
 (my/define-prefix-command my/kill-map
   "Keymap for adding things to the kill ring."
-  '(("f" my/kill-ring-filename)
-    ("|" my/kill-ring-pipe-region)
-    ("!" my/kill-ring-shell)))
+  '(("f" my/kill-filename)
+    ("|" my/kill-pipe-region)
+    ("!" my/kill-shell)))
 
 (my/define-prefix-command my/manual-map
   "Keymap for reading manuals."