;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2020 Alex ter Weele <alex.ter.weele@gmail.com>
;;; Copyright © 2020 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2020, 2021, 2022 Michael Rohleder <mike@rohleder.de>
;;; Copyright © 2020 Giacomo Leidi <goodoldpaul@autistici.org>
;;; Copyright © 2022 Aleksandr Vityazev <avityazev@posteo.org>
;;; Copyright © 2022 Morgan Smith <Morgan.J.Smith@outlook.com>
;;;
;;; 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 matrix)
  #:use-module ((guix licenses) #:prefix license:)
  #:use-module (gnu packages check)
  #:use-module (gnu packages crypto)
  #:use-module (gnu packages databases)
  #:use-module (gnu packages glib)
  #:use-module (gnu packages golang)
  #:use-module (gnu packages golang-check)
  #:use-module (gnu packages golang-web)
  #:use-module (gnu packages monitoring)
  #:use-module (gnu packages python-build)
  #:use-module (gnu packages python-check)
  #:use-module (gnu packages python-crypto)
  #:use-module (gnu packages python-web)
  #:use-module (gnu packages python-xyz)
  #:use-module (gnu packages syncthing)
  #:use-module (gnu packages video)
  #:use-module (gnu packages xml)
  #:use-module (guix build-system pyproject)
  #:use-module (guix build-system python)
  #:use-module (guix build-system go)
  #:use-module (guix download)
  #:use-module (guix gexp)
  #:use-module (guix git-download)
  #:use-module (guix packages))

(define-public go-maunium-net-go-mautrix
  (package
    (name "go-maunium-net-go-mautrix")
    (version "0.15.0")
    (source (origin
              (method git-fetch)
              (uri (git-reference
                    (url "https://github.com/mautrix/go")
                    (commit (string-append "v" version))))
              (file-name (git-file-name name version))
              (sha256
               (base32
                "0n71zaiir9kcrh5wkyx2h12lkr6h9srlfh3ikdzvjcw9rq2nc7dq"))))
    (build-system go-build-system)
    (arguments
     (list
      #:go go-1.19
      #:import-path "maunium.net/go/mautrix"))
    (propagated-inputs
     (list
      go-github-com-gorilla-mux
      go-github-com-lib-pq
      go-github-com-rs-zerolog
      go-github-com-stretchr-testify
      go-github-com-tidwall-gjson
      go-github-com-tidwall-sjson
      go-github-com-yuin-goldmark
      go-golang-org-x-crypto
      go-golang-org-x-net
      go-mau-fi-zeroconfig
      go-maunium-net-go-mauflag
      go-maunium-net-go-maulogger))
    (home-page "https://github.com/mautrix/go")
    (synopsis "A Golang Matrix framework")
    (description "A Golang Matrix framework.  In addition to the basic
client API features the original project has, this framework also has:
@itemize
@item Appservice support (Intent API like mautrix-python, room state
storage, etc)
@item End-to-end encryption support (incl. interactive SAS verification)
@item Structs for parsing event content
@item Helpers for parsing and generating Matrix HTML
@item Helpers for handling push rules
@end itemize")
    (license license:mpl2.0)))

(define-public mautrix-whatsapp
  (package
    (name "mautrix-whatsapp")
    (version "0.8.3")
    (source (origin
              (method git-fetch)
              (uri (git-reference
                    (url "https://github.com/mautrix/whatsapp")
                    (commit (string-append "v" version))))
              (file-name (git-file-name name version))
              (sha256
               (base32
                "1061fx06xk1mf1j1sbgyfcc5g1jkn5jpv56r04cj0gixd0lqlb5d"))))
    (build-system go-build-system)
    (arguments
     (list
      #:install-source? #f
      #:import-path "maunium.net/go/mautrix-whatsapp"
      #:go go-1.19
      #:phases
      #~(modify-phases %standard-phases
          (add-before 'build 'fix-symlinks
            (lambda _
              (delete-file-recursively "src/go.mau.fi/whatsmeow")
              (copy-recursively (string-append #$(this-package-input
                                                  "go-mau-fi-whatsmeow")
                                               "/src/go.mau.fi/whatsmeow")
                                (string-append (getenv "GOPATH")
                                               "/src/go.mau.fi/whatsmeow"))
              (delete-file-recursively
               "src/github.com/chai2010/webp")
              (copy-recursively
               (string-append #$(this-package-input
                                 "go-github-com-chai2010-webp")
                              "/src/github.com/chai2010/webp")
               (string-append (getenv "GOPATH")
                              "/src/github.com/chai2010/webp"))
              (delete-file-recursively
               "src/maunium.net/go/mautrix")
              (copy-recursively
               (string-append #$(this-package-input
                                 "go-maunium-net-go-mautrix")
                              "/src/maunium.net/go/mautrix")
               (string-append (getenv "GOPATH")
                              "/src/maunium.net/go/mautrix")))))))
    (native-inputs (list libolm ffmpeg))
    (propagated-inputs
     (list go-github-com-chai2010-webp
           go-github-com-gorilla-mux
           go-github-com-gorilla-websocket
           go-github-com-lib-pq
           go-github-com-mattn-go-sqlite3
           go-github-com-prometheus-client-golang
           go-github-com-skip2-go-qrcode
           go-github-com-tidwall-gjson
           go-github-com-tidwall-sjson
           go-github-com-yuin-goldmark
           go-golang-org-x-image
           go-golang-org-x-text
           go-google-golang-org-protobuf-proto
           go-gopkg-in-yaml-v2
           go-mau-fi-whatsmeow
           go-maunium-net-go-mauflag
           go-maunium-net-go-maulogger
           go-maunium-net-go-mautrix))
    (home-page "https://github.com/mautrix/whatsapp")
    (synopsis "A Matrix-WhatsApp puppeting bridge")
    (description "A Matrix-WhatsApp puppeting bridge based on
@code{whatsmeow}.")
    (license license:agpl3)))

