01/01: gnu: Add newsboat.

[Efraim Flashner]

efraim pushed a commit to branch master
in repository guix.

commit 0c6f4bec2efeb3862595ef46e85a3c91331212ee
Author: Efraim Flashner <address@hidden>
Date:   Sun Oct 29 22:00:58 2017 +0200

    gnu: Add newsboat.
    
    * gnu/packages/syndication.scm (newsboat): New variable.
---
 gnu/packages/syndication.scm | 36 +++++++++++++++++++++++++++++++++++-
 1 file changed, 35 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/syndication.scm b/gnu/packages/syndication.scm
index 8ac0524..b182e13 100644
--- a/gnu/packages/syndication.scm
+++ b/gnu/packages/syndication.scm
@@ -21,13 +21,15 @@
   #:use-module (gnu packages)
   #:use-module (gnu packages curl)
   #:use-module (gnu packages databases)
+  #:use-module (gnu packages documentation)
   #:use-module (gnu packages gettext)
   #:use-module (gnu packages ncurses)
   #:use-module (gnu packages perl)
   #:use-module (gnu packages pkg-config)
   #:use-module (gnu packages ruby)
   #:use-module (gnu packages xml)
-  #:use-module (gnu packages web))
+  #:use-module (gnu packages web)
+  #:use-module (srfi srfi-1))
 
 (define-public newsbeuter
   (package
@@ -76,3 +78,35 @@ more features.  Its user interface is coherent, easy to use, 
and might look
 common to users of @command{mutt} and @command{slrn}.")
     (license (list license:gpl2+ ; filter/*
                    license:x11))))
+
+(define-public newsboat
+  (package
+    (inherit newsbeuter)
+    (name "newsboat")
+    (version "2.10.1")
+    (source
+      (origin
+        (method url-fetch)
+        (uri (string-append "https://newsboat.org/releases/"; version
+                            "/newsboat-" version ".tar.xz"))
+        (sha256
+         (base32
+          "1xgqkhpjbq916g9hkaxs0s2fz8bg103pzjx75ziq5ba688l9imj4"))))
+    (arguments
+     '(#:phases (modify-phases %standard-phases
+                  (delete 'configure) ; no configure
+                  (add-after 'build 'build-documentation
+                    (lambda _ (zero? (system* "make" "doc")))))
+       #:make-flags (list (string-append "prefix=" (assoc-ref %outputs "out"))
+                          ;; see https://github.com/newsboat/newsboat/issues/43
+                          "WARNFLAGS=-Wno-sign-compare")
+       #:test-target "test"))
+    (native-inputs
+     `(("asciidoc" ,asciidoc)
+       ,@(alist-delete "ruby" (package-native-inputs newsbeuter))))
+    (home-page "https://newsboat.org/";)
+    (description "Newsboat is a fork of Newsbeuter, an RSS/Atom feed reader for
+the text console.  It supports OPML import/exports, HTML rendering, podcast
+(podboat), offline reading, searching and storing articles to your filesystem,
+and many more features.  Its user interface is coherent, easy to use, and might
+look common to users of @command{mutt} and @command{slrn}.")))