revert support default text-scale

Author: jcs090218

CHANGELOG.md

@@ -16,7 +16,6 @@ Check [Keep a Changelog](http://keepachangelog.com/) for recommendations on how
 * feat: Add mouse support for `nov`, `csv`, and `undo-tree` (3f32fd2fbaa767e6b7c2f33fb21b6c81f32a4f32)
 * feat: Add front and end spaces (cfbf3eec6c23a4d41a45a6ac60218868de2c1e2b)
 * fix: Handle the variable `mode-line-process` (aafa3eaaa07104f04bf50edec003dfe8d89d755f)
-* feat: Add support for `default-text-scale` (63f2e26273bde88d439769d35b82b8ba6c88df5c)
 
 ## 0.1.1
 > Released Jan 31, 2023

jcs-modeline.el

@@ -53,7 +53,7 @@
     (:eval (jcs-modeline--render-read-only))
     (:eval (jcs-modeline--render-mode-line-process)))
   "List of item to render on the left."
-  :type '(list symbol)
+  :type 'list
   :group 'jcs-modeline)
 
 (defcustom jcs-modeline-right
@@ -69,15 +69,15 @@
     (:eval (jcs-modeline--render-percent-position))
     (:eval (jcs-modeline--render-end-spaces)))
   "List of item to render on the right."
-  :type '(list symbol)
+  :type 'list
   :group 'jcs-modeline)
 
 (defcustom jcs-modeline-checker-colors '((error   . "#FB4933")
                                          (warning . "#FABD2F")
                                          (info    . "#83A598")
                                          (note    . "#83A598"))
   "Alist of colors for checkers."
-  :type '(list symbol)
+  :type 'list
   :group 'jcs-modeline)
 
 ;;
@@ -383,7 +383,7 @@ mouse-1: Toggle display of major mode name"
 
 (defun jcs-modeline--project-root ()
   "Return project directory path."
-  (when-let* ((current (project-current))) (project-root current)))
+  (when-let ((current (project-current))) (project-root current)))
 
 (defcustom jcs-modeline-show-project-name-virutal-buffer nil
   "If non-nil, display project's name in the virutal buffer."
@@ -444,7 +444,7 @@ mouse-1: Switch project"
                (nerd-icons-devicon "nf-dev-git_branch" :face 'jcs-modeline-vc-face)))
     (Hg   . ,jcs-modeline-vc-unknown-icon))
   "Alist of vc backends to icon."
-  :type '(list symbol)
+  :type 'list
   :group 'jcs-modeline)
 
 (declare-function vc-git--symbolic-ref "vc-git.el")
@@ -506,37 +506,23 @@ mouse-1: Switch project"
 
 (defvar text-scale-mode-amount)
 (defvar text-scale-mode-lighter)
-(defvar default-text-scale--complement)
 
 (defun jcs-modeline--render-text-scale ()
   "Render text-scale amount."
-  (let ((ts (and (boundp 'text-scale-mode-lighter)
-                 (/= text-scale-mode-amount 0)))
-        (dts (and (boundp 'default-text-scale--complement)
-                  (/= default-text-scale--complement 0))))
-    (when (or ts dts)
-      (format "(%s:%s) "
-              (if ts
-                  (propertize text-scale-mode-lighter
-                              'mouse-face 'mode-line-highlight
-                              'help-echo (concat "Text scale " text-scale-mode-lighter))
-                "0")
-              (if-let* ((dts)
-                        (delta (- 0 default-text-scale--complement))
-                        (delta (format (if (>= delta 0) "+%d" "%d") delta)))
-                  (propertize (jcs-modeline-2str delta)
-                              'mouse-face 'mode-line-highlight
-                              'help-echo (format "Default text scale %s" delta))
-                "0")))))
+  (when (and (boundp 'text-scale-mode-lighter)
+             (/= text-scale-mode-amount 0))
+    (format "(%s) " (propertize text-scale-mode-lighter
+                                'mouse-face 'mode-line-highlight
+                                'help-echo (concat "Text scale " text-scale-mode-lighter)))))
 
 ;;
 ;;; Undo
 
 (defun jcs-modeline--render-undo-tree-buffer-name ()
   "Render text-scale amount."
-  (when-let* (((featurep 'undo-tree))
-              ((equal (buffer-name) undo-tree-visualizer-buffer-name))
-              (ind (buffer-name undo-tree-visualizer-parent-buffer)))
+  (when-let (((featurep 'undo-tree))
+             ((equal (buffer-name) undo-tree-visualizer-buffer-name))
+             (ind (buffer-name undo-tree-visualizer-parent-buffer)))
     (concat " "
             (propertize ind
                         'mouse-face 'mode-line-highlight
@@ -628,9 +614,9 @@ If argument RUNNING is non-nil, we turn lighter into question mark."
               (last (car (last states)))
               result)
          (dolist (state states)
-           (when-let* ((lighter (jcs-modeline--flymake-lighter
-                                 diags-by-type state
-                                 (or some-waiting (null known) all-disabled))))
+           (when-let ((lighter (jcs-modeline--flymake-lighter
+                                diags-by-type state
+                                (or some-waiting (null known) all-disabled))))
              (setq result (concat result lighter
                                   (unless (equal state last) "/")))))
          (propertize result
@@ -660,7 +646,7 @@ If argument RUNNING is non-nil, we turn lighter into question mark."
             (running (eq 'running flycheck-last-status-change))
             result)
        (dolist (state states)
-         (when-let* ((lighter (jcs-modeline--flycheck-lighter state running)))
+         (when-let ((lighter (jcs-modeline--flycheck-lighter state running)))
            (setq result (concat result lighter
                                 (unless (equal state last) "/")))))
        (propertize result
@@ -675,8 +661,8 @@ If argument RUNNING is non-nil, we turn lighter into question mark."
 
 (defun jcs-modeline--render-csv ()
   "Render for `csv-mode'."
-  (when-let* (((memq major-mode '(csv-mode tsv-mode)))
-              (ind (format-mode-line csv-mode-line-format)))
+  (when-let (((memq major-mode '(csv-mode tsv-mode)))
+             (ind (format-mode-line csv-mode-line-format)))
     (concat (propertize ind
                         'mouse-face 'mode-line-highlight
                         'help-echo "csv")
@@ -690,8 +676,8 @@ If argument RUNNING is non-nil, we turn lighter into question mark."
 
 (defun jcs-modeline--render-nov ()
   "Render for nov."
-  (when-let* (((eq major-mode 'nov-mode))
-              (ind (format "[%s/%s]" (1+ nov-documents-index) (length nov-documents))))
+  (when-let (((eq major-mode 'nov-mode))
+             (ind (format "[%s/%s]" (1+ nov-documents-index) (length nov-documents))))
     (propertize ind
                 'mouse-face 'mode-line-highlight
                 'help-echo "[current page/totla page]")))