                  action) name))))
 
 ;; Interactive Functions
-
 (defun boop-update ()
   "Execute all of the plugins and return a list of the results."
   (interactive)

        (colour (plist-get form :color)))
    (propertize (if symbol-override (format "%s" symbol-override)
                  (if (not (functionp symbol))
                      (format "%c " symbol) (funcall symbol)))
                'face      `(foreground-color . ,colour)
                'help-echo help-echo
                'local-map (eval map)
                'pointer (when map 'hand))))

(defun boop--format-result-as-is (result-alist)
  "Format an individual RESULT-ALIST using its ID."
  (boop--format-result
   (lambda (form id map override) (format "[%s]" (boop--propertize form id map override)))
   (lambda (id) (car (split-string id ":")))))

(defun boop--format-result-as-substring (result-alist)
  "Format an individual RESULT-ALIST using its ID."
  (boop--format-result
   (lambda (form id map override) (format "[%s]" (boop--propertize form id map override)))
   'boop--shorten-substring))

(defun boop--format-result-as-id (result-alist)
  "Format an individual RESULT-ALIST using its ID."
  (boop--format-result
   (lambda (form id map override) (format "[%s]" (boop--propertize form id map override)))
   'boop--shorten-delim))

(defun boop--format-result-as-symbol (result-alist)
