[elpa] master 4ce9914 1/4: Teach ggtags-visit-project-root to visit past projects

[Leo Liu]

branch: master
commit 4ce9914018f39a09406068c99e2306b0281479a3
Author: Leo Liu <address@hidden>
Commit: Leo Liu <address@hidden>

    Teach ggtags-visit-project-root to visit past projects
---
 README.rst |    5 +++++
 ggtags.el  |   15 ++++++++++-----
 2 files changed, 15 insertions(+), 5 deletions(-)

diff --git a/README.rst b/README.rst
index 832d74f..409b09a 100644
--- a/README.rst
+++ b/README.rst
@@ -308,6 +308,11 @@ Integration with other packages
 NEWS
 ~~~~
 
+(devel) 0.8.9
++++++++++++++
+
+#. ``ggtags-visit-project-root`` can visit past projects.
+
 [2014-12-03 Wed] 0.8.8
 ++++++++++++++++++++++
 
diff --git a/ggtags.el b/ggtags.el
index 52081c9..9e45a6f 100644
--- a/ggtags.el
+++ b/ggtags.el
@@ -3,7 +3,7 @@
 ;; Copyright (C) 2013-2014  Free Software Foundation, Inc.
 
 ;; Author: Leo Liu <address@hidden>
-;; Version: 0.8.8
+;; Version: 0.8.9
 ;; Keywords: tools, convenience
 ;; Created: 2013-01-29
 ;; URL: https://github.com/leoliu/ggtags
@@ -608,10 +608,15 @@ Value is new modtime if updated."
       (message "Project read-only-mode is %s" (if val "on" "off")))
     val))
 
-(defun ggtags-visit-project-root ()
-  (interactive)
-  (ggtags-ensure-project)
-  (dired (ggtags-current-project-root)))
+(defun ggtags-visit-project-root (&optional project)
+  "Visit the root directory of (current) PROJECT in dired.
+When called with a prefix \\[universal-argument], choose from past projects."
+  (interactive (list (and current-prefix-arg
+                          (completing-read "Project: " ggtags-projects))))
+  (dired (cl-typecase project
+           (string project)
+           (ggtags-project (ggtags-project-root project))
+           (t (ggtags-ensure-project) (ggtags-current-project-root)))))
 
 (defmacro ggtags-with-current-project (&rest body)
   "Eval BODY in current project's `process-environment'."