diff options
| -rw-r--r-- | emacs.org | 13 |
1 files changed, 9 insertions, 4 deletions
@@ -491,10 +491,10 @@ Also, if you just stumbled accross this at random, there is an easy tangle butto (not (file-executable-p fullpath))))) (directory-files path nil directory-files-no-dot-files-regexp nil)))) (split-string (getenv "PATH") ":" t))) - (alias-output (split-string (shell-command-to-string "alias -p | sed -E 's/^alias ([^=]*)=.*$/\1/'") "\n"))) - (ido-completing-read "Command: " (append ls-output alias-output)))) + (alias-output (split-string (shell-command-to-string "alias -p | sed -E 's/^alias ([^=]*)=.*$/\\1/'") "\n"))) + (append ls-output alias-output))) - (defun emenu () + (defun emenu (&optional command-list) "A dmenu-inspired application launcher using a separate emacs frame" (interactive) (with-selected-frame (make-frame '((name . "emenu") @@ -503,7 +503,12 @@ Also, if you just stumbled accross this at random, there is an easy tangle butto (height . 1))) (unwind-protect (progn - (call-process (all-commands) nil 0) + (call-process + (ido-completing-read "Command: " (or + command-list + (all-commands))) + nil + 0) (keyboard-quit)) (delete-frame)))) #+end_src |