[Emacs] Improve helm-gtags

dotfiles/emacs.d/README.org

@@ -3739,23 +3739,25 @@ I've disabled perspective because I just don't use it much.
 *** helm-gtags
 #+BEGIN_SRC emacs-lisp
 (use-package helm-gtags
-  :disabled t
+  :config
-  :config (custom-set-variables
-           '(helm-gtags-path-style 'relative)
-           '(helm-gtags-ignore-case t)
-           '(helm-gtags-auto-update t))
-  :bind
-  (("M-t" . helm-gtags-find-tag)
-   ("M-r" . helm-gtags-find-rtag)
-   ("M-s" . helm-gtags-find-symbol)
-   ("C-c <" . helm-gtags-previous-history)
-   ("C-c >" . helm-gtags-next-history))
-  :init
   (progn
-      ;;; Enable helm-gtags-mode
+    (setq helm-gtags-ignore-case t
-    (add-hook 'c-mode-hook 'helm-gtags-mode)
+          helm-gtags-auto-update t
-    (add-hook 'c++-mode-hook 'helm-gtags-mode)
+          helm-gtags-use-input-at-cursor t
-    (add-hook 'asm-mode-hook 'helm-gtags-mode)))
+          helm-gtags-pulse-at-cursor t
+          helm-gtags-prefix-key "\C-cg"
+          helm-gtags-suggested-key-mapping t)
+    (cl-loop for hook in '(dired-mode-hook eshell-mode-hook c-mode-hook
+                                           c++-mode-hook asm-mode-hook)
+             do (add-hook hook 'helm-gtags-mode)))
+  :bind (:map helm-gtags-mode-map
+   ("C-c g a" . helm-gtags-tags-in-this-function)
+   ("C-j" . helm-gtags-select)
+   ("M-." . helm-gtags-dwim)
+   ("M-," . helm-gtags-pop-stack)
+   ("C-c <" . helm-gtags-previous-history)
+   ("C-c >" . helm-gtags-next-history)))
+
 #+END_SRC
 *** sgml-mode
 #+BEGIN_SRC emacs-lisp