   :group 'convenience)
 
 (defcustom boop-default-format '(:symbol ?● :color "#ffcb13" :status "Unknown")
-  "The default format when a script echo result doesn't match a value in the `boop-format-alist`.")
+  "The default format when a script echo result doesn't match a value in the `boop-format-alist`."
+  :group 'boop
+  :type 'list)
 
 (defcustom boop-format-alist
   '((1 :symbol ?● :color "#63ca13" :status "Pass")

;; Formatting and Renderings the results

(defun boop-format-results ()
  "Format `boop-result-alist` into a propertized display string."
  (let ((sorted-result-alist
         (if boop-sort-func (--sort (funcall boop-sort-func (cdr it) (cdr other)) boop-result-alist)
           boop-result-alist)))
    (mapconcat boop--format-func sorted-result-alist "")))

(defun boop--format-result-as-id (result)
  "Format an individual RESULT using its ID."

    (run-hooks 'boop-update-hook)
    (-map (lambda (config)
            (let* ((id (car config))
                   (select (plist-get (cdr config) :onselect))
                   (script (cdr (assoc (plist-get (cdr config) :script) plugins)))
                   (args (mapconcat 'identity (plist-get (cdr config) :args) " ")))
              ;; Set up the :onselect events
              (when select (eval `(boop-defmodelinemap ,id select)))
              ;; Only boop the configs with scripts
              (when script
                (async-start `(lambda () (shell-command-to-string (format "%s %s" ,script ,args)))
