                              `(lambda (result) (boop--handle-result (quote ,id) (string-to-number result)))))))
           boop-config-alist)))
 
+(defun boop-flash-result-ids ()
+  "Flashes the results based on their ID for 5 seconds."
+  (interactive)
+  (let ((previous-format-func boop--format-func))
+    (setq boop--format-func 'boop--format-result-as-id)
+    (run-at-time "2 sec" nil `(lambda () (setq boop--format-func (quote ,previous-format-func))))))
+
 (defun boop (id status)
   "Manually boop something and set ID to have a status of STATUS."
   (if (assoc id boop-result-alist)

  (let ((plugins (boop--get-plugin-scripts)))
    (mapcar (lambda (it) (cons (intern (file-name-base it)) it)) plugins)))

(defun boop-format-result ()
  "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
     (lambda (result)
       (let ((form (or (cdr (assoc (cdr result) boop-format-alist))
                       boop-default-format)))
         (boop--propertize form (format "%s" (car result))))) sorted-result-alist "")))

(defun boop--propertize (form &optional help-echo)
  "Propertizes FORM with optional HELP-ECHO string.

FORM should be a plist containing, at minimum, a :symbol to render.
See `boop-format-alist` for examples of what these FORMs should look like."
  (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 () "Clear the result list." (setq boop-result-alist nil))
(defun boop--sync-result-and-config ()

      (funcall (if (symbolp action)
                   (symbol-function action)
               action) name))))

;; Interactive Functions

(defun boop-update-info ()
