From 1457ae52677f75f5f74b821d51ca042995b44cbd Mon Sep 17 00:00:00 2001
From: SqrtMinusOne <thexcloud@gmail.com>
Date: Thu, 28 Apr 2022 22:29:57 +0300
Subject: [PATCH] rdrview: add

---
 README.org  |  1 +
 rdrview.scm | 39 +++++++++++++++++++++++++++++++++++++++
 2 files changed, 40 insertions(+)
 create mode 100644 rdrview.scm

diff --git a/README.org b/README.org
index 2122422..2295cf2 100644
--- a/README.org
+++ b/README.org
@@ -11,6 +11,7 @@ I'll probably push what I can upstream when I figure Guix out.
 | [[https://yadm.io/][yadm]]                       | OK       | Check for implicit dependencies; description          |
 | [[https://github.com/SqrtMinusOne/mpd-watcher][mpd-watcher]]                | OK       |                                                       |
 | [[https://github.com/nikola-kocic/i3-switch-tabs][i3-switch-tabs]]             | OK       |                                                       |
+| [[https://github.com/eafer/rdrview][rdrview]]                    | OK       |                                                       |
 | [[https://github.com/risacher/sunwait][sunwait]]                    | OK       | Version number                                        |
 | [[https://github.com/alfredopalhares/openvpn-update-resolv-conf][openvpn-update-resolv-conf]] | OK       | Just watch out for $PATH if launched from OpenVPN     |
 | [[https://github.com/fdw/rofimoji/][rofimoji]]                   | OK       | But I had to create setup.py myself                   |
diff --git a/rdrview.scm b/rdrview.scm
new file mode 100644
index 0000000..34b3f7f
--- /dev/null
+++ b/rdrview.scm
@@ -0,0 +1,39 @@
+(define-module (rdrview)
+  #:use-module (gnu packages curl)
+  #:use-module (gnu packages linux)
+  #:use-module (gnu packages xml)
+  #:use-module (guix build-system gnu)
+  #:use-module (guix git-download)
+  #:use-module ((guix licenses) #:prefix license:)
+  #:use-module (guix packages))
+
+(define-public rdrview
+  (package
+    (name "rdrview")
+    (version "20210913")
+    (source (origin
+              (method git-fetch)
+              (uri (git-reference
+                    (url "https://github.com/eafer/rdrview")
+                    (commit "9bde19f9e53562790b363bb2e3b15707c8c67676")))
+              (file-name (git-file-name name version))
+              (sha256
+               (base32
+                "1w6gam1gqyxwyyvr7b7bghxwdx27min849ksjz4p4q4bdglmi8p3"))))
+    (build-system gnu-build-system)
+    (arguments
+     '(#:tests? #f ;; No tests
+       #:make-flags (list (string-append "DESTDIR=" (assoc-ref %outputs "out"))
+                          "PREFIX=/")
+       #:phases
+       (modify-phases %standard-phases
+         (delete 'configure) ;; No configure script
+         )))
+    (synopsis "Firefox Reader View as a command line tool")
+    (propagated-inputs
+     `(("libxml2" ,libxml2)
+       ("libseccomp" ,libseccomp)
+       ("curl" ,curl)))
+    (license license:asl2.0)
+    (home-page "https://github.com/eafer/rdrview")
+    (description "Command line tool to extract the main content from a webpage, as done by the \"Reader View\" feature of most modern browsers. It's intended to be used with terminal RSS readers, to make the articles more readable on web browsers such as lynx. The code is closely adapted from the Firefox version and the output is expected to be mostly equivalent.")))