diff options
| author | Bozhidar Batsov <bozhidar@batsov.dev> | 2022-10-28 09:37:25 +0300 |
|---|---|---|
| committer | Bozhidar Batsov <bozhidar@batsov.dev> | 2022-10-28 09:37:25 +0300 |
| commit | 6261561052b128c0a0e352e726453e7ac6f8dbdc (patch) | |
| tree | 6cc5642576cbef12d92bb1010b03e77130a5b3a1 | |
| parent | fc497d045423b393564b5b35fee2f9743c3ad115 (diff) | |
Revert "[Fix #1804] Make it possible to ignore special project buffers"
This reverts commit f5a2a3ab268b905c796de255e04790e6e69a61ab.
This out we already had this functionality under the name
`projectile-globally-ignored-buffers`.
| -rw-r--r-- | CHANGELOG.md | 1 | ||||
| -rw-r--r-- | projectile.el | 31 | ||||
| -rw-r--r-- | test/projectile-test.el | 14 |
3 files changed, 0 insertions, 46 deletions
diff --git a/CHANGELOG.md b/CHANGELOG.md index 5f60c47..e4cd9f9 100644 --- a/CHANGELOG.md +++ b/CHANGELOG.md @@ -5,7 +5,6 @@ ### New features * [#1591](https://github.com/bbatsov/projectile/issues/1591): Add `project.el` integration that will make Projectile the default provider for project lookup. -* [#1799](https://github.com/bbatsov/projectile/pull/1799): Make it possible to ignore special project buffers. * Add new command `projectile-find-references` (bound to `C-c C-p ?` and `C-c C-p s x`). ### Bug fixed diff --git a/projectile.el b/projectile.el index 2b29bb2..52493ca 100644 --- a/projectile.el +++ b/projectile.el @@ -822,27 +822,6 @@ If the value is nil, there is no limit to the opend buffers count." :type 'integer :package-version '(projectile . "2.2.0")) -(defcustom projectile-ignore-special-project-buffers t - "When t ignore special project buffers. - -See `projectile-ignored-project-buffers'." - :group 'projectile - :type 'boolean - :package-version '(projectile . "2.7.0")) - -(defcustom projectile-ignored-project-buffers - '( - "*scratch*" ; Lisp Interaction Buffer - "*lsp-log*" ; LSP Mode Troubleshooting Buffer - ) - "A list of buffers considered that should never be killed or -associated with any specific project. - -See `projectile-ignore-special-project-buffers'." - :group 'projectile - :type '(repeat string) - :package-version '(projectile . "2.7.0")) - (defvar projectile-project-test-suffix nil "Use this variable to override the current project's test-suffix property. It takes precedence over the test-suffix for the project type when set. @@ -1662,22 +1641,12 @@ If PROJECT is not specified the command acts on the current project." default-directory))) (and (not (string-prefix-p " " (buffer-name buffer))) (not (projectile-ignored-buffer-p buffer)) - (not (projectile-ignored-project-buffers-p buffer)) directory (string-equal (file-remote-p directory) (file-remote-p project-root)) (not (string-match-p "^http\\(s\\)?://" directory)) (string-prefix-p project-root (file-truename directory) (eq system-type 'windows-nt)))))) -(defun projectile-ignored-project-buffers-p (buffer) - "Check if BUFFER should never associated with any specific project" - (when projectile-ignore-special-project-buffers - (with-current-buffer buffer - (cl-some - (lambda (name) - (string-match-p name (buffer-name))) - projectile-ignored-project-buffers)))) - (defun projectile-ignored-buffer-p (buffer) "Check if BUFFER should be ignored. diff --git a/test/projectile-test.el b/test/projectile-test.el index cf445a1..875b01e 100644 --- a/test/projectile-test.el +++ b/test/projectile-test.el @@ -1038,20 +1038,6 @@ Just delegates OPERATION and ARGS for all operations except for`shell-command`'. (expect (current-buffer) :to-be (get-file-buffer "project/file"))))))) -(describe "projectile-ignored-project-buffers-p" - (it "checks if buffer should never associated with any specific project" - (let ((projectile-ignore-special-project-buffers t) - (projectile-ignored-project-buffers '("*nrepl messages*" "*something*"))) - (expect (projectile-ignored-project-buffers-p (get-buffer-create "*nrepl messages*")) :to-be-truthy) - (expect (projectile-ignored-project-buffers-p (get-buffer-create "*something*")) :to-be-truthy) - (expect (projectile-ignored-project-buffers-p (get-buffer-create "test")) :not :to-be-truthy))) - (it "check if buffer should not ignored when not enabled" - (let ((projectile-ignore-special-project-buffers nil) - (projectile-ignored-project-buffers '("*nrepl messages*" "*something*"))) - (expect (projectile-ignored-project-buffers-p (get-buffer-create "*nrepl messages*")) :not :to-be-truthy) - (expect (projectile-ignored-project-buffers-p (get-buffer-create "*something*")) :not :to-be-truthy) - (expect (projectile-ignored-project-buffers-p (get-buffer-create "test")) :not :to-be-truthy)))) - (describe "projectile-ignored-buffer-p" (it "checks if buffer should be ignored" (let ((projectile-globally-ignored-buffers '("*nrepl messages*" "*something*"))) |
