amaharaneko/guix-mirrors
1
1
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2025-10-02 02:15:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: sl: Refresh package style.

Browse source 
* gnu/packages/toys.scm (sl): Use G-Expressions, adjust order of fields.
[arguments]: Remove trailing #t from lambda.
[description]: Adjust fill-column indentation.

Change-Id: Iaa3380514c7ba6597686845b722af2c341e8797d
This commit is contained in:
Sharlatan Hellseher 2025-02-13 09:36:58 +00:00
parent a10f9ae49e
commit b10c1ccdea
No known key found for this signature in database
GPG key ID: 76D727BFF62CD2B5
1 changed files with 18 additions and 19 deletions
Download patch file Download diff file Expand all files Collapse all files

37
gnu/packages/toys.scm
View file

@ -461,31 +461,30 @@ inline, preserving terminal state and workflow.")
(sha256 (sha256
(base32 "11a1rdgb8wagikhxgm81g80g5qsl59mv4qgsval3isykqh8729bj")))) (base32 "11a1rdgb8wagikhxgm81g80g5qsl59mv4qgsval3isykqh8729bj"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments
(list
#:phases
#~(modify-phases %standard-phases
(delete 'configure) ; no configure script
(delete 'check) ; no tests
(replace 'install ; no ‘make install’ target
(lambda _
(let* ((bin (string-append #$output "/bin"))
(man (string-append #$output "/share/man"))
(man1 (string-append #$output "/man1"))
(man1-ja (string-append man "/ja/man1")))
(install-file "sl" bin)
(install-file "sl.1" man1)
(mkdir-p man1-ja)
(copy-file "sl.1.ja" (string-append man1-ja "/sl.1"))))))))
(inputs (inputs
(list ncurses)) (list ncurses))
(arguments
`(#:phases
(modify-phases %standard-phases
(delete 'configure) ; no configure script
(delete 'check) ; no tests
(replace 'install ; no ‘make install’ target
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(bin (string-append out "/bin"))
(man (string-append out "/share/man"))
(man1 (string-append man "/man1"))
(man1-ja (string-append man "/ja/man1")))
(install-file "sl" bin)
(install-file "sl.1" man1)
(mkdir-p man1-ja)
(copy-file "sl.1.ja" (string-append man1-ja "/sl.1"))
#t))))))
(home-page "http://www.tkl.iis.u-tokyo.ac.jp/~toyoda/index_e.html") (home-page "http://www.tkl.iis.u-tokyo.ac.jp/~toyoda/index_e.html")
(synopsis "Joke command to correct typing \"sl\" by mistake") (synopsis "Joke command to correct typing \"sl\" by mistake")
(description (description
"@dfn{SL} (for Steam Locomotive) displays one of several animated trains "@dfn{SL} (for Steam Locomotive) displays one of several animated trains
on the text terminal. It serves no useful purpose but to discourage mistakenly on the text terminal. It serves no useful purpose but to discourage
typing @command{sl} instead of @command{ls}.") mistakenly typing @command{sl} instead of @command{ls}.")
(license (license:non-copyleft "file://LICENSE" (license (license:non-copyleft "file://LICENSE"
"See LICENSE in the distribution.")))) "See LICENSE in the distribution."))))