mirrors/doomemacs
1
Fork 0
mirror of https://github.com/doomemacs/doomemacs.git synced 2025-12-06 02:30:33 -08:00
Code Issues Projects Releases Wiki Activity

Merge 2baab17192 into 459906d447

Browse source
This commit is contained in:
Aayush 2025-12-03 08:01:24 +01:00 • committed by GitHub
commit 721285dc94
No known key found for this signature in database
GPG key ID: B5690EEEBB952194
1 changed files with 43 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

44
modules/completion/vertico/config.el
View file

@ -331,12 +331,54 @@ orderless."
'(doom/find-file-in-other-project . project-file)
'(doom/find-file-in-private-config . file)
'(doom/describe-active-minor-mode . minor-mode)
'(doom/help-packages . doom-package)
'(flycheck-error-list-set-filter . builtin)
'(persp-switch-to-buffer . buffer)
'(projectile-find-file . project-file)
'(projectile-recentf . project-file)
'(projectile-switch-to-buffer . buffer)
'(projectile-switch-project . project-file)))
'(projectile-switch-project . project-file))
;; Add Marginalia annotations for `doom/help-packages'
(add-to-list 'marginalia-annotator-registry '(doom-package +marginalia--annotate-doom-package-fn none))
(defun +marginalia--annotate-doom-package-fn (cand)
"Annotate Doom package CAND with source, pin status, and summary."
(when-let ((package (intern-soft cand)))
(let* ((backend (doom-package-backend package))
(source (pcase backend
(`straight "Straight")
(`elpa "ELPA")
(`builtin "Built-in")
(_ "Other")))
(pin (when (eq backend 'straight)
(plist-get (cdr (assq package doom-packages)) :pin)))
(summary
;; when the package is not built in
(if (not (eq backend 'builtin))
(let* ((local-repo (doom-package-recipe-repo package))
(repo-dir (straight--repos-dir local-repo)))
(if (file-exists-p repo-dir)
(marginalia--library-doc
(file-name-concat repo-dir
(format "%s%s" local-repo ".el")))
""))
;; If the package is built in
(if-let (built-in (assq package package--builtins))
(package-desc-summary (package--from-builtin built-in))
(marginalia--library-doc (gethash local-repo (marginalia--library-cache)))))))
(marginalia--fields
;; Display the package source with a specific width
((propertize source 'face
(if (string-equal source "Other")
'marginalia-key 'marginalia-file-name)))
;; Display pin status if applicable
((propertize (if pin (concat (substring pin 0 4) "...")
;; If no pin, then create padding
(make-string 7 ?\s))
'face 'marginalia-number))
;; Display the package summary:
((propertize (string-trim summary) ;; Remove whitespace from summary
'face 'marginalia-documentation)))))))
(use-package! wgrep