;;; Copyright © 2016 Efraim Flashner <efraim@flashner.co.il>
;;;
;;; 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 packages)
  #:use-module (guix build-system gnu)
  #:use-module (gnu packages curl)
  #:use-module (gnu packages databases)
  #: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))

(define-public newsbeuter
  (package
    (name "newsbeuter")
    (version "2.9")
    (source
      (origin
        (method url-fetch)
        (uri (string-append "https://newsbeuter.org/downloads/newsbeuter-"
                            version ".tar.gz"))
        (sha256
         (base32
          "1j1x0hgwxz11dckk81ncalgylj5y5fgw5bcmp9qb5hq9kc0vza3l"))))
    (build-system gnu-build-system)
    (arguments
     '(#:phases
       (modify-phases %standard-phases
         (replace 'configure
           (lambda _
             (substitute* "config.sh"
               ;; try to remove this at the next release
               (("ncursesw5") "ncursesw6"))
             #t)))
       #:make-flags (list (string-append "prefix=" (assoc-ref %outputs "out")))
       #:test-target "test"))
    (native-inputs
     `(("gettext" ,gettext-minimal)
       ("perl" ,perl)
       ("pkg-config" ,pkg-config)
       ("ruby" ,ruby))) ; for tests
    (inputs
     `(("curl" ,curl)
       ("json-c" ,json-c)
       ("ncurses" ,ncurses)
       ("stfl" ,stfl)
       ("sqlite" ,sqlite)
       ("libxml2" ,libxml2)))
    (home-page "https://newsbeuter.org/")
    (synopsis "Text mode rss feed reader with podcast support")
    (description "Newsbeuter is an innovative RSS feed reader for the text
console.  It supports OPML import/exports, HTML rendering, podcast (podbeuter),
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}.")
    (license (list license:gpl2+ ; filter/*
                   license:x11))))
b51ce393e685e58'>installer: Offer the CUPS printing service.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/installer/services.scm (%system-services): Add CUPS.
* gnu/installer/newt/services.scm (run-other-services-cbt-page):
New procedure.
(run-services-page): Call it last.
</span></span></td><td>Tobias Geerinckx-Rice</td></tr>
<tr><td><span title='2021-06-23 03:01:49 +0200'>2021-06-23</span></td><td><a href='/guix/commit/gnu/installer/services.scm?id=ed44e62636873d2b97eff06be70799a0f679bb2b'>installer: Remove unused procedure.</a><span class='msg-avail'>...<span class='msg-tooltip'>NETWORKING-SYSTEM-SERVICE? was obsoleted in commit
2e55f37c0c8fdfbc413edff61490161648a78dcc.

* gnu/installer/services.scm (networking-system-service?): Remove it.
</span></span></td><td>Tobias Geerinckx-Rice</td></tr>
<tr><td><span title='2020-12-11 19:06:53 +0100'>2020-12-11</span></td><td><a href='/guix/commit/gnu/installer/services.scm?id=d8051557aee9fa252b015ff67cc15681e8540777'>Revert "services: openssh: Warn about 'password-authentication?' default."</a><span class='msg-avail'>...<span class='msg-tooltip'>This reverts commit aecd2a13cbd8301d0fdeafcacbf69e12cc3f6138 for two
reasons:

  1. The warning would fire every time (gnu services ssh) is loaded;

  2. There's still no clear consensus on the approach to follow as
     discussed in &lt;https://issues.guix.gnu.org/44808&gt;.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2020-12-07 12:48:26 +0100'>2020-12-07</span></td><td><a href='/guix/commit/gnu/installer/services.scm?id=aecd2a13cbd8301d0fdeafcacbf69e12cc3f6138'>services: openssh: Warn about 'password-authentication?' default.</a><span class='msg-avail'>...<span class='msg-tooltip'>Fixes &lt;https://bugs.gnu.org/44808&gt;.
Reported by Christopher Lemmer Webber &lt;cwebber@dustycloud.org&gt;.

* gnu/services/ssh.scm (true-but-soon-false): New procedure.
(&lt;openssh-configuration&gt;)[password-authentication?]: Change default to
'true-but-soon-false'.
* gnu/installer/services.scm (%system-services): Explicitly set
'password-authentication?' to #f.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2020-10-13 21:17:40 +0200'>2020-10-13</span></td><td><a href='/guix/commit/gnu/installer/services.scm?id=1197b8b20f4fca4ce03bbc5fa75e18d54e3717c0'>installer: Add Emacs EXWM desktop environment.</a><span class='msg-avail'>...<span class='msg-tooltip'>Suggested by zenny via IRC.

* gnu/installer/services.scm (%system-services): Add emacs, emacs-exwm,
emacs-desktop-environment.
* etc/release-manifest.scm (%system-packages): Likewise.
* gnu/system/examples/lightweight-desktop.tmpl: Likewise.
* gnu/tests/install.scm (installation-target-desktop-os-for-gui-tests)
[packages]: Likewise
* gnu/installer/newt/services.scm (run-desktop-environments-cbt-page): Make
one entry taller.
</span></span></td><td>Jan (janneke) Nieuwenhuizen</td></tr>