[nongnu] elpa/typst-ts-mode 78cc859488 032/246: feat: add typst watch mode-line indicator

[ELPA Syncer]

branch: elpa/typst-ts-mode
commit 78cc8594880afbb24585749b29a65da0aaf2e6c6
Author: Ziqi Yang <mr.ziqiy...@gmail.com>
Commit: Ziqi Yang <mr.ziqiy...@gmail.com>

    feat: add typst watch mode-line indicator
---
 typst-ts-mode.el | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)

diff --git a/typst-ts-mode.el b/typst-ts-mode.el
index bc9d13a779..621f1ed9a8 100644
--- a/typst-ts-mode.el
+++ b/typst-ts-mode.el
@@ -76,6 +76,15 @@ The compile options will be passed to the
   :type 'string
   :group 'typst-ts)
 
+(defcustom typst-ts-mode-watch-modeline-indicator-enable t
+  "Whether to enable mode line indicator for typst watch."
+  :type 'boolean
+  :group 'typst-ts)
+
+(defcustom typst-ts-mode-watch-modeline-indicator "[Watch]"
+  "Modeline indicator for typst watch."
+  :type 'string
+  :group 'typst-ts)
 
 (defcustom typst-ts-mode-watch-process-name "*Typst-Watch*"
   "Process name for `typst watch' sub-command."
@@ -123,6 +132,12 @@ is eliminated."
   :set-after '(typst-ts-markup-header-same-height)
   :group 'typst-ts-faces)
 
+;; Face 
=========================================================================
+(defface typst-ts-watch-modeline-indicator-face
+  '((t :inherit (underline bold)))
+  "Face for typst watch modeline indicator."
+  :group 'typst-ts-faces)
+
 ;; Common Face 
==================================================================
 
 (defface typst-ts-shorthand-face
@@ -662,6 +677,11 @@ PROC: process; OUTPUT: new output from PROC."
             (file-name-nondirectory buffer-file-name)
             typst-ts-mode-watch-options))
    'typst-ts-mode--watch-process-filter)
+  ;; add mode line indicator
+  (when typst-ts-mode-watch-modeline-indicator-enable
+    (push
+     (propertize typst-ts-mode-watch-modeline-indicator 'face 
'typst-ts-watch-modeline-indicator-face)
+     global-mode-string))
   (message "Start Watch :3"))
 
 ;;;###autoload
@@ -675,6 +695,9 @@ PROC: process; OUTPUT: new output from PROC."
     (when window
       (delete-window window)))
   (run-hooks typst-ts-mode-after-watch-hook)
+  ;; remove mode line indicator
+  (when typst-ts-mode-watch-modeline-indicator-enable
+    (setq global-mode-string (remove typst-ts-mode-watch-modeline-indicator 
global-mode-string)))
   (message "Stop Watch :‑."))
 
 ;;;###autoload