This repository has been archived on 2024-10-22. You can view files and clone it, but cannot push or open issues or pull requests.
spacemacs/contrib/cscope/packages.el

63 lines
2.2 KiB
EmacsLisp
Raw Normal View History

2015-06-05 08:37:06 +00:00
;;; packages.el --- cscope Layer packages File for Spacemacs
;;
;; Copyright (c) 2012-2014 Sylvain Benner
;; Copyright (c) 2014-2015 Sylvain Benner & Contributors
;;
;; Author: Sylvain Benner <sylvain.benner@gmail.com>
;; URL: https://github.com/syl20bnr/spacemacs
;;
;; This file is not part of GNU Emacs.
;;
;;; License: GPLv3
(setq cscope-packages '(evil-jumper
helm-cscope
xcscope))
(setq cscope-excluded-packages '())
(defun cscope/post-init-evil-jump ()
(defadvice helm-cscope-find-this-symbol (before cscope/goto activate)
(evil-jumper--push)))
(defun cscope/init-xcscope ()
(use-package xcscope
:commands (cscope-index-files cscope/run-pycscope)
:init
(progn
;; for python projects, we don't want xcscope to rebuild the databse,
;; because it uses cscope instead of pycscope
(setq cscope-option-do-not-update-database t
cscope-display-cscope-buffer nil)
(defun cscope//safe-project-root ()
"Return project's root, or nil if not in a project."
(and (fboundp 'projectile-project-root)
(projectile-project-p)
(projectile-project-root)))
(defun cscope/run-pycscope (directory)
(interactive (list (file-name-as-directory
(read-directory-name "Run pycscope in directory: "
(cscope//safe-project-root)))))
(let ((default-directory directory))
(shell-command
(format "pycscope -R -f '%s'"
(expand-file-name "cscope.out" directory))))))))
2015-06-05 08:37:06 +00:00
(defun cscope/init-helm-cscope ()
(use-package helm-cscope
:defer t
:init
(defun spacemacs/setup-helm-cscope (mode)
"Setup `helm-cscope' for MODE"
2015-06-05 08:37:06 +00:00
(evil-leader/set-key-for-mode mode
"mgc" 'helm-cscope-find-called-function
"mgC" 'helm-cscope-find-calling-this-funtcion
"mgd" 'helm-cscope-find-global-definition
"mge" 'helm-cscope-find-egrep-pattern
"mgf" 'helm-cscope-find-this-file
"mgF" 'helm-cscope-find-files-including-file
"mgr" 'helm-cscope-find-this-symbol
"mgx" 'helm-cscope-find-this-text-string))))