branch: elpa/casual
commit 6f53c27ef2eac599aa10ab356d62b30de0c3643b
Merge: c91cf85c01 49de60b707
Author: Charles Choi <[email protected]>
Commit: GitHub <[email protected]>
Merge pull request #478 from
kickingvegas/474-align-casual-project-command-bindings-with-built-in
Align casual-editkit-project-tmenu bindings with project.el
---
docs/images/casual-editkit-project-screenshot.png | Bin 58820 -> 58650 bytes
lisp/casual-editkit-utils.el | 16 ++++++++--------
tests/test-casual-editkit-utils.el | 16 ++++++++--------
3 files changed, 16 insertions(+), 16 deletions(-)
diff --git a/docs/images/casual-editkit-project-screenshot.png
b/docs/images/casual-editkit-project-screenshot.png
index 4647dd9881..3f1528d13f 100644
Binary files a/docs/images/casual-editkit-project-screenshot.png and
b/docs/images/casual-editkit-project-screenshot.png differ
diff --git a/lisp/casual-editkit-utils.el b/lisp/casual-editkit-utils.el
index 1f86f6097d..ab638746a6 100644
--- a/lisp/casual-editkit-utils.el
+++ b/lisp/casual-editkit-utils.el
@@ -166,28 +166,28 @@ Commands pertaining to project operations can be accessed
here."
("B" "Switch buffer…" project-switch-to-buffer)]
["Dired"
- ("d" "Dired…" project-dired)
- ("D" "Dired in…" project-find-dir)
+ ("D" "Dired…" project-dired)
+ ("d" "Dired in…" project-find-dir)
("v" "VC Dired…" project-vc-dir)]
["Search/Replace"
- ("r" "Search regexp…" project-find-regexp)
- ("q" "Query replace regexp…" project-query-replace-regexp)
- ("S" "Search regexp sequential…" project-search :transient t)
+ ("g" "Search regexp…" project-find-regexp)
+ ("r" "Query replace regexp…" project-query-replace-regexp)
+ ("/" "Search regexp sequential…" project-search :transient t)
("n" "Next sequential" fileloop-continue :transient t)]
["Tools"
:pad-keys t
("c" "Compile…" project-compile)
("e" "Eshell" project-eshell)
- ("M-s" "Shell" project-shell)
+ ("s" "Shell" project-shell)
("!" "Shell command…" project-shell-command)
("&" "Async command…" project-async-shell-command)]]
["Project"
:class transient-row
- ("s" "Switch…" project-switch-project)
- ("b" "List buffers" project-list-buffers)
+ ("p" "Switch…" project-switch-project)
+ ("C-b" "List buffers" project-list-buffers)
("k" "Kill buffers" project-kill-buffers)
("F" "Forget" project-forget-project)]
diff --git a/tests/test-casual-editkit-utils.el
b/tests/test-casual-editkit-utils.el
index caa13f6fad..5dd098a706 100644
--- a/tests/test-casual-editkit-utils.el
+++ b/tests/test-casual-editkit-utils.el
@@ -1,6 +1,6 @@
;;; test-casual-editkit-utils.el --- Casual IBuffer Utils Tests -*-
lexical-binding: t; -*-
-;; Copyright (C) 2024-2025 Charles Y. Choi
+;; Copyright (C) 2024-2026 Charles Y. Choi
;; Author: Charles Choi <[email protected]>
;; Keywords: tools
@@ -82,20 +82,20 @@
(let ((test-vectors
'((:binding "f" :command project-find-file)
(:binding "Bcasual
" :command project-switch-to-buffer)
- (:binding "d" :command project-dired)
- (:binding "D" :command project-find-dir)
+ (:binding "D" :command project-dired)
+ (:binding "d" :command project-find-dir)
(:binding "v" :command project-vc-dir)
- (:binding "r" :command project-find-regexp)
- (:binding "q" :command project-query-replace-regexp)
- (:binding "S" :command project-search)
+ (:binding "g" :command project-find-regexp)
+ (:binding "r" :command project-query-replace-regexp)
+ (:binding "/" :command project-search)
(:binding "n" :command fileloop-continue)
(:binding "c" :command project-compile)
(:binding "!" :command project-shell-command)
(:binding "&" :command project-async-shell-command)
(:binding "e" :command project-eshell)
- (:binding "M-s" :command project-shell)
+ (:binding "s" :command project-shell)
;; (:binding "s" :command project-switch-project)
- (:binding "b" :command project-list-buffers)
+ (:binding "C-b" :command project-list-buffers)
(:binding "k" :command project-kill-buffers)
(:binding "FC-g" :command project-forget-project))))
