feat(anydesk): delete

This commit is contained in:
Pavel Korytov 2022-01-04 14:14:19 +03:00
parent 703faf029a
commit 927067d2f6
2 changed files with 1 additions and 120 deletions

View file

@ -13,7 +13,6 @@ I'll probably push what I can upstream when I figure Guix out.
| [[https://github.com/nikola-kocic/i3-switch-tabs][i3-switch-tabs]] | OK | |
| [[https://github.com/risacher/sunwait][sunwait]] | OK | Version number |
| [[https://github.com/alfredopalhares/openvpn-update-resolv-conf][openvpn-update-resolv-conf]] | OK | Just watch out for $PATH if launched from OpenVPN |
| [[https://anydesk.com/en][anydesk]] | OK | Installation from binaries; submitted to nonguix |
| [[https://github.com/fdw/rofimoji/][rofimoji]] | OK | But I had to create setup.py myself |
| [[https://github.com/deajan/osync][osync]] | Works | Requires shell commands as propagated-inputs |
| [[https://github.com/latex-lsp/texlab/][texlab]] | Works | Installation from binaries |
@ -27,3 +26,4 @@ I'll probably push what I can upstream when I figure Guix out.
| [[https://github.com/gauteh/lieer][lieer]] | Works | Tests fail for dependencies |
| [[https://activitywatch.net/][ActivityWatch]] | Works... | Except for aw-qt. Installation from binaries |
| [[https://github.com/yt-dlp/yt-dlp][yt-dlp]] | Removed | Removed in favour of the upstream definition |
| [[https://anydesk.com/en][anydesk]] | Removed | Pushed to nonguix |

View file

@ -1,119 +0,0 @@
(define-module (anydesk)
#:use-module (gnu packages compression)
#:use-module (gnu packages gcc)
#:use-module (gnu packages gtk)
#:use-module (gnu packages glib)
#:use-module (gnu packages gnome)
#:use-module (gnu packages gl)
#:use-module (gnu packages fontutils)
#:use-module (gnu packages polkit)
#:use-module (gnu packages pulseaudio)
#:use-module (gnu packages xorg)
#:use-module (guix download)
#:use-module (guix packages)
#:use-module (nonguix build-system binary)
#:use-module (nonguix licenses))
(define-public anydesk
(package
(name "anydesk")
(version "6.1.1")
(source (origin
(method url-fetch)
(uri (string-append "https://download.anydesk.com/linux/anydesk-" version "-amd64.tar.gz"))
(sha256
(base32
"1ai58fsivb8al1279bayl800qavy0kfj40rjhf87g902ap3p4bhh"))))
(build-system binary-build-system)
(arguments
`(#:validate-runpath? #f
#:strip-binaries? #f ;; For some reason it breaks the program
#:patchelf-plan
`(("anydesk" (
"atk"
"cairo"
"fontconfig"
"freetype"
"gcc:lib"
"gdk-pixbuf"
"glib"
"glu"
"gtk+"
"gtkglext"
"libice"
"libsm"
"libx11"
"libxcb"
"libxdamage"
"libxext"
"libxfixes"
"libxi"
"libxkbfile"
"libxmu"
"libxrandr"
"libxrender"
"libxsts"
"libxt"
"mesa"
"minizip"
"pango"
"pangox-compat"
"polkit"
"polkit-gnome"
"pulseaudio")))
#:install-plan
`(("anydesk" "/bin/")
("polkit-1/com.anydesk.anydesk.policy" "/etc/polkit-1/actions/")
("icons/" "/share/icons/"))
#:phases
(modify-phases %standard-phases
(replace 'unpack
(lambda* (#:key inputs #:allow-other-keys)
(invoke "tar" "-xvzf" (assoc-ref inputs "source") "--strip-components" "1")))
(add-after 'wrap-program 'install-desktop-entry
(lambda* (#:key outputs #:allow-other-keys)
(let* ((desktop-file "anydesk.desktop")
(out (assoc-ref outputs "out"))
(applications (string-append out "/share/applications")))
(substitute* desktop-file
(("^Exec=.*") (string-append "Exec=" out "/bin/anydesk\n"))
(("^Icon=.*") "Icon=anydesk\n"))
(install-file desktop-file applications))
#t)))))
(inputs
`(("atk" ,atk)
("cairo" ,cairo)
("fontconfig" ,fontconfig)
("freetype" ,freetype)
("gcc:lib" ,gcc "lib")
("gdk-pixbuf" ,gdk-pixbuf)
("glib" ,glib)
("glu" ,glu)
("gtk+" ,gtk+-2)
("gtkglext" ,gtkglext)
("libice" ,libice)
("libsm" ,libsm)
("libx11" ,libx11)
("libxcb" ,libxcb)
("libxdamage" ,libxdamage)
("libxext" ,libxext)
("libxfixes" ,libxfixes)
("libxi" ,libxi)
("libxkbfile" ,libxkbfile)
("libxmu" ,libxmu)
("libxrandr" ,libxrandr)
("libxrender" ,libxrender)
("libxsts" ,libxtst)
("libxt" ,libxt)
("mesa" ,mesa)
("minizip" ,minizip)
("pango" ,pango)
("pangox-compat" ,pangox-compat)
("polkit" ,polkit)
("polkit-gnome" ,polkit-gnome)
("pulseaudio" ,pulseaudio)))
(synopsis "Remote Desktop Software")
(description "Connect to a computer remotely, be it from the other end of the office or halfway around the world. AnyDesk ensures secure and reliable remote desktop connections for IT professionals and on-the-go individuals alike.")
(home-page "https://anydesk.com/")
(license (nonfree "https://anydesk.com/en/terms"))))