mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2025-01-13 14:40:21 -05:00
gnu: Add gnome-shell-extension-gsconnect.
* gnu/packages/gnome-xyz.scm (gnome-shell-extension-gsconnect): New variable.
This commit is contained in:
Alex Griffin
Pierre Neidhardt
parent
b7d0590bb2
commit
fdd4813547
1 changed files with 99 additions and 0 deletions
|
|
@ -24,15 +24,20 @@ (define-module (gnu packages gnome-xyz)
|
|||
#:use-module (guix build-system trivial)
|
||||
#:use-module (guix build-system gnu)
|
||||
#:use-module (guix build-system copy)
|
||||
#:use-module (guix build-system meson)
|
||||
#:use-module (guix git-download)
|
||||
#:use-module (guix packages)
|
||||
#:use-module ((guix licenses) #:prefix license:)
|
||||
#:use-module (gnu packages base)
|
||||
#:use-module (gnu packages bash)
|
||||
#:use-module (gnu packages gettext)
|
||||
#:use-module (gnu packages glib)
|
||||
#:use-module (gnu packages gnome)
|
||||
#:use-module (gnu packages gtk)
|
||||
#:use-module (gnu packages pkg-config)
|
||||
#:use-module (gnu packages python-xyz)
|
||||
#:use-module (gnu packages ssh)
|
||||
#:use-module (gnu packages tls)
|
||||
#:use-module (gnu packages ruby)
|
||||
#:use-module (gnu packages xml))
|
||||
|
||||
|
|
@ -188,6 +193,100 @@ (define-public gnome-shell-extension-dash-to-dock
|
|||
(home-page "https://micheleg.github.io/dash-to-dock/")
|
||||
(license license:gpl2+)))
|
||||
|
||||
(define-public gnome-shell-extension-gsconnect
|
||||
(package
|
||||
(name "gnome-shell-extension-gsconnect")
|
||||
;; v28 is the last version to support GNOME 3.32
|
||||
(version "28")
|
||||
(source (origin
|
||||
(method git-fetch)
|
||||
(uri (git-reference
|
||||
(url (string-append "https://github.com/andyholmes"
|
||||
"/gnome-shell-extension-gsconnect.git"))
|
||||
(commit (string-append "v" version))))
|
||||
(file-name (git-file-name name version))
|
||||
(sha256
|
||||
(base32
|
||||
"0grqkzqm7mlkbzin4nx9w7bh5cgygph8pn0cvim4a4gg99nfcp5z"))))
|
||||
(build-system meson-build-system)
|
||||
(arguments
|
||||
`(#:configure-flags
|
||||
(let* ((out (assoc-ref %outputs "out"))
|
||||
(name+version (strip-store-file-name out))
|
||||
(gschema-dir (string-append out
|
||||
"/share/gsettings-schemas/"
|
||||
name+version
|
||||
"/glib-2.0/schemas"))
|
||||
(gnome-shell (assoc-ref %build-inputs "gnome-shell"))
|
||||
(openssh (assoc-ref %build-inputs "openssh"))
|
||||
(openssl (assoc-ref %build-inputs "openssl")))
|
||||
(list
|
||||
(string-append "-Dgnome_shell_libdir=" gnome-shell "/lib")
|
||||
(string-append "-Dgsettings_schemadir=" gschema-dir)
|
||||
(string-append "-Dopenssl_path=" openssl "/bin/openssl")
|
||||
(string-append "-Dsshadd_path=" openssh "/bin/ssh-add")
|
||||
(string-append "-Dsshkeygen_path=" openssh "/bin/ssh-keygen")
|
||||
(string-append "-Dsession_bus_services_dir=" out "/share/dbus-1/services")
|
||||
"-Dpost_install=true"))
|
||||
#:phases
|
||||
(modify-phases %standard-phases
|
||||
(add-before 'configure 'fix-paths
|
||||
(lambda* (#:key inputs #:allow-other-keys)
|
||||
(let* ((glib (assoc-ref inputs "glib:bin"))
|
||||
(gapplication (string-append glib "/bin/gapplication"))
|
||||
(gi-typelib-path (getenv "GI_TYPELIB_PATH")))
|
||||
(substitute* "data/org.gnome.Shell.Extensions.GSConnect.desktop"
|
||||
(("gapplication") gapplication))
|
||||
(for-each
|
||||
(lambda (file)
|
||||
(substitute* file
|
||||
(("'use strict';")
|
||||
(string-append "'use strict';\n\n"
|
||||
"'" gi-typelib-path "'.split(':').forEach("
|
||||
"path => imports.gi.GIRepository.Repository."
|
||||
"prepend_search_path(path));"))))
|
||||
'("src/extension.js" "src/prefs.js"))
|
||||
#t)))
|
||||
(add-after 'install 'wrap-daemons
|
||||
(lambda* (#:key inputs outputs #:allow-other-keys)
|
||||
(let* ((out (assoc-ref outputs "out"))
|
||||
(service-dir
|
||||
(string-append out "/share/gnome-shell/extensions"
|
||||
"/gsconnect@andyholmes.github.io/service"))
|
||||
(gi-typelib-path (getenv "GI_TYPELIB_PATH")))
|
||||
(wrap-program (string-append service-dir "/daemon.js")
|
||||
`("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path)))
|
||||
#t))))))
|
||||
(inputs
|
||||
`(("at-spi2-core" ,at-spi2-core)
|
||||
("caribou" ,caribou)
|
||||
("evolution-data-server" ,evolution-data-server)
|
||||
("folks" ,folks)
|
||||
("gjs" ,gjs)
|
||||
("glib" ,glib)
|
||||
("glib:bin" ,glib "bin")
|
||||
("gsound" ,gsound)
|
||||
("gnome-shell" ,gnome-shell)
|
||||
("gtk+" ,gtk+)
|
||||
("nautilus" ,nautilus)
|
||||
("openssh" ,openssh)
|
||||
("openssl" ,openssl)
|
||||
("python-nautilus" ,python-nautilus)
|
||||
("python-pygobject" ,python-pygobject)
|
||||
("upower" ,upower)))
|
||||
(native-inputs
|
||||
`(("gettext" ,gettext-minimal)
|
||||
("gobject-introspection" ,gobject-introspection)
|
||||
("libxml2" ,libxml2)
|
||||
("pkg-config" ,pkg-config)))
|
||||
(home-page "https://github.com/andyholmes/gnome-shell-extension-gsconnect/wiki")
|
||||
(synopsis "Connect GNOME Shell with your Android phone")
|
||||
(description "GSConnect is a complete implementation of KDE Connect
|
||||
especially for GNOME Shell, allowing devices to securely share content, like
|
||||
notifications or files, and other features like SMS messaging and remote
|
||||
control.")
|
||||
(license license:gpl2)))
|
||||
|
||||
(define-public gnome-shell-extension-hide-app-icon
|
||||
(let ((commit "4188aa5f4ba24901a053a0c3eb0d83baa8625eab")
|
||||
(revision "0"))
|
||||
|
|
|
|||
Loading…
Reference in a new issue