   (let ((sorted-result-alist
          (if boop-sort-func (--sort (funcall boop-sort-func (plist-get (cdr it) :result) (cdr other)) boop-result-alist)
            boop-result-alist)))
-    (mapconcat f sorted-result-alist "")))
+    (mapconcat f sorted-result-alist " ")))
 
 (defun boop--format-results-grouped-by-result (f)
   "Format `boop-result-alist` into a propertized display string using F."
   (let ((results (--group-by (plist-get (cdr it) :result) boop-result-alist)))
-    (mapconcat (lambda (it) (format "[ %s]" (mapconcat f (cdr it) ""))) results " ")))
+    (mapconcat (lambda (it) (format "[%s]" (mapconcat f (cdr it) " "))) results " ")))
 
 (defun boop--format-results-grouped-by-group (f)
   "Format `boop-result-alist` into a propertized display string using F."
   (let ((results (--group-by (plist-get (cdr it) :group) boop-result-alist)))
-    (mapconcat (lambda (it) (format "[ %s]" (mapconcat f (cdr it) ""))) results " ")))
+    (mapconcat (lambda (it) (format "[%s]" (mapconcat f (cdr it) " "))) results " ")))
 
 ;;;;;; individual results
 

        (colour (plist-get form :color)))
    (propertize (if symbol-override (format "%s" symbol-override)
                  (if (not (functionp symbol))
                      (format "%c " symbol) (funcall symbol)))
                'face      `(foreground-color . ,colour)
                'help-echo help-echo
                'local-map (eval map)
                'pointer (when map 'hand))))


(defcustom boop-format-alist
  '((1 :symbol ?● :color "#63ca13" :status "Passing" :action (lambda (name &rest args) (message "[%s] is back to Passing" name)))
    (0 :symbol ? :color "#c64512" :status "Failing"
       :action (lambda (name &rest args) (beep) (shell-command (format "terminal-notifier -title '● Boop' -message '\\[%s\] has Failed' -sender org.gnu.Emacs" name))))
    (3 :symbol ?● :color "#23a2fb" :status "Building"))
   "An alist to map the echo results of the plugins to a display format.

