   :type '(radio
           (const :tag "Display symbol         e.g.  ●" boop--format-result)
           (const :tag "Display shortened id   e.g.  [name]" boop--format-result-as-id)))
+
 (defcustom 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
+  "The function to use to format `boop-result-alist`.
+This function should take a function as an argument which can format a
 single result."
   :group 'boop
   :type '(radio

    (format "[%s] " (boop--propertize form string-id (when (boundp map-symbol) map-symbol) short-id))))

(defun boop--format-result (result-alist)
  "Format an individual RESULT normally."
  (let* ((result-id (car result-alist))
         (result    (plist-get (cdr result-alist) :result))
         (group     (plist-get (cdr result-alist) :group))

;; Click bindings

(defmacro boop-defmodelinemap (id f)
  "Macro to create a mode-line-map-by-id for ID with click action of F."
  (let ((id (intern (format "boop-%s-mode-line-map" id ))))
    `(defvar ,id (let ((map (make-sparse-keymap)))
                   (define-key map [mode-line down-mouse-1] ,f) map))))
