;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2014 Marek Benc <merkur32@gmail.com>
;;; Copyright © 2017 Efraim Flashner <efraim@flashner.co.il>
;;;
;;; 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 ots)
  #:use-module (gnu packages)
  #:use-module (gnu packages compression)
  #:use-module (gnu packages glib)
  #:use-module (gnu packages pkg-config)
  #:use-module (gnu packages popt)
  #:use-module (gnu packages xml)
  #:use-module (guix packages)
  #:use-module (guix download)
  #:use-module (guix build-system gnu)
  #:use-module ((guix licenses) #:prefix license:))

(define-public ots
  (package
    (name "ots")
    (version "0.5.0")
    (source
     (origin
       (method url-fetch)
       ;; libots seems to have left sourceforge and taken their release
       ;; tarballs with them
       (uri (list (string-append "mirror://debian/pool/main/o/ots/ots_"
                                 version ".orig.tar.gz")
                  (string-append "mirror://sourceforge/libots/libots/"
                                 name "-" version "/" name "-" version
                                 ".tar.gz")))
       (sha256
        (base32 "0dz1ccd7ymzk4swz1aly4im0k3pascnshmgg1whd2rk14li8v47a"))
       (patches (search-patches "ots-no-include-missing-file.patch"))))

    (build-system gnu-build-system)
    (arguments
     ;; With '-jN', the rule to build the 'ots' command can be triggered
     ;; before libots-1.la has been built.
     '(#:parallel-build? #f

       #:phases
       (modify-phases %standard-phases
         (add-after 'configure 'set-shared-lib-extension
           (lambda _
             ;; For some reason, the 'libtool' script (from Libtool
             ;; 1.5.2, Debian variant) sets 'shrext_cmds' instead of
             ;; 'shrext' for the shared library file name extension.
             ;; This leads to the creation of 'libots-1' instead of
             ;; 'libots-1.so'.  Fix that.
             (substitute* "libtool"
               (("shrext_cmds") "shrext"))
             #t)))))
    (inputs
      `(("glib" ,glib)
        ("popt" ,popt)
        ("libxml2" ,libxml2)
        ("zlib" ,zlib)))
    (native-inputs
      `(("glib:bin" ,glib "bin")
        ("pkg-config" ,pkg-config)))
    (synopsis "Tool for summarizing texts")
    (description
      "The Open Text Summarizer is a library and command-line tool for
summarizing texts.  The program reads a text and decides which sentences are
important and which are not.  OTS will create a short summary or will
highlight the main ideas in the text.

The program can either print the summarized text as plain text or HTML.  If in
HTML, the important sentences are highlighted.

The program is multi lingual and works with UTF-8 encoding.")
    (home-page "http://libots.sourceforge.net/")
    (license license:gpl2+)))
on.conf.in &lt;--discover=no&gt;: New guix-daemon option.
* etc/guix-daemon.service.in: Likewise.
* etc/init.d/guix-daemon.in: Likewise.
* etc/openrc/guix-daemon.in: Likewise.
* etc/guix-install.sh (configure_substitute_discovery): New procedure.
(sys_enable_guix_daemon): Ask the user whether automatic substitute discovery
should be enabled.  Set the '--discover' argument accordingly.
(prompt_yes_no): Add a trailing space to the message.
(sys_authorize_build_farms): Remove trailing space from the message argument.
* NEWS (Distribution): Add news.
</span></span></td><td>Maxim Cournoyer</td></tr>
<tr><td><span title='2021-06-29 14:53:21 -0400'>2021-06-29</span></td><td><a href='/guix/commit/NEWS?id=82daab42811a2e3c7684ebdf12af75ff0fa67b99'>pack: Add support for the deb format.</a><span class='msg-avail'>...<span class='msg-tooltip'>* .dir-locals.el (scheme-mode)[gexp-&gt;derivation]: Define indentation rule.
* guix/scripts/pack.scm (debian-archive): New procedure.
(%formats): Register the new deb format.
(show-formats): Add it to the usage string.
* tests/pack.scm (%ar-bootstrap): New variable.
(deb archive with symlinks): New test.
* doc/guix.texi (Invoking guix pack): Document it.
* NEWS: Add news entry.
</span></span></td><td>Maxim Cournoyer</td></tr>
<tr><td><span title='2021-05-10 13:48:30 -0400'>2021-05-10</span></td><td><a href='/guix/commit/NEWS?id=80dc6ad4a89b68b5e837fc22c9b1322b86527bef'>Update NEWS.</a></td><td>Maxim Cournoyer</td></tr>
<tr><td><span title='2021-05-10 11:21:02 -0400'>2021-05-10</span></td><td><a href='/guix/commit/NEWS?id=7418a200742768d21b567916b25e4d3351472230'>Update NEWS.</a></td><td>Leo Famulari</td></tr>
<tr><td><span title='2021-05-10 11:42:03 +0200'>2021-05-10</span></td><td><a href='/guix/commit/NEWS?id=3a0fcaa0fe721792d1543e863c3fba805376bdac'>Update NEWS.</a></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2021-05-04 16:57:05 +0200'>2021-05-04</span></td><td><a href='/guix/commit/NEWS?id=b37ab28401c55adbb8e36ea2931849636752524d'>Update NEWS.</a></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2020-11-22 20:27:28 +0100'>2020-11-22</span></td><td><a href='/guix/commit/NEWS?id=a099685659b4bfa6b3218f84953cbb7ff9e88063'>Update NEWS.</a></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2020-11-13 09:13:56 +0100'>2020-11-13</span></td><td><a href='/guix/commit/NEWS?id=1e272d42f6217b70c9801b93e46b144e9ab27664'>Update NEWS.</a></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2020-11-09 23:27:09 +0100'>2020-11-09</span></td><td><a href='/guix/commit/NEWS?id=b51da3ccef74e5842b87e39eea839e36831e844e'>Update NEWS.</a></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2020-11-07 19:36:10 +0100'>2020-11-07</span></td><td><a href='/guix/commit/NEWS?id=afa77bd2287f303aefdd00193309ccf57f6dcd93'>Update NEWS.</a></td><td>Mathieu Othacehe</td></tr>
<tr><td><span title='2020-11-07 16:14:03 +0100'>2020-11-07</span></td><td><a href='/guix/commit/NEWS?id=e8b9b0fae076a86e2be1dcb87b666d4490bac0aa'>Update NEWS.</a></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2020-11-05 23:27:22 +0100'>2020-11-05</span></td><td><a href='/guix/commit/NEWS?id=51916455d0bb283489162ef84afc8145b28b012c'>Update NEWS.</a></td><td>Ludovic Courtès</td></tr>
-override-storage: Update to 0.1.6.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/django.scm (python-django-override-storage): Update to 0.1.6.
</span></span></td><td>Tobias Geerinckx-Rice</td></tr>
<tr><td><span title='2019-10-12 18:39:57 +0200'>2019-10-12</span></td><td><a href='/guix/commit/gnu/packages/django.scm?id=fa0f774b2623848b9ac16688e3371257aea49709'>gnu: python-django: Update to 1.11.25 [security fixes].</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/django.scm (python-django): Update to 1.11.25.
</span></span></td><td>Marius Bakke</td></tr>