;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2021 Raghav Gururajan <rg@raghavgururajan.name>
;;;
;;; 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 telegram)
  #:use-module (gnu packages)
  #:use-module (gnu packages aidc)
  #:use-module (gnu packages audio)
  #:use-module (gnu packages base)
  #:use-module (gnu packages check)
  #:use-module (gnu packages compression)
  #:use-module (gnu packages cpp)
  #:use-module (gnu packages digest)
  #:use-module (gnu packages fcitx)
  #:use-module (gnu packages fcitx5)
  #:use-module (gnu packages gcc)
  #:use-module (gnu packages glib)
  #:use-module (gnu packages gtk)
  #:use-module (gnu packages image)
  #:use-module (gnu packages language)
  #:use-module (gnu packages libreoffice)
  #:use-module (gnu packages linux)
  #:use-module (gnu packages lxqt)
  #:use-module (gnu packages pkg-config)
  #:use-module (gnu packages pulseaudio)
  #:use-module (gnu packages python)
  #:use-module (gnu packages qt)
  #:use-module (gnu packages telephony)
  #:use-module (gnu packages tls)
  #:use-module (gnu packages video)
  #:use-module (gnu packages xiph)
  #:use-module (gnu packages xorg)
  #:use-module ((guix licenses) #:prefix license:)
  #:use-module (guix packages)
  #:use-module (guix git-download)
  #:use-module (guix build-system cmake))

