          (form (or (cdr (assoc result boop-format-alist))
                    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))))
+         (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))))
 

  (let ((results (--group-by (plist-get (cdr it) :result) boop-result-alist)))
    (mapconcat (lambda (it) (format "[ %s]" (mapconcat f (cdr it) ""))) results " ")))

;;;;;; individual results

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


;; TODO: Add in validation that `boop-plugins-dir` exists
;; TODO: Make the strategy stuff work

;;;; Customs

