ssh: Add 'identity' keyword to 'open-ssh-session'.
* guix/ssh.scm (open-ssh-session): Add 'identity' keyword argument.master
parent
cce7b03708
commit
a9b09ed776
10
guix/ssh.scm
10
guix/ssh.scm
|
@ -57,12 +57,14 @@
|
||||||
(define %compression
|
(define %compression
|
||||||
"zlib@openssh.com,zlib")
|
"zlib@openssh.com,zlib")
|
||||||
|
|
||||||
(define* (open-ssh-session host #:key user port
|
(define* (open-ssh-session host #:key user port identity
|
||||||
(compression %compression))
|
(compression %compression))
|
||||||
"Open an SSH session for HOST and return it. When USER and PORT are #f, use
|
"Open an SSH session for HOST and return it. IDENTITY specifies the file
|
||||||
default values or whatever '~/.ssh/config' specifies; otherwise use them.
|
name of a private key to use for authenticating with the host. When USER,
|
||||||
Throw an error on failure."
|
PORT, or IDENTITY are #f, use default values or whatever '~/.ssh/config'
|
||||||
|
specifies; otherwise use them. Throw an error on failure."
|
||||||
(let ((session (make-session #:user user
|
(let ((session (make-session #:user user
|
||||||
|
#:identity identity
|
||||||
#:host host
|
#:host host
|
||||||
#:port port
|
#:port port
|
||||||
#:timeout 10 ;seconds
|
#:timeout 10 ;seconds
|
||||||
|
|
Reference in New Issue