用鼠标执行 Helm 选项

helm-with-mouse.el

(defun foo (prefix event)
  "Select helm candidate by mouse.  With PREFIX, also execute its first action."
  (interactive "P\ne")
  (when (helm-alive-p)
    (with-helm-buffer
      (let* ((posn (elt event 1)) 
             (cursor (line-number-at-pos (point)))
             (pointer (line-number-at-pos (posn-point posn))))
        (helm--next-or-previous-line (if (> pointer cursor)
                                         'next
                                       'previous)
                                     (abs (- pointer cursor)))))
    (when prefix (helm-maybe-exit-minibuffer))))

(bind-key* "<down-mouse-1>" #'foo)
(bind-key* "<mouse-1>" #'ignore)