1 ;;; GNU Guix --- Functional package management for GNU
2 ;;; Copyright © 2017, 2018 Tobias Geerinckx-Rice <me@tobias.gr>
3 ;;; Copyright © 2019 Jesse Gibbons <jgibbons2357+guix@gmail.com>
4 ;;; Copyright © 2019 Timotej Lazar <timotej.lazar@araneo.si>
5 ;;; Copyright © 2020 Efraim Flashner <efraim@flashner.co.il>
7 ;;; This file is part of GNU Guix.
9 ;;; GNU Guix is free software; you can redistribute it and/or modify it
10 ;;; under the terms of the GNU General Public License as published by
11 ;;; the Free Software Foundation; either version 3 of the License, or (at
12 ;;; your option) any later version.
14 ;;; GNU Guix is distributed in the hope that it will be useful, but
15 ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
16 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
17 ;;; GNU General Public License for more details.
19 ;;; You should have received a copy of the GNU General Public License
20 ;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
22 (define-module (gnu packages toys)
23 #:use-module (gnu packages bison)
24 #:use-module (gnu packages flex)
25 #:use-module (gnu packages gtk)
26 #:use-module (gnu packages ncurses)
27 #:use-module (gnu packages perl)
28 #:use-module (gnu packages pkg-config)
29 #:use-module (gnu packages xml)
30 #:use-module (gnu packages xorg)
31 #:use-module (guix build-system gnu)
32 #:use-module (guix download)
33 #:use-module (guix git-download)
34 #:use-module ((guix licenses) #:prefix license:)
35 #:use-module (guix packages))
45 (url "https://github.com/mtoyoda/sl.git")
47 (file-name (git-file-name name version))
49 (base32 "1zrfd71zx2px2xpapg45s8xvi81xii63yl0h60q72j71zh4sif8b"))))
50 (build-system gnu-build-system)
52 `(("ncurses" ,ncurses)))
55 (modify-phases %standard-phases
56 (delete 'configure) ; no configure script
57 (delete 'check) ; no tests
58 (replace 'install ; no ‘make install’ target
59 (lambda* (#:key outputs #:allow-other-keys)
60 (let* ((out (assoc-ref outputs "out"))
61 (bin (string-append out "/bin"))
62 (man (string-append out "/share/man"))
63 (man1 (string-append man "/man1"))
64 (man1-ja (string-append man "/ja/man1")))
65 (install-file "sl" bin)
66 (install-file "sl.1" man1)
68 (copy-file "sl.1.ja" (string-append man1-ja "/sl.1"))
70 (home-page "http://www.tkl.iis.u-tokyo.ac.jp/~toyoda/index_e.html")
71 (synopsis "Joke command to correct typing \"sl\" by mistake")
73 "@dfn{SL} (for Steam Locomotive) displays one of several animated trains
74 on the text terminal. It serves no useful purpose but to discourage mistakenly
75 typing @command{sl} instead of @command{ls}.")
76 (license (license:non-copyleft "file://LICENSE"
77 "See LICENSE in the distribution."))))
79 (define-public filters
80 (let ((version "2.55")
81 (commit "c5c291916b52ed9e6418448a8eee30475fb9adcf"))
89 (url "https://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 "CC=gcc" (string-append "DESTDIR=" %output))
106 (modify-phases %standard-phases
108 (add-after 'unpack 'fix-install-directories
110 (substitute* "Makefile"
116 #:tests? #f)) ; no test suite
122 (home-page "https://joeyh.name/code/filters/")
123 (synopsis "Various amusing text filters")
125 "The filters collection harks back to the late 1980s, when various text
126 filters were written to munge written language in amusing ways. The earliest
127 and best known were legends such as the Swedish Chef filter and B1FF.
129 This package contains the following filter commands:
131 @item b1ff: a satire of a stereotypical Usenet newbie
132 @item censor: comply with the @acronym{CDA, Communications Decency Act}
133 @item chef: convert English to Mock Swedish
134 @item cockney: Cockney English
135 @item elee: k3wl hacker slang
136 @item fanboy: a stereotypical fan (supports custom fandoms)
137 @item fudd: Elmer Fudd
138 @item jethro: hillbilly text filter
139 @item jibberish: a random selection of these filters
140 @item jive: Jive English
141 @item ken: turn English into Cockney
142 @item kraut: a bad German accent
143 @item ky00te: a very cute accent
144 @item LOLCAT: as seen in Internet GIFs everywhere
145 @item nethackify: wiped-out text as found in nethack
146 @item newspeak: à la 1984
147 @item nyc: Brooklyn English
148 @item pirate: talk like a pirate
149 @item rasterman: straight from the keyboard of Carsten Haitzler
150 @item scottish: fake Scottish (Dwarven) accent
151 @item scramble: scramble the \"inner\" letters of each word
152 @item spammer: turn honest text into something liable to be flagged as spam
153 @item studly: studly caps.
154 @item uniencode: use glorious Unicode to the fullest possible extent
155 @item upside-down: flip the text upside down
158 The GNU project hosts a similar collection of filters, the GNU talkfilters.")
159 (license ; see debian/copyright
160 (list license:gpl2+ ; most of the filters
161 license:gpl2 ; rasterman, ky00te.dir/* nethackify, pirate
162 license:gpl3+ ; scramble, scottish
163 license:public-domain ; jethro, kraut, ken, studly
164 license:gpl1+ ; cockney, jive, nyc only say "gpl"
165 license:expat))))) ; newspeak
175 "https://www.ratrabbit.nl/ratrabbit/system/files/xsnow/xsnow-"
178 (base32 "086s42frbz9bk550414v908yrax4iwwlvlxv4zwp39cyp7wgws03"))))
179 (build-system gnu-build-system)
182 (modify-phases %standard-phases
183 (add-before 'configure 'fix-install-path
185 ;; Install program to bin instead of games.
186 (substitute* "src/Makefile.in"
187 (("(gamesdir = \\$\\(exec_prefix\\)/)games" _ prefix)
188 (string-append prefix "bin")))
195 ("libxxml2" ,libxml2)))
197 `(("pkg-config" ,pkg-config)))
198 (home-page "https://www.ratrabbit.nl/ratrabbit/content/xsnow/introduction")
199 (synopsis "Let it snow on the desktop")
200 (description "@code{Xsnow} animates snowfall and Santa with reindeer on
201 the desktop background. Additional customizable effects include wind, stars
202 and various scenery elements.")
203 (license license:gpl3+)))
205 (define-public nyancat
213 (url "https://github.com/klange/nyancat")
215 (file-name (git-file-name name version))
218 "1mg8nm5xzcq1xr8cvx24ym2vmafkw53rijllwcdm9miiz0p5ky9k"))))
219 (build-system gnu-build-system)
221 '(#:make-flags '("CC=gcc")
223 (modify-phases %standard-phases
224 (delete 'configure) ; no configure script
226 (lambda* (#:key outputs #:allow-other-keys)
227 (let* ((out (assoc-ref outputs "out"))
228 (bin (string-append out "/bin"))
229 (man (string-append out "/share/man/man1")))
230 (install-file "src/nyancat" bin)
231 (install-file "nyancat.1" man))
233 (home-page "https://nyancat.dakko.us/")
234 (synopsis "Nyan cat telnet server")
236 "This is an animated, color, ANSI-text telnet server that renders a loop
237 of the Nyan Cat / Poptart Cat animation.")
238 (license license:ncsa)))