From 0b30ae0fd86107771a63e840605d3e7a9edd11eb Mon Sep 17 00:00:00 2001
From: "Kirill A. Korinsky" <kirill@korins.ky>
Date: Tue, 3 Dec 2024 14:23:10 +0100
Subject: [PATCH] Use ssh hostname in window title, instead just ssh

`-T` seems universal way to setup title which works on both xterm and urxvt
---
 util/swm-ssh/swm-ssh.lisp | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/util/swm-ssh/swm-ssh.lisp b/util/swm-ssh/swm-ssh.lisp
index b8926fc..6b0b719 100644
--- a/util/swm-ssh/swm-ssh.lisp
+++ b/util/swm-ssh/swm-ssh.lisp
@@ -30,4 +30,6 @@
                                            :test #'equal))
                 "Open ssh connection to: ")))
     (when entry
-      (stumpwm:run-shell-command (format nil "~A -e ssh ~A" *swm-ssh-default-term* (car entry))))))
+      (let ((host (car entry)))
+        (stumpwm:run-shell-command
+         (format nil "~A -T ~A -e ssh ~A" *swm-ssh-default-term* host host))))))