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

Refactor doom/help-packages

Browse source
This commit is contained in:
Yuri Pieters 2021-02-01 02:07:27 +00:00
parent 5293c460db
commit b983929e82
1 changed files with 60 additions and 45 deletions
Download patch file Download diff file Expand all files Collapse all files

85
core/autoload/help.el
View file

@ -420,7 +420,7 @@ will open with point on that line."
(if (string-match-p "^https?://" uri) (if (string-match-p "^https?://" uri)
(lambda (_) (browse-url uri)) (lambda (_) (browse-url uri))
(unless (file-exists-p uri) (unless (file-exists-p uri)
(user-error "Path does not exist: %S" uri)) (error "Path does not exist: %S" uri))
(lambda (_) (lambda (_)
(when (window-dedicated-p) (when (window-dedicated-p)
(other-window 1)) (other-window 1))
@ -461,44 +461,41 @@ If prefix arg is present, refresh the cache."
(if (and doom--help-packages-list (null current-prefix-arg)) (if (and doom--help-packages-list (null current-prefix-arg))
doom--help-packages-list doom--help-packages-list
(message "Generating packages list for the first time...") (message "Generating packages list for the first time...")
(sit-for 0.1) (redisplay)
(setq doom--help-packages-list (setq doom--help-packages-list
(delete-dups (delete-dups
(append (mapcar #'car package-alist) (append (mapcar #'car package-alist)
(mapcar #'car package--builtins) (mapcar #'car package--builtins)
(mapcar #'intern (hash-table-keys straight--build-cache)) (mapcar #'intern
(hash-table-keys straight--build-cache))
(mapcar #'car (doom-package-list 'all)) (mapcar #'car (doom-package-list 'all))
nil)))))) nil))))))
(unless (memq guess packages) (unless (memq guess packages)
(setq guess nil)) (setq guess nil))
(list (list
(intern (intern
(completing-read (if guess (completing-read (format "Describe Doom package (%s): "
(format "Select Doom package to search for (default %s): " (concat (when guess
guess) (format "default '%s', " guess))
(format "Describe Doom package (%d): " (length packages))) (format "total %d" (length packages))))
packages nil t nil nil packages nil t nil nil
(if guess (symbol-name guess)))))))) (when guess (symbol-name guess))))))))
;; TODO Refactor me. ;; TODO Refactor me.
(require 'core-packages) (require 'core-packages)
(doom-initialize-packages) (doom-initialize-packages)
(if (or (package-desc-p package) (help-setup-xref (list #'doom/help-packages package)
(called-interactively-p 'interactive))
(with-help-window (help-buffer)
(with-current-buffer standard-output
(when (or (package-desc-p package)
(and (symbolp package) (and (symbolp package)
(or (assq package package-alist) (or (assq package package-alist)
(assq package package--builtins)))) (assq package package--builtins))))
(describe-package package) (describe-package-1 package))
(help-setup-xref (list #'doom/help-packages package) (let ((indent (make-string 13 ? )))
(called-interactively-p 'interactive)) (goto-char (point-min))
(with-help-window (help-buffer))) (if (re-search-forward " Status: .*$" nil t)
(save-excursion (insert "\n")
(with-current-buffer (help-buffer)
(let ((inhibit-read-only t)
(indent (make-string 13 ? )))
(goto-char (point-max))
(if (re-search-forward "^ *Status: " nil t)
(progn
(end-of-line)
(insert "\n"))
(search-forward "\n\n" nil t)) (search-forward "\n\n" nil t))
(package--print-help-section "Package") (package--print-help-section "Package")
@ -513,38 +510,53 @@ If prefix arg is present, refresh the cache."
pin pin
"unpinned") "unpinned")
"\n") "\n")
(package--print-help-section "Build") (package--print-help-section "Build")
(let ((default-directory (straight--repos-dir (symbol-name package)))) (let ((default-directory (straight--repos-dir (symbol-name package))))
(insert (cdr (doom-call-process "git" "log" "-1" "--format=%D %h %ci")) (if
"\n" indent)) (file-exists-p default-directory)
(insert
(cdr
(doom-call-process "git" "log" "-1" "--format=%D %h %ci")))
(insert "n/a")))
(insert "\n" indent)
(package--print-help-section "Build location") (package--print-help-section "Build location")
(let ((build-dir (straight--build-dir (symbol-name package)))) (let ((build-dir (straight--build-dir (symbol-name package))))
(if (file-exists-p build-dir) (if (file-exists-p build-dir)
(doom--help-insert-button (abbreviate-file-name build-dir)) (doom--help-insert-button (abbreviate-file-name build-dir))
(insert "n/a"))) (insert "n/a")))
(insert "\n" indent) (insert "\n" indent)
(package--print-help-section "Repo location") (package--print-help-section "Repo location")
(let ((repo-dir (straight--repos-dir (symbol-name package)))) (let ((repo-dir (straight--repos-dir (symbol-name package))))
(if (file-exists-p repo-dir) (if (file-exists-p repo-dir)
(doom--help-insert-button (abbreviate-file-name repo-dir)) (doom--help-insert-button (abbreviate-file-name repo-dir))
(insert "n/a")) (insert "n/a"))
(insert "\n")) (insert "\n"))
(let ((recipe (doom-package-build-recipe package))) (let ((recipe (doom-package-build-recipe package)))
(package--print-help-section "Recipe") (package--print-help-section "Recipe")
(insert (format "%s\n" (string-trim (pp-to-string recipe)))) (insert
(replace-regexp-in-string "\n" (concat "\n" indent)
(pp-to-string recipe))))
(package--print-help-section "Homepage") (package--print-help-section "Homepage")
(doom--help-insert-button (doom--package-url package)))) (doom--help-insert-button (doom--package-url package)))
(`elpa (insert "[M]ELPA ") (`elpa (insert "[M]ELPA ")
(doom--help-insert-button (doom--package-url package)) (doom--help-insert-button (doom--package-url package))
(package--print-help-section "Location") (package--print-help-section "Location")
(doom--help-insert-button (doom--help-insert-button
(abbreviate-file-name (abbreviate-file-name
(file-name-directory (locate-library (symbol-name package)))))) (file-name-directory
(locate-library (symbol-name package))))))
(`builtin (insert "Built-in\n") (`builtin (insert "Built-in\n")
(package--print-help-section "Location") (package--print-help-section "Location")
(doom--help-insert-button (doom--help-insert-button
(abbreviate-file-name (abbreviate-file-name
(file-name-directory (locate-library (symbol-name package)))))) (file-name-directory
(locate-library (symbol-name package))))))
(`other (doom--help-insert-button (`other (doom--help-insert-button
(abbreviate-file-name (abbreviate-file-name
(or (symbol-file package) (or (symbol-file package)
@ -564,7 +576,9 @@ If prefix arg is present, refresh the cache."
(let* ((module-path (pcase (car m) (let* ((module-path (pcase (car m)
(:core doom-core-dir) (:core doom-core-dir)
(:private doom-private-dir) (:private doom-private-dir)
(category (doom-module-path category (cdr m))))) (category
(doom-module-locate-path category
(cdr m)))))
(readme-path (expand-file-name "README.org" module-path))) (readme-path (expand-file-name "README.org" module-path)))
(insert indent) (insert indent)
(doom--help-insert-button (doom--help-insert-button
@ -572,22 +586,23 @@ If prefix arg is present, refresh the cache."
module-path) module-path)
(insert " (") (insert " (")
(if (file-exists-p readme-path) (if (file-exists-p readme-path)
(doom--help-insert-button (doom--help-insert-button "readme" readme-path)
"readme"
readme-path)
(insert "no readme")) (insert "no readme"))
(insert ")\n")))) (insert ")\n"))))
(package--print-help-section "Configs") (package--print-help-section "Configs")
(if-let ((configs (doom--help-package-configs package)))
(progn
(insert "This package is configured in the following locations:") (insert "This package is configured in the following locations:")
(dolist (location (doom--help-package-configs package)) (dolist (location configs)
(insert "\n" indent) (insert "\n" indent)
(cl-destructuring-bind (file line _match) (cl-destructuring-bind (file line _match)
(split-string location ":") (split-string location ":")
(doom--help-insert-button location (doom--help-insert-button location
(expand-file-name file doom-emacs-dir) (expand-file-name file doom-emacs-dir)
(string-to-number line)))) (string-to-number line)))))
(insert "\n\n"))))) (insert "This package is not configured anywhere"))
(goto-char (point-min))))))
(defvar doom--package-cache nil) (defvar doom--package-cache nil)
(defun doom--package-list (&optional prompt) (defun doom--package-list (&optional prompt)