                              `(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)

      (funcall (if (symbolp action)
                   (symbol-function action)
               action) name))))
;; Interactive Functions

(defun boop-update-info ()

which takes two arguments, When set to nil, no sorting is
applied.")

(defvar boop--format-func 'boop--format-result "The function to use to format results.")
(defvar boop--shorten-id-func 'boop--substring-id "The function used to shorten an ID string.")

;;;; Functions

(defun boop--get-plugin-scripts ()
