64 lines
2.2 KiB
EmacsLisp
64 lines
2.2 KiB
EmacsLisp
;;; init-bungee.el --- Initialize Bungee symbol finder -*- lexical-binding: t; -*-
|
|
|
|
;; Load and configure the Bungee package
|
|
(load-file "~/.emacs.d/bungee.el")
|
|
(require 'bungee)
|
|
|
|
;; Configure cache directory
|
|
(setq bungee-cache-directory ".symbol_cache") ; Use standard cache dir
|
|
|
|
;; Optional: Use Python indexer for better parsing
|
|
;; Only set if the file exists
|
|
(let ((python-indexer-path "~/sources/bungee/symbol_finder.py"))
|
|
(when (file-exists-p (expand-file-name python-indexer-path))
|
|
(setq bungee-python-indexer python-indexer-path)))
|
|
|
|
;; Optional: Save JSON cache for Python tool compatibility
|
|
(setq bungee-save-json-cache nil) ; Set to t if you need Python compatibility
|
|
|
|
;; Enable auto-update when saving files
|
|
(setq bungee-auto-update t)
|
|
|
|
;; Enable Bungee mode globally for supported files
|
|
(global-bungee-mode 1)
|
|
|
|
;; Override M-. in QML and C++ files to use Bungee
|
|
(add-hook 'qml-mode-hook
|
|
(lambda ()
|
|
(local-set-key (kbd "M-.") 'bungee-jump-to-definition)
|
|
(local-set-key (kbd "M-?") 'bungee-find-references)
|
|
(local-set-key (kbd "M-,") 'pop-tag-mark)))
|
|
|
|
(add-hook 'c++-mode-hook
|
|
(lambda ()
|
|
(local-set-key (kbd "M-.") 'bungee-jump-to-definition)
|
|
(local-set-key (kbd "M-?") 'bungee-find-references)
|
|
(local-set-key (kbd "M-,") 'pop-tag-mark)))
|
|
|
|
;; For .qml files if qml-mode is not available
|
|
(add-to-list 'auto-mode-alist '("\\.qml\\'" . js-mode))
|
|
(add-hook 'js-mode-hook
|
|
(lambda ()
|
|
(when (and buffer-file-name
|
|
(string-match-p "\\.qml\\'" buffer-file-name))
|
|
(bungee-mode 1)
|
|
(local-set-key (kbd "M-.") 'bungee-jump-to-definition)
|
|
(local-set-key (kbd "M-?") 'bungee-find-references)
|
|
(local-set-key (kbd "M-,") 'pop-tag-mark))))
|
|
|
|
;; Convenient commands
|
|
(defun bungee-reindex-project ()
|
|
"Reindex the entire project using Python indexer."
|
|
(interactive)
|
|
(if bungee-python-indexer
|
|
(bungee-index-with-python t)
|
|
(bungee-index-directory nil t)))
|
|
|
|
(defun bungee-reindex-current-project ()
|
|
"Force reindex current project."
|
|
(interactive)
|
|
(bungee-index-directory nil t))
|
|
|
|
(provide 'init-bungee)
|
|
;;; init-bungee.el ends here
|