[nongnu] elpa/casual 9fc5e87633 171/443: Add text-scale-adjust command to EditKit

[ELPA Syncer]

branch: elpa/casual
commit 9fc5e876338bd036371d10d58e826cb276506255
Author: Charles Choi <kickingve...@gmail.com>
Commit: Charles Choi <kickingve...@gmail.com>

    Add text-scale-adjust command to EditKit
    
    - Adds command `text-scale-adjust` with label "(F) Font Scale…".
---
 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)