emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Improve prompts for various help commands

Browse source 
To make it clearer what you're searching for.
This commit is contained in:
Henrik Lissner 2019-12-28 19:57:37 -05:00
parent b38501a67b
commit 678a5d1f7c
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 11 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

21
core/autoload/help.el
View file

@ -96,7 +96,7 @@ the current major-modea.")
"Get information on an active minor mode. Use `describe-minor-mode' for a "Get information on an active minor mode. Use `describe-minor-mode' for a
selection of all minor-modes, active or not." selection of all minor-modes, active or not."
(interactive (interactive
(list (completing-read "Minor mode: " (doom-active-minor-modes)))) (list (completing-read "Describe active mode: " (doom-active-minor-modes))))
(let ((symbol (let ((symbol
(cond ((stringp mode) (intern mode)) (cond ((stringp mode) (intern mode))
((symbolp mode) mode) ((symbolp mode) mode)
@ -453,9 +453,9 @@ If prefix arg is present, refresh the cache."
(list (list
(intern (intern
(completing-read (if guess (completing-read (if guess
(format "Select package to search for (default %s): " (format "Select Doom package to search for (default %s): "
guess) guess)
"Describe package: ") "Describe Doom package: ")
packages nil t nil nil packages nil t nil nil
(if guess (symbol-name guess)))))))) (if guess (symbol-name guess))))))))
(require 'core-packages) (require 'core-packages)
@ -533,7 +533,7 @@ If prefix arg is present, refresh the cache."
(insert "\n\n"))))) (insert "\n\n")))))
(defvar doom--package-cache nil) (defvar doom--package-cache nil)
(defun doom--package-list () (defun doom--package-list (&optional prompt)
(let* ((guess (or (function-called-at-point) (let* ((guess (or (function-called-at-point)
(symbol-at-point)))) (symbol-at-point))))
(require 'finder-inf nil t) (require 'finder-inf nil t)
@ -549,10 +549,11 @@ If prefix arg is present, refresh the cache."
(setq doom--package-cache packages) (setq doom--package-cache packages)
(unless (memq guess packages) (unless (memq guess packages)
(setq guess nil)) (setq guess nil))
(intern (completing-read (if guess (intern (completing-read (or prompt
(format "Select package to search for (default %s): " (if guess
guess) (format "Select package to search for (default %s): "
"Describe package: ") guess)
"Describe package: "))
packages nil t nil nil packages nil t nil nil
(if guess (symbol-name guess))))))) (if guess (symbol-name guess)))))))
@ -599,7 +600,7 @@ If prefix arg is present, refresh the cache."
This only searches `doom-emacs-dir' (typically ~/.emacs.d) and does not include This only searches `doom-emacs-dir' (typically ~/.emacs.d) and does not include
config blocks in your private config." config blocks in your private config."
(interactive (list (doom--package-list))) (interactive (list (doom--package-list "Find package config: ")))
(cl-destructuring-bind (file line _match) (cl-destructuring-bind (file line _match)
(split-string (split-string
(completing-read (completing-read
@ -615,7 +616,7 @@ config blocks in your private config."
;;;###autoload ;;;###autoload
(defun doom/help-package-homepage (package) (defun doom/help-package-homepage (package)
"Open PACKAGE's repo or homepage in your browser." "Open PACKAGE's repo or homepage in your browser."
(interactive (list (doom--package-list))) (interactive (list (doom--package-list "Open package homepage: ")))
(browse-url (doom--package-url package))) (browse-url (doom--package-url package)))