;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2019 Jakob L. Kreuze <zerodaysfordays@sdf.org>
;;; Copyright © 2020 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2021 Solene Rapenne <solene@perso.pw>
;;; Copyright © 2021 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 i2p)
  #:use-module (gnu packages boost)
  #:use-module (gnu packages compression)
  #:use-module (gnu packages tls)
  #:use-module (gnu packages upnp)
  #:use-module (guix packages)
  #:use-module (guix git-download)
  #:use-module (guix build-system cmake)
  #:use-module ((guix licenses) #:prefix license:))

(define-public i2pd
  (package
    (name "i2pd")
    (version "2.44.0")
    (source
     (origin
       (method git-fetch)
       (uri (git-reference
             (url "https://github.com/PurpleI2P/i2pd")
             (commit version)))
       (file-name (git-file-name name version))
       (sha256
        (base32 "0fwaalfxqdahgvx5rfkvdmf6gl10w328a18ddhyn5kvpmp9x7fgl"))))
    (build-system cmake-build-system)
    (inputs
     (list boost miniupnpc openssl zlib))
    (arguments
     '(#:configure-flags
       (let ((source (assoc-ref %build-inputs "source")))
         (list (string-append "-S" source "/build")
               "-DWITH_PCH=OFF"
               "-DWITH_STATIC=OFF"
               "-DWITH_UPNP=ON"
               "-DWITH_LIBRARY=ON"
               "-DBUILD_SHARED_LIBS=ON"
               "-DWITH_BINARY=ON"))
       #:phases
       (modify-phases %standard-phases
         (replace 'check
           (lambda* (#:key
                     tests?
                     (make-flags '())
                     (parallel-tests? #t)
                     #:allow-other-keys)
             (let ((source (assoc-ref %build-inputs "source")))
               (when tests?
                 (copy-recursively (string-append source "/tests")
                                   "./tests")
                 (with-directory-excursion "tests"
                   (substitute* "Makefile"
                     (("../libi2pd") (string-append source "/libi2pd")))
                   (apply invoke "make" "all"
                          `(,@(if parallel-tests?
                                `("-j" ,(number->string
                                          (parallel-job-count)))
                                '())
                             ,@make-flags))))))))))
    (home-page "https://i2pd.website/")
    (synopsis "Router for an end-to-end encrypted and anonymous internet")
    (description "i2pd is a client for the anonymous I2P network, upon which
applications for file sharing, web browsing, instant messaging, and more are
built. i2pd allows people from all around the world to communicate and share
information securely without restrictions.")
    (license license:bsd-3)))
7-22</span></td><td><a href='/guix/commit/HACKING?id=5285192150c83db12136af6a123e03bb9b9dbe5f'>doc: Fix typo (missing period)</a><span class='msg-avail'>...</span></td><td>Pierre Neidhardt</td></tr>
<tr><td><span title='2017-08-19 13:42:52 +0530'>2017-08-19</span></td><td><a href='/guix/commit/HACKING?id=acabbd597678e1f0be995297bb009b6dd38ae795'>doc: Mention how to use emacs-debbugs.</a><span class='msg-avail'>...</span></td><td>Arun Isaac</td></tr>
<tr><td><span title='2017-03-27 00:13:18 +0200'>2017-03-27</span></td><td><a href='/guix/commit/HACKING?id=2fccc0d193497eb2ee3127270dea12be103f1bc2'>maint: Give command to install the pre-push hook.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2017-03-24 13:56:38 +0100'>2017-03-24</span></td><td><a href='/guix/commit/HACKING?id=ee7c21c7044355fc4c6bbe0906f061f6fbdfb79e'>maint: Mention the Signed-off-by line in 'HACKING'.</a><span class='msg-avail'>...</span></td><td>Clément Lassieur</td></tr>
<tr><td><span title='2017-03-15 15:19:53 +0100'>2017-03-15</span></td><td><a href='/guix/commit/HACKING?id=bc551cf32b6ccb3f8dd60b1d0d4e3c3e88cb1f8d'>maint: Mention guix-patches@gnu.org in 'HACKING'.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2017-01-30 13:20:13 +0100'>2017-01-30</span></td><td><a href='/guix/commit/HACKING?id=8efc35a8902910ef7c09183c1d79d51498b2c10c'>maint: Fix invalid calls to 'info'.</a><span class='msg-avail'>...</span></td><td>Mathieu Lirzin</td></tr>
<tr><td><span title='2017-01-04 16:27:20 -0500'>2017-01-04</span></td><td><a href='/guix/commit/HACKING?id=69355e1283d300a663fb639ec426f10f3feb404b'>doc: Add a Git hook that verifies signatures before pushing.</a><span class='msg-avail'>...</span></td><td>Leo Famulari</td></tr>
<tr><td><span title='2016-07-24 19:54:15 +0200'>2016-07-24</span></td><td><a href='/guix/commit/HACKING?id=20e29643449adbb9658c0d3bec9c8b117697fe41'>doc: Explain how to set up Git for signing.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2016-07-14 15:37:51 -0400'>2016-07-14</span></td><td><a href='/guix/commit/HACKING?id=a16db014d10659051037eb76a0424b46e94f2f2d'>doc: Mention commit signatures in HACKING.</a><span class='msg-avail'>...</span></td><td>Leo Famulari</td></tr>
<tr><td><span title='2015-06-14 01:44:54 +0200'>2015-06-14</span></td><td><a href='/guix/commit/HACKING?id=8c01b9d05aa5d5449398d5babdf7fa1fe95af1c2'>doc: Move most 'HACKING' informations into the manual.</a><span class='msg-avail'>...</span></td><td>Mathieu Lirzin</td></tr>
<tr><td><span title='2015-06-10 10:03:19 +0200'>2015-06-10</span></td><td><a href='/guix/commit/HACKING?id=80cd1d89924a87e46d36bd102eff31cd3f95b8d9'>doc: Add 'help2man' to HACKING.</a><span class='msg-avail'>...</span></td><td>Alex Kost</td></tr>
<tr><td><span title='2015-05-23 15:57:18 +0200'>2015-05-23</span></td><td><a href='/guix/commit/HACKING?id=c71979f416df409425391e1de35ec95528ed0f84'>doc: Add "Running Guix Before It Is Installed".</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2015-02-26 00:44:13 -0500'>2015-02-26</span></td><td><a href='/guix/commit/HACKING?id=24d77d103816ace1c8d3fb2cb8c1a38876e3633b'>doc: Remove reference to git submodules in HACKING.</a><span class='msg-avail'>...</span></td><td>Mark H Weaver</td></tr>
<tr><td><span title='2014-09-03 15:43:07 +0200'>2014-09-03</span></td><td><a href='/guix/commit/HACKING?id=141360b5b257715fdca2db4fc106b4220788ae06'>doc: Mention 'guix lint' and '--list-dependent' in 'HACKING'.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2014-05-11 13:35:31 +0200'>2014-05-11</span></td><td><a href='/guix/commit/HACKING?id=d0c64188b68cceb93e6a61eba123dac5e47e2c0f'>doc: Mention upgrades that trigger a lot of rebuilds.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>