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
(base32 "11a1rdgb8wagikhxgm81g80g5qsl59mv4qgsval3isykqh8729bj"))))
(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
(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")
(synopsis "Joke command to correct typing \"sl\" by mistake")
(description
"@dfn{SL} (for Steam Locomotive) displays one of several animated trains
on the text terminal. It serves no useful purpose but to discourage mistakenly
typing @command{sl} instead of @command{ls}.")
on the text terminal. It serves no useful purpose but to discourage
mistakenly typing @command{sl} instead of @command{ls}.")
(license (license:non-copyleft "file://LICENSE"
"See LICENSE in the distribution."))))