(define-public python-matrix-client
  (package
    (name "python-matrix-client")
    (version "0.3.2")
    (source
     (origin
       (method url-fetch)
       (uri (pypi-uri "matrix-client" version))
       (sha256
        (base32
         "1mgjd0ymf9mvqjkvgx3xjhxap7rzdmpa21wfy0cxbw2xcswcrqyw"))))
    (build-system python-build-system)
    (propagated-inputs
     (list python-requests))
    (native-inputs
     (list python-pytest python-pytest-runner python-responses))
    (home-page
     "https://github.com/matrix-org/matrix-python-sdk")
    (synopsis "Client-Server SDK for Matrix")
    (description "This package provides client-server SDK for Matrix.")
    (license license:asl2.0)))

(define-public python-matrix-synapse-ldap3
  (package
    (name "python-matrix-synapse-ldap3")
    (version "0.1.4")
    (source
     (origin
       (method url-fetch)
       (uri (pypi-uri "matrix-synapse-ldap3" version))
       (sha256
        (base32
         "01bms89sl16nyh9f141idsz4mnhxvjrc3gj721wxh1fhikps0djx"))))
    (build-system python-build-system)
    (arguments
     ;; tests require synapse, creating a circular dependency.
     '(#:tests? #f
       #:phases (modify-phases %standard-phases
                  ;; Also, auth_provider.py attempts to import synapse.
                  (delete 'sanity-check))))
    (propagated-inputs
     (list python-twisted python-ldap3 python-service-identity))
    (home-page "https://github.com/matrix-org/matrix-synapse-ldap3")
    (synopsis "LDAP3 auth provider for Synapse")
    (description
     "This package allows Synapse to use LDAP as a password provider.
This lets users log in to Synapse with their username and password from
an LDAP server.")
    (license license:asl2.0)))

(define-public synapse
  (package
    (name "synapse")
    (version "1.29.0")
    (source (origin
              (method url-fetch)
              (uri (pypi-uri "matrix-synapse" version))
              (sha256
               (base32
                "0if2yhpz8psg0661401mvxznldbfhk2j9rhbs25jdaqm9jsv6907"))))
    (build-system python-build-system)
    ;; TODO Run tests with ‘PYTHONPATH=. trial3 tests’.
    (propagated-inputs
     (list python-simplejson ; not attested but required
           ;; requirements (synapse/python_dependencies.py)
           python-jsonschema
           python-frozendict
           python-unpaddedbase64
           python-canonicaljson
           python-signedjson
           python-pynacl
           python-idna
           python-service-identity
           python-twisted
           python-treq
           python-pyopenssl
           python-pyyaml
           python-pyasn1
           python-pyasn1-modules
           python-daemonize
           python-bcrypt
           python-pillow
           python-sortedcontainers
           python-pymacaroons
           python-msgpack
           python-phonenumbers
           python-six
           python-prometheus-client
           python-attrs
           python-netaddr
           python-jinja2
           python-bleach
           python-typing-extensions
           ;; conditional requirements (synapse/python_dependencies.py)
           ;;("python-hiredis" ,python-hiredis)
           python-matrix-synapse-ldap3
           python-psycopg2
           python-jinja2
           python-txacme
           python-pysaml2
           python-lxml
           python-packaging
           ;; sentry-sdk, jaeger-client, and opentracing could be included, but
           ;; all are monitoring aids and not essential.
           python-pyjwt))
    (native-inputs
     (list python-mock python-parameterized))
    (home-page "https://github.com/matrix-org/synapse")
    (synopsis "Matrix reference homeserver")
    (description "Synapse is a reference \"homeserver\" implementation of
Matrix from the core development team at matrix.org, written in
Python/Twisted.  It is intended to showcase the concept of Matrix and let
folks see the spec in the context of a codebase and let you run your own
homeserver and generally help bootstrap the ecosystem.")
    (license license:asl2.0)))

(define-public python-matrix-nio
  (package
    (name "python-matrix-nio")
    (version "0.20.2")
    (source
     (origin
       (method url-fetch)
       (uri (pypi-uri "matrix_nio" version))
       (sha256
        (base32 "110wg1grhqqgwvlgr98r2k8wxcggpj7lbdwmgkgmi2l7qj1vw3dm"))))
    (build-system pyproject-build-system)
    (arguments
     `(#:phases
       (modify-phases %standard-phases
         (add-after 'unpack 'relax-requirements
           (lambda _
             (substitute* "pyproject.toml"
               ;; Remove upper bounds of cachetool pin.
               (("cachetools (.*version = )\"\\^4" _ match)
                (string-append "cachetools " match
                               "\">=4")))))
         (add-before 'check 'install-tests
           (lambda* (#:key inputs outputs #:allow-other-keys)
             (copy-recursively (string-append
                                (assoc-ref inputs "tests") "/tests")
                               "tests")
             #t))
         (replace 'check
           (lambda* (#:key tests? inputs outputs #:allow-other-keys)
             (when tests?
               (add-installed-pythonpath inputs outputs)
               ;; FIXME: two tests fail, for unknown reasons
               (invoke "python" "-m" "pytest" "-vv" "tests" "-k"
                       (string-append
                        "not test_upload_binary_file_object "
                        "and not test_connect_wrapper"))))))))
    (native-inputs
     `(("python-pytest" ,python-pytest)
       ("python-poetry-core" ,python-poetry-core)
       ("python-hypothesis" ,python-hypothesis)
       ("python-faker" ,python-faker)
       ("python-pytest-aiohttp" ,python-pytest-aiohttp)
       ("python-pytest-asyncio" ,python-pytest-asyncio)
       ("python-aioresponses" ,python-aioresponses)
       ("python-pytest-benchmark" ,python-pytest-benchmark)
       ("tests"
        ;; The release on pypi comes without tests.  We can't build from this
        ;; checkout, though, because installation requires an invocation of
        ;; poetry.
        ,(origin
           (method git-fetch)
           (uri (git-reference
                 (url "https://github.com/poljar/matrix-nio.git")
                 (commit version)))
           (file-name (git-file-name name version))
           (sha256
            (base32
             "1rd90sk5yygxzvcs4qhzr80bch7d3xszyfjf99pn10xsj10mi752"))))))
    (propagated-inputs
     (list python-aiofiles
           python-aiohttp
           python-aiohttp-socks
           python-atomicwrites
           python-cachetools
           python-dataclasses
           python-future
           python-h11
           python-h2
           python-jsonschema
           python-logbook
           python-olm
           python-peewee
           python-pycryptodome
           python-unpaddedbase64))
    (home-page "https://github.com/poljar/matrix-nio")
    (synopsis
     "Python Matrix client library, designed according to sans I/O principles")
    (description
     "Matrix nio is a multilayered Matrix client library.  The underlying base
layer doesn't do any network IO on its own, but on top of that is a full
fledged batteries-included asyncio layer using aiohttp.")
    (license license:isc)))

(define-public pantalaimon
  (package
    (name "pantalaimon")
    (version "0.10.5")
    (source
     (origin
       (method git-fetch)
       (uri (git-reference
             (url "https://github.com/matrix-org/pantalaimon")
             (commit version)))
       (file-name (git-file-name name version))
       (sha256
        (base32
         "16ask8v00654q307c55q5gnm8hrj40gibpab5zl52v4i0bgl9j68"))))
    (build-system python-build-system)
    (arguments
     (list
      #:phases
      #~(modify-phases %standard-phases
          (add-after 'unpack 'downgrade-appdirs-requirement
            (lambda _
              (substitute* "setup.py"
                ;; FIXME: Remove this once appdirs is updated.
                ;; Upgrading python-appdirs requires rebuilting 3000+ packages,
                ;; when 1.4.4 is a simple maintenance fix from 1.4.3.
                (("appdirs >= 1.4.4") "appdirs >= 1.4.3"))))
          (add-after 'install 'install-doc
            (lambda _
              (with-directory-excursion "docs/man"
                (let ((man (string-append #$output "/share/man")))
                  (install-file "panctl.1" (string-append man "/man1"))
                  (install-file "pantalaimon.5" (string-append man "/man5"))
                  (install-file "pantalaimon.8" (string-append man "/man8"))))))
          (replace 'check
            (lambda* (#:key tests? inputs outputs #:allow-other-keys)
              (when tests?
                (add-installed-pythonpath inputs outputs)
                (invoke "pytest" "-vv" "tests")))))))
    (native-inputs
     (list python-aioresponses
           python-faker
           python-pytest
           python-pytest-aiohttp))
    (propagated-inputs
     (list python-aiohttp
           python-appdirs
           python-attrs
           python-cachetools
           python-click
           python-dbus
           python-janus
           python-keyring
           python-logbook
           python-matrix-nio
           python-notify2
           python-peewee
           python-prompt-toolkit
           python-pydbus
           python-pygobject))
    (home-page "https://github.com/matrix-org/pantalaimon")
    (synopsis "Matrix proxy daemon that adds E2E encryption capabilities")
    (description
     "Pantalaimon is an end-to-end encryption aware Matrix reverse proxy
daemon.  Pantalaimon acts as a good man in the middle that handles the
encryption for you.  Messages are transparently encrypted and decrypted for
clients inside of pantalaimon.")
    (license license:asl2.0)))