diff options
| author | Sharlatan Hellseher <sharlatanus@gmail.com> | 2025-02-13 09:36:58 +0000 |
|---|---|---|
| committer | Sharlatan Hellseher <sharlatanus@gmail.com> | 2025-02-13 09:49:48 +0000 |
| commit | b10c1ccdeaaa44f86d9abcf142566786480d3bbf (patch) | |
| tree | 6877bb181736429162c0929e2e3b9f6c1e7d11d0 | |
| parent | a10f9ae49e499e8ab707bd7126e4fb6065e56180 (diff) | |
| download | guix-b10c1ccdeaaa44f86d9abcf142566786480d3bbf.tar.gz guix-b10c1ccdeaaa44f86d9abcf142566786480d3bbf.zip | |
gnu: sl: Refresh package style.
* 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
| -rw-r--r-- | gnu/packages/toys.scm | 37 |
1 files changed, 18 insertions, 19 deletions
diff --git a/gnu/packages/toys.scm b/gnu/packages/toys.scm index b304e3606b..f0284ad9d6 100644 --- a/gnu/packages/toys.scm +++ b/gnu/packages/toys.scm @@ -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.")))) |