[bug#73045] [PATCH] gnu: Add ansifilter.

[bug#73045] [PATCH] gnu: Add ansifilter.

[Ahmad Draidi via Guix-patches via]

* gnu/packages/pretty-print.scm (ansifilter): New variable.

Change-Id: I12e86080f5f39c52ea1def6084b9a5e6cc7af92c
---
 gnu/packages/pretty-print.scm | 43 +++++++++++++++++++++++++++++++++++
 1 file changed, 43 insertions(+)

diff --git a/gnu/packages/pretty-print.scm b/gnu/packages/pretty-print.scm
index d8ff1664b4..baf1ec4f7d 100644
--- a/gnu/packages/pretty-print.scm
+++ b/gnu/packages/pretty-print.scm
@@ -124,6 +124,49 @@ (define-public a2ps
 special cases, such as pretty-printing @samp{-help} output.")
     (license gpl3+)))
 
+(define-public ansifilter
+  (package
+    (name "ansifilter")
+    (version "2.21")
+    (outputs (list "out" "gui"))
+    (source
+     (origin
+       (method git-fetch)
+       (uri (git-reference
+             (url "https://gitlab.com/saalen/ansifilter")
+             (commit version)))
+       (file-name (git-file-name name version))
+       (sha256
+        (base32 "0gnxf0mnb8pfgpx2324gbwyz7dh4xh5jvnigg768rs7dh329w48l"))))
+    (build-system gnu-build-system)
+    (arguments
+     (list
+      #:tests? #f ;no tests
+      #:phases #~(modify-phases %standard-phases
+                   (delete 'configure) ;no configure script
+                   (add-after 'build 'build-gui
+                     (lambda* (#:key outputs #:allow-other-keys)
+                       (invoke "make" "gui")))
+                   (replace 'install
+                     (lambda* (#:key outputs #:allow-other-keys)
+                       (let ((out (assoc-ref outputs "out")))
+                         (invoke "make" "install"
+                                 (string-append "PREFIX=" out)))))
+                   (add-after 'install 'install-gui
+                     (lambda* (#:key outputs #:allow-other-keys)
+                       (let ((gui (assoc-ref outputs "gui")))
+                         (mkdir-p (string-append gui "/bin"))
+                         (invoke "make" "install-gui"
+                                 (string-append "PREFIX=" gui))))))))
+    (inputs (list qtbase-5))
+    (home-page "http://andre-simon.de/doku/ansifilter/en/ansifilter.html")
+    (synopsis "ANSI sequence filter")
+    (description
+     "Ansifilter handles text files containing ANSI terminal escape codes.
+The command sequences may be stripped or be interpreted to generate formatted
+output (HTML, RTF, TeX, LaTeX, BBCode, Pango).")
+    (license gpl3+)))
+
 (define-public trueprint
   (package
     (name "trueprint")

base-commit: 993d6d2e7be4dac738629c76a51058f4dc5bc449
-- 
2.45.2