From b7e4e1be6a7ae88d0b35c612793b73aeb755b9e2 Mon Sep 17 00:00:00 2001 From: Simon Parri Date: Sat, 22 Nov 2025 11:28:01 -0600 Subject: Emacs: Make `exwm-run' start programs in home directory by default --- common/.emacs.d/init.el | 11 +++++++++-- 1 file 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) -- cgit v1.2.3