Add "unpin" section to doom/info
Important when debugging potential upstream issues.
This commit is contained in:
parent
a9402cfb55
commit
f600605de3
2 changed files with 22 additions and 18 deletions
|
@ -97,7 +97,8 @@ ready to be pasted in a bug report on github."
|
|||
(cl-loop for (name . _) in package-alist
|
||||
collect (format "%s" name)))
|
||||
(error (format "<%S>" e)))
|
||||
'("n/a"))))))))
|
||||
'("n/a")))
|
||||
(unpin ,@(or (get 'doom-pinned-packages 'modified) '("n/a"))))))))
|
||||
|
||||
|
||||
;;
|
||||
|
|
|
@ -322,7 +322,10 @@ can be used one of five ways:
|
|||
(unpin! (:lang python javascript) (:tools docker))
|
||||
|
||||
Or any combination of the above."
|
||||
`(dolist (target ',targets)
|
||||
`(progn
|
||||
(put 'doom-pinned-packages 'modified
|
||||
(delete-dups (append targets (get 'doom-pinned-packages 'modified))))
|
||||
(dolist (target ',targets)
|
||||
(cond
|
||||
((eq target t)
|
||||
(setq doom-pinned-packages nil))
|
||||
|
@ -338,7 +341,7 @@ Or any combination of the above."
|
|||
return t))
|
||||
(assq-delete-all (car pkg) doom-pinned-packages))))))
|
||||
((symbolp target)
|
||||
(assq-delete-all target doom-pinned-packages)))))
|
||||
(assq-delete-all target doom-pinned-packages))))))
|
||||
|
||||
(provide 'core-packages)
|
||||
;;; core-packages.el ends here
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue