         (boop--propertize form (format "%s" (car result))))) boop-result-alist ""))
 
 (defun boop--propertize (form &optional help-echo)
-  (let ((symbol (car form))
-        (colour (cadr form)))
-    (propertize (format "%s " symbol) 'face `(foreground-color . ,colour) 'help-echo help-echo)))
+  (let ((symbol (plist-get form :symbol))
+        (colour (plist-get form :color)))
+    (propertize (format "%c " symbol) 'face `(foreground-color . ,colour) 'help-echo help-echo)))
 
 (defun boop--clear-result-list () (setq boop-result-alist nil))
 (defun boop--sync-result-and-config ()

      (setq boop-result-alist (append (list (cons id status)) boop-result-alist)))))

(defun unboop (id)
  (setq boop-config-alist (assq-delete-all id boop-config-alist))
  (boop--sync-result-and-config))


	:group 'tools
	:group 'convenience)

(defcustom boop-format-default '(:symbol ?● :color "#ffcb13" :status "Unknown")
  "The default config to propertize when a script echo result
  doesn't matcha value in the `boop-monitor-alist`.")

(defcustom boop-format-alist
  '((1 :symbol ?● :color "#63ca13" :status "Pass")
    (0 :symbol ?● :color "#c64512" :status "Fail")
    (3 :symbol ?● :color "#23a2fb" :status "Building"))
   "An alist of values of the form (RESULT CHARACTER COLOUR) used
   to map the echo results of the plugin scripts to characters
   and their colours.")