(define-public tdesktop
  (package
    (name "tdesktop")
    (version "2.5.1")
    (source
     (origin
       (method git-fetch)
       (uri
        (git-reference
         (url "https://github.com/telegramdesktop/tdesktop.git")
         (commit
          (string-append "v" version))))
       (file-name
        (git-file-name name version))
       (sha256
        (base32 "0drirhkr9gnm1g03lcqmvap5ljlk859c29gbsm63hhsgv15dlw0y"))))
    (build-system cmake-build-system)
    (arguments
     `(#:configure-flags
       (list
        "-DTDESKTOP_API_ID=17349"
        "-DTDESKTOP_API_HASH=344583e45741c457fe1862106095a5eb")
       #:phases
       (modify-phases %standard-phases
         (add-after 'unpack 'make-writable
           (lambda _
             (for-each make-file-writable
                       (find-files "."))
             #t))
         (add-after 'make-writable 'copy-inputs
           (lambda* (#:key inputs outputs #:allow-other-keys)
             (let* ((to (getcwd))
                    (cmake_helpers (assoc-ref inputs "cmake_helpers"))
                    (codegen (assoc-ref inputs "codegen"))
                    (lib_base (assoc-ref inputs "lib_base"))
                    (lib_crl (assoc-ref inputs "lib_crl"))
                    (lib_lottie (assoc-ref inputs "lib_lottie"))
                    (lib_qr (assoc-ref inputs "lib_qr"))
                    (lib_rlottie (assoc-ref inputs "lib_rlottie"))
                    (lib_rpl (assoc-ref inputs "lib_rpl"))
                    (lib_spellcheck (assoc-ref inputs "lib_spellcheck"))
                    (lib_storage (assoc-ref inputs "lib_storage"))
                    (lib_tl (assoc-ref inputs "lib_tl"))
                    (lib_ui (assoc-ref inputs "lib_ui"))
                    (lib_webrtc (assoc-ref inputs "lib_webrtc"))
                    (tgcalls (assoc-ref inputs "tgcalls")))
               (copy-recursively cmake_helpers (string-append to "/cmake"))
               (copy-recursively codegen (string-append to "/Telegram/codegen"))
               (copy-recursively lib_base (string-append to "/Telegram/lib_base"))
               (copy-recursively lib_crl (string-append to "/Telegram/lib_crl"))
               (copy-recursively lib_lottie (string-append to "/Telegram/lib_lottie"))
               (copy-recursively lib_qr (string-append to "/Telegram/lib_qr"))
               (copy-recursively lib_rlottie (string-append to "/Telegram/lib_rlottie"))
               (copy-recursively lib_rpl (string-append to "/Telegram/lib_rpl"))
               (copy-recursively lib_spellcheck (string-append to "/Telegram/lib_spellcheck"))
               (copy-recursively lib_storage (string-append to "/Telegram/lib_storage"))
               (copy-recursively lib_tl (string-append to "/Telegram/lib_tl"))
               (copy-recursively lib_ui (string-append to "/Telegram/lib_ui"))
               (copy-recursively lib_webrtc (string-append to "/Telegram/lib_webrtc"))
               (copy-recursively tgcalls (string-append to "/Telegram/ThirdParty/tgcalls")))
             #t))
         (add-before 'configure 'patch-cxx-flags
           (lambda _
             (substitute* "cmake/options_linux.cmake"
               (("class-memaccess")
                "all"))
             #t)))))
    (native-inputs
     `(("cmake_helpers"
        ,(origin
           (method git-fetch)
           (uri
            (git-reference
             (url "https://github.com/desktop-app/cmake_helpers.git")
             (commit "a81345a")))
           (file-name
            (git-file-name "cmake_helpers" version))
           (sha256
            (base32 "0s5hxip68dmkaspjq6j30wx1r5v4prnrjza79hdbznz6i57a2248"))))
       ("gcc" ,gcc-9)
       ("glib:bin" ,glib "bin")
       ("gobject-introspection" ,gobject-introspection)
       ("gtk+:bin" ,gtk+ "bin")
       ("pkg-config" ,pkg-config)
       ("python" ,python-wrapper)
       ("qttools" ,qttools)))
    (inputs
     `(("alsa" ,alsa-lib)
       ("catch" ,catch-framework2)
       ("codegen"
        ,(origin
           (method git-fetch)
           (uri
            (git-reference
             (url "https://github.com/desktop-app/codegen.git")
             (commit "127968d")))
           (file-name
            (git-file-name "codegen" version))
           (sha256
            (base32 "036hzjrsk134ky62192nra43rsln5kh5gz20q1920s922661zky2"))))
       ("expected" ,libexpected)
       ("fcitx-qt5" ,fcitx-qt5)
       ("fcitx5-qt" ,fcitx5-qt)
       ("ffmpeg" ,ffmpeg)
       ("glib" ,glib)
       ("gsl" ,gsl)
       ("gtk+" ,gtk+)
       ("hime" ,hime)
       ("hunspell" ,hunspell)
       ("iconv" ,libiconv)
       ("lib_base"
        ,(origin
           (method git-fetch)
           (uri
            (git-reference
             (url "https://github.com/desktop-app/lib_base.git")
             (commit "81df0d0")))
           (file-name
            (git-file-name "lib_base" version))
           (sha256
            (base32 "0ikddprjnjvg0ic8jr2886xq0f18syp587q6z2kci9xmdnvjl217"))))
       ("lib_crl"
        ,(origin
           (method git-fetch)
           (uri
            (git-reference
             (url "https://github.com/desktop-app/lib_crl.git")
             (commit "16150bf")))
           (file-name
            (git-file-name "lib_crl" version))
           (sha256
            (base32 "0qhagdr26aqb9w7wnchcmk1j7ln28x3wbkkkm06b8h0mybksbj7q"))))
       ("lib_lottie"
        ,(origin
           (method git-fetch)
           (uri
            (git-reference
             (url "https://github.com/desktop-app/lib_lottie.git")
             (commit "fb40f37")))
           (file-name
            (git-file-name "lib_lottie" version))
           (sha256
            (base32 "1vq0mqxcrrv7akcqk9cl4mm61zw6dcfmy8adl0pcp49kynm64saw"))))
       ("lib_qr"
        ,(origin
           (method git-fetch)
           (uri
            (git-reference
             (url "https://github.com/desktop-app/lib_qr.git")
             (commit "92ce41a")))
           (file-name
            (git-file-name "lib_qr" version))
           (sha256
            (base32 "182939nv7xs9b3bgah3gl5y9hx5r59mabd2jw3z6717vc96qi2pj"))))
       ("lib_rlottie"
        ,(origin
           (method git-fetch)
           (uri
            (git-reference
             (url "https://github.com/desktop-app/lib_rlottie.git")
             (commit "0671bf7")))
           (file-name
            (git-file-name "lib_rlottie" version))
           (sha256
            (base32 "05qnza7j15356s8jq16pkbyp4zr586lssmd86lz5jq23lcb3raxv"))))
       ("lib_rpl"
        ,(origin
           (method git-fetch)
           (uri
            (git-reference
             (url "https://github.com/desktop-app/lib_rpl.git")
             (commit "e1b9639")))
           (file-name
            (git-file-name "lib_rpl" version))
           (sha256
            (base32 "1wvqazljd2kq1fxlj250jhjrig529499bym9p81dx33kh1l9dgss"))))
       ("lib_spellcheck"
        ,(origin
           (method git-fetch)
           (uri
            (git-reference
             (url "https://github.com/desktop-app/lib_spellcheck.git")
             (commit "1b540b3")))
           (file-name
            (git-file-name "lib_spellcheck" version))
           (sha256
            (base32 "0a7042h5zrdvgs7v153ral2dh1zj84di5yjcmgcry5k4s1im9di7"))))
       ("lib_storage"
        ,(origin
           (method git-fetch)
           (uri
            (git-reference
             (url "https://github.com/desktop-app/lib_storage.git")
             (commit "cbe5172")))
           (file-name
            (git-file-name "lib_storage" version))
           (sha256
            (base32 "045l5xsyagyz17gbhmmvl2miss4nb92p0dmza7yfs9pkg9gs0f87"))))
       ("lib_tl"
        ,(origin
           (method git-fetch)
           (uri
            (git-reference
             (url "https://github.com/desktop-app/lib_tl.git")
             (commit "404c83d")))
           (file-name
            (git-file-name "lib_tl" version))
           (sha256
            (base32 "1k34nkvvcjqw5q81n1qmklid60cvzjk4lmn9qjimk437m6wbii7f"))))
       ("lib_ui"
        ,(origin
           (method git-fetch)
           (uri
            (git-reference
             (url "https://github.com/desktop-app/lib_ui.git")
             (commit "1e27992")))
           (file-name
            (git-file-name "lib_ui" version))
           (sha256
            (base32 "0kd4njcvic2700f00qn25vn3b80vsd2flsm3pi2synnldkiy8lcw"))))
       ("lib_webrtc"
        ,(origin
           (method git-fetch)
           (uri
            (git-reference
             (url "https://github.com/desktop-app/lib_webrtc.git")
             (commit "4bc51d6")))
           (file-name
            (git-file-name "lib_webrtc" version))
           (sha256
            (base32 "06hpyq4qglrj3cb1xg8ghlmzm9ra8f5n6vm7hcy67n2wk8sy4cal"))))
       ("libdbusmenu-qt" ,libdbusmenu-qt)
       ("libjpeg" ,libjpeg-turbo)
       ("libtgvoip" ,libtgvoip)
       ("lz4" ,lz4)
       ("materialdecoration" ,materialdecoration)
       ("minizip" ,minizip)
       ("nimf" ,nimf)
       ("openal" ,openal)
       ("openssl" ,openssl)
       ("opus" ,opus)
       ("pulseaudio" ,pulseaudio)
       ("qrcodegen" ,qrcodegen-cpp)
       ("qt" ,qtbase)
       ("qt5ct" ,qt5ct)
       ("qtwayland" ,qtwayland)
       ("range-v3" ,range-v3)
       ("rlottie" ,rlottie)
       ("tg_owt" ,tg_owt)
       ("tgcalls"
        ,(origin
           (method git-fetch)
           (uri
            (git-reference
             (url "https://github.com/TelegramMessenger/tgcalls.git")
             (commit "178983f")))
           (file-name
            (git-file-name "tgcalls" version))
           (sha256
            (base32 "1xad65c9m6mj6zdj08flafvh8xjkd7xi9r1agcyc64y69lr427d0"))))
       ("x11" ,libx11)
       ("xcb" ,libxcb)
       ("xcb-keysyms" ,xcb-util-keysyms)
       ("xxhash" ,xxhash)
       ("zlib" ,zlib)))
    (synopsis "Telegram Desktop")
    (description "Tdesktop is the official desktop application for telegram
messenger.")
    (home-page "https://desktop.telegram.org/")
    (license license:gpl3+)))