gnu: Add webrtc-for-telegram-desktop.
* gnu/packages/telegram.scm: New module. (webrtc-for-telegram-desktop): New variable. * gnu/local.mk (GNU_SYSTEM_MODULES): Add it. Signed-off-by: Leo Prikler <leo.prikler@student.tugraz.at>master
Raghav Gururajan
Leo Prikler
parent
6a3ec5c549
commit
a84399eddf
|
|
@ -535,6 +535,7 @@ GNU_SYSTEM_MODULES = \
|
|||
%D%/packages/task-management.scm \
|
||||
%D%/packages/tbb.scm \
|
||||
%D%/packages/tcl.scm \
|
||||
%D%/packages/telegram.scm \
|
||||
%D%/packages/telephony.scm \
|
||||
%D%/packages/terminals.scm \
|
||||
%D%/packages/terraform.scm \
|
||||
|
|
|
|||
|
|
@ -0,0 +1,144 @@
|
|||
;;; 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 assembly)
|
||||
#:use-module (gnu packages image)
|
||||
#:use-module (gnu packages linux)
|
||||
#:use-module (gnu packages pkg-config)
|
||||
#:use-module (gnu packages protobuf)
|
||||
#:use-module (gnu packages pulseaudio)
|
||||
#:use-module (gnu packages python)
|
||||
#:use-module (gnu packages tls)
|
||||
#:use-module (gnu packages video)
|
||||
#:use-module (gnu packages xiph)
|
||||
#:use-module ((guix licenses) #:prefix license:)
|
||||
#:use-module (guix packages)
|
||||
#:use-module (guix git-download)
|
||||
#:use-module (guix build-system cmake))
|
||||
|
||||
(define-public webrtc-for-telegram-desktop
|
||||
(let ((commit "fa86fcc00c218813d61a272a56feab55c76a1ab9")
|
||||
(revision "52"))
|
||||
(hidden-package
|
||||
(package
|
||||
(name "webrtc-for-telegram-desktop")
|
||||
(version
|
||||
(git-version "0" revision commit))
|
||||
(source
|
||||
(origin
|
||||
(method git-fetch)
|
||||
(uri
|
||||
(git-reference
|
||||
(url "https://github.com/desktop-app/tg_owt.git")
|
||||
(commit commit)))
|
||||
(file-name
|
||||
(git-file-name name version))
|
||||
(sha256
|
||||
(base32 "06gcrlym6vqqw7zlds9lpwyg37d5m81d87h16aps19v0v9gzan0l"))
|
||||
(modules '((guix build utils)
|
||||
(ice-9 ftw)
|
||||
(srfi srfi-1)))
|
||||
(snippet
|
||||
`(begin
|
||||
(let ((keep
|
||||
'( ;; Custom forks which are incompatible with the ones in Guix.
|
||||
"abseil-cpp" "libsrtp" "openh264" "rnnoise"
|
||||
;; Not available in Guix.
|
||||
"pffft" "usrsctp"
|
||||
;; Has cmake support files for libvpx input.
|
||||
"libvpx")))
|
||||
(with-directory-excursion "src/third_party"
|
||||
(for-each delete-file-recursively
|
||||
(lset-difference string=?
|
||||
(scandir ".")
|
||||
(cons* "." ".." keep))))
|
||||
#t)))))
|
||||
(build-system cmake-build-system)
|
||||
(arguments
|
||||
`(#:tests? #f ; No target
|
||||
#:configure-flags
|
||||
(list
|
||||
"-DCMAKE_C_FLAGS=-fPIC"
|
||||
"-DCMAKE_CXX_FLAGS=-fPIC")
|
||||
#:phases
|
||||
(modify-phases %standard-phases
|
||||
(add-after 'unpack 'copy-inputs
|
||||
(lambda* (#:key inputs outputs #:allow-other-keys)
|
||||
(let* ((libvpx-from (assoc-ref inputs "libvpx"))
|
||||
(libyuv-from (assoc-ref inputs "libyuv"))
|
||||
(libvpx-to (string-append (getcwd)
|
||||
"/src/third_party/libvpx/source/libvpx"))
|
||||
(libyuv-to (string-append (getcwd)
|
||||
"/src/third_party/libyuv")))
|
||||
(copy-recursively libvpx-from libvpx-to)
|
||||
(copy-recursively libyuv-from libyuv-to))
|
||||
#t)))))
|
||||
(native-inputs
|
||||
`(("pkg-config" ,pkg-config)
|
||||
("python" ,python-wrapper)
|
||||
("yasm" ,yasm)))
|
||||
(inputs
|
||||
`(("alsa" ,alsa-lib)
|
||||
("ffmpeg" ,ffmpeg)
|
||||
("libjpeg" ,libjpeg-turbo)
|
||||
("libvpx"
|
||||
,(origin
|
||||
(method git-fetch)
|
||||
(uri
|
||||
(git-reference
|
||||
(url "https://chromium.googlesource.com/webm/libvpx")
|
||||
(commit "5b63f0f821e94f8072eb483014cfc33b05978bb9")))
|
||||
(file-name
|
||||
(git-file-name "libvpx-for-webrtc-for-telegram-desktop" version))
|
||||
(sha256
|
||||
(base32 "1psvxaddihlw1k5n0anxif3qli6zyw2sa2ywn6mkb8six9myrp68"))))
|
||||
("libyuv"
|
||||
,(origin
|
||||
(method git-fetch)
|
||||
(uri
|
||||
(git-reference
|
||||
(url "https://chromium.googlesource.com/libyuv/libyuv")
|
||||
(commit "ad890067f661dc747a975bc55ba3767fe30d4452")))
|
||||
(file-name
|
||||
(git-file-name "libyuv-for-webrtc-for-telegram-desktop" version))
|
||||
(sha256
|
||||
(base32 "01knnk4h247rq536097n9n3s3brxlbby3nv3ppdgsqfda3k159ll"))))
|
||||
("openssl" ,openssl)
|
||||
("opus" ,opus)
|
||||
("protobuf" ,protobuf)
|
||||
("pulseaudio" ,pulseaudio)))
|
||||
(synopsis "WebRTC support for Telegram Desktop")
|
||||
(description "WebRTC-for-Telegram-Desktop is a custom WebRTC fork by
|
||||
Telegram project, for its use in telegram desktop client.")
|
||||
(home-page "https://github.com/desktop-app/tg_owt")
|
||||
(license
|
||||
(list
|
||||
;; Abseil-CPP
|
||||
license:asl2.0
|
||||
;; LibYuv
|
||||
(license:non-copyleft "file:///src/third_party/libyuv/LICENSE")
|
||||
;; OpenH264
|
||||
license:bsd-2
|
||||
;; PFFFT
|
||||
(license:non-copyleft "file:///src/third_party/pffft/LICENSE")
|
||||
;; RnNoise
|
||||
license:gpl3
|
||||
;; LibSRTP, LibVPx, UsrSCTP and Others
|
||||
license:bsd-3))))))
|
||||
Reference in New Issue