484 lines
18 KiB
Scheme
484 lines
18 KiB
Scheme
;;; GNU Guix --- Functional package management for GNU
|
|
;;; Copyright © 2016, 2017, 2019, 2020, 2021 Efraim Flashner <efraim@flashner.co.il>
|
|
;;; Copyright © 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr>
|
|
;;; Copyright © 2020 Vinicius Monego <monego@posteo.net>
|
|
;;;
|
|
;;; 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 syndication)
|
|
#:use-module ((guix licenses) #:prefix license:)
|
|
#:use-module (guix download)
|
|
#:use-module (guix git-download)
|
|
#:use-module (guix packages)
|
|
#:use-module (guix build-system cargo)
|
|
#:use-module (guix build-system glib-or-gtk)
|
|
#:use-module (guix build-system gnu)
|
|
#:use-module (guix build-system meson)
|
|
#:use-module (guix build-system python)
|
|
#:use-module (guix build-system qt)
|
|
#:use-module (gnu packages)
|
|
#:use-module (gnu packages autotools)
|
|
#:use-module (gnu packages base)
|
|
#:use-module (gnu packages check)
|
|
#:use-module (gnu packages crates-io)
|
|
#:use-module (gnu packages curl)
|
|
#:use-module (gnu packages documentation)
|
|
#:use-module (gnu packages gettext)
|
|
#:use-module (gnu packages glib)
|
|
#:use-module (gnu packages gnome)
|
|
#:use-module (gnu packages gstreamer)
|
|
#:use-module (gnu packages gtk)
|
|
#:use-module (gnu packages kde-frameworks)
|
|
#:use-module (gnu packages ncurses)
|
|
#:use-module (gnu packages pkg-config)
|
|
#:use-module (gnu packages python)
|
|
#:use-module (gnu packages python-check)
|
|
#:use-module (gnu packages python-xyz)
|
|
#:use-module (gnu packages python-web)
|
|
#:use-module (gnu packages qt)
|
|
#:use-module (gnu packages ruby)
|
|
#:use-module (gnu packages sqlite)
|
|
#:use-module (gnu packages time)
|
|
#:use-module (gnu packages tls)
|
|
#:use-module (gnu packages video)
|
|
#:use-module (gnu packages web)
|
|
#:use-module (gnu packages webkit)
|
|
#:use-module (gnu packages xml)
|
|
#:use-module (srfi srfi-1))
|
|
|
|
(define-public newsboat
|
|
(package
|
|
(name "newsboat")
|
|
(version "2.22.1")
|
|
(source
|
|
(origin
|
|
(method url-fetch)
|
|
(uri (string-append "https://newsboat.org/releases/" version
|
|
"/newsboat-" version ".tar.xz"))
|
|
(sha256
|
|
(base32
|
|
"1476fmfw2hkrjwyr3f7k9316lzwnn2b1dbc51rybcxipqlfg8849"))))
|
|
(build-system cargo-build-system)
|
|
(native-inputs
|
|
`(("gettext" ,gettext-minimal)
|
|
("openssl" ,openssl)
|
|
("pkg-config" ,pkg-config)
|
|
;; For building documentation.
|
|
("asciidoctor" ,ruby-asciidoctor)))
|
|
(inputs
|
|
`(("curl" ,curl)
|
|
("json-c" ,json-c)
|
|
("libxml2" ,libxml2)
|
|
("ncurses" ,ncurses)
|
|
("stfl" ,stfl)
|
|
("sqlite" ,sqlite)))
|
|
(arguments
|
|
`(#:modules ((guix build cargo-build-system)
|
|
(guix build utils)
|
|
((guix build gnu-build-system) #:prefix gnu:))
|
|
#:vendor-dir "vendor"
|
|
#:install-source? #f
|
|
#:cargo-inputs
|
|
(("rust-backtrace" ,rust-backtrace-0.3)
|
|
("rust-bitflags" ,rust-bitflags-1)
|
|
("rust-chrono" ,rust-chrono-0.4)
|
|
("rust-clap" ,rust-clap-2)
|
|
("rust-curl-sys" ,rust-curl-sys-0.4)
|
|
("rust-cxx" ,rust-cxx-0.5)
|
|
("rust-cxx-build" ,rust-cxx-build-0.5)
|
|
("rust-gettext-rs" ,rust-gettext-rs-0.5)
|
|
("rust-libc" ,rust-libc-0.2)
|
|
("rust-natord" ,rust-natord-1)
|
|
("rust-nom" ,rust-nom-6)
|
|
("rust-once-cell" ,rust-once-cell-1)
|
|
("rust-rand" ,rust-rand-0.7)
|
|
("rust-url" ,rust-url-2)
|
|
("rust-unicode-width" ,rust-unicode-width-0.1))
|
|
#:cargo-development-inputs
|
|
(("rust-tempfile" ,rust-tempfile-3)
|
|
("rust-proptest" ,rust-proptest-0.9)
|
|
("rust-section-testing" ,rust-section-testing-0.0))
|
|
#:phases
|
|
(modify-phases %standard-phases
|
|
(add-after 'configure 'dont-vendor-self
|
|
(lambda* (#:key vendor-dir #:allow-other-keys)
|
|
;; Don't keep the whole tarball in the vendor directory
|
|
(delete-file-recursively
|
|
(string-append vendor-dir "/" ,name "-" ,version ".tar.xz"))
|
|
#t))
|
|
(add-after 'unpack 'patch-source
|
|
(lambda _
|
|
(substitute* "Makefile"
|
|
(("Cargo.lock") ""))
|
|
#t))
|
|
(replace 'build
|
|
(lambda* args
|
|
((assoc-ref gnu:%standard-phases 'build)
|
|
#:make-flags
|
|
(list (string-append "prefix=" (assoc-ref %outputs "out"))))))
|
|
(replace 'check
|
|
(lambda* args
|
|
((assoc-ref gnu:%standard-phases 'check)
|
|
#:test-target "test"
|
|
#:make-flags
|
|
(list (string-append "prefix=" (assoc-ref %outputs "out"))))))
|
|
(replace 'install
|
|
(lambda* args
|
|
((assoc-ref gnu:%standard-phases 'install)
|
|
#:make-flags
|
|
(list (string-append "prefix=" (assoc-ref %outputs "out")))))))))
|
|
(native-search-paths
|
|
;; Newsboat respects CURL_CA_BUNDLE.
|
|
(package-native-search-paths curl))
|
|
(home-page "https://newsboat.org/")
|
|
(synopsis "Text-mode RSS and Atom feed reader with podcast support")
|
|
(description "Newsboat is a feed reader for @dfn{RSS} and @dfn{Atom}, XML
|
|
formats widely used to transmit, publish, and syndicate news or blog articles.
|
|
It's designed for use on text terminals, and to have a coherent and easy-to-use
|
|
interface that might look familiar to @command{mutt} or @command{slrn} users.
|
|
|
|
Newsboat supports OPML import/exports, HTML rendering, podcasts (with
|
|
@command{podboat}), off-line reading, searching and storing articles to your
|
|
file system, and many more features.")
|
|
(license (list license:gpl2+ ; filter/*
|
|
license:expat)))) ; everything else
|
|
|
|
(define-public newsboat-2.13
|
|
(package
|
|
(inherit newsboat)
|
|
(version "2.13")
|
|
(source
|
|
(origin
|
|
(method url-fetch)
|
|
(uri (string-append "https://newsboat.org/releases/" version
|
|
"/newsboat-" version ".tar.xz"))
|
|
(sha256
|
|
(base32
|
|
"0pik1d98ydzqi6055vdbkjg5krwifbk2hy2f5jp5p1wcy2s16dn7"))))
|
|
(build-system gnu-build-system)
|
|
(native-inputs
|
|
`(,@(fold alist-delete (package-native-inputs newsboat)
|
|
'("asciidoctor" "openssl"))
|
|
;; For building documentation.
|
|
("asciidoc" ,asciidoc)))
|
|
(inputs
|
|
`(("json-c" ,json-c-0.13)
|
|
,@(alist-delete "json-c" (package-inputs newsboat))))
|
|
(arguments
|
|
'(#:phases
|
|
(modify-phases %standard-phases
|
|
(delete 'configure) ; no configure script
|
|
(add-after 'build 'build-documentation
|
|
(lambda _
|
|
(invoke "make" "doc"))))
|
|
#:make-flags
|
|
(list (string-append "prefix=" (assoc-ref %outputs "out")))
|
|
#:test-target "test"))))
|
|
|
|
(define-public liferea
|
|
(package
|
|
(name "liferea")
|
|
(version "1.13.4")
|
|
(source
|
|
(origin
|
|
(method git-fetch)
|
|
(uri (git-reference
|
|
(url "https://github.com/lwindolf/liferea/")
|
|
(commit (string-append "v" version))))
|
|
(file-name (git-file-name name version))
|
|
(sha256
|
|
(base32 "1g9463bvswsm899j6dfhslcg6np70m5wq143mjicr24zy8d17bm7"))))
|
|
(build-system glib-or-gtk-build-system)
|
|
(arguments
|
|
`(#:configure-flags
|
|
(list
|
|
"--disable-static")
|
|
#:phases
|
|
(modify-phases %standard-phases
|
|
(add-before 'configure 'prepare-build-environment
|
|
(lambda* (#:key inputs #:allow-other-keys)
|
|
;; Workaround for https://github.com/lwindolf/liferea/issues/767.
|
|
(setenv "WEBKIT_DISABLE_COMPOSITING_MODE" "1")))
|
|
(add-after 'install 'wrap-gi-python
|
|
(lambda* (#:key inputs outputs #:allow-other-keys)
|
|
(let ((out (assoc-ref outputs "out"))
|
|
(gi-typelib-path (getenv "GI_TYPELIB_PATH"))
|
|
(python-path (getenv "PYTHONPATH")))
|
|
(wrap-program (string-append out "/bin/liferea")
|
|
`("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))
|
|
`("PYTHONPATH" ":" prefix (,python-path))))
|
|
#t)))))
|
|
(native-inputs
|
|
`(("autoconf" ,autoconf)
|
|
("automake" ,automake)
|
|
("gettext" ,gettext-minimal)
|
|
("glib:bin" ,glib "bin")
|
|
("gobject-introspection" ,gobject-introspection)
|
|
("intltool" ,intltool)
|
|
("libtool" ,libtool)
|
|
("pkg-config" ,pkg-config)
|
|
("which" ,which)))
|
|
(inputs
|
|
`(("glib" ,glib)
|
|
("glib-networking" ,glib-networking)
|
|
("gnome-keyring" ,gnome-keyring)
|
|
("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
|
|
("gstreamer" ,gstreamer)
|
|
("json-glib" ,json-glib)
|
|
("libnotify" ,libnotify)
|
|
("libpeas" ,libpeas)
|
|
("libsecret" ,libsecret)
|
|
("libsoup" ,libsoup)
|
|
("libxml2" ,libxml2)
|
|
("libxslt" ,libxslt)
|
|
("pango" ,pango)
|
|
("python" ,python)
|
|
("python-pycairo" ,python-pycairo)
|
|
("python-pygobject" ,python-pygobject)
|
|
("sqlite" ,sqlite)
|
|
("webkitgtk" ,webkitgtk)))
|
|
(home-page "https://lzone.de/liferea/")
|
|
(synopsis "News reader for GTK/GNOME")
|
|
(description "Liferea is a desktop feed reader/news aggregator that
|
|
brings together all of the content from your favorite subscriptions into
|
|
a simple interface that makes it easy to organize and browse feeds.")
|
|
(license license:gpl2+)))
|
|
|
|
(define-public rtv
|
|
(package
|
|
(name "rtv")
|
|
(version "1.27.0")
|
|
(source
|
|
(origin
|
|
(method url-fetch)
|
|
(uri (pypi-uri "rtv" version))
|
|
(sha256
|
|
(base32 "0hvw426y09l3yzwv2zkb9hifpfbg9wd1gg0y3z3pxcli6n3ii2wl"))))
|
|
(build-system python-build-system)
|
|
(arguments
|
|
'(#:phases
|
|
(modify-phases %standard-phases
|
|
(add-before 'check 'set-environment-variables
|
|
(lambda* (#:key inputs #:allow-other-keys)
|
|
(setenv "HOME" (getcwd))
|
|
(setenv "TERM" "linux")
|
|
(setenv "TERMINFO" (string-append (assoc-ref inputs "ncurses")
|
|
"/share/terminfo"))
|
|
#t)))
|
|
#:tests? #f)) ; tests fail: _curses.error: nocbreak() returned ERR
|
|
(propagated-inputs
|
|
`(("python-beautifulsoup4" ,python-beautifulsoup4)
|
|
("python-decorator" ,python-decorator)
|
|
("python-kitchen" ,python-kitchen)
|
|
("python-requests" ,python-requests)
|
|
("python-six" ,python-six)))
|
|
(native-inputs
|
|
`(("ncurses" ,ncurses)
|
|
("python-coveralls" ,python-coveralls)
|
|
("python-coverage" ,python-coverage)
|
|
("python-mock" ,python-mock)
|
|
("python-pylint" ,python-pylint)
|
|
("python-pytest" ,python-pytest)
|
|
("python-vcrpy" ,python-vcrpy)))
|
|
(home-page "https://github.com/michael-lazar/rtv")
|
|
(synopsis "Terminal viewer for Reddit (Reddit Terminal Viewer)")
|
|
(description
|
|
"RTV provides a text-based interface to view and interact with Reddit.")
|
|
(license (list license:expat
|
|
license:gpl3+)))) ; rtv/packages/praw
|
|
|
|
(define-public tuir
|
|
(package
|
|
(name "tuir")
|
|
(version "1.29.0")
|
|
(source
|
|
(origin
|
|
(method url-fetch)
|
|
(uri (pypi-uri "tuir" version))
|
|
(sha256
|
|
(base32
|
|
"06xb030ibphbrz4nsxm8mh3g60ld8xfp6kc3j6vi1k4ls5s4h79i"))))
|
|
(build-system python-build-system)
|
|
(arguments
|
|
`(#:phases
|
|
(modify-phases %standard-phases
|
|
(replace 'check
|
|
(lambda* (#:key inputs outputs #:allow-other-keys)
|
|
(add-installed-pythonpath inputs outputs)
|
|
(invoke "pytest"))))))
|
|
(inputs
|
|
`(("python-beautifulsoup4" ,python-beautifulsoup4)
|
|
("python-decorator" ,python-decorator)
|
|
("python-kitchen" ,python-kitchen)
|
|
("python-requests" ,python-requests)
|
|
("python-six" ,python-six)))
|
|
(native-inputs
|
|
`(("python-coverage" ,python-coverage)
|
|
("python-coveralls" ,python-coveralls)
|
|
("python-mock" ,python-mock)
|
|
("python-pylint" ,python-pylint)
|
|
("python-pytest" ,python-pytest)
|
|
("python-vcrpy" ,python-vcrpy)))
|
|
(home-page "https://gitlab.com/ajak/tuir")
|
|
(synopsis "Terminal viewer for Reddit (Terminal UI for Reddit)")
|
|
(description
|
|
"Tuir provides a simple terminal viewer for Reddit (Terminal UI for Reddit).")
|
|
(license (list license:expat
|
|
license:gpl3+)))) ; tuir/packages/praw
|
|
|
|
(define-public rawdog
|
|
(package
|
|
(name "rawdog")
|
|
(version "2.23")
|
|
(source
|
|
(origin
|
|
(method url-fetch)
|
|
(uri (string-append "https://offog.org/files/rawdog-"
|
|
version ".tar.gz"))
|
|
(sha256
|
|
(base32
|
|
"18nyg19mwxyqdnykplkqmzb4n27vvrhvp639zai8f81gg9vdbsjp"))))
|
|
(build-system python-build-system)
|
|
(arguments
|
|
`(#:python ,python-2.7))
|
|
(inputs
|
|
`(("python2-feedparser" ,python2-feedparser)
|
|
("python2-pytidylib" ,python2-pytidylib)))
|
|
(home-page "https://offog.org/code/rawdog/")
|
|
(synopsis "RSS Aggregator Without Delusions Of Grandeur")
|
|
(description
|
|
"@command{rawdog} is a feed aggregator, capable of producing a personal
|
|
\"river of news\" or a public \"planet\" page. It supports all common feed
|
|
formats, including all versions of RSS and Atom.")
|
|
(license license:gpl2+)))
|
|
|
|
(define-public quiterss
|
|
(package
|
|
(name "quiterss")
|
|
(version "0.19.4")
|
|
(source (origin
|
|
(method git-fetch)
|
|
(uri (git-reference
|
|
(url "https://github.com/QuiteRSS/quiterss")
|
|
(commit version)))
|
|
(file-name (git-file-name name version))
|
|
(sha256
|
|
(base32
|
|
"1cgvl67vhn5y7bj5gbjbgk26bhb0196bgrgsp3r5fmrislarj8s6"))
|
|
(modules '((guix build utils)))
|
|
(snippet
|
|
'(begin
|
|
(substitute* (find-files "." "\\.cpp$")
|
|
;; Disable Google Analytics spyware by default,
|
|
;; removing completely is not trivial.
|
|
(("settings\\.value\\(\"Settings/statisticsEnabled2\", true\\)")
|
|
"settings.value(\"Settings/statisticsEnabled2\", false)")
|
|
;; Disable update check spyware by default, otherwise runs
|
|
;; at every startup, nasty. Not needed on GNU Guix as a
|
|
;; feature either way.
|
|
(("settings\\.value\\(\"Settings/updateCheckEnabled\", true\\)")
|
|
"settings.value(\"Settings/updateCheckEnabled\", false)"))
|
|
#t))))
|
|
(build-system qt-build-system)
|
|
(arguments
|
|
`(#:tests? #f ;; no test suite
|
|
#:phases
|
|
(modify-phases %standard-phases
|
|
(replace 'configure
|
|
(lambda* (#:key inputs outputs #:allow-other-keys)
|
|
(invoke "qmake" "CONFIG+=release"
|
|
(string-append "PREFIX="
|
|
(assoc-ref outputs "out"))
|
|
(string-append "QMAKE_LRELEASE="
|
|
(assoc-ref inputs "qttools")
|
|
"/bin/lrelease")))))))
|
|
(native-inputs
|
|
`(("pkg-config" ,pkg-config)
|
|
("qttools" ,qttools)))
|
|
(inputs
|
|
`(("qtwebkit" ,qtwebkit)
|
|
("qtbase" ,qtbase)
|
|
("qtmultimedia" ,qtmultimedia)
|
|
("phonon" ,phonon)
|
|
("sqlite" ,sqlite)))
|
|
(home-page "https://quiterss.org/")
|
|
(synopsis "RSS/Atom news feeds reader written on Qt/C++")
|
|
(description "QuiteRSS is an RSS/Atom news feeds reader written on Qt/C++
|
|
that aims to be quite fast and comfortable to it's user.")
|
|
(license license:gpl3+)))
|
|
|
|
(define-public gfeeds
|
|
(package
|
|
(name "gfeeds")
|
|
(version "0.16.2")
|
|
(source (origin
|
|
(method url-fetch)
|
|
(uri
|
|
(string-append
|
|
"https://gitlab.gnome.org/World/gfeeds/-/archive/" version
|
|
"/gfeeds-" version ".tar.bz2"))
|
|
(sha256
|
|
(base32
|
|
"05gwwzqfz29m477imd5vh84jfla1wnklwpc2sdxnqli72wg08fli"))))
|
|
(build-system meson-build-system)
|
|
(arguments
|
|
`(#:phases
|
|
(modify-phases %standard-phases
|
|
(add-after 'unpack 'patch-mpv-path
|
|
(lambda* (#:key inputs #:allow-other-keys)
|
|
(substitute* "gfeeds/confManager.py"
|
|
(("mpv") (string-append (assoc-ref inputs "mpv") "/bin/mpv")))
|
|
#t))
|
|
(add-after 'install 'wrap-gfeeds
|
|
(lambda* (#:key outputs #:allow-other-keys)
|
|
(wrap-program (string-append
|
|
(assoc-ref outputs "out") "/bin/gfeeds")
|
|
`("PYTHONPATH" ":" prefix (,(getenv "PYTHONPATH")))
|
|
`("GI_TYPELIB_PATH" ":" prefix (,(getenv "GI_TYPELIB_PATH")))
|
|
`("XDG_DATA_DIRS" ":" prefix (,(getenv "XDG_DATA_DIRS"))))
|
|
#t)))))
|
|
(native-inputs
|
|
`(("glib:bin" ,glib "bin")
|
|
("gobject-introspection" ,gobject-introspection)
|
|
("gtk+:bin" ,gtk+ "bin")
|
|
("pkg-config" ,pkg-config)))
|
|
(inputs
|
|
`(("glib" ,glib)
|
|
("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
|
|
("gtk+" ,gtk+)
|
|
("hicolor-icon-theme" ,hicolor-icon-theme)
|
|
("libhandy" ,libhandy)
|
|
("mpv" ,mpv)
|
|
("python" ,python)
|
|
("python-beautifulsoup4" ,python-beautifulsoup4)
|
|
("python-dateutil" ,python-dateutil)
|
|
("python-feedparser" ,python-feedparser)
|
|
("python-html5lib" ,python-html5lib)
|
|
("python-listparser" ,python-listparser)
|
|
("python-lxml" ,python-lxml)
|
|
("python-pillow" ,python-pillow)
|
|
("python-pygments" ,python-pygments)
|
|
("python-pytz" ,python-pytz)
|
|
("python-readability" ,python-readability)
|
|
("python-requests" ,python-requests)
|
|
("webkitgtk" ,webkitgtk)
|
|
("python-pygobject" ,python-pygobject)))
|
|
(home-page "https://gfeeds.gabmus.org/")
|
|
(synopsis "Easy-to-use GTK+ RSS/Atom feed reader")
|
|
(description "Feeds is an RSS/Atom feed reader made with GTK+
|
|
and it has an easy-to-use graphical user interface.")
|
|
(license license:gpl3+)))
|