1 ;;; GNU Guix --- Functional package management for GNU
2 ;;; Copyright © 2014 Taylan Ulrich Bayirli/Kammer <taylanbayirli@gmail.com>
3 ;;; Copyright © 2014, 2015, 2016 Ludovic Courtès <ludo@gnu.org>
4 ;;; Copyright © 2016, 2018 Leo Famulari <leo@famulari.name>
5 ;;; Copyright © 2016, 2017 Leo Famulari <leo@famulari.name>
6 ;;; Copyright © 2016, 2017 Efraim Flashner <efraim@flashner.co.il>
7 ;;; Copyright © 2016 Tomáš Čech <sleep_walker@gnu.org>
8 ;;; Copyright © 2016, 2017, 2018 Tobias Geerinckx-Rice <me@tobias.gr>
9 ;;; Copyright © 2017 Jelle Licht <jlicht@fsfe.org>
10 ;;; Copyright © 2018 Fis Trivial <ybbs.daans@hotmail.com>
12 ;;; This file is part of GNU Guix.
14 ;;; GNU Guix is free software; you can redistribute it and/or modify it
15 ;;; under the terms of the GNU General Public License as published by
16 ;;; the Free Software Foundation; either version 3 of the License, or (at
17 ;;; your option) any later version.
19 ;;; GNU Guix is distributed in the hope that it will be useful, but
20 ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
21 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
22 ;;; GNU General Public License for more details.
24 ;;; You should have received a copy of the GNU General Public License
25 ;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
27 (define-module (gnu packages bittorrent)
28 #:use-module (guix packages)
29 #:use-module (guix download)
30 #:use-module (guix git-download)
31 #:use-module (guix build-system gnu)
32 #:use-module (guix build-system python)
33 #:use-module (guix build-system glib-or-gtk)
34 #:use-module ((guix licenses) #:prefix l:)
35 #:use-module (gnu packages)
36 #:use-module (gnu packages adns)
37 #:use-module (gnu packages boost)
38 #:use-module (gnu packages check)
39 #:use-module (gnu packages compression)
40 #:use-module (gnu packages crypto)
41 #:use-module (gnu packages curl)
42 #:use-module (gnu packages cyrus-sasl)
43 #:use-module (gnu packages databases)
44 #:use-module (gnu packages file)
45 #:use-module (gnu packages glib)
46 #:use-module (gnu packages gnome)
47 #:use-module (gnu packages gnupg)
48 #:use-module (gnu packages gstreamer)
49 #:use-module (gnu packages gtk)
50 #:use-module (gnu packages libevent)
51 #:use-module (gnu packages linux)
52 #:use-module (gnu packages multiprecision)
53 #:use-module (gnu packages nettle)
54 #:use-module (gnu packages ncurses)
55 #:use-module (gnu packages pkg-config)
56 #:use-module (gnu packages python)
57 #:use-module (gnu packages qt)
58 #:use-module (gnu packages ssh)
59 #:use-module (gnu packages tls)
60 #:use-module (gnu packages xml))
62 (define-public transmission
69 "https://github.com/transmission/transmission-releases/raw/"
70 "master/transmission-" version ".tar.xz"))
73 "02xrp49gsv4jkbzp37qrwlnb9nlja08s92dyvgdbr6a4187945c8"))))
74 (build-system glib-or-gtk-build-system)
75 (outputs '("out" ; library and command-line interface
76 "gui")) ; graphical user interface
78 '(#:glib-or-gtk-wrap-excluded-outputs '("out")
80 (modify-phases %standard-phases
81 (add-after 'install 'move-gui
82 (lambda* (#:key outputs #:allow-other-keys)
83 ;; Move the GUI to its own output, so that "out" doesn't
85 (let ((out (assoc-ref outputs "out"))
86 (gui (assoc-ref outputs "gui")))
87 (mkdir-p (string-append gui "/bin"))
88 (rename-file (string-append out "/bin/transmission-gtk")
90 "/bin/transmission-gtk"))
92 ;; Move the '.desktop' file as well.
93 (mkdir (string-append gui "/share"))
94 (rename-file (string-append out "/share/applications")
95 (string-append gui "/share/applications")))
98 `(("inotify-tools" ,inotify-tools)
99 ("libevent" ,libevent)
101 ("cyrus-sasl" ,cyrus-sasl)
107 `(("intltool" ,intltool)
108 ("pkg-config" ,pkg-config)))
109 (home-page "http://www.transmissionbt.com/")
110 (synopsis "Fast and easy BitTorrent client")
112 "Transmission is a BitTorrent client that comes with graphical,
113 textual, and Web user interfaces. Transmission also has a daemon for
114 unattended operations. It supports local peer discovery, full encryption,
115 DHT, µTP, PEX and Magnet Links.")
119 ;; Transmission can be redistributed and/or modified under the terms of
120 ;; the GNU GPLv2 (http://www.gnu.org/licenses/license-list.html#GPLv2),
121 ;; the GNU GPLv3 (http://www.gnu.org/licenses/license-list.html#GNUGPLv3),
122 ;; or any future license endorsed by Mnemosyne LLC.
124 ;; A few files files carry an MIT/X11 license header.
127 (define-public libtorrent
134 "http://rtorrent.net/downloads/libtorrent-"
138 "012s1nwcvz5m5r4d2z9klgy2n34kpgn9kgwgzxm97zgdjs6a0f18"))))
139 (build-system gnu-build-system)
140 (inputs `(("openssl" ,openssl)
142 (native-inputs `(("pkg-config" ,pkg-config)
143 ("cppunit" ,cppunit)))
144 (synopsis "BitTorrent library of rtorrent")
146 "LibTorrent is a BitTorrent library used by and developed in parallel
147 with the BitTorrent client rtorrent. It is written in C++ with emphasis on
148 speed and efficiency.")
149 (home-page "https://github.com/rakshasa/libtorrent")
152 (define-public rtorrent
159 "http://rtorrent.net/downloads/rtorrent-"
163 "03jvzw9pi2mhcm913h8qg0qw9gwjqc6lhwynb1yz1y163x7w4s8y"))))
164 (build-system gnu-build-system)
165 (inputs `(("libtorrent" ,libtorrent)
168 ("cyrus-sasl" ,cyrus-sasl)
171 (native-inputs `(("pkg-config" ,pkg-config)
172 ("cppunit" ,cppunit)))
173 (synopsis "BitTorrent client with ncurses interface")
175 "rTorrent is a BitTorrent client with an ncurses interface. It supports
176 full encryption, DHT, PEX, and Magnet Links. It can also be controlled via
178 (home-page "https://github.com/rakshasa/rtorrent")
182 (let ((commit "e06d08d8d76aa0559593ffc1188f4a90100cdbdb")
186 (version (git-version "0.9.0" revision commit))
191 (url "https://github.com/louipc/tremc.git")
193 (file-name (git-file-name name version))
196 "17rf74sajcn5fl718rgl2qk5mw5yz9hrh58hbcg4p55wrazzrm1i"))))
197 (build-system gnu-build-system)
199 `(#:tests? #f ; no test suite
201 (list (string-append "PREFIX=" (assoc-ref %outputs "out")))
203 (modify-phases %standard-phases
204 ;; The software is just a Python script that must be copied into
208 (synopsis "Console client for the Transmission BitTorrent daemon")
209 (description "Tremc is a console client, with a curses interface, for the
210 Transmission BitTorrent daemon.")
211 (home-page "https://github.com/louipc/tremc")
214 (define-public transmission-remote-cli
216 (name "transmission-remote-cli")
220 (uri (string-append "https://github.com/fagga/"
221 "transmission-remote-cli/archive/v"
223 (file-name (string-append name "-" version ".tar.gz"))
226 "1y0hkpcjf6jw9xig8yf484hbhy63nip0pkchx401yxj81m25l4z9"))))
227 (build-system python-build-system)
229 `(#:python ,python-2 ; only supports Python 2
230 #:tests? #f ; no test suite
231 #:phases (modify-phases %standard-phases
232 ;; The software is just a Python script that must be
233 ;; copied into place.
236 (lambda* (#:key outputs #:allow-other-keys)
237 (let* ((out (assoc-ref outputs "out"))
238 (bin (string-append out "/bin"))
239 (man (string-append out "/share/man/man1"))
240 ;; FIXME install zsh completions
241 (completions (string-append out "/etc/bash_completion.d")))
242 (install-file "transmission-remote-cli" bin)
243 (install-file "transmission-remote-cli.1" man)
247 "transmission-remote-cli-bash-completion.sh")
249 (synopsis "Console client for the Transmission BitTorrent daemon")
250 (description "Transmission-remote-cli is a console client, with a curses
251 interface, for the Transmission BitTorrent daemon. This package is no longer
252 maintained upstream.")
253 (home-page "https://github.com/fagga/transmission-remote-cli")
255 (properties `((superseded . ,tremc)))))
263 (uri (string-append "https://github.com/tatsuhiro-t/aria2/"
264 "releases/download/release-" version "/"
265 name "-" version ".tar.xz"))
268 "06syqxia701dk96rcbhnd4x0arjj6d22gm3aqksz38am9y2f8f95"))))
269 (build-system gnu-build-system)
271 `(#:configure-flags (list "--enable-libaria2"
272 (string-append "--with-bashcompletiondir="
273 %output "/etc/bash_completion.d/"))
275 (modify-phases %standard-phases
276 (add-after 'unpack 'delete-socket-tests
278 (substitute* "test/LpdMessageDispatcherTest.cc"
279 (("CPPUNIT_TEST_SUITE_REGISTRATION\\(LpdMessageDispatcherTest\\);" text)
280 (string-append "// " text)))
281 (substitute* "test/LpdMessageReceiverTest.cc"
282 (("CPPUNIT_TEST_SUITE_REGISTRATION\\(LpdMessageReceiverTest\\);" text)
283 (string-append "// " text)))
286 `(("cppunit" ,cppunit) ; for the tests
287 ("pkg-config" ,pkg-config)))
297 (home-page "https://aria2.github.io/")
298 (synopsis "Utility for parallel downloading files")
300 "Aria2 is a lightweight, multi-protocol & multi-source command-line
301 download utility. It supports HTTP/HTTPS, FTP, SFTP, BitTorrent and Metalink.
302 Aria2 can be manipulated via built-in JSON-RPC and XML-RPC interfaces.")
311 (uri (string-append "mirror://sourceforge/urlget/"
312 "uget%20%28stable%29/" version "/uget-"
316 "0919cf7lfk1djdl003cahqjvafdliv7v2l8r5wg95n4isqggdk75"))))
317 (build-system gnu-build-system)
323 ("gstreamer" ,gstreamer)
324 ("libgcrypt" ,libgcrypt)
325 ("libnotify" ,libnotify)
326 ("openssl" ,openssl)))
328 `(("intltool" ,intltool)
329 ("pkg-config" ,pkg-config)))
330 (home-page "http://ugetdm.com/")
331 (synopsis "Universal download manager with GTK+ interface")
333 "uGet is portable download manager with GTK+ interface supporting
334 HTTP, HTTPS, BitTorrent and Metalink, supporting multi-connection
335 downloads, download scheduling, download rate limiting.")
336 (license l:lgpl2.1+)))
338 (define-public mktorrent
344 (file-name (string-append name "-" version ".tar.gz"))
345 (uri (string-append "https://github.com/Rudde/mktorrent/archive/v"
349 "1j9qc4fxa9isnaygqk6jazsiklqywl2wcs95b8dx01963407bx6h"))))
350 (build-system gnu-build-system)
352 `(#:phases (modify-phases %standard-phases
353 (delete 'configure)) ; no configure script
354 #:make-flags (list "CC=gcc"
355 (string-append "PREFIX=" (assoc-ref %outputs "out"))
360 #:tests? #f)) ; no tests
361 (home-page "https://github.com/Rudde/mktorrent")
362 (synopsis "Utility to create BitTorrent metainfo files")
364 "mktorrent is a simple command-line utility to create BitTorrent
365 @dfn{metainfo} files, often known simply as @dfn{torrents}, from both single
366 files and whole directories. It can add multiple trackers and web seed URLs,
367 and set the @code{private} flag to disallow advertisement through the
368 distributed hash table (@dfn{DHT}) and Peer Exchange. Hashing is multi-threaded
369 and will take advantage of multiple processor cores where possible.")
370 (license (list l:public-domain ; sha1.*, used to build without OpenSSL
371 l:gpl2+)))) ; with permission to link with OpenSSL
373 (define-public libtorrent-rasterbar
375 (name "libtorrent-rasterbar")
381 "https://github.com/arvidn/libtorrent/releases/download/libtorrent-"
382 (string-join (string-split version #\.) "_")
383 "/libtorrent-rasterbar-" version ".tar.gz"))
386 "1agkcyjs7xscx4sgkg2ri4nm4v736xsg3br2v8jcrph86dlbycw1"))))
387 (build-system gnu-build-system)
390 (list (string-append "--with-boost-libdir="
391 (assoc-ref %build-inputs "boost")
393 "--enable-python-binding"
395 "CXXFLAGS=-std=c++11") ; Use std::chrono instead of boost
397 (string-append "LDFLAGS=-Wl,-rpath="
398 (assoc-ref %outputs "out") "/lib"))))
399 (inputs `(("boost" ,boost)
400 ("openssl" ,openssl)))
401 (native-inputs `(("python" ,python-2)
402 ("pkg-config" ,pkg-config)))
403 (home-page "https://www.libtorrent.org/")
404 (synopsis "Feature complete BitTorrent implementation")
406 "libtorrent-rasterbar is a feature complete C++ BitTorrent implementation
407 focusing on efficiency and scalability. It runs on embedded devices as well as
411 (define-public qbittorrent
418 "https://github.com/qbittorrent/qBittorrent/archive/release-"
420 (file-name (string-append name "-release-" version ".tar.gz"))
423 "145r4lv7rqdhrm5znn3ndxsfdf579n46zvj7c53c422am8ir5xhp"))))
424 (build-system gnu-build-system)
427 (list (string-append "--with-boost-libdir="
428 (assoc-ref %build-inputs "boost")
431 "QMAKE_LRELEASE=lrelease")))
433 `(("pkg-config" ,pkg-config)
434 ("qttools" ,qttools)))
437 ("libtorrent-rasterbar" ,libtorrent-rasterbar)
443 (home-page "https://www.qbittorrent.org/")
444 (synopsis "Graphical BitTorrent client")
446 "qBittorrent is a BitTorrent client programmed in C++/Qt that uses
447 libtorrent (sometimes called libtorrent-rasterbar) by Arvid Norberg.
449 It aims to be a good alternative to all other BitTorrent clients out there.
450 qBittorrent is fast, stable and provides unicode support as well as many