commit 257908c25366ef5d59c4b3b7976f9baa4e025015
parent cababb5e10d7036d3f5161c177528716ca182d68
Author: Kévin Le Gouguec <kevin.legouguec@gmail.com>
Date: Wed, 20 Jun 2018 15:34:28 +0200
Add ways to run shell commands in the minibuffer
I sometimes need to create a file named $(date +%F).md. This commit
introduces two ways to do this:
1. with recursive minibuffers:
C-x C-f M-! date +%F RET
2. with a new function to add shell command outputs to the kill ring:
C-x C-f C-c k ! date +%F RET C-y
Diffstat:
2 files changed, 9 insertions(+), 0 deletions(-)
diff --git a/.emacs b/.emacs
@@ -42,6 +42,7 @@
(global-set-key (kbd "C-c f") 'auto-fill-mode)
(global-set-key (kbd "C-c k f") 'my/kill-ring-filename)
(global-set-key (kbd "C-c k |") 'my/kill-ring-pipe-region)
+(global-set-key (kbd "C-c k !") 'my/kill-ring-shell)
(global-set-key (kbd "C-c m") 'man)
(global-set-key (kbd "C-c p") 'electric-pair-mode)
(global-set-key (kbd "C-c t") 'toggle-truncate-lines)
@@ -218,6 +219,12 @@
t t nil shell-command-switch command)
(kill-new (buffer-string)))))
+(defun my/kill-ring-shell (command)
+ (interactive (list (read-shell-command "Shell command: ")))
+ (with-temp-buffer
+ (call-process-shell-command command nil t)
+ (kill-new (buffer-string))))
+
(defun my/froggify ()
(ispell-change-dictionary "fr")
(setq-local colon-double-space nil)
diff --git a/.emacs-custom.el b/.emacs-custom.el
@@ -15,6 +15,7 @@
'(ediff-merge-split-window-function (quote split-window-vertically))
'(ediff-split-window-function (quote split-window-horizontally))
'(electric-pair-mode t)
+ '(enable-recursive-minibuffers t)
'(erc-log-channels-directory "~/.irc-logs")
'(erc-log-write-after-insert t)
'(erc-log-write-after-send t)
@@ -39,6 +40,7 @@
'(markdown-enable-math t)
'(markdown-header-scaling t)
'(menu-bar-mode nil)
+ '(minibuffer-depth-indicate-mode t)
'(package-archives
(quote
(("melpa" . "https://melpa.org/packages/")
