2014-03-06 01:12:19 +01:00
|
|
|
|
;;; GNU Guix --- Functional package management for GNU
|
2016-01-21 16:23:19 +01:00
|
|
|
|
;;; Copyright © 2014, 2015, 2016 Mark H Weaver <mhw@netris.org>
|
2014-11-21 18:39:39 +01:00
|
|
|
|
;;; Copyright © 2014 Julien Lepiller <julien@lepiller.eu>
|
2015-01-31 22:03:25 +01:00
|
|
|
|
;;; Copyright © 2015 Taylan Ulrich Bayırlı/Kammer <taylanbayirli@gmail.com>
|
2015-05-23 16:43:18 +02:00
|
|
|
|
;;; Copyright © 2015 Andreas Enge <andreas@enge.fr>
|
2015-09-23 21:29:06 +02:00
|
|
|
|
;;; Copyright © 2015 Ricardo Wurmus <rekado@elephly.net>
|
2015-12-06 21:11:02 +01:00
|
|
|
|
;;; Copyright © 2015 Efraim Flashner <efraim@flashner.co.il>
|
2014-03-06 01:12:19 +01:00
|
|
|
|
;;;
|
|
|
|
|
;;; 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 messaging)
|
2014-03-06 06:07:07 +01:00
|
|
|
|
#:use-module ((guix licenses)
|
2015-09-23 21:29:06 +02:00
|
|
|
|
#:select (gpl3+ gpl2+ gpl2 lgpl2.1 lgpl2.0+ bsd-2 non-copyleft
|
2015-08-13 23:29:35 +02:00
|
|
|
|
asl2.0))
|
2015-08-04 06:12:16 +02:00
|
|
|
|
#:use-module (guix utils)
|
2014-03-06 01:12:19 +01:00
|
|
|
|
#:use-module (guix packages)
|
|
|
|
|
#:use-module (guix download)
|
|
|
|
|
#:use-module (guix build-system gnu)
|
2015-08-04 06:12:16 +02:00
|
|
|
|
#:use-module (guix build-system glib-or-gtk)
|
2015-09-23 21:29:06 +02:00
|
|
|
|
#:use-module (guix build-system python)
|
2014-03-06 06:07:07 +01:00
|
|
|
|
#:use-module (gnu packages)
|
2015-08-04 06:12:16 +02:00
|
|
|
|
#:use-module (gnu packages autotools)
|
|
|
|
|
#:use-module (gnu packages avahi)
|
|
|
|
|
#:use-module (gnu packages check)
|
|
|
|
|
#:use-module (gnu packages cyrus-sasl)
|
|
|
|
|
#:use-module (gnu packages databases)
|
|
|
|
|
#:use-module (gnu packages doxygen)
|
2014-11-21 18:39:39 +01:00
|
|
|
|
#:use-module (gnu packages enchant)
|
|
|
|
|
#:use-module (gnu packages gnome)
|
|
|
|
|
#:use-module (gnu packages gtk)
|
2015-08-04 06:12:16 +02:00
|
|
|
|
#:use-module (gnu packages xorg)
|
|
|
|
|
#:use-module (gnu packages xdisorg)
|
2014-11-21 18:39:39 +01:00
|
|
|
|
#:use-module (gnu packages libcanberra)
|
2015-08-04 06:12:16 +02:00
|
|
|
|
#:use-module (gnu packages libidn)
|
2014-11-21 18:39:39 +01:00
|
|
|
|
#:use-module (gnu packages xml)
|
2014-03-06 06:07:07 +01:00
|
|
|
|
#:use-module (gnu packages gnupg)
|
2015-08-04 06:12:16 +02:00
|
|
|
|
#:use-module (gnu packages ncurses)
|
2014-03-06 06:07:07 +01:00
|
|
|
|
#:use-module (gnu packages pkg-config)
|
|
|
|
|
#:use-module (gnu packages glib)
|
|
|
|
|
#:use-module (gnu packages python)
|
|
|
|
|
#:use-module (gnu packages perl)
|
2015-01-31 22:03:25 +01:00
|
|
|
|
#:use-module (gnu packages tcl)
|
2014-03-06 06:07:07 +01:00
|
|
|
|
#:use-module (gnu packages compression)
|
2015-01-31 22:03:25 +01:00
|
|
|
|
#:use-module (gnu packages check)
|
|
|
|
|
#:use-module (gnu packages admin)
|
gnu: Rename module gnutls to tls.
* gnu/packages/gnutls.scm: Rename to...
* gnu/packages/tls.scm: ... this. Change module name accordingly.
* gnu/packages/{admin.scm, cups.scm, curl.scm, dc.scm, dns.scm, emacs.scm,
ftp.scm, gnome.scm, gnunet.scm, gnupg.scm, gsasl.scm, lynx.scm,
mail.scm, messaging.scm, package-management.scm, shishi.scm,
task-management.scm, version-control.scm, video.scm, vpn.scm,
webkit.scm, weechat.scm, wget.scm, wine.scm, xml.scm}: Adapt module
import to new name.
* gnu-system.am (GNU_SYSTEM_MODULES): Rename gnutls module to tls.
2015-07-03 21:41:22 +02:00
|
|
|
|
#:use-module (gnu packages linux)
|
2015-08-13 23:29:35 +02:00
|
|
|
|
#:use-module (gnu packages tls)
|
|
|
|
|
#:use-module (gnu packages icu4c))
|
2014-03-06 01:12:19 +01:00
|
|
|
|
|
|
|
|
|
(define-public libotr
|
|
|
|
|
(package
|
|
|
|
|
(name "libotr")
|
2016-03-09 21:19:50 +01:00
|
|
|
|
(version "4.1.1")
|
2014-03-06 01:12:19 +01:00
|
|
|
|
(source (origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append "https://otr.cypherpunks.ca/libotr-"
|
|
|
|
|
version ".tar.gz"))
|
|
|
|
|
(sha256
|
2016-03-09 21:19:50 +01:00
|
|
|
|
(base32
|
|
|
|
|
"1x8rliydhbibmzwdbyr7pd7n87m2jmxnqkpvaalnf4154hj1hfwb"))))
|
2014-03-06 01:12:19 +01:00
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(propagated-inputs
|
|
|
|
|
`(("libgcrypt" ,libgcrypt))) ; libotr headers include gcrypt.h
|
|
|
|
|
(inputs `(("libgpg-error" ,libgpg-error)))
|
2016-03-09 21:19:50 +01:00
|
|
|
|
(native-inputs `(("perl" ,perl))) ; for the test suite
|
2014-03-06 01:12:19 +01:00
|
|
|
|
(synopsis "Off-the-Record (OTR) Messaging Library and Toolkit")
|
|
|
|
|
(description
|
|
|
|
|
"OTR allows you to have private conversations over instant messaging by
|
2015-08-04 22:10:42 +02:00
|
|
|
|
providing: (1) Encryption: No one else can read your instant messages. (2)
|
|
|
|
|
Authentication: You are assured the correspondent is who you think it is. (3)
|
|
|
|
|
Deniability: The messages you send do not have digital signatures that are
|
|
|
|
|
checkable by a third party. Anyone can forge messages after a conversation to
|
|
|
|
|
make them look like they came from you. However, during a conversation, your
|
|
|
|
|
correspondent is assured the messages he sees are authentic and
|
|
|
|
|
unmodified. (4) Perfect forward secrecy: If you lose control of your private
|
|
|
|
|
keys, no previous conversation is compromised.")
|
2014-03-06 01:12:19 +01:00
|
|
|
|
(home-page "https://otr.cypherpunks.ca/")
|
|
|
|
|
(license (list lgpl2.1 gpl2))))
|
|
|
|
|
|
|
|
|
|
(define-public libotr-3
|
|
|
|
|
(package (inherit libotr)
|
|
|
|
|
(version "3.2.1")
|
|
|
|
|
(source (origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append "https://otr.cypherpunks.ca/libotr-"
|
|
|
|
|
version ".tar.gz"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32 "1x6dd4rh499hdraiqfhz81igrj0a5rs0gjhc8l4sljwqhjjyla6l"))))))
|
|
|
|
|
|
2014-03-06 06:07:07 +01:00
|
|
|
|
(define-public bitlbee
|
|
|
|
|
(package
|
|
|
|
|
(name "bitlbee")
|
2016-02-28 03:05:45 +01:00
|
|
|
|
(version "3.4.1")
|
2014-03-06 06:07:07 +01:00
|
|
|
|
(source (origin
|
|
|
|
|
(method url-fetch)
|
2016-02-28 03:05:45 +01:00
|
|
|
|
(uri (string-append "https://get.bitlbee.org/src/bitlbee-"
|
2014-03-06 06:07:07 +01:00
|
|
|
|
version ".tar.gz"))
|
|
|
|
|
(sha256
|
2016-02-28 03:05:45 +01:00
|
|
|
|
(base32 "1qf0ypa9ba5jvsnpg9slmaran16hcc5fnfzbb1sdch1hjhchn2jh"))))
|
2014-03-06 06:07:07 +01:00
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(native-inputs `(("pkg-config" ,pkg-config)
|
|
|
|
|
("check" ,check)))
|
|
|
|
|
(inputs `(("glib" ,glib)
|
2014-07-07 07:19:17 +02:00
|
|
|
|
("libotr" ,libotr)
|
2014-03-06 06:07:07 +01:00
|
|
|
|
("gnutls" ,gnutls)
|
|
|
|
|
("python" ,python-2)
|
|
|
|
|
("perl" ,perl)))
|
|
|
|
|
(arguments
|
|
|
|
|
`(#:phases (alist-cons-after
|
|
|
|
|
'install 'install-etc
|
|
|
|
|
(lambda* (#:key (make-flags '()) #:allow-other-keys)
|
|
|
|
|
(zero? (apply system* "make" "install-etc" make-flags)))
|
|
|
|
|
(alist-replace
|
|
|
|
|
'configure
|
|
|
|
|
;; bitlbee's configure script does not tolerate many of the
|
|
|
|
|
;; variable settings that Guix would pass to it.
|
|
|
|
|
(lambda* (#:key outputs #:allow-other-keys)
|
|
|
|
|
(zero? (system* "./configure"
|
|
|
|
|
(string-append "--prefix="
|
|
|
|
|
(assoc-ref outputs "out"))
|
|
|
|
|
"--otr=1")))
|
|
|
|
|
%standard-phases))))
|
|
|
|
|
(synopsis "IRC to instant messaging gateway")
|
|
|
|
|
(description "BitlBee brings IM (instant messaging) to IRC clients, for
|
|
|
|
|
people who have an IRC client running all the time and don't want to run an
|
|
|
|
|
additional IM client. BitlBee currently supports XMPP/Jabber (including
|
|
|
|
|
Google Talk), MSN Messenger, Yahoo! Messenger, AIM and ICQ, and the Twitter
|
|
|
|
|
microblogging network (plus all other Twitter API compatible services like
|
|
|
|
|
identi.ca and status.net).")
|
|
|
|
|
(home-page "http://www.bitlbee.org/")
|
|
|
|
|
(license (list gpl2+ bsd-2))))
|
|
|
|
|
|
2014-11-21 18:39:39 +01:00
|
|
|
|
(define-public hexchat
|
|
|
|
|
(package
|
|
|
|
|
(name "hexchat")
|
|
|
|
|
(version "2.10.1")
|
|
|
|
|
(source (origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append "https://dl.hexchat.net/hexchat/hexchat-"
|
|
|
|
|
version ".tar.xz"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
|
|
|
|
"1ag9rmfisv0hsbk05jq4f1rnap7kwg90vgbmkr9zklkh6imfxk7z"))))
|
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(native-inputs `(("pkg-config" ,pkg-config)
|
|
|
|
|
("intltool" ,intltool)))
|
|
|
|
|
(inputs `(("dbus-glib" ,dbus-glib)
|
|
|
|
|
("dbus" ,dbus)
|
|
|
|
|
("enchant" ,enchant)
|
|
|
|
|
("glib:bin" ,glib "bin") ;need glib-genmarshal
|
|
|
|
|
("gtk" ,gtk+-2)
|
|
|
|
|
("libcanberra" ,libcanberra)
|
|
|
|
|
("libnotify" ,libnotify)
|
|
|
|
|
("openssl" ,openssl)
|
|
|
|
|
("perl-xml-parser" ,perl-xml-parser) ;for addons
|
|
|
|
|
("python-2" ,python-2))) ;for addons
|
|
|
|
|
(synopsis "Graphical IRC Client")
|
|
|
|
|
(description
|
|
|
|
|
"HexChat lets you connect to multiple IRC networks at once. The main window
|
|
|
|
|
shows the list of currently connected networks and their channels, the current
|
|
|
|
|
conversation and the list of users. It uses colors to differentiate between
|
|
|
|
|
users and to highlight messages. It checks spelling using available
|
|
|
|
|
dictionaries. HexChat can be extended with multiple addons.")
|
|
|
|
|
(home-page "http://hexchat.net/")
|
|
|
|
|
(license gpl2+)))
|
|
|
|
|
|
2015-01-31 22:03:25 +01:00
|
|
|
|
(define-public ngircd
|
|
|
|
|
(package
|
|
|
|
|
(name "ngircd")
|
|
|
|
|
(version "22")
|
|
|
|
|
(source (origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append "http://arthur.barton.de/pub/ngircd/ngircd-"
|
|
|
|
|
version ".tar.xz"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
|
|
|
|
"17k3g9qd9d010czk5846qxvzkmw4fihv8l6m2a2287crbxm3xhd4"))
|
|
|
|
|
(patches (list (search-patch "ngircd-no-dns-in-tests.patch")
|
|
|
|
|
(search-patch "ngircd-handle-zombies.patch")))))
|
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
;; Needed for the test suite.
|
|
|
|
|
(native-inputs `(("procps" ,procps)
|
|
|
|
|
("expect" ,expect)
|
|
|
|
|
("inetutils" ,inetutils)))
|
|
|
|
|
;; XXX Add libident, libwrap.
|
|
|
|
|
(inputs `(("zlib" ,zlib)
|
|
|
|
|
("gnutls" ,gnutls)
|
|
|
|
|
,@(if (string-suffix? "-linux"
|
|
|
|
|
(or (%current-target-system)
|
|
|
|
|
(%current-system)))
|
|
|
|
|
`(("linux-pam" ,linux-pam))
|
|
|
|
|
'())))
|
|
|
|
|
(arguments
|
|
|
|
|
`(#:configure-flags
|
|
|
|
|
'("--with-gnutls" "--with-iconv" "--enable-ipv6"
|
|
|
|
|
,@(if (string-suffix? "-linux"
|
|
|
|
|
(or (%current-target-system)
|
|
|
|
|
(%current-system)))
|
|
|
|
|
'("--with-pam")
|
|
|
|
|
'()))
|
|
|
|
|
#:phases
|
|
|
|
|
;; Necessary for the test suite.
|
|
|
|
|
(alist-cons-after
|
|
|
|
|
'configure 'post-configure
|
|
|
|
|
(lambda _
|
|
|
|
|
(substitute* "src/ngircd/Makefile"
|
2015-03-30 10:37:11 +02:00
|
|
|
|
(("/bin/sh") (which "sh")))
|
|
|
|
|
;; The default getpid.sh does a sloppy grep over 'ps -ax' output,
|
|
|
|
|
;; which fails arbitrarily.
|
|
|
|
|
(with-output-to-file "src/testsuite/getpid.sh"
|
|
|
|
|
(lambda ()
|
|
|
|
|
(display
|
|
|
|
|
(string-append
|
|
|
|
|
"#!" (which "sh") "\n"
|
|
|
|
|
"ps -C \"$1\" -o pid=\n"))))
|
|
|
|
|
;; Our variant of getpid.sh does not work for interpreter names if a
|
|
|
|
|
;; shebang script is run directly as "./foo", so patch cases where
|
|
|
|
|
;; the test suite relies on this.
|
|
|
|
|
(substitute* "src/testsuite/start-server.sh"
|
|
|
|
|
;; It runs 'getpid.sh sh' to test if it works at all. Run it on
|
|
|
|
|
;; 'make' instead.
|
|
|
|
|
(("getpid.sh sh") "getpid.sh make")))
|
2015-01-31 22:03:25 +01:00
|
|
|
|
%standard-phases)))
|
|
|
|
|
(home-page "http://ngircd.barton.de/")
|
|
|
|
|
(synopsis "Lightweight Internet Relay Chat server for small networks")
|
|
|
|
|
(description
|
|
|
|
|
"ngIRCd is a lightweight Internet Relay Chat server for small or private
|
|
|
|
|
networks. It is easy to configure, can cope with dynamic IP addresses, and
|
|
|
|
|
supports IPv6, SSL-protected connections as well as PAM for authentication.")
|
|
|
|
|
(license gpl2+)))
|
|
|
|
|
|
2015-08-04 06:12:16 +02:00
|
|
|
|
(define-public pidgin
|
|
|
|
|
(package
|
|
|
|
|
(name "pidgin")
|
|
|
|
|
(version "2.10.11")
|
|
|
|
|
(source
|
|
|
|
|
(origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append "mirror://sourceforge/pidgin/Pidgin/"
|
|
|
|
|
version "/" name "-" version ".tar.bz2"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
|
|
|
|
"01s0q30qrjlzj7kkz6f8lvrwsdd55a9yjh2xjjwyyxzw849j3bpj"))
|
|
|
|
|
(patches (list (search-patch "pidgin-add-search-path.patch")))))
|
|
|
|
|
(build-system glib-or-gtk-build-system)
|
|
|
|
|
(native-inputs
|
|
|
|
|
`(("pkg-config" ,pkg-config)
|
|
|
|
|
("check" ,check)
|
|
|
|
|
("intltool" ,intltool)
|
|
|
|
|
("gconf" ,gconf)
|
|
|
|
|
("python" ,python-2)
|
|
|
|
|
("doxygen" ,doxygen)))
|
|
|
|
|
(inputs
|
|
|
|
|
`(("gtk+" ,gtk+-2)
|
|
|
|
|
("libgcrypt" ,libgcrypt)
|
|
|
|
|
("gnutls" ,gnutls)
|
|
|
|
|
("cyrus-sasl" ,cyrus-sasl)
|
|
|
|
|
("dbus" ,dbus)
|
|
|
|
|
("dbus-glib" ,dbus-glib)
|
|
|
|
|
("python2-dbus" ,python2-dbus)
|
|
|
|
|
("libidn" ,libidn)
|
|
|
|
|
("libltdl" ,libltdl)
|
|
|
|
|
("libxml2" ,libxml2)
|
|
|
|
|
;; TODO: gstreamer: patches needed to support gstreamer-1.0 or later
|
|
|
|
|
;; TODO: farstream
|
|
|
|
|
;; TODO: meanwhile
|
|
|
|
|
;; TODO: network-manager
|
|
|
|
|
;; TODO: gtkspell
|
|
|
|
|
;; TODO: libxephyr
|
|
|
|
|
;; TODO: libgadu
|
|
|
|
|
("libxslt" ,libxslt)
|
|
|
|
|
("avahi" ,avahi)
|
|
|
|
|
("ncurses" ,ncurses)
|
|
|
|
|
("sqlite" ,sqlite)
|
|
|
|
|
("libice" ,libice)
|
|
|
|
|
("libsm" ,libsm)
|
|
|
|
|
("libxscrnsaver" ,libxscrnsaver)
|
|
|
|
|
("startup-notification" ,startup-notification)))
|
|
|
|
|
(arguments
|
|
|
|
|
`(#:configure-flags
|
|
|
|
|
(list "--disable-gtkspell"
|
|
|
|
|
"--disable-tcl"
|
|
|
|
|
"--disable-meanwhile"
|
|
|
|
|
"--disable-nm" ; XXX remove when we have network-manager
|
|
|
|
|
"--disable-vv" ; XXX remove when we have farstream and gstreamer
|
|
|
|
|
"--disable-gstreamer" ; XXX patches needed to support gstreamer-1.0
|
|
|
|
|
"--enable-cyrus-sasl"
|
|
|
|
|
(string-append "--with-ncurses-headers="
|
|
|
|
|
(assoc-ref %build-inputs "ncurses")
|
|
|
|
|
"/include"))))
|
|
|
|
|
(native-search-paths
|
|
|
|
|
(list (search-path-specification
|
|
|
|
|
(variable "PURPLE_PLUGIN_PATH")
|
|
|
|
|
(files (list (string-append "lib/purple-"
|
|
|
|
|
(version-prefix version 1))
|
|
|
|
|
"lib/pidgin")))))
|
|
|
|
|
(home-page "http://www.pidgin.im/")
|
|
|
|
|
(synopsis "Graphical multi-protocol instant messaging client")
|
|
|
|
|
(description
|
|
|
|
|
"Pidgin is a modular instant messaging client that supports many popular
|
|
|
|
|
chat protocols.")
|
|
|
|
|
(license
|
|
|
|
|
(list
|
|
|
|
|
gpl2+ ; Most of the code
|
|
|
|
|
lgpl2.1 ; GG protocol plugin (libpurple/protocols/gg/lib)
|
|
|
|
|
lgpl2.0+ ; OSCAR protocol plugin (libpurple/protocols/oscar)
|
|
|
|
|
;; The following licenses cover the zephyr protocol plugin:
|
|
|
|
|
(non-copyleft
|
|
|
|
|
"file://libpurple/protocols/zephyr/mit-copyright.h"
|
|
|
|
|
"See libpurple/protocols/zephyr/mit-copyright.h in the distribution.")
|
|
|
|
|
(non-copyleft
|
|
|
|
|
"file://libpurple/protocols/zephyr/mit-sipb-copyright.h"
|
|
|
|
|
"See libpurple/protocols/zephyr/mit-sipb-copyright.h in the distribution.")))))
|
|
|
|
|
|
2015-08-04 18:04:09 +02:00
|
|
|
|
(define-public pidgin-otr
|
|
|
|
|
(package
|
|
|
|
|
(name "pidgin-otr")
|
|
|
|
|
(version "4.0.1")
|
|
|
|
|
(source (origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append "https://otr.cypherpunks.ca/"
|
|
|
|
|
name "-" version ".tar.gz"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
|
|
|
|
"02pkkf86fh5jvzsdn9y78impsgzj1n0p81kc2girvk3vq941yy0v"))))
|
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(native-inputs
|
|
|
|
|
`(("pkg-config" ,pkg-config)
|
|
|
|
|
("intltool" ,intltool)))
|
|
|
|
|
(inputs
|
|
|
|
|
`(("pidgin" ,pidgin)
|
|
|
|
|
("libotr" ,libotr)
|
|
|
|
|
("libgpg-error" ,libgpg-error)
|
|
|
|
|
("libgcrypt" ,libgcrypt)
|
|
|
|
|
("glib" ,glib)
|
|
|
|
|
("gtk+" ,gtk+-2)))
|
|
|
|
|
(home-page "https://otr.cypherpunks.ca/")
|
|
|
|
|
(synopsis "Off-the-Record Messaging plugin for Pidgin")
|
|
|
|
|
(description
|
|
|
|
|
"Pidgin-OTR is a plugin that adds support for OTR to the Pidgin instant
|
|
|
|
|
messaging client. OTR (Off-the-Record) Messaging allows you to have private
|
|
|
|
|
conversations over instant messaging by providing: (1) Encryption: No one else
|
|
|
|
|
can read your instant messages. (2) Authentication: You are assured the
|
|
|
|
|
correspondent is who you think it is. (3) Deniability: The messages you send
|
|
|
|
|
do not have digital signatures that are checkable by a third party. Anyone
|
|
|
|
|
can forge messages after a conversation to make them look like they came from
|
|
|
|
|
you. However, during a conversation, your correspondent is assured the
|
|
|
|
|
messages he sees are authentic and unmodified. (4) Perfect forward secrecy:
|
|
|
|
|
If you lose control of your private keys, no previous conversation is
|
|
|
|
|
compromised.")
|
|
|
|
|
(license gpl2)))
|
|
|
|
|
|
2015-08-13 23:29:35 +02:00
|
|
|
|
(define-public znc
|
|
|
|
|
(package
|
|
|
|
|
(name "znc")
|
2015-12-26 08:37:32 +01:00
|
|
|
|
(version "1.6.2")
|
2015-08-13 23:29:35 +02:00
|
|
|
|
(source (origin
|
|
|
|
|
(method url-fetch)
|
2015-12-26 08:32:32 +01:00
|
|
|
|
(uri (string-append "http://znc.in/releases/archive/znc-"
|
2015-08-13 23:29:35 +02:00
|
|
|
|
version ".tar.gz"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
2015-12-26 08:37:32 +01:00
|
|
|
|
"14q5dyr5zg99hm6j6g1gilcn1zf7dskhxfpz3bnkyhy6q0kpgwgf"))))
|
2015-08-13 23:29:35 +02:00
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(arguments
|
|
|
|
|
'(#:tests? #f ; tries to download GoogleTest with wget
|
|
|
|
|
#:configure-flags '("--enable-python"
|
|
|
|
|
"--enable-perl"
|
|
|
|
|
"--enable-cyrus")))
|
|
|
|
|
(native-inputs
|
|
|
|
|
`(("pkg-config" ,pkg-config)
|
|
|
|
|
("perl" ,perl)
|
|
|
|
|
("python" ,python)))
|
|
|
|
|
(inputs
|
|
|
|
|
`(("openssl" ,openssl)
|
|
|
|
|
("zlib" ,zlib)
|
|
|
|
|
("icu4c" ,icu4c)
|
|
|
|
|
("cyrus-sasl" ,cyrus-sasl)))
|
|
|
|
|
(home-page "http://znc.in")
|
|
|
|
|
(synopsis "IRC network bouncer")
|
|
|
|
|
(description "ZNC is an IRC network bouncer or BNC. It can detach the
|
|
|
|
|
client from the actual IRC server, and also from selected channels. Multiple
|
|
|
|
|
clients from different locations can connect to a single ZNC account
|
|
|
|
|
simultaneously and therefore appear under the same nickname on IRC.")
|
|
|
|
|
(license asl2.0)))
|
|
|
|
|
|
2015-09-23 21:29:06 +02:00
|
|
|
|
(define-public python-nbxmpp
|
|
|
|
|
(package
|
|
|
|
|
(name "python-nbxmpp")
|
|
|
|
|
(version "0.5.3")
|
|
|
|
|
(source
|
|
|
|
|
(origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append "https://pypi.python.org/packages/source/n/nbxmpp/"
|
|
|
|
|
"nbxmpp-" version ".tar.gz"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
|
|
|
|
"0dcr786dyips1fdvgsn8yvpgcz5j7217fi05c29cfypdl8jnp6mp"))))
|
|
|
|
|
(build-system python-build-system)
|
|
|
|
|
;; No tests included
|
|
|
|
|
(arguments `(#:tests? #f))
|
|
|
|
|
(home-page "http://python-nbxmpp.gajim.org")
|
|
|
|
|
(synopsis "Non-blocking Jabber/XMPP module")
|
|
|
|
|
(description
|
|
|
|
|
"The goal of this python library is to provide a way for Python
|
|
|
|
|
applications to use Jabber/XMPP networks in a non-blocking way. This library
|
|
|
|
|
was initially a fork of xmpppy, but is using non-blocking sockets.")
|
|
|
|
|
(license gpl3+)))
|
|
|
|
|
|
|
|
|
|
(define-public python2-nbxmpp
|
|
|
|
|
(package-with-python2 python-nbxmpp))
|
|
|
|
|
|
2015-09-23 21:50:27 +02:00
|
|
|
|
(define-public gajim
|
|
|
|
|
(package
|
|
|
|
|
(name "gajim")
|
2016-01-21 16:23:19 +01:00
|
|
|
|
(version "0.16.5")
|
2015-09-23 21:50:27 +02:00
|
|
|
|
(source (origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append "https://gajim.org/downloads/"
|
|
|
|
|
(version-major+minor version)
|
|
|
|
|
"/gajim-" version ".tar.bz2"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
2016-01-21 16:23:19 +01:00
|
|
|
|
"14fhcqnkqygh91132dnf1idayj4r3iqbwb44sd3mxv20n6ribh55"))))
|
2015-09-23 21:50:27 +02:00
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(arguments
|
2016-01-21 16:23:19 +01:00
|
|
|
|
`(;; The only check done by gajim-0.16.x is to check that the
|
|
|
|
|
;; translations are up-to-date, and in 0.16.5 they are not, so
|
|
|
|
|
;; "make check" fails. Therefore, we disable tests for now.
|
|
|
|
|
;;
|
|
|
|
|
;; XXX TODO Try re-enabling tests in gajim-0.16.6 or later.
|
|
|
|
|
;;
|
|
|
|
|
#:tests? #f
|
|
|
|
|
#:phases
|
2015-09-23 21:50:27 +02:00
|
|
|
|
(modify-phases %standard-phases
|
|
|
|
|
(add-after 'install 'wrap-program
|
|
|
|
|
(lambda* (#:key outputs #:allow-other-keys)
|
|
|
|
|
;; Make sure all Python scripts run with the correct PYTHONPATH.
|
|
|
|
|
(let ((out (assoc-ref outputs "out"))
|
|
|
|
|
(path (getenv "PYTHONPATH")))
|
|
|
|
|
(for-each (lambda (name)
|
|
|
|
|
(let ((file (string-append out "/bin/" name)))
|
|
|
|
|
;; Wrapping destroys identification of intended
|
|
|
|
|
;; application, so we need to override "APP".
|
|
|
|
|
(substitute* file
|
|
|
|
|
(("APP=`basename \\$0`")
|
|
|
|
|
(string-append "APP=" name)))
|
|
|
|
|
(wrap-program file
|
|
|
|
|
`("PYTHONPATH" ":" prefix (,path)))))
|
|
|
|
|
'("gajim" "gajim-remote" "gajim-history-manager")))
|
|
|
|
|
#t)))))
|
|
|
|
|
(native-inputs
|
|
|
|
|
`(("intltool" ,intltool)))
|
|
|
|
|
(propagated-inputs
|
|
|
|
|
`(("python2-nbxmpp" ,python2-nbxmpp)
|
|
|
|
|
("python2-pyopenssl" ,python2-pyopenssl)
|
|
|
|
|
("python2-gnupg" ,python2-gnupg)))
|
|
|
|
|
(inputs
|
|
|
|
|
`(("python2-pygtk" ,python2-pygtk)
|
|
|
|
|
("python" ,python-2)))
|
|
|
|
|
(home-page "https://gajim.org/")
|
|
|
|
|
(synopsis "Jabber (XMPP) client")
|
|
|
|
|
(description "Gajim is a feature-rich and easy to use Jabber/XMPP client.
|
|
|
|
|
Among its features are: a tabbed chat window and single window modes; support
|
|
|
|
|
for group chat (with Multi-User Chat protocol), invitation, chat to group chat
|
|
|
|
|
transformation; audio and video conferences; file transfer; TLS, GPG and
|
|
|
|
|
end-to-end encryption support; XML console.")
|
|
|
|
|
(license gpl3+)))
|
|
|
|
|
|
2014-03-06 01:12:19 +01:00
|
|
|
|
;;; messaging.scm ends here
|