From 88274cbcae001e14cf20807e132d2fd251a158b6 Mon Sep 17 00:00:00 2001 From: Jesse Gibbons Date: Sun, 6 Oct 2019 19:52:33 -0600 Subject: [PATCH] gnu: Add filters * gnu/packages/filters.scm: New file. * gnu/local.mk: Add it. * gnu/packages/cvassistant.scm (filters): New variable. --- gnu/local.mk | 1 + gnu/packages/filters.scm | 132 +++++++++++++++++++++++++++++++++++++++ 2 files changed, 133 insertions(+) create mode 100644 gnu/packages/filters.scm diff --git a/gnu/local.mk b/gnu/local.mk index 54ae09f619..0737ebdf3b 100644 --- a/gnu/local.mk +++ b/gnu/local.mk @@ -181,6 +181,7 @@ GNU_SYSTEM_MODULES = \ %D%/packages/figlet.scm \ %D%/packages/file.scm \ %D%/packages/file-systems.scm \ + %D%/packages/filters.scm \ %D%/packages/finance.scm \ %D%/packages/firmware.scm \ %D%/packages/flashing-tools.scm \ diff --git a/gnu/packages/filters.scm b/gnu/packages/filters.scm new file mode 100644 index 0000000000..bd62f2a358 --- /dev/null +++ b/gnu/packages/filters.scm @@ -0,0 +1,132 @@ +;;; GNU Guix --- Functional package management for GNU +;;; Copyright © 2019 Jesse Gibbons +;;; +;;; This file is part of GNU Guix. +;;; +;;; GNU Guix is free software; you can redistribute it and/or modify it +;;; under the terms of the GNU General Public License as published by +;;; the Free Software Foundation; either version 3 of the License, or (at +;;; your option) any later version. +;;; +;;; GNU Guix is distributed in the hope that it will be useful, but +;;; WITHOUT ANY WARRANTY; without even the implied warranty of +;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;;; GNU General Public License for more details. +;;; +;;; You should have received a copy of the GNU General Public License +;;; along with GNU Guix. If not, see . + +(define-module (gnu packages filters) +#:use-module (guix build-system gnu) +#:use-module (guix download) +#:use-module (guix git-download) +#:use-module ((guix licenses) #:prefix license:) +#:use-module (guix packages) +#:use-module (gnu packages bison) +#:use-module (gnu packages flex) +#:use-module (gnu packages perl)) + +(define-public filters + (let + ((version "2.55") + (commit "c5c291916b52ed9e6418448a8eee30475fb9adcf")) + (package + (name "filters") + (version "2.55") + (source + (origin + (method git-fetch) + (uri (git-reference + (url "git://git.joeyh.name/filters") + (commit commit))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "1gaigpda1w9wxfh8an3sam1hpacc1bhxl696w4yj0vzhc6izqvxs")))) + (build-system gnu-build-system) + (arguments + `(#:phases + (modify-phases %standard-phases + (delete 'configure) + (add-after 'unpack 'fix-install-directories + (lambda* (#:key outputs #:allow-other-keys) + (let ((out (assoc-ref outputs "out"))) + (substitute* "Makefile" + (("/usr/games") + "/bin/") + (("/usr/share/") + "/share/") + (("kenny") + ""))) + #t)) + ;; kenny is under nonfree Artistic License (Perl) 1.0. + (add-after 'fix-install-directories 'remove-nonfree-filter + (lambda _ + (substitute* "Makefile" + (("kenny") + "")) + #t))) + #:make-flags (list "CC=gcc" (string-append "DESTDIR=" %output)) + #:tests? #f)) + (native-inputs + `(("bison" ,bison) + ("flex" ,flex))) + (inputs + `(("perl" ,perl))) + (home-page "http://joeyh.name/code/filters/") + (synopsis "Various amusing text filters") + (description "The filters collection harks back to the late 80's, when +various text filters were written to munge written language in amusing ways. +The earliest and best known were legends such as the Swiedish Chef filter and +B1FF. + +The current filters package contains more than 20 filters: +@enumerate +@item b1ff - The B1FF filter +@item censor - CDA-ize text +@item chef - convert English on stdin to Mock Sweedish on stdout +@item cockney - Cockney English +@item eleet - K3wl hacker slang +@item fanboy - Speak like a fanboy. Filters out extraneous words and focuses on +the words fans use. By default, it will speak like a fan of git/Linus/linux +development. To change this, pass as parameters the words that the fanboy +typically uses. Alternatively, pass the name of a topic that typically has +fanboys to use a predefined word list. +@item fudd - Elmer Fudd +@item jethro - Hillbilly text filter +@item jibberish - Runs text through a random selection of the rest of the +filters, to make really weird output. +@item jive - Jive English +@item ken - English into Cockney, featuring (dubious) rhyming slang for a lot of +computer technology. +@item kraut - Generates text with a bad German accent. +@item ky00te - This program places a very cute (and familiar to FurryMucck fans) +accent on any text file. +@item LOLCAT - as seen in internet gifs everywhere. +@item nethackify - Wiped out text like can be found in nethack. +@item newspeak - A-la-1984 +@item nyc - Brooklyn English +@item pirate - Talk like a pirate. +@item rasterman - Makes text look like it came from the keyboard of Carsten +Haitzler. +@item scottish - Fake scottish (dwarven) accent filter, inspired by the +character \"Durkon\" from Order of the Stick. +@item scramble - Scramble the \"inner\" letters of each word in the input into a +random order. The resulting text is still strangely readable. +@item spammer - Turns honest text into something that is liable to be flagged as +spam. +@item studly - Studly caps. +@item uniencode - Use glorious unicode to the fullest possible extent. As seen +previously in many man pages. +@item upside-down - Flips the text upside down. Stand on your head and squint +to read the output. +@end enumerate +The GNU project hosts a similar collection of filters, the GNU talkfilters. Due +to copyright concerns and difficulty in communication between maintainers, these +collections have not been merged.") + (license (list license:gpl2+ ;; most of the filters (see debian/copyright) + license:gpl2 ;; rasterman, ky00te.dir/* nethackify, pirate + license:gpl3+ ;; scramble, scottish + license:public-domain ;; jethro, kraut, ken, studly + license:gpl1+ ;; cockney, jive, nyc only say "gpl" + license:expat))))) ;; newspeak. -- 2.23.0