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

Merge pull request #299 from catap/ssh-title

Browse source 
Use ssh hostname in window title, instead just ssh
This commit is contained in:
David 2025-04-03 09:59:06 -04:00 committed by GitHub
parent e179459917 0b30ae0fd8
commit 907713621d
No known key found for this signature in database
GPG key ID: B5690EEEBB952194
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))))))