 (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


                   boop-default-format))
         (map-symbol (intern (format "boop-%s-mode-line-map" result-id)))
         (string-id (concat (format "%s" result-id) (when group (format ":%s" group))))
         (short-id (funcall boop-shorten-id-func string-id)))
    (format "[%s] " (boop--propertize form string-id (when (boundp map-symbol) map-symbol) short-id))))

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