diff options
Diffstat (limited to 'common/.emacs.d/init.el')
| -rw-r--r-- | common/.emacs.d/init.el | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/common/.emacs.d/init.el b/common/.emacs.d/init.el index e3715f2..ac15fea 100644 --- a/common/.emacs.d/init.el +++ b/common/.emacs.d/init.el @@ -4085,8 +4085,15 @@ instead." :ensure t :init (defun exwm-run (it) - (interactive (list (read-shell-command "Run: "))) - (let* ((is-program (eq (string-to-char it) ?!)) + (interactive + (list (let ((default-directory + (if current-prefix-arg + default-directory "~/"))) + (read-shell-command "Run: ")))) + (let* ((default-directory + (if current-prefix-arg + default-directory "~/")) + (is-program (eq (string-to-char it) ?!)) (sym (read it)) (str (if is-program (coerce (rest (coerce it 'list)) 'string) |