gnu/packages/jami.scm

   1 ;;; GNU Guix --- Functional package management for GNU
   2 ;;; Copyright © 2019 Pierre Neidhardt <mail@ambrevar.xyz>
   3 ;;; Copyright © 2020 Vincent Legoll <vincent.legoll@gmail.com>
   4 ;;; Copyright © 2019, 2020 Jan Wielkiewicz <tona_kosmicznego_smiecia@interia.pl>
   5 ;;;
   6 ;;; This file is part of GNU Guix.
   7 ;;;
   8 ;;; GNU Guix is free software; you can redistribute it and/or modify it
   9 ;;; under the terms of the GNU General Public License as published by
  10 ;;; the Free Software Foundation; either version 3 of the License, or (at
  11 ;;; your option) any later version.
  12 ;;;
  13 ;;; GNU Guix is distributed in the hope that it will be useful, but
  14 ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
  15 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  16 ;;; GNU General Public License for more details.
  17 ;;;
  18 ;;; You should have received a copy of the GNU General Public License
  19 ;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.
  20
  21 (define-module (gnu packages jami)
  22   #:use-module ((guix licenses) #:prefix license:)
  23   #:use-module (gnu packages aidc)
  24   #:use-module (gnu packages audio)
  25   #:use-module (gnu packages autotools)
  26   #:use-module (gnu packages base)
  27   #:use-module (gnu packages boost)
  28   #:use-module (gnu packages check)
  29   #:use-module (gnu packages compression)
  30   #:use-module (gnu packages crypto)
  31   #:use-module (gnu packages documentation)
  32   #:use-module (gnu packages gettext)
  33   #:use-module (gnu packages glib)
  34   #:use-module (gnu packages gnome)
  35   #:use-module (gnu packages gtk)
  36   #:use-module (gnu packages hurd)
  37   #:use-module (gnu packages libcanberra)
  38   #:use-module (gnu packages linux)
  39   #:use-module (gnu packages multiprecision)
  40   #:use-module (gnu packages networking)
  41   #:use-module (gnu packages pcre)
  42   #:use-module (gnu packages perl)
  43   #:use-module (gnu packages pkg-config)
  44   #:use-module (gnu packages pulseaudio)
  45   #:use-module (gnu packages python)
  46   #:use-module (gnu packages qt)
  47   #:use-module (gnu packages serialization)
  48   #:use-module (gnu packages sqlite)
  49   #:use-module (gnu packages telephony)
  50   #:use-module (gnu packages tls)
  51   #:use-module (gnu packages upnp)
  52   #:use-module (gnu packages video)
  53   #:use-module (gnu packages webkit)
  54   #:use-module (gnu packages xiph)
  55   #:use-module (gnu packages xorg)
  56   #:use-module (gnu packages)
  57   #:use-module (guix build-system cmake)
  58   #:use-module (guix build-system gnu)
  59   #:use-module (guix download)
  60   #:use-module (guix git-download)
  61   #:use-module (guix packages)
  62   #:use-module (guix utils)
  63   #:use-module (srfi srfi-1))
  64
  65 (define %jami-version "20200401.1.6f090de")
  66
  67 (define* (jami-source #:key without-daemon)
  68   (origin
  69     (method url-fetch)
  70     (uri (string-append "https://dl.jami.net/release/tarballs/jami_"
  71                         %jami-version
  72                         ".tar.gz"))
  73     (modules '((guix build utils)))
  74     (snippet
  75      (if without-daemon
  76          '(begin
  77             (delete-file-recursively "daemon/contrib"))
  78          #f))
  79     (sha256
  80      (base32
  81       "0lryx9n1jn0jsw7s10pbwivqv0d5m3jdzhdhdyg5n02v72mjvkmh"))))
  82
  83 ;; Savoir-Faire Linux modifies many libraries to add features
  84 ;; to Jami. This procedure makes applying patches to a given
  85 ;; package easy.
  86 (define jami-apply-dependency-patches
  87   '(lambda* (#:key inputs dep-name patches)
  88      (let ((patches-directory "sfl-patches"))
  89        (mkdir-p patches-directory)
  90        (invoke "tar" "-xvf" (assoc-ref inputs "sfl-patches")
  91                "-C" patches-directory
  92                "--strip-components=5"
  93                (string-append "ring-project/daemon/contrib/src/"
  94                               dep-name))
  95        (for-each
  96         (lambda (file)
  97           (invoke "patch" "--force" "-p1" "-i"
  98                   (string-append patches-directory "/"
  99                                  file ".patch")))
 100         patches))))
 101
 102 (define-public pjproject-jami
 103   (package
 104     (inherit pjproject)
 105     (name "pjproject-jami")
 106     (native-inputs
 107      `(("sfl-patches" ,(jami-source))
 108        ,@(package-native-inputs pjproject)))
 109     (arguments
 110      `(#:tests? #f
 111        ;; See ring-project/daemon/contrib/src/pjproject/rules.mak.
 112        #:configure-flags
 113        (list "--disable-oss"
 114              "--disable-sound"
 115              "--disable-video"
 116              ;; The following flag is Linux specific.
 117              ,@(if (hurd-triplet? (or (%current-system)
 118                                       (%current-target-system)))
 119                    '()
 120                    '("--enable-epoll"))
 121              "--enable-ext-sound"
 122              "--disable-speex-aec"
 123              "--disable-g711-codec"
 124              "--disable-l16-codec"
 125              "--disable-gsm-codec"
 126              "--disable-g722-codec"
 127              "--disable-g7221-codec"
 128              "--disable-speex-codec"
 129              "--disable-ilbc-codec"
 130              "--disable-opencore-amr"
 131              "--disable-silk"
 132              "--disable-sdl"
 133              "--disable-ffmpeg"
 134              "--disable-v4l2"
 135              "--disable-openh264"
 136              "--disable-resample"
 137              "--disable-libwebrtc"
 138              "--with-gnutls"
 139              "--with-external-srtp"
 140              ;; We need -fPIC or else we get the following error when linking
 141              ;; against pjproject-jami:
 142              ;;   relocation R_X86_64_32S against `.rodata' can not be used when
 143              ;;   making a shared object;
 144              "CFLAGS=-fPIC"
 145              "CXXFLAGS=-fPIC")
 146        #:phases
 147        (modify-phases %standard-phases
 148          (add-after 'unpack 'make-git-checkout-writable
 149            (lambda _
 150              (for-each make-file-writable (find-files "."))
 151              #t))
 152          (add-after 'unpack 'apply-patches
 153            (lambda* (#:key inputs #:allow-other-keys)
 154              (let ((jami-apply-dependency-patches ,jami-apply-dependency-patches))
 155                ;; Comes from
 156                ;; "ring-project/daemon/contrib/src/pjproject/rules.mak".
 157                ;; WARNING: These amount for huge changes in pjproject.
 158                (jami-apply-dependency-patches
 159                 #:inputs inputs
 160                 #:dep-name "pjproject"
 161                 #:patches
 162                 '("0001-rfc6544"
 163                   "0002-rfc2466"
 164                   "0003-add-tcp-keep-alive"
 165                   "0004-multiple_listeners"
 166                   "0005-fix_ebusy_turn"
 167                   "0006-ignore_ipv6_on_transport_check"
 168                   "0007-pj_ice_sess"
 169                   "0008-fix_ioqueue_ipv6_sendto"
 170                   "0009-add-config-site"))
 171                #t)))
 172          ;; TODO: We could use substitute-keyword-arguments instead of
 173          ;; repeating the phases from pjproject, but somehow it does
 174          ;; not work.
 175          (add-before 'build 'build-dep
 176            (lambda _ (invoke "make" "dep")))
 177          (add-before 'patch-source-shebangs 'autoconf
 178            (lambda _
 179              (invoke "autoconf" "-v" "-f" "-i" "-o"
 180                      "aconfigure" "aconfigure.ac")))
 181          (add-before 'autoconf 'disable-some-tests
 182            ;; Three of the six test programs fail due to missing network
 183            ;; access.
 184            (lambda _
 185              (substitute* "Makefile"
 186                (("selftest: pjlib-test pjlib-util-test pjnath-test pjmedia-test pjsip-test pjsua-test")
 187                 "selftest: pjlib-test pjlib-util-test pjmedia-test"))
 188              #t)))))))
 189
 190 ;; The following variables are configure flags used by ffmpeg-jami.  They're
 191 ;; from the ring-project/daemon/contrib/src/ffmpeg/rules.mak file. We try to
 192 ;; keep it as close to the official Jami package as possible, to provide all
 193 ;; the codecs and extra features that are expected.
 194 ;;
 195 ;; See:
 196 ;; https://review.jami.net/plugins/gitiles/ring-daemon/+/refs/heads/master/contrib/src/ffmpeg/rules.mak
 197
 198 (define %ffmpeg-default-configure-flags
 199   '("--disable-everything"
 200     "--enable-zlib"
 201     "--enable-gpl"
 202     "--enable-swscale"
 203     "--enable-bsfs"
 204     "--disable-filters"
 205     "--disable-programs"
 206     "--disable-postproc"
 207     "--disable-protocols"
 208     "--enable-protocol=crypto"
 209     "--enable-protocol=file"
 210     "--enable-protocol=rtp"
 211     "--enable-protocol=srtp"
 212     "--enable-protocol=tcp"
 213     "--enable-protocol=udp"
 214     "--enable-protocol=unix"
 215     "--enable-protocol=pipe"
 216
 217     ;; enable muxers/demuxers
 218     "--disable-demuxers"
 219     "--disable-muxers"
 220     "--enable-muxer=rtp"
 221     "--enable-muxer=g722"
 222     "--enable-muxer=h263"
 223     "--enable-muxer=h264"
 224     "--enable-muxer=hevc"
 225     "--enable-muxer=webm"
 226     "--enable-muxer=ogg"
 227     "--enable-muxer=pcm_s16be"
 228     "--enable-muxer=pcm_s16le"
 229     "--enable-demuxer=rtp"
 230     "--enable-demuxer=mjpeg"
 231     "--enable-demuxer=mjpeg_2000"
 232     "--enable-demuxer=mpegvideo"
 233     "--enable-demuxer=gif"
 234     "--enable-demuxer=image_jpeg_pipe"
 235     "--enable-demuxer=image_png_pipe"
 236     "--enable-demuxer=image_webp_pipe"
 237     "--enable-demuxer=matroska"
 238     "--enable-demuxer=m4v"
 239     "--enable-demuxer=mp3"
 240     "--enable-demuxer=ogg"
 241     "--enable-demuxer=flac"
 242     "--enable-demuxer=wav"
 243     "--enable-demuxer=ac3"
 244     "--enable-demuxer=g722"
 245     "--enable-demuxer=pcm_mulaw"
 246     "--enable-demuxer=pcm_alaw"
 247     "--enable-demuxer=pcm_s16be"
 248     "--enable-demuxer=pcm_s16le"
 249     "--enable-demuxer=h263"
 250     "--enable-demuxer=h264"
 251     "--enable-demuxer=hevc"
 252
 253     ;; enable parsers
 254     "--enable-parser=h263"
 255     "--enable-parser=h264"
 256     "--enable-parser=hevc"
 257     "--enable-parser=mpeg4video"
 258     "--enable-parser=vp8"
 259     "--enable-parser=vp9"
 260     "--enable-parser=opus"
 261
 262     ;; encoders/decoders
 263     "--enable-encoder=adpcm_g722"
 264     "--enable-decoder=adpcm_g722"
 265     "--enable-encoder=rawvideo"
 266     "--enable-decoder=rawvideo"
 267     "--enable-encoder=libx264"
 268     "--enable-decoder=h264"
 269     "--enable-encoder=pcm_alaw"
 270     "--enable-decoder=pcm_alaw"
 271     "--enable-encoder=pcm_mulaw"
 272     "--enable-decoder=pcm_mulaw"
 273     "--enable-encoder=mpeg4"
 274     "--enable-decoder=mpeg4"
 275     "--enable-encoder=libvpx_vp8"
 276     "--enable-decoder=vp8"
 277     "--enable-decoder=vp9"
 278     "--enable-encoder=h263"
 279     "--enable-encoder=h263p"
 280     "--enable-decoder=h263"
 281     "--enable-encoder=mjpeg"
 282     "--enable-decoder=mjpeg"
 283     "--enable-decoder=mjpegb"
 284     "--enable-libspeex"
 285     "--enable-libopus"
 286     "--enable-libvpx"
 287     "--enable-libx264"
 288     "--enable-encoder=libspeex"
 289     "--enable-decoder=libspeex"
 290     "--enable-encoder=libopus"
 291     "--enable-decoder=libopus"
 292
 293     ;; decoders for ringtones and audio streaming
 294     "--enable-decoder=flac"
 295     "--enable-decoder=vorbis"
 296     "--enable-decoder=aac"
 297     "--enable-decoder=ac3"
 298     "--enable-decoder=eac3"
 299     "--enable-decoder=mp3"
 300     "--enable-decoder=pcm_u24be"
 301     "--enable-decoder=pcm_u24le"
 302     "--enable-decoder=pcm_u32be"
 303     "--enable-decoder=pcm_u32le"
 304     "--enable-decoder=pcm_u8"
 305     "--enable-decoder=pcm_f16le"
 306     "--enable-decoder=pcm_f24le"
 307     "--enable-decoder=pcm_f32be"
 308     "--enable-decoder=pcm_f32le"
 309     "--enable-decoder=pcm_f64be"
 310     "--enable-decoder=pcm_f64le"
 311     "--enable-decoder=pcm_s16be"
 312     "--enable-decoder=pcm_s16be_planar"
 313     "--enable-decoder=pcm_s16le"
 314     "--enable-decoder=pcm_s16le_planar"
 315     "--enable-decoder=pcm_s24be"
 316     "--enable-decoder=pcm_s24le"
 317     "--enable-decoder=pcm_s24le_planar"
 318     "--enable-decoder=pcm_s32be"
 319     "--enable-decoder=pcm_s32le"
 320     "--enable-decoder=pcm_s32le_planar"
 321     "--enable-decoder=pcm_s64be"
 322     "--enable-decoder=pcm_s64le"
 323     "--enable-decoder=pcm_s8"
 324     "--enable-decoder=pcm_s8_planar"
 325     "--enable-decoder=pcm_u16be"
 326     "--enable-decoder=pcm_u16le"
 327
 328     ;; encoders/decoders for images
 329     "--enable-encoder=gif"
 330     "--enable-decoder=gif"
 331     "--enable-encoder=jpegls"
 332     "--enable-decoder=jpegls"
 333     "--enable-encoder=ljpeg"
 334     "--enable-decoder=jpeg2000"
 335     "--enable-encoder=png"
 336     "--enable-decoder=png"
 337     "--enable-encoder=bmp"
 338     "--enable-decoder=bmp"
 339     "--enable-encoder=tiff"
 340     "--enable-decoder=tiff"
 341
 342     ;; filters
 343     "--enable-filter=scale"
 344     "--enable-filter=overlay"
 345     "--enable-filter=amix"
 346     "--enable-filter=amerge"
 347     "--enable-filter=aresample"
 348     "--enable-filter=format"
 349     "--enable-filter=aformat"
 350     "--enable-filter=fps"
 351     "--enable-filter=transpose"
 352     "--enable-filter=pad"))
 353
 354 (define %ffmpeg-linux-configure-flags
 355   '("--enable-pic"
 356     "--extra-cxxflags=-fPIC"
 357     "--extra-cflags=-fPIC"
 358     "--target-os=linux"
 359     "--enable-indev=v4l2"
 360     "--enable-indev=xcbgrab"
 361     "--enable-vdpau"
 362     "--enable-hwaccel=h264_vdpau"
 363     "--enable-hwaccel=mpeg4_vdpau"
 364     "--enable-vaapi"
 365     "--enable-hwaccel=h264_vaapi"
 366     "--enable-hwaccel=mpeg4_vaapi"
 367     "--enable-hwaccel=h263_vaapi"
 368     "--enable-hwaccel=vp8_vaapi"
 369     "--enable-hwaccel=mjpeg_vaapi"
 370     "--enable-hwaccel=hevc_vaapi"
 371     "--enable-encoder=h264_vaapi"
 372     "--enable-encoder=vp8_vaapi"
 373     "--enable-encoder=mjpeg_vaapi"
 374     "--enable-encoder=hevc_vaapi"))
 375
 376 ;; ffnvcodec is not supported on ARM then we enable it here for i386 and
 377 ;; x86_64 architectures.
 378 (define %ffmpeg-linux-x86-configure-flags
 379   '("--arch=x86"
 380     "--enable-cuvid"
 381     "--enable-ffnvcodec"
 382     "--enable-nvdec"
 383     "--enable-nvenc"
 384     "--enable-hwaccel=h264_nvdec"
 385     "--enable-hwaccel=hevc_nvdec"
 386     "--enable-hwaccel=vp8_nvdec"
 387     "--enable-hwaccel=mjpeg_nvdec"
 388     "--enable-encoder=h264_nvenc"
 389     "--enable-encoder=hevc_nvenc"))
 390
 391 ;; This procedure composes the configure flags list for ffmpeg-jami.
 392 (define (ffmpeg-compose-configure-flags)
 393   (define (system=? s)
 394     (string-prefix? s (%current-system)))
 395
 396   `(,@%ffmpeg-default-configure-flags
 397     ,@(if (string-contains (%current-system) "linux")
 398           (if (or (system=? "i686")
 399                   (system=? "x86_64"))
 400               (append %ffmpeg-linux-configure-flags
 401                       %ffmpeg-linux-x86-configure-flags)
 402               %ffmpeg-linux-configure-flags)
 403           '())))
 404
 405 (define-public ffmpeg-jami
 406   (package
 407     (inherit ffmpeg)
 408     (name "ffmpeg-jami")
 409     (native-inputs
 410      `(("sfl-patches" ,(jami-source))
 411        ("libiconv" ,libiconv)
 412        ,@(package-native-inputs ffmpeg)))
 413     (supported-systems '("x86_64-linux" "i686-linux"
 414                          "aarch64-linux" "armhf-linux"))
 415     (arguments
 416      (append
 417       '(#:tests? #f)
 418       (substitute-keyword-arguments (package-arguments ffmpeg)
 419         ((#:configure-flags '())
 420          (ffmpeg-compose-configure-flags))
 421         ((#:phases phases)
 422          `(modify-phases ,phases
 423             (add-after 'unpack 'make-git-checkout-writable
 424               (lambda _
 425                 (for-each make-file-writable (find-files "."))
 426                 #t))
 427             (add-after 'unpack 'apply-patches
 428               (lambda* (#:key inputs #:allow-other-keys)
 429                 (let ((jami-apply-dependency-patches
 430                        ,jami-apply-dependency-patches))
 431                   ;; These patches come from:
 432                   ;; "ring-project/daemon/contrib/src/ffmpeg/rules.mak".
 433                   (jami-apply-dependency-patches #:inputs inputs
 434                                                  #:dep-name "ffmpeg"
 435                                                  #:patches
 436                                                  '("remove-mjpeg-log"
 437                                                    "change-RTCP-ratio"
 438                                                    "rtp_ext_abs_send_time"))
 439                   #t))))))))))
 440
 441 (define-public libring
 442   (package
 443     (name "libring")
 444     (version %jami-version)
 445     (source (jami-source #:without-daemon #t))
 446     (build-system gnu-build-system)
 447     (inputs
 448      `(("alsa-lib" ,alsa-lib)
 449        ("boost" ,boost)
 450        ("dbus-c++" ,dbus-c++)
 451        ("eudev" ,eudev)
 452        ("ffmpeg" ,ffmpeg-jami)
 453        ("flac" ,flac)
 454        ("gmp" ,gmp)
 455        ("gsm" ,gsm)
 456        ("jack" ,jack-1)
 457        ("jsoncpp" ,jsoncpp)
 458        ("libnatpmp" ,libnatpmp)
 459        ("libogg" ,libogg)
 460        ("libva" ,libva)
 461        ("opendht" ,opendht)
 462        ("opus" ,opus)
 463        ("pcre" ,pcre)
 464        ("pulseaudio" ,pulseaudio)
 465        ("libsamplerate" ,libsamplerate)
 466        ("libsndfile" ,libsndfile)
 467        ("speex" ,speex)
 468        ("speexdsp" ,speexdsp)
 469        ("libupnp" ,libupnp)
 470        ("libvorbis" ,libvorbis)
 471        ("libx264" ,libx264)
 472        ("libvdpau" ,libvdpau)
 473        ("yaml-cpp" ,yaml-cpp)
 474        ("zlib" ,zlib)
 475        ("openssl" ,openssl)
 476        ("libsecp256k1" ,libsecp256k1)
 477        ("python" ,python)
 478        ("python-wrapper" ,python-wrapper)
 479        ("restinio" ,restinio)
 480        ("libx11" ,libx11)
 481        ("asio" ,asio)
 482        ;; TODO: Upstream seems to rely on a custom pjproject (a.k.a. pjsip) version.
 483        ;; See https://git.jami.net/savoirfairelinux/ring-daemon/issues/24.
 484        ("pjproject" ,pjproject-jami)))
 485     (native-inputs
 486      `(("autoconf" ,autoconf)
 487        ("automake" ,automake)
 488        ("libtool" ,libtool)
 489        ("pkg-config" ,pkg-config)
 490        ("which" ,which)
 491        ("cppunit" ,cppunit)
 492        ("perl" ,perl)))                 ; Needed for documentation.
 493     (arguments
 494      `(#:tests? #f         ; The tests fail to compile due to missing headers.
 495        #:phases
 496        (modify-phases %standard-phases
 497          (add-after 'unpack 'change-directory
 498            (lambda _
 499              (chdir "daemon")
 500              #t))
 501          (add-before 'build 'add-lib-dir
 502            (lambda _
 503              (mkdir-p "src/lib")
 504              #t)))))
 505     (synopsis "Distributed multimedia communications platform")
 506     (description "Jami (formerly GNU Ring) is a secure and distributed voice,
 507 video and chat communication platform that requires no centralized server and
 508 leaves the power of privacy in the hands of the user.  It supports the SIP and
 509 IAX protocols, as well as decentralized calling using P2P-DHT.
 510
 511 This package provides a library and daemon implementing the Jami core
 512 functionality.")
 513     (home-page "https://jami.net/")
 514     (license license:gpl3+)))
 515
 516 (define-public libringclient
 517   (package
 518     (inherit libring)
 519     (name "libringclient")
 520     (build-system cmake-build-system)
 521     (propagated-inputs
 522      `(("libring" ,libring)     ; For 'dring'.
 523        ("qtbase" ,qtbase)       ; Qt is included in several installed headers.
 524        ("qttools" ,qttools)))
 525     (arguments
 526      `(#:tests? #f                      ; There is no testsuite.
 527        #:configure-flags
 528        (list (string-append "-DRING_BUILD_DIR="
 529                             (assoc-ref %build-inputs "libring") "/include"))
 530        #:phases
 531        (modify-phases %standard-phases
 532          (add-after 'unpack 'change-directory
 533            (lambda _
 534              (chdir "lrc")
 535              #t))
 536          (add-before 'configure 'fix-dbus-interfaces-path
 537            (lambda* (#:key inputs #:allow-other-keys)
 538              (substitute* "CMakeLists.txt"
 539                (("\\$\\{CMAKE_INSTALL_PREFIX\\}(/share/dbus-1/interfaces)" _ dbus-interfaces-path-suffix)
 540                 (string-append (assoc-ref inputs "libring")
 541                                dbus-interfaces-path-suffix))))))))
 542     (synopsis "Distributed multimedia communications platform")
 543     (description "Jami (formerly GNU Ring) is a secure and distributed voice,
 544 video and chat communication platform that requires no centralized server and
 545 leaves the power of privacy in the hands of the user.  It supports the SIP and
 546 IAX protocols, as well as decentralized calling using P2P-DHT.
 547
 548 This package provides a library common to all Jami clients.")
 549     (home-page "https://jami.net")
 550     (license license:gpl3+)))
 551
 552 (define-public jami
 553   (package
 554     (inherit libring)
 555     (name "jami")
 556     (build-system cmake-build-system)
 557     (inputs
 558      `(("libringclient" ,libringclient)
 559        ("gtk+" ,gtk+)
 560        ("qrencode" ,qrencode)
 561        ("libnotify" ,libnotify)
 562        ("clutter" ,clutter)
 563        ("clutter-gtk" ,clutter-gtk)
 564        ("libcanberra" ,libcanberra)
 565        ("webkitgtk" ,webkitgtk)
 566        ("sqlite" ,sqlite)))
 567     (native-inputs
 568      `(("pkg-config" ,pkg-config)
 569        ("gettext" ,gettext-minimal)
 570        ("glib:bin" ,glib "bin")
 571        ("doxygen" ,doxygen)))
 572     (propagated-inputs
 573      `(("libring" ,libring) ; Contains `dring', the daemon, which is automatically by d-bus.
 574        ("adwaita-icon-theme" ,adwaita-icon-theme)
 575        ("evolution-data-server" ,evolution-data-server)))
 576     (arguments
 577      `(#:tests? #f                      ; There is no testsuite.
 578        #:phases
 579        (modify-phases %standard-phases
 580          (add-after 'unpack 'change-directory
 581            (lambda _
 582              (chdir "client-gnome")
 583              #t)))))
 584     (synopsis "Distributed, privacy-respecting communication program")
 585     (description "Jami (formerly GNU Ring) is a secure and distributed voice,
 586 video and chat communication platform that requires no centralized server and
 587 leaves the power of privacy in the hands of the user.  It supports the SIP and
 588 IAX protocols, as well as decentralized calling using P2P-DHT.
 589
 590 This package provides the Jami client for the GNOME desktop.")
 591     (home-page "https://jami.net")
 592     (license license:gpl3+)))
 593
 594 (define-public jami-client-gnome
 595   (deprecated-package "jami-client-gnome" jami))