#!/usr/bin/env doomscript
;;; bin/doom-info --- information about your Doom install -*- lexical-binding: t; mode: emacs-lisp -*-
;;; Commentary:
;;; Code:

;;
;;; * Variables

;; None yet!


;;
;;; * Commands

(defcli! info
    ((format ("--lisp" "--json") "What format to dump info into")
     &context context)
  "Print detailed information about your config for bug reports."
  (with-temp-buffer
    (pcase format
      ("--json"
       (require 'json)
       (insert (json-encode (doom-info)))
       (json-pretty-print-buffer))
      ("--lisp"
       (pp (doom-info) (current-buffer)))
      (_
       (insert (doom-info-string
                (if (doom-cli-context-pipe-p context :out t)
                    72
                  (doom-cli-context-width context))))))
    (print! "%s" (string-trim-right (buffer-string)))))


;;
;;; * Execute

(run! "info" (cdr (member "--" argv)))

;;; doom-info ends here
