;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2012 Nikita Karetnikov <nikita@karetnikov.org>
;;; Copyright © 2014, 2015, 2017, 2018 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2016, 2017, 2019-2024 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2017 Rutger Helling <rhelling@mykolab.com>
;;; Copyright © 2018–2021 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2020 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
;;; Copyright © 2021 Michael Rohleder <mike@rohleder.de>
;;;
;;; 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 wget)
  #:use-module ((guix licenses) #:prefix license:)
  #:use-module (gnu packages)
  #:use-module (g</td></tr></table>
<table class='tabs'><tr><td>
<a href='/immutables/?h=v0.8'>summary</a><a href='/immutables/refs/?h=v0.8&amp;id=f2a461f633d39d43e6f293ca8d5c8784d6a354c2'>refs</a><a class='active' href='/immutables/log/.ci/appveyor.yml?h=v0.8'>log</a><a href='/immutables/tree/.ci/appveyor.yml?h=v0.8&amp;id=f2a461f633d39d43e6f293ca8d5c8784d6a354c2'>tree</a><a href='/immutables/commit/.ci/appveyor.yml?h=v0.8&amp;id=f2a461f633d39d43e6f293ca8d5c8784d6a354c2'>commit</a><a href='/immutables/diff/.ci/appveyor.yml?h=v0.8&amp;id=f2a461f633d39d43e6f293ca8d5c8784d6a354c2'>diff</a></td><td class='form'><form class='right' method='get' action='/immutables/log/.ci/appveyor.yml'>
<input type='hidden' name='h' value='v0.8'/><input type='hidden' name='id' value='f2a461f633d39d43e6f293ca8d5c8784d6a354c2'/><select name='qt'>
<option value='grep'>log msg</option>
<option value='author'>author</option>
<option value='committer'>committer</option>
<option value='range'>range</option>
</select>
<input class='txt' type='search' size='10' name='q' value=''/>
<input type='submit' value='search'/>
</form>
</td></tr></table>
<div class='path'>path: <a href='/immutables/log/?h=v0.8&amp;id=f2a461f633d39d43e6f293ca8d5c8784d6a354c2'>root</a>/<a href='/immutables/log/.ci?h=v0.8&amp;id=f2a461f633d39d43e6f293ca8d5c8784d6a354c2'>.ci</a>/<a href='/immutables/log/.ci/appveyor.yml?h=v0.8&amp;id=f2a461f633d39d43e6f293ca8d5c8784d6a354c2'>appveyor.yml</a></div><div class='content'><table class='list nowrap'><tr class='nohover'><th class='left'>Age</th><th class='left'>Commit message (<a href='/immutables/log/.ci/appveyor.yml?h=v0.8&amp;id=f2a461f633d39d43e6f293ca8d5c8784d6a354c2&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2018-03-30 20:50:17 -0400'>2018-03-30</span></td><td><a href='/immutables/commit/.ci/appveyor.yml?h=v0.8&amp;id=a1b19e1d10896f3ac2ce0b97c2bf24e0c1c4520f'>CI integration</a></td><td>Elvis Pranskevichus</td></tr>
</table><ul class='pager'></ul></div> <!-- class=content -->
                         <div class=footer>generated by
                             <a href="https://git.zx2c4.com/cgit/about/">
                                 cgit
                             </a>
                         </div>
                        </div> <!-- id=cgit -->
</body>
</html>
)
         (replace 'install
           (lambda* (#:key outputs #:allow-other-keys)
             (let* ((out (assoc-ref outputs "out"))
                    (bin (string-append out "/bin"))
                    (zsh (string-append out "/share/zsh/site-functions")))
               (install-file "wgetpaste" bin)
               (install-file "_wgetpaste" zsh))))
         (add-after 'install 'wrap-program
           ;; /bin/wgetpaste prides itself on relying only on the following
           ;; inputs, and doesn't need to execute arbitrary commands, so
           ;; override PATH completely to detect any new dependencies early.
           (lambda* (#:key outputs #:allow-other-keys)
             (let ((out (assoc-ref outputs "out")))
               (wrap-program (string-append out "/bin/wgetpaste")
                 `("PATH" ":" =
                   ,(delete-duplicates
                     (map (lambda (command) (dirname (which command)))
                          (list "bash" "mktemp" "sed" "sort" "tee" "tr"
                                "wget" "xclip")))))))))
       #:tests? #f))                    ; no test target
    (inputs
     (list bash-minimal wget xclip))
    (home-page "https://wgetpaste.zlin.dk/")
    (synopsis "Script that automates pasting to a number of pastebin services")
    (description
     "@code{wgetpaste} is an extremely simple command-line interface to various
online pastebin services.")
    (license license:expat)))

(define-public wget2
  (package
    (name "wget2")
    (version "2.1.0")
    (source (origin
              (method url-fetch)
              (uri (string-append "mirror://gnu/wget/wget2-" version ".tar.gz"))
              (sha256
               (base32
                "1rz294dld9zmd5fmsrjgfyj7nlpmg1x7gckdzl9r7bbb3hcwapd0"))))
    (build-system gnu-build-system)
    (arguments
     `(#:phases (modify-phases %standard-phases
                  (add-after 'unpack 'skip-network-tests
                    (lambda _
                      (substitute* "tests/Makefile.in"
                        (("test-gpg-verify-no-file\\$\\(EXEEXT)") "")
                        (("test-gpg-valid\\$\\(EXEEXT)") "")
                        (("test-gpg-styles\\$\\(EXEEXT)") "")))))
       #:configure-flags
       '("--enable-static=no"
         "--with-bzip2=yes"
         "--with-lzma=yes")))
    (inputs (list brotli
                  bzip2
                  gnutls/dane
                  gpgme
                  libidn2
                  libmicrohttpd
                  libpsl
                  `(,nghttp2 "lib")
                  pcre2
                  xz
                  zlib
                  `(,zstd "lib")))
    ;; TODO: Add libhsts.
    (native-inputs (list pkg-config))
    (home-page "https://gitlab.com/gnuwget/wget2")
    (synopsis "Successor of GNU Wget")
    (description
     "GNU Wget2 is the successor of GNU Wget, a file and recursive website
downloader.  Designed and written from scratch it wraps around libwget, that
provides the basic functions needed by a web client.")
    (properties '((ftp-directory . "/gnu/wget")))
    (license (list license:gpl3+ license:lgpl3+))))