1 ;;; GNU Guix --- Functional package management for GNU
2 ;;; Copyright © 2017, 2018, 2020 Tobias Geerinckx-Rice <me@tobias.gr>
3 ;;; Copyright © 2019 Jesse Gibbons <jgibbons2357+guix@gmail.com>
4 ;;; Copyright © 2019, 2020 Timotej Lazar <timotej.lazar@araneo.si>
5 ;;; Copyright © 2020 Efraim Flashner <efraim@flashner.co.il>
6 ;;; Copyright © 2021 Leo Famulari <leo@famulari.name>
8 ;;; This file is part of GNU Guix.
10 ;;; GNU Guix is free software; you can redistribute it and/or modify it
11 ;;; under the terms of the GNU General Public License as published by
12 ;;; the Free Software Foundation; either version 3 of the License, or (at
13 ;;; your option) any later version.
15 ;;; GNU Guix is distributed in the hope that it will be useful, but
16 ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
17 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
18 ;;; GNU General Public License for more details.
20 ;;; You should have received a copy of the GNU General Public License
21 ;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
23 (define-module (gnu packages toys)
24 #:use-module (gnu packages bison)
25 #:use-module (gnu packages flex)
26 #:use-module (gnu packages gtk)
27 #:use-module (gnu packages ncurses)
28 #:use-module (gnu packages perl)
29 #:use-module (gnu packages pkg-config)
30 #:use-module (gnu packages xml)
31 #:use-module (gnu packages xorg)
32 #:use-module (guix build-system gnu)
33 #:use-module (guix download)
34 #:use-module (guix git-download)
35 #:use-module ((guix licenses) #:prefix license:)
36 #:use-module (guix packages)
37 #:use-module (guix utils))
47 (url "https://github.com/mtoyoda/sl")
49 (file-name (git-file-name name version))
51 (base32 "1zrfd71zx2px2xpapg45s8xvi81xii63yl0h60q72j71zh4sif8b"))))
52 (build-system gnu-build-system)
54 `(("ncurses" ,ncurses)))
57 (modify-phases %standard-phases
58 (delete 'configure) ; no configure script
59 (delete 'check) ; no tests
60 (replace 'install ; no ‘make install’ target
61 (lambda* (#:key outputs #:allow-other-keys)
62 (let* ((out (assoc-ref outputs "out"))
63 (bin (string-append out "/bin"))
64 (man (string-append out "/share/man"))
65 (man1 (string-append man "/man1"))
66 (man1-ja (string-append man "/ja/man1")))
67 (install-file "sl" bin)
68 (install-file "sl.1" man1)
70 (copy-file "sl.1.ja" (string-append man1-ja "/sl.1"))
72 (home-page "http://www.tkl.iis.u-tokyo.ac.jp/~toyoda/index_e.html")
73 (synopsis "Joke command to correct typing \"sl\" by mistake")
75 "@dfn{SL} (for Steam Locomotive) displays one of several animated trains
76 on the text terminal. It serves no useful purpose but to discourage mistakenly
77 typing @command{sl} instead of @command{ls}.")
78 (license (license:non-copyleft "file://LICENSE"
79 "See LICENSE in the distribution."))))
81 (define-public filters
89 (url "git://git.joeyh.name/filters")
91 (file-name (git-file-name name version))
93 (base32 "1gaigpda1w9wxfh8an3sam1hpacc1bhxl696w4yj0vzhc6izqvxs"))
94 (modules '((guix build utils)))
96 ;; kenny is under nonfree Artistic License (Perl) 1.0.
98 (substitute* "Makefile"
101 (build-system gnu-build-system)
104 (list (string-append "CC=" ,(cc-for-target))
105 (string-append "prefix=" (assoc-ref %outputs "out")))
107 (modify-phases %standard-phases
109 (add-after 'unpack 'respect-prefix
111 (substitute* "Makefile"
117 #:tests? #f)) ; no test suite
123 (home-page "https://joeyh.name/code/filters/")
124 (synopsis "Various amusing text filters")
126 "The filters collection harks back to the late 1980s, when various text
127 filters were written to munge written language in amusing ways. The earliest
128 and best known were legends such as the Swedish Chef filter and B1FF.
130 This package contains the following filter commands:
132 @item b1ff: a satire of a stereotypical Usenet newbie
133 @item censor: comply with the @acronym{CDA, Communications Decency Act}
134 @item chef: convert English to Mock Swedish
135 @item cockney: Cockney English
136 @item elee: k3wl hacker slang
137 @item fanboy: a stereotypical fan (supports custom fandoms)
138 @item fudd: Elmer Fudd
139 @item jethro: hillbilly text filter
140 @item jibberish: a random selection of these filters
141 @item jive: Jive English
142 @item ken: turn English into Cockney
143 @item kraut: a bad German accent
144 @item ky00te: a very cute accent
145 @item LOLCAT: as seen in Internet GIFs everywhere
146 @item nethackify: wiped-out text as found in nethack
147 @item newspeak: à la 1984
148 @item nyc: Brooklyn English
149 @item pirate: talk like a pirate
150 @item rasterman: straight from the keyboard of Carsten Haitzler
151 @item scottish: fake Scottish (Dwarven) accent
152 @item scramble: scramble the \"inner\" letters of each word
153 @item spammer: turn honest text into something liable to be flagged as spam
154 @item studly: studly caps.
155 @item uniencode: use glorious Unicode to the fullest possible extent
156 @item upside-down: flip the text upside down
159 The GNU project hosts a similar collection of filters, the GNU talkfilters.")
160 (license ; see debian/copyright
161 (list license:gpl2+ ; most of the filters
162 license:gpl2 ; rasterman, ky00te.dir/* nethackify, pirate
163 license:gpl3+ ; scramble, scottish
164 license:public-domain ; jethro, kraut, ken, studly
165 license:gpl1+ ; cockney, jive, nyc only say "gpl"
166 license:expat)))) ; newspeak
176 "https://www.ratrabbit.nl/ratrabbit/system/files/xsnow/xsnow-"
179 (base32 "1880643fal6l7bskqbm4zfbr2s719698mkx4pchrxkjpb240sj0z"))))
180 (build-system gnu-build-system)
183 (modify-phases %standard-phases
184 (add-before 'configure 'fix-install-path
186 ;; Install program to bin instead of games.
187 (substitute* "src/Makefile.in"
188 (("(gamesdir = \\$\\(exec_prefix\\)/)games" _ prefix)
189 (string-append prefix "bin")))
196 ("libxxml2" ,libxml2)))
198 `(("pkg-config" ,pkg-config)))
199 (home-page "https://www.ratrabbit.nl/ratrabbit/content/xsnow/introduction")
200 (synopsis "Let it snow on the desktop")
201 (description "@code{Xsnow} animates snowfall and Santa with reindeer on
202 the desktop background. Additional customizable effects include wind, stars
203 and various scenery elements.")
204 (license license:gpl3+)))
206 (define-public nyancat
214 (url "https://github.com/klange/nyancat")
216 (file-name (git-file-name name version))
219 "1mg8nm5xzcq1xr8cvx24ym2vmafkw53rijllwcdm9miiz0p5ky9k"))))
220 (build-system gnu-build-system)
222 `(#:make-flags '(,(string-append "CC=" (cc-for-target)))
224 (modify-phases %standard-phases
225 (delete 'configure) ; no configure script
227 (lambda* (#:key outputs #:allow-other-keys)
228 (let* ((out (assoc-ref outputs "out"))
229 (bin (string-append out "/bin"))
230 (man (string-append out "/share/man/man1")))
231 (install-file "src/nyancat" bin)
232 (install-file "nyancat.1" man))
234 (home-page "https://nyancat.dakko.us/")
235 (synopsis "Nyan cat telnet server")
237 "This is an animated, color, ANSI-text telnet server that renders a loop
238 of the Nyan Cat / Poptart Cat animation.")
239 (license license:ncsa)))
241 (define-public cbonsai
248 (url "https://gitlab.com/jallbrit/cbonsai.git")
249 (commit (string-append "v" version))))
250 (file-name (git-file-name name version))
253 "0a5lqc0il0dq26j4wxg1z2siqanra2905x9akwi86zriq65ayb77"))))
254 (build-system gnu-build-system)
256 `(#:tests? #f ; No test suite
258 (list (string-append "CC=" ,(cc-for-target))
259 (string-append "PREFIX=" (assoc-ref %outputs "out")))
261 (modify-phases %standard-phases
262 (delete 'configure) ; No ./configure script
263 (add-after 'install 'install-doc
264 (lambda* (#:key outputs #:allow-other-keys)
265 (let* ((out (assoc-ref outputs "out"))
266 (doc (string-append out "/share/doc/" ,name "-"
267 ,(package-version this-package))))
268 (install-file "README.md" doc)))))))
270 `(("pkg-config" ,pkg-config)))
272 `(("ncurses" ,ncurses)))
273 (home-page "https://gitlab.com/jallbrit/cbonsai")
274 (synopsis "Grow bonsai trees in a terminal")
275 (description "Cbonsai is a bonsai tree generator using ASCII art. It
276 creates, colors, and positions a bonsai tree, and is configurable.")
277 (license license:gpl3+)))