TakeV/guix
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

gnu: mosh: Update package style.

Browse source 
* gnu/packages/ssh.scm (mosh)[arguments]: Use G-expressions.
Don't explicitly return #t from phases.
[inputs]: Remove input labels.
This commit is contained in:
Tobias Geerinckx-Rice 2023-10-15 02:00:00 +02:00
parent 62d42bdd75
commit 063655dbad
No known key found for this signature in database
GPG key ID: 0DB0FF884F556D79
1 changed files with 21 additions and 23 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

44
gnu/packages/ssh.scm
View file

@ -473,32 +473,30 @@ (define-public mosh
"1pax8sqlvcc7ammsxd9r53yx4m2hg1827wfz6f4rrwjx9q9lnbl7"))))
(build-system gnu-build-system)
(arguments
'(#:phases
(modify-phases %standard-phases
(add-after 'unpack 'patch-FHS-file-names
(lambda _
(substitute* "scripts/mosh.pl"
(("/bin/sh")
(which "sh")))
#t))
(add-after 'install 'wrap
(lambda* (#:key outputs #:allow-other-keys)
;; Make sure 'mosh' can find 'mosh-client' and
;; 'mosh-server'.
(let* ((out (assoc-ref outputs "out"))
(bin (string-append out "/bin")))
(wrap-program (string-append bin "/mosh")
`("PATH" ":" prefix (,bin)))))))))
(list
#:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'patch-FHS-file-names
(lambda _
(substitute* "scripts/mosh.pl"
(("/bin/sh")
(which "sh")))))
(add-after 'install 'wrap
(lambda _
;; Make sure 'mosh' can find 'mosh-client' and 'mosh-server'.
(let ((bin (string-append #$output "/bin")))
(wrap-program (string-append bin "/mosh")
`("PATH" ":" prefix (,bin)))))))))
(native-inputs
(list pkg-config))
(inputs
`(("openssl" ,openssl)
("perl" ,perl)
("perl-io-tty" ,perl-io-tty)
("zlib" ,zlib)
("ncurses" ,ncurses)
("protobuf" ,protobuf)
("boost-headers" ,boost)))
(list boost
ncurses
openssl
perl
perl-io-tty
protobuf
zlib))
(home-page "https://mosh.org/")
(synopsis "Remote shell tolerant to intermittent connectivity")
(description