mirror of
https://github.com/jimeh/.emacs.d.git
synced 2026-02-19 13:46:41 +00:00
Jim Myhrberg
fe6a4e7ce5
I've set `lexical-binding` to `nil` in all Emacs Lisp files to suppress the warnings introduced in Emacs 31 requiring all elisp files to have a `lexical-binding` comment. This retains the default behavior of dynamic binding when no `lexical-binding` comment is present. With it set to `t` across the board, various things break, and fixing those is a task for another day.
107 lines
4.2 KiB
EmacsLisp
107 lines
4.2 KiB
EmacsLisp
;;; siren-projectile.el --- jimeh's Emacs Siren: projectile configuration. -*- lexical-binding: nil; -*-
|
|
|
|
;;; Commentary:
|
|
|
|
;; Basic configuration for projectile.
|
|
|
|
;;; Code:
|
|
|
|
(require 'siren-tab-bar)
|
|
|
|
(use-package projectile
|
|
:commands
|
|
projectile-project-root
|
|
projectile-relevant-known-projects
|
|
|
|
:general
|
|
("C-c p p" 'projectile-switch-project)
|
|
("C-c p k" 'projectile-kill-buffers)
|
|
("C-c p r" 'projectile-replace)
|
|
("C-c p S" 'projectile-save-project-buffers)
|
|
("C-c C-b" 'projectile-ibuffer)
|
|
("C-c ;" 'projectile-switch-project)
|
|
("C-c C-;" 'projectile-switch-project)
|
|
("C-x C-t" 'projectile-find-file)
|
|
("C-x j" 'projectile-dired)
|
|
("C-x ;" 'projectile-find-file)
|
|
("C-x C-;" 'projectile-find-file)
|
|
("C-z ;" 'siren-projectile-switch-project-and-tab)
|
|
("C-z C-;" 'siren-projectile-switch-project-and-tab)
|
|
(:keymaps 'projectile-mode-map
|
|
"C-c p" 'projectile-command-map)
|
|
|
|
:custom
|
|
(projectile-buffers-filter-function 'projectile-buffers-with-file-or-process)
|
|
(projectile-cache-file (siren-cache-dir "projectile"))
|
|
(projectile-completion-system 'default)
|
|
(projectile-enable-caching nil)
|
|
(projectile-globally-ignored-directories '(".bzr"
|
|
".eunit"
|
|
".extension"
|
|
".fslckout"
|
|
".git"
|
|
".hg"
|
|
".idea"
|
|
".svn"
|
|
".vagrant"
|
|
"_darcs"
|
|
"archive-contents"
|
|
"cache"
|
|
"coverage"
|
|
"doc"
|
|
"docs"
|
|
"elpa"
|
|
"elpaca"
|
|
"log"
|
|
"logs"
|
|
"node_modules"
|
|
"sorbet"
|
|
"straight"
|
|
"tmp"
|
|
"vendor/assets"))
|
|
(projectile-globally-ignored-files '("TAGS" "*.log"))
|
|
(projectile-indexing-method 'hybrid)
|
|
(projectile-project-search-path '("~/Projects"))
|
|
(projectile-sort-order 'recently-active)
|
|
|
|
:preface
|
|
(defun siren-projectile-find-file-advice (orig-fun &rest args)
|
|
"Advice function to make `projectile-find-file' call
|
|
`projectile-switch-project' if current buffer is not in project.
|
|
|
|
The original `projectile-find-file' function does complete
|
|
projects if no root is detected, but it does so internally
|
|
without calling `projectile-switch-project'. This prevents some
|
|
completion systems detecting if it is completing project paths,
|
|
or file/folder paths within a project, often leading to incorrect
|
|
behavior."
|
|
(if (projectile-project-root)
|
|
(apply orig-fun args)
|
|
(projectile-switch-project)))
|
|
|
|
(defun siren-projectile-switch-project-and-tab (&optional arg)
|
|
"Switch to a project we have visited before and create a new tab for it.
|
|
Behaves the same as `projectile-switch-project', but creates a new tab for the
|
|
project, based on the project name reported by projectile."
|
|
(interactive "P")
|
|
(let ((projects (projectile-relevant-known-projects)))
|
|
(if projects
|
|
(projectile-completing-read
|
|
"Switch to project: " projects
|
|
:action (lambda (project)
|
|
(siren-tab-bar-switch-to-or-create-tab
|
|
(projectile-project-name project))
|
|
(projectile-switch-project-by-name project arg)))
|
|
(user-error "There are no known projects"))))
|
|
|
|
|
|
:config
|
|
(push "Gemfile" projectile-project-root-files-bottom-up)
|
|
(advice-add 'projectile-find-file :around #'siren-projectile-find-file-advice)
|
|
|
|
;; Enable projectile.
|
|
(projectile-mode))
|
|
|
|
(provide 'siren-projectile)
|
|
;;; siren-projectile.el ends here
|