x11-wm/stumpwm.stumpwm-contrib
1
0
Fork 0
mirror of https://github.com/stumpwm/stumpwm-contrib.git synced 2026-09-10 07:26:25 -04:00
Code Issues Actions Packages Projects Releases Wiki Activity

Use ssh hostname in window title, instead just ssh

Browse source 
`-T` seems universal way to setup title which works on both xterm and urxvt
This commit is contained in:
Kirill A. Korinsky 2024-12-03 14:23:10 +01:00
parent 7f0bc885b0
commit 0b30ae0fd8
No known key found for this signature in database
GPG key ID: 98D8D9867759226E
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
util/swm-ssh/swm-ssh.lisp
View file

@ -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))))))