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


(defun boop-format-results ()
  "Apply the two customised format functions to create a propertized display string."
  (funcall boop--format-results-func boop--format-result-func))

;;;;;; multiple results


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

(defvar boop-shorten-id-func 'boop--shorten-substring "The function used to shorten an ID string.")
(defvar boop-format-result-func 'boop--format-result "The function to use to format an individual result.")
(defvar boop-format-results-func 'boop--format-results-sorted
  "The function to use to format `boop-result-alist`.  This
function should take a function as an argument which can format a
single result.")
