catkin packages helm source

helm-ros.el

(let ((cmake-prefix-path (getenv "CMAKE_PREFIX_PATH")))
    (when cmake-prefix-path
      (setq helm-source-catkin-root
            (format "%s/../src" (car (split-string cmake-prefix-path ":"))))))

(defun helm-catkin-packages-list ()
  (let ((string-output (shell-command-to-string (format "find %s -name package.xml -exec dirname {} \\\;"  helm-source-catkin-root))))
    (let ((dirs (split-string string-output "\n")))
      dirs)))

(defvar helm-source-catkin-packages
  `((name . "catkin packages")
    (init . (lambda () (setq helm-catkin-packages-list (helm-catkin-packages-list))))
    (candidates . helm-catkin-packages-list)
    (action . find-file)
    (type . file)))

(defun helm-mini-with-ros ()
  "Preconfigured `helm' lightweight version \(buffer -> recentf\)."
  (interactive)
  (require 'helm-files)
  (let ((helm-ff-transformer-show-only-basename nil))
    (helm-other-buffer '(helm-source-buffers-list
                         helm-source-recentf
                         helm-source-catkin-packages
                         helm-source-buffer-not-found)
                       "*helm mini*")))