syscfg/emacs/module/module-projectile.el

28 lines
697 B
EmacsLisp

;;; module-projectile.el --- project management
;;;
;;; Commentary:
;;;
;;; The de facto standard for Emacs projects.
;;;
;;; Code:
(require 'module-pkg)
(pkg/require 'projectile)
(projectile-mode +1)
(defun open-terminal-at-project-root ()
"Open an external terminal emulator at the project root directory."
(interactive)
(let* ((project-root (projectile-project-root))
(terminal-program "xterm")
(command (concat terminal-program " -e 'cd " project-root " && $SHELL'")))
(if project-root
(start-process-shell-command "external-terminal" nil command)
(message "Not in a project"))))
(provide 'module-projectile)
;;; module-projectile.el ends here.