feat: Add CSV support

jcs-emacs · Dec 10, 2023 · 0e45540 · 0e45540
1 parent 9181c77
commit 0e45540
Showing 1 changed file with 11 additions and 0 deletions.
diff --git a/jcs-modeline.el b/jcs-modeline.el
@@ -59,6 +59,7 @@
 
 (defcustom jcs-modeline-right
   `((:eval (jcs-modeline--render-nov))
+    (:eval (jcs-modeline--render-csv))
     (:eval (jcs-modeline--render-text-scale))
     (:eval (jcs-modeline--render-flymake))
     (:eval (jcs-modeline--render-flycheck))
@@ -459,6 +460,16 @@ If argument RUNNING is non-nil, we turn lighter into question mark."
        result)
      " ")))
 
+;;
+;;; CSV
+
+(defvar csv-mode-line-format)
+
+(defun jcs-modeline--render-csv ()
+  "Render for `csv-mode'."
+  (when (eq major-mode 'csv-mode)
+    (concat (format-mode-line csv-mode-line-format) " ")))
+
 ;;
 ;;; Nov