Regen

Author: jcs090218

jcs-modeline.el

@@ -48,34 +48,34 @@
 
 (defun jcs-modeline--enable ()
   "Enable function `jcs-modeline-mode'."
-  (setq jcs-modeline--default-mode-line mode-line-format
-        mode-line-format
-        '((:eval
-           (jcs-modeline-render
-            (quote
-             ("%e "
-              mode-line-front-space
-              mode-line-buffer-identification " "
-              (:eval (moody-tab (concat " " (format-mode-line mode-line-modes))))
-              " " (:eval (jcs-modeline--vc-project))))
-            (quote
-             ((:eval
-               (when (and (bound-and-true-p flycheck-mode)
-                          (or flycheck-current-errors
-                              (eq 'running flycheck-last-status-change)))
-                 (cl-loop for state in '((error   . "#FB4933")
-                                         (warning . "#FABD2F")
-                                         (info    . "#83A598"))
-                          as lighter = (jcs-modeline--flycheck-lighter (car state))
-                          when lighter
-                          concat (propertize lighter 'face `(:foreground ,(cdr state))))))
-              (:eval (jcs-modeline--vc-info)) " "
-              (:eval (moody-tab " %l : %c " 0 'up)) " %p "
-              mode-line-end-spaces)))))))
+  (setq jcs-modeline--default-mode-line mode-line-format)
+  (setq-default mode-line-format
+                '((:eval
+                   (jcs-modeline-render
+                    (quote
+                     ("%e "
+                      mode-line-front-space
+                      mode-line-buffer-identification " "
+                      (:eval (moody-tab (concat " " (format-mode-line mode-line-modes))))
+                      " " (:eval (jcs-modeline--vc-project))))
+                    (quote
+                     ((:eval
+                       (when (and (bound-and-true-p flycheck-mode)
+                                  (or flycheck-current-errors
+                                      (eq 'running flycheck-last-status-change)))
+                         (cl-loop for state in '((error   . "#FB4933")
+                                                 (warning . "#FABD2F")
+                                                 (info    . "#83A598"))
+                                  as lighter = (jcs-modeline--flycheck-lighter (car state))
+                                  when lighter
+                                  concat (propertize lighter 'face `(:foreground ,(cdr state))))))
+                      (:eval (jcs-modeline--vc-info)) " "
+                      (:eval (moody-tab " %l : %c " 0 'up)) " %p "
+                      mode-line-end-spaces)))))))
 
 (defun jcs-modeline--disable ()
   "Disable function `jcs-modeline-mode'."
-  (setq mode-line-format jcs-modeline--default-mode-line))
+  (setq-default mode-line-format jcs-modeline--default-mode-line))
 
 ;;;###autoload
 (define-minor-mode jcs-modeline-mode