-
-
-
-
-
-#+BEGIN_SRC emacs-lisp
-(setq data '(("John" . "john@email.com")
- ("Jim" . "jim@email.com")
- ("Jane" . "jane@email.com")
- ("Jill" . "jill@email.com")))
-
-(setq some-helm-source
- `((name . "HELM at the Emacs")
- (candidates . ,(mapcar 'car data))
- (action . (lambda (candidate)
- (message-box "%s" (cdr (assoc candidate data)))))))
-
-(message-box "you chose %s" (helm :sources '(some-helm-source)))
-#+END_SRC
-
-#+RESULTS:
-: you chose jim@email.com