@@ -40,4 +40,12 @@ "Metaproject Project to open? " arg)) +(defun metaproject-switch-buffer-ido () + (interactive "P") + (let ((project-config (metaproject-get-project-config-from-buffer (current-buffer)))) + (when (not (null project-config)) + (let* ((buffers (metaproject-config-get project-config 'project-buffers)) + (buffer-names (mapcar 'buffer-name buffers))) + (switch-to-buffer (ido-completing-read "Project buffer? " buffer-names)))))) + (provide 'metaproject-ido) metaproject-ido.el 76252106658a18fee0f7bc7ef03ed05b1bb8e753 Travis B. Hartwell nafai@travishartwell.net http://github.com/Nafai77/metaproject/commit/550fb6cb77abecfcbee2b8ae5c8956fab99cdd47 550fb6cb77abecfcbee2b8ae5c8956fab99cdd47 2009-05-20T00:10:35-07:00 2009-05-20T00:10:35-07:00 Add function to switch between project buffers. 20a3e0516cdbfc91799ac582240db827f69d38d0 Travis B. Hartwell nafai@travishartwell.net