mirror of
https://github.com/stumpwm/stumpwm-contrib.git
synced 2026-09-10 07:26:25 -04:00
46c3ef3cf1
`-T` looks a universal option for `xterm` and `urxvtc`, but `sakura` requries `-t` (or `--title`) for example.
47 lines
1.5 KiB
Common Lisp
47 lines
1.5 KiB
Common Lisp
;;;; swm-ssh.lisp
|
|
|
|
(defpackage #:swm-ssh
|
|
(:use #:cl #:stumpwm)
|
|
(:export #:*swm-ssh-default-term*
|
|
#:*swm-ssh-default-term-title-opt*
|
|
#:*swm-ssh-known-hosts-path*)
|
|
(:import-from #:cl-ppcre))
|
|
|
|
(in-package #:swm-ssh)
|
|
|
|
(defvar *swm-ssh-known-hosts-path* #p"~/.ssh/known_hosts")
|
|
|
|
(defvar *host-regex* "^([^ :]+)( |\\t).+")
|
|
|
|
(defvar *swm-ssh-default-term* "urxvtc")
|
|
|
|
(defvar *swm-ssh-default-term-title-opt* "-T")
|
|
|
|
(defun collect-hosts (&optional (ssh-known-hosts *swm-ssh-known-hosts-path*))
|
|
(with-open-file (stream ssh-known-hosts :direction :input)
|
|
(loop for line = (read-line stream nil)
|
|
while line
|
|
when (cl-ppcre:scan *host-regex* line)
|
|
collect (cl-ppcre:regex-replace-all *host-regex* line "\\1"))))
|
|
|
|
(stumpwm:defcommand swm-ssh-menu () ()
|
|
"Select a host to ssh to"
|
|
(let ((entry (stumpwm:select-from-menu
|
|
(stumpwm:current-screen)
|
|
(mapcar 'list
|
|
(delete-duplicates (collect-hosts)
|
|
:test #'equal))
|
|
"Open ssh connection to: ")))
|
|
(when entry
|
|
(let ((host (car entry)))
|
|
(stumpwm:run-shell-command
|
|
(if *swm-ssh-default-term-title-opt*
|
|
(format nil "~A ~A ~A -e ssh ~A"
|
|
*swm-ssh-default-term*
|
|
*swm-ssh-default-term-title-opt*
|
|
host
|
|
host)
|
|
(format nil "~A -e ssh ~A"
|
|
*swm-ssh-default-term*
|
|
host)))))))
|