improve lacarte.el related stuff

helm-misc.el

@@ -179,17 +179,30 @@ http://www.emacswiki.org/cgi-bin/wiki/download/linkd.el")
 
 ;;; LaCarte
 ;;
-(defvar helm-source-lacarte
-  '((name . "Lacarte")
+
+(defun helm-create-lacarte-source (name &optional maps)
+  "Create lacarte source named NAME for MAPS.
+MAPS is like in `lacarte-get-overall-menu-item-alist'.
+See
+    http://www.emacswiki.org/cgi-bin/wiki/download/lacarte.el"
+  `((name . ,name)
     (init . (lambda () (require 'lacarte)))
     (candidates . (lambda ()
                     (with-helm-current-buffer
-                      (delete '(nil) (lacarte-get-overall-menu-item-alist)))))
+                      (delete '(nil) (lacarte-get-overall-menu-item-alist ,@maps)))))
     (candidate-number-limit . 9999)
-    (action . helm-call-interactively))
-  "Needs lacarte.el.
+    (type . command)))
+
+(defvar helm-source-lacarte (helm-create-lacarte-source "Lacarte")
+  "Helm interface for lacarte.el.
+See
+    http://www.emacswiki.org/cgi-bin/wiki/download/lacarte.el")
 
-http://www.emacswiki.org/cgi-bin/wiki/download/lacarte.el")
+(defun helm-browse-menubar ()
+  "Helm interface to the menubar using lacarte.el."
+  (interactive)
+  (require 'lacarte)
+  (helm :sources 'helm-source-lacarte))
 
 (defun helm-call-interactively (cmd-or-name)
   "Execute CMD-OR-NAME as Emacs command.