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

refactor(cli): extract doom/info renderer

Browse source 
Into doom-info-string, which will wrap its contents to a given column
using the new print library.
This commit is contained in:
Henrik Lissner 2022-06-19 01:31:56 +02:00
parent 23678c52fe
commit 6963b784cc
No known key found for this signature in database
GPG key ID: B60957CA074D39A3
1 changed files with 24 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

32
core/autoload/debug.el
View file

@ -315,6 +315,29 @@ ready to be pasted in a bug report on github."
collect (format "%s" name)))
(error (format "<%S>" e))))))))
;;;###autoload
(defun doom-info-string (&optional width nocolor)
"Return the `doom-info' as a compact string.
FILL-COLUMN determines the column at which lines will be broken."
(with-temp-buffer
(let ((doom-print-backend (unless nocolor doom-print-backend))
(doom-print-indent 0))
(dolist (spec (cl-remove-if-not #'cdr (doom-info)) (buffer-string))
;; FIXME Refactor this horrible cludge, either here or in `format!'
(insert! ((bold "%-10s ") (symbol-name (car spec)))
("%s\n"
(string-trim-left
(indent
(fill
(if (listp (cdr spec))
(mapconcat (doom-partial #'format "%s")
(cdr spec)
" ")
(cdr spec))
(- (or width 80) 11))
11))))))))
;;
;;; Commands
@ -356,14 +379,7 @@ copies it to your clipboard, ready to be pasted into bug reports!"
(setq buffer-read-only t)
(with-silent-modifications
(erase-buffer)
(save-excursion
(dolist (spec (cl-remove-if-not #'cdr (doom-info)))
(insert! "%-11s %s\n"
((car spec)
(if (listp (cdr spec))
(mapconcat (lambda (x) (format "%s" x))
(cdr spec) " ")
(cdr spec)))))))
(insert (doom-info-string 86)))
(pop-to-buffer buffer)
(kill-new (buffer-string))
(when (y-or-n-p "Your doom-info was copied to the clipboard.\n\nOpen pastebin.com?")