anything-gtags.elを導入してみた

id:mechairoiさんがいろいろエントリを書いていたので導入してみた。
このあたりを参考に。

• http://d.hatena.ne.jp/mechairoi/20101128/1290940705
• http://d.hatena.ne.jp/mechairoi/20101206/1291651821

gtagsがないと言われたときは、gtagsをインストールしたときに付属したgtags.elをload pathに入れてやることで解決した。

最終的にanything-gtags-select-allという関数を再定義してそれを使うようにした。imenu, プロジェクトのgtags, globalのgtagsから検索する。

;; imenu, gtags, perlのgtagsから読み込み
(defun anything-gtags-select-all ()
  (interactive)
  (anything-other-buffer
   '(anything-c-source-imenu
     anything-c-source-gtags-select
     anything-c-source-gtags-select-with-home-perl-lib)
   "*anything gtags*"))

時間があるときにanything-gtags-from-here的なもの作りたい。
(追記)
mechairoiさんに早速返信もらったので書いておきます。最初のinputを決めるのは:inputに値を渡せば良いみたい。

(defun anything-gtags-from-here ()
    (interactive)
    (anything
     :sources '(anything-c-source-imenu
                anything-c-source-gtags-select
                anything-c-source-gtags-select-with-home-perl-lib)
     :input (thing-at-point 'symbol)))