use ggtags set up

init-cc-mode.el

@@ -88,7 +88,6 @@
 (add-hook 'c-mode-common-hook
           (lambda ()
             (when (derived-mode-p 'c-mode 'c++-mode 'java-mode)
-              (gtags-mode 1)
               (setq gtags-suggested-key-mapping t)
               (ggtags-mode 1))
             (when (derived-mode-p 'c-mode 'c++-mode)

init-elpa.el

@@ -232,7 +232,6 @@ ARCHIVE is the string name of the package archive.")
 (require-package 'maxframe)
 (require-package 'cpputils-cmake '(0 4 3) t)
 (require-package 'flyspell-lazy)
-(require-package 'gtags)
 (require-package 'bbdb '(20130421 1145 0) nil)
 (require-package 'twittering-mode)
 (require-package 'iedit)

init-evil.el

@@ -36,6 +36,7 @@
 (loop for (mode . state) in
       '(
         (minibuffer-inactive-mode . emacs)
+        (ggtags-global-mode . emacs)
         (Info-mode . emacs)
         (term-mode . emacs)
         (sdcv-mode . emacs)
@@ -51,7 +52,6 @@
         ;;(message-mode . emacs)
         (magit-log-edit-mode . emacs)
         (fundamental-mode . emacs)
-        (gtags-select-mode . emacs)
         (weibo-timeline-mode . emacs)
         (weibo-post-mode . emacs)
         (sr-mode . emacs)
@@ -161,7 +161,7 @@ to replace the symbol under cursor"
   "fp" 'copy-full-path-of-current-buffer
   "dj" 'dired-jump ;; open the dired from current file
   "ff" 'toggle-full-window ;; I use WIN+F in i3
-  "gt" 'get-term
+  "tm" 'get-term
   "px" 'paste-from-x-clipboard
   ;; "ci" 'evilnc-comment-or-uncomment-lines
   ;; "cl" 'evilnc-comment-or-uncomment-to-the-line
@@ -229,15 +229,12 @@ to replace the symbol under cursor"
   "hf" 'find-function
   "hv" 'describe-variable
   "hb" 'helm-back-to-last-point
-  "gf" 'gtags-find-tag-from-here
-  "gp" 'gtags-pop-stack
-  "gr" 'gtags-find-rtag
+  "gt" 'ggtags-find-tag-dwim
+  "gr" 'ggtags-find-reference
   "fb" 'flyspell-buffer
   "fe" 'flyspell-goto-next-error
   "fa" 'flyspell-auto-correct-word
   "fw" 'ispell-word
-  "gy" 'gtags-find-symbol
-  "dg" 'djcb-gtags-create-or-update
   "bc" '(lambda () (interactive) (wxhelp-browse-class-or-api (thing-at-point 'symbol)))
   "ma" 'mc/mark-all-like-this-in-defun
   "mw" 'mc/mark-all-words-like-this-in-defun

init-gtags.el

@@ -1,19 +1,21 @@
-;; @see http://emacs-fu.blogspot.com.au/2008/01/navigating-through-source-code-using.html
-(defun djcb-gtags-create-or-update ()
-  "create or update the gnu global tag file"
-  (interactive)
-  (if (not (= 0 (call-process "global" nil nil nil " -p"))) ; tagfile doesn't exist?
-      (let ((olddir default-directory)
-            (topdir (read-directory-name
-                     "gtags: top of source tree:" default-directory)))
-        (cd topdir)
+(defun gtags-ext-produce-tags-if-needed (dir)
+   (if (not (= 0 (call-process "global" nil nil nil " -p"))) ; tagfile doesn't exist?
+      (let ((olddir default-directory))
+        (cd dir)
         (shell-command "gtags && echo 'created tagfile'")
         (cd olddir)) ; restore
     ;;  tagfile already exists; update it
     (shell-command "global -u && echo 'updated tagfile'"))
   )
 
-(defun add-gtagslibpath (libdir &optional del)
+;; @see http://emacs-fu.blogspot.com.au/2008/01/navigating-through-source-code-using.html
+(defun gtags-ext-create-or-update ()
+  "create or update the gnu global tag file"
+  (interactive)
+  (gtags-ext-produce-tags-if-needed (read-directory-name
+                            "gtags: top of source tree:" default-directory)))
+
+(defun gtags-ext-add-gtagslibpath (libdir &optional del)
   "add external library directory to environment variable GTAGSLIBPATH.\ngtags will can that directory if needed.\nC-u M-x add-gtagslibpath will remove the directory from GTAGSLIBPATH."
   (interactive "DDirectory containing GTAGS:\nP")
   (let (sl)
@@ -31,7 +33,7 @@
   (setenv "GTAGSLIBPATH" (mapconcat 'identity sl ":")))
   )
 
-(defun print-gtagslibpath ()
+(defun gtags-ext-print-gtagslibpath ()
   "print the GTAGSLIBPATH (for debug purpose)"
   (interactive)
   (message "GTAGSLIBPATH=%s" (getenv "GTAGSLIBPATH"))