unofficial mirror of guix-patches@gnu.org 
 help / color / mirror / code / Atom feed
* [bug#37642] [PATCH] gnu: Add filters
@ 2019-10-07  2:00 Jesse Gibbons
  2019-10-08 14:59 ` Tobias Geerinckx-Rice via Guix-patches via
  0 siblings, 1 reply; 9+ messages in thread
From: Jesse Gibbons @ 2019-10-07  2:00 UTC (permalink / raw)
  To: 37642

[-- Attachment #1: Type: text/plain, Size: 1 bytes --]



[-- Attachment #2: 0001-gnu-Add-filters.patch --]
[-- Type: text/x-patch, Size: 6821 bytes --]

From 88274cbcae001e14cf20807e132d2fd251a158b6 Mon Sep 17 00:00:00 2001
From: Jesse Gibbons <jgibbons2357+guix@gmail.com>
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 <jgibbons2357+guix@gmail.com>
+;;;
+;;; 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 <http://www.gnu.org/licenses/>.
+
+(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


^ permalink raw reply related	[flat|nested] 9+ messages in thread

end of thread, other threads:[~2019-10-28 19:42 UTC | newest]

Thread overview: 9+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2019-10-07  2:00 [bug#37642] [PATCH] gnu: Add filters Jesse Gibbons
2019-10-08 14:59 ` Tobias Geerinckx-Rice via Guix-patches via
2019-10-08 15:21   ` Tobias Geerinckx-Rice via Guix-patches via
2019-10-08 19:46   ` Jesse Gibbons
2019-10-09 13:14     ` Tobias Geerinckx-Rice via Guix-patches via
2019-10-10  4:40       ` Jesse Gibbons
2019-10-21 18:43         ` Jesse Gibbons
2019-10-27  1:45         ` Jesse Gibbons
2019-10-28 19:41         ` bug#37642: " Tobias Geerinckx-Rice via Guix-patches via

Code repositories for project(s) associated with this public inbox

	https://git.savannah.gnu.org/cgit/guix.git

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).