Make bracketed paste conditional on terminal mode 2004

Expose ghostel--mode-enabled to query DEC private modes from Elisp.
Use it to only wrap paste text with bracketed paste sequences when the
terminal has mode 2004 enabled, instead of always sending them
unconditionally. Also consolidate text drop handling through
ghostel--paste-text.

Author: dakra

ghostel.el

@@ -541,11 +541,18 @@ Returns the sequence string, or nil for unknown keys."
 (defvar-local ghostel--yank-index 0
   "Current kill ring index for `ghostel-yank-pop'.")
 
+(defun ghostel--bracketed-paste-p ()
+  "Return non-nil if the terminal has bracketed paste mode (2004) enabled."
+  (and ghostel--terminal
+       (ghostel--mode-enabled ghostel--terminal 2004)))
+
 (defun ghostel--paste-text (text)
-  "Send TEXT to the terminal using bracketed paste."
+  "Send TEXT to the terminal, using bracketed paste if the terminal wants it."
   (when (and text ghostel--process (process-live-p ghostel--process))
     (process-send-string ghostel--process
-                         (concat "\e[200~" text "\e[201~"))))
+                         (if (ghostel--bracketed-paste-p)
+                             (concat "\e[200~" text "\e[201~")
+                           text))))
 
 (defun ghostel-paste ()
   "Paste text from the Emacs kill ring into the terminal.
@@ -599,8 +606,7 @@ pasted using bracketed paste."
           (ghostel--send-key (shell-quote-argument path))))
        ;; Text drop
        ((stringp payload)
-        (process-send-string ghostel--process
-                             (concat "\e[200~" payload "\e[201~")))
+        (ghostel--paste-text payload))
        ;; dnd-protocol-alist style: list of files
        ((and (listp payload) (cl-every #'stringp payload))
         (ghostel--send-key

src/module.zig

@@ -37,6 +37,7 @@ export fn emacs_module_init(runtime: *c.struct_emacs_runtime) callconv(.c) c_int
     env.bindFunction("ghostel--mouse-event", 6, 6, &fnMouseEvent, "Send a mouse event to the terminal.\n\n(ghostel--mouse-event TERM ACTION BUTTON ROW COL MODS)");
     env.bindFunction("ghostel--focus-event", 2, 2, &fnFocusEvent, "Send a focus event to the terminal.\n\n(ghostel--focus-event TERM GAINED)");
     env.bindFunction("ghostel--set-palette", 2, 2, &fnSetPalette, "Set the ANSI color palette.\n\n(ghostel--set-palette TERM COLORS-STRING)");
+    env.bindFunction("ghostel--mode-enabled", 2, 2, &fnModeEnabled, "Return t if terminal DEC private MODE is enabled.\n\n(ghostel--mode-enabled TERM MODE)");
     env.bindFunction("ghostel--debug-state", 1, 1, &fnDebugState, "Return debug info about terminal/render state.\n\n(ghostel--debug-state TERM)");
     env.bindFunction("ghostel--debug-feed", 2, 2, &fnDebugFeed, "Feed STR to terminal and return first row + cursor.\n\n(ghostel--debug-feed TERM STR)");
 
@@ -363,6 +364,15 @@ fn fnFocusEvent(raw_env: ?*c.emacs_env, _: isize, args: [*c]c.emacs_value, _: ?*
     return env.t();
 }
 
+/// (ghostel--mode-enabled TERM MODE)
+/// Return t if terminal DEC private MODE is enabled, nil otherwise.
+fn fnModeEnabled(raw_env: ?*c.emacs_env, _: isize, args: [*c]c.emacs_value, _: ?*anyopaque) callconv(.c) c.emacs_value {
+    const env = emacs.Env.init(raw_env.?);
+    const term = env.getUserPtr(Terminal, args[0]) orelse return env.nil();
+    const mode: gt.c.GhosttyMode = @intCast(env.extractInteger(args[1]));
+    return if (term.isModeEnabled(mode)) env.t() else env.nil();
+}
+
 /// (ghostel--set-palette TERM COLORS-STRING)
 /// Set the 16 ANSI colors from a concatenated hex string like "#000000#aa0000...".
 /// The remaining 240 palette entries are taken from the terminal's current palette.