anything-c-source-gtags-select with GTAGSROOT

anything-gtags-extras.el

(require 'anything-gtags)

(defmacro my-let-env (environments &rest body)
  `(let ((process-environment process-environment))
     ,@(mapcar (lambda (env) `(setenv ,@env)) environments)
     (progn ,@body)))

(defun anything-c-source-gtags-select-with-root (name gtagsroot)
  (lexical-let ((gtagsroot (expand-file-name gtagsroot)))
    `((name . ,name)
      (init
       . ,(lambda ()
            (my-let-env
             (("GTAGSROOT" gtagsroot))
             (call-process-shell-command
              "global -c" nil (anything-candidate-buffer 'global)))))
      (candidates-in-buffer)
      (action
       ("Goto the location"
        . ,(lambda (candidate)
             (my-let-env
              (("GTAGSROOT" gtagsroot))
              (gtags-push-context)
              (gtags-goto-tag candidate ""))))
       ("Goto the location (other-window)"
        . ,(lambda (candidate)
             (my-let-env
              (("GTAGSROOT" gtagsroot))
              (gtags-push-context)
              (gtags-goto-tag candidate "" t))))
       ("Move to the referenced point"
        . ,(lambda (candidate)
             (my-let-env
              (("GTAGSROOT" gtagsroot))
              (gtags-push-context)
              (gtags-goto-tag candidate "r"))))))))