branch: elpa/casual
commit de052bb33a6abd790f5260471babf3d5d43187d3
Merge: 27e8c6fc0b 9fc5e87633
Author: Charles Choi <[email protected]>
Commit: GitHub <[email protected]>
Merge pull request #162 from
kickingvegas/159-add-text-scale-adjust-to-editkit
Add text-scale-adjust command to EditKit
---
docs/images/casual-editkit-main-screenshot.png | Bin 242099 -> 228117 bytes
lisp/casual-editkit.el | 4 +++-
tests/test-casual-editkit.el | 4 ++++
3 files changed, 7 insertions(+), 1 deletion(-)
diff --git a/docs/images/casual-editkit-main-screenshot.png
b/docs/images/casual-editkit-main-screenshot.png
index a169d9d26a..42cb971bfb 100644
Binary files a/docs/images/casual-editkit-main-screenshot.png and
b/docs/images/casual-editkit-main-screenshot.png differ
diff --git a/lisp/casual-editkit.el b/lisp/casual-editkit.el
index 76934e2501..cf00c99cdd 100644
--- a/lisp/casual-editkit.el
+++ b/lisp/casual-editkit.el
@@ -109,7 +109,9 @@ user-customized menu."
("/" "Search/Replace›" casual-editkit-search-tmenu)
("P" "Project›" casual-editkit-project-tmenu)]
- [("M" "Macros›" casual-editkit-macro-tmenu)]]
+ [("M" "Macros›" casual-editkit-macro-tmenu)
+ ("F" "Font Scale…" text-scale-adjust
+ :if display-graphic-p)]]
;; casual-editkit-cursor-navigation-group
diff --git a/tests/test-casual-editkit.el b/tests/test-casual-editkit.el
index 1dab805df3..5d0ecff5b9 100644
--- a/tests/test-casual-editkit.el
+++ b/tests/test-casual-editkit.el
@@ -34,6 +34,7 @@
(cl-letf (((symbol-function #'casual-editkit-version-controlled-p) (lambda
() t))
((symbol-function
#'casual-editkit-package-symbol-overlay-installed-p) (lambda () t))
((symbol-function #'casual-editkit-package-magit-installed-p)
(lambda () t))
+ ((symbol-function #'display-graphic-p) (lambda (&optional d) t))
(casualt-mock #'find-file)
(casualt-mock #'dired-jump-other-window)
(casualt-mock #'ibuffer)
@@ -54,6 +55,7 @@
(casualt-mock #'compile)
(casualt-mock #'quick-calc)
(casualt-mock #'shell-command)
+ (casualt-mock #'text-scale-adjust)
(casualt-mock #'make-frame-command)
(casualt-mock #'undo)
@@ -98,6 +100,8 @@
(:binding "P" :command casual-editkit-project-tmenu)
(:binding "/" :command casual-editkit-search-tmenu)
+ (:binding "M" :command casual-editkit-macro-tmenu)
+ (:binding "F" :command text-scale-adjust)
(:binding "r" :command casual-editkit-registers-tmenu)
(:binding "U" :command undo)
