wangliu-iscas/guix-mirror
1
0
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2026-09-05 13:22:04 +00:00
Code Issues Packages Projects Releases Wiki Activity
Files
python-team
guix-mirror/gnu/packages/cinnamon.scm
T
Liliana Marie Prikler b9395ed1bb gnu: nemo: Update to 6.6.4. 
* gnu/packages/cinnamon.scm (nemo): Update to 6.6.4.
2026-08-01 11:08:34 +02:00

1002 lines
36 KiB
Scheme
Raw Permalink Blame History

;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2017 Nikita <nikita@n0.is>
;;; Copyright © 2018 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2019 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2022 florhizome <florhizome@posteo.net>
;;;
;;; 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 cinnamon)
#:use-module ((guix licenses) #:prefix license:)
#:use-module (guix packages)
#:use-module (guix download)
#:use-module (guix git-download)
#:use-module (guix gexp)
#:use-module (guix build utils)
#:use-module (guix utils)
#:use-module (guix build-system copy)
#:use-module (guix build-system gnu)
#:use-module (guix build-system meson)
#:use-module (guix build-system pyproject)
#:use-module (guix build-system trivial)
#:use-module (gnu packages)
#:use-module (gnu packages admin)
#:use-module (gnu packages autotools)
#:use-module (gnu packages base)
#:use-module (gnu packages bash)
#:use-module (gnu packages bootstrap)
#:use-module (gnu packages compression)
#:use-module (gnu packages cups)
#:use-module (gnu packages docbook)
#:use-module (gnu packages freedesktop)
#:use-module (gnu packages gcc)
#:use-module (gnu packages gettext)
#:use-module (gnu packages ghostscript)
#:use-module (gnu packages gl)
#:use-module (gnu packages glib)
#:use-module (gnu packages gstreamer)
#:use-module (gnu packages gtk)
#:use-module (gnu packages gnome)
#:use-module (gnu packages gnuzilla)
#:use-module (gnu packages ibus)
#:use-module (gnu packages iso-codes)
#:use-module (gnu packages kerberos)
#:use-module (gnu packages libcanberra)
#:use-module (gnu packages linux)
#:use-module (gnu packages nss)
#:use-module (gnu packages password-utils)
#:use-module (gnu packages perl)
#:use-module (gnu packages pkg-config)
#:use-module (gnu packages photo)
#:use-module (gnu packages polkit)
#:use-module (gnu packages pulseaudio)
#:use-module (gnu packages python)
#:use-module (gnu packages python-build)
#:use-module (gnu packages python-web)
#:use-module (gnu packages python-xyz)
#:use-module (gnu packages readline)
#:use-module (gnu packages samba)
#:use-module (gnu packages time)
#:use-module (gnu packages tls)
#:use-module (gnu packages web)
#:use-module (gnu packages window-management)
#:use-module (gnu packages xdisorg)
#:use-module (gnu packages xml)
#:use-module (gnu packages xorg))
(define-public libadapta
(package
(name "libadapta")
(version "1.5.0")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/xapp-project/libadapta")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32
"07zl1wswvqqxana1x59dxhpbm2biqn06jr5z0qvg03hdyh7isp2d"))))
(build-system meson-build-system)
(arguments
`(#:phases
(modify-phases %standard-phases
(add-before 'check 'pre-check
(lambda* (#:key inputs #:allow-other-keys)
;; Tests require a running X server.
(system "Xvfb :1 &")
(setenv "DISPLAY" ":1"))))))
(native-inputs
(list gettext-minimal
`(,glib "bin")
gobject-introspection
gtk-doc/stable
pkg-config
sassc
vala
xorg-server-for-tests))
(propagated-inputs
(list appstream gtk))
(home-page "https://github.com/xapp-project/libadapta")
(synopsis "Building blocks for GTK-based applications")
(description
"@code{libadapta} is a soft fork of @code{libadwaita}, providing support
for theming and features used in desktop environments outside of GNOME.")
(license license:lgpl2.1+)))
(define-public libxapp
(package
(name "libxapp")
(version "3.2.2")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/linuxmint/xapp/")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32
"1gvg6i0mg3hd8brz3di3qnx59h20sr8rs6maqkxab8p4msn8hlf5"))))
(build-system meson-build-system)
(arguments
(list
#:modules
`((guix build meson-build-system)
(guix build utils)
((guix build pyproject-build-system) #:prefix py:))
#:imported-modules
(append %meson-build-system-modules
%pyproject-build-system-modules)
#:configure-flags
#~(list (string-append
"-Dpy-overrides-dir="
(py:site-packages %build-inputs %outputs) "/gi/overrides"))
#:phases
#~(modify-phases %standard-phases
(add-before 'configure 'set-gtk-module-path
(lambda* (#:key inputs outputs #:allow-other-keys)
(define (string-quote str)
(format #f "'~a'" str))
(substitute* "libxapp/meson.build"
(("gtk3_dep\\.get_variable[(]pkgconfig: 'libdir'[)]")
(string-quote (string-append #$output "/lib"))))
(substitute* "scripts/pastebin"
(("'nc'")
(string-quote (search-input-file inputs "/bin/nc"))))
(substitute* "scripts/upload-system-info"
(("'inxi'")
(string-quote (search-input-file inputs "/bin/inxi")))
(("'/usr/bin/pastebin'")
(string-quote (string-append #$output "/bin/pastebin")))
(("'xdg-open'")
(string-quote (search-input-file inputs
"/bin/xdg-open")))))))))
(inputs
(list dbus
glib ; for gio
gtk+
inxi-minimal ; used by upload-system-info
libdbusmenu
libgnomekbd
netcat ; used by pastebin
xdg-utils)) ; used by upload-system-info
(native-inputs
(list gettext-minimal
`(,glib "bin") ; for glib-mkenums
gobject-introspection
pkg-config
python
python-pygobject
vala))
(home-page "https://github.com/linuxmint/xapp")
(synopsis "Library for traditional GTK applications")
(description
"The libxapp package contains the components which are common to multiple
GTK desktop environments (Cinnamon, MATE and Xfce) and required to implement
cross-DE solutions.")
(license license:lgpl3+)))
(define-public python-xapp
(package
(name "python-xapp")
(version "3.0.3")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/linuxmint/python3-xapp")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32 "0prs8cvj70wsmzwdx12impmkfhk9ydw4r88cpz2zz0sl5776d7i8"))))
(build-system meson-build-system)
(arguments (list #:tests? #f)) ; no tests provided
(native-inputs
(list gobject-introspection
intltool
python-wrapper))
(inputs
(list libxapp))
(propagated-inputs
(list python-configobj
python-distutils-extra
python-pycairo
python-pygobject
python-pyinotify
python-pyxdg
python-setproctitle
python-setuptools
python-unidecode
python-xdg-base-dirs
python-xlib))
(home-page "https://github.com/linuxmint/python3-xapp")
(synopsis "Python 3 XApp library")
(description
"Provides Python 3 bindings for libxapp, including a toolkit to build and
persist XApp settings windows using GSettings.")
(license license:lgpl2.0+)))
(define-public timezonemap
(package
(name "timezonemap")
(version "0.4.5.4")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://codeberg.org/dashea/timezonemap")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32 "0fkyqqyl4fwq3yz347ha69wiljz5bv1w4jg9mvz6xj20zhmzc1yw"))))
(build-system gnu-build-system)
(native-inputs (list autoconf
automake
`(,glib "bin")
gobject-introspection
libtool
pkg-config))
(inputs (list gtk+ libsoup json-glib librsvg))
(home-page "https://codeberg.org/dashea/timezonemap/")
(synopsis "Standalone copy of GNOME 3.0's datetime panel")
(description "This package provides a standalone copy of the datetime
panel used in GNOME 3.0's control center.")
(license license:gpl2+)))
(define-public cjs
(package
(name "cjs")
(version "128.1")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/linuxmint/cjs")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32
"1dcaw0ij8nm5xmpbdbvalm12c9iw6mwq3nj34m9h17qfl4a37730"))
(modules '((guix build utils)))
(snippet
'(begin
(substitute* "installed-tests/scripts/testCommandLine.sh"
(("Valentín") "")
(("☭") ""))))))
(build-system meson-build-system)
(arguments
'(#:configure-flags '("-Dinstalled_tests=false")
#:phases
(modify-phases %standard-phases
(add-before 'check 'pre-check
(lambda _
;; The test suite requires a running X server.
(system "Xvfb :1 &")
(setenv "DISPLAY" ":1")
;; For the missing /etc/machine-id.
(setenv "DBUS_FATAL_WARNINGS" "0")))
(add-after 'install 'wrap-gi
(lambda* (#:key inputs outputs #:allow-other-keys)
(wrap-program (string-append (assoc-ref outputs "out")
"/bin/cjs")
`("GI_TYPELIB_PATH" suffix
(,(dirname
(search-input-file
inputs
"lib/girepository-1.0/GObject-2.0.typelib"))
,(dirname
(search-input-file
inputs
"lib/girepository-1.0/GIRepository-2.0.typelib"))))))))))
(native-inputs
(list `(,glib "bin") ;for glib-compile-resources
pkg-config
libxml2
;; For testing
dbus
dconf ;required to properly store settings
util-linux
xorg-server-for-tests))
(propagated-inputs
;; These are all in the Requires.private field of cjs-1.0.pc.
;; Check the version of mozjs required in meson.build.
(list cairo gobject-introspection mozjs-128))
(inputs
(list gtk+ readline))
(synopsis "Javascript bindings for Cinnamon")
(home-page "https://github.com/linuxmint/cjs/")
(description
"CJS is a javascript binding for Cinnamon, forked from GJS.")
(license license:gpl2+)))
(define-public cinnamon-control-center
(package
(name "cinnamon-control-center")
(version "6.6.0")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/linuxmint/cinnamon-control-center")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32
"1425fq7nbaf46ch133mf555spl96k664rgd7w802x22v66sz0d2f"))))
(build-system meson-build-system)
(arguments
(list
#:glib-or-gtk? #t
#:phases
#~(modify-phases %standard-phases
(add-before 'configure 'patch-paths
(lambda* (#:key inputs #:allow-other-keys)
(substitute* '("panels/network/net-device-mobile.c"
"panels/network/connection-editor/net-connection-editor.c")
(("\"nm-connection-editor")
(string-append "\"" (search-input-file
inputs "bin/nm-connection-editor"))))))
(add-after 'unpack 'skip-gtk-update-icon-cache
;; Don't create 'icon-theme.cache'.
(lambda _
(substitute* "meson.build"
(("gtk_update_icon_cache: true")
"gtk_update_icon_cache: false"))))
(replace 'check
(lambda* (#:key parallel-tests? tests? #:allow-other-keys)
(when tests?
;; Tests require a running X server.
(system "Xvfb :1 &")
(setenv "DISPLAY" ":1")
;; For the missing /var/lib/dbus/machine-id
(setenv "DBUS_FATAL_WARNINGS" "0")
(setenv "NO_AT_BRIDGE" "1")
(setenv "HOME" "/tmp")
(setenv "XDG_RUNTIME_DIR" (string-append (getcwd) "/runtime-dir"))
(mkdir (getenv "XDG_RUNTIME_DIR"))
(chmod (getenv "XDG_RUNTIME_DIR") #o700)
(setenv "MESON_TESTTHREADS"
(if parallel-tests?
(number->string (parallel-job-count))
"1"))
(invoke "dbus-run-session" "--"
"meson" "test" "-t" "0")))))))
(native-inputs
(list docbook-xsl
gettext-minimal
`(,glib "bin") ;for glib-mkenums, etc.
libxslt
pkg-config
python
python-dbusmock
xorg-server-for-tests
setxkbmap))
(inputs
(list accountsservice
cinnamon-desktop
cinnamon-menus
cinnamon-settings-daemon
colord-gtk
cups
dconf
gcr
gnome-bluetooth
gnome-online-accounts
gnome-session
gnutls
grilo
gsound
ibus
iso-codes
json-glib
libadwaita
libgnomekbd
libgudev
libgtop
libnma
libnotify
libpwquality
(librsvg-for-system) ;for loading SVG files
libsecret
libsoup
libxml2
libwacom
mesa
mit-krb5
modem-manager
network-manager-applet
polkit
pulseaudio
samba
tecla
tzdata
udisks
upower))
(synopsis "Utilities to configure the GNOME desktop")
(home-page "https://www.gnome.org/")
(description
"This package contains configuration applets for the GNOME desktop,
allowing to set accessibility configuration, desktop fonts, keyboard and mouse
properties, sound setup, desktop theme and background, user interface
properties, screen resolution, and other GNOME parameters.")
(license license:gpl2+)))
(define-public cinnamon-desktop
(package
(name "cinnamon-desktop")
(version "6.6.2")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/linuxmint/cinnamon-desktop")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32
"0fd217w90j7kaxh7w6w7ajp6ca31wiv594564h0gbfnam7shki81"))))
(build-system meson-build-system)
(arguments
(list
#:glib-or-gtk? #true
#:configure-flags #~(list "-Dalsa=true")))
(inputs
(list accountsservice
alsa-lib
eudev
glib
gnome-common
gtk+
iso-codes
libxrandr
libxext
pulseaudio
xkeyboard-config))
(propagated-inputs (list libxkbfile))
(native-inputs
(list gettext-minimal
`(,glib "bin") ;glib-gettextize
gobject-introspection
pkg-config))
(home-page "https://github.com/linuxmint/cinnamon-desktop/")
(synopsis "Library for the Cinnamon Desktop")
(description
"The cinnamon-desktop package contains the libcinnamon-desktop library,
as well as some desktop-wide documents.")
(license (list license:gpl2+ license:lgpl2.0+
license:expat)))) ;display-name.c , edid-parse.c
(define-public cinnamon-menus
(package
(name "cinnamon-menus")
(version "6.6.0")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/linuxmint/cinnamon-menus")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32
"080dsaar27cfwn4ilhzd5vjcl4hbn4dvr9kqr9b44ik6acy1cf5y"))))
(build-system meson-build-system)
(inputs (list glib))
(native-inputs
(list gettext-minimal gobject-introspection pkg-config))
(synopsis "Menu support for Cinnamon desktop")
(description "Cinnamon Menus contains the libcinnamon-menu library,
the layout configuration files for the Cinnamon menu, as well as a simple
menu editor.")
(home-page "https://github.com/linuxmint/cinnamon-menus")
(license license:lgpl2.0+)))
(define-public cinnamon-screensaver
(package
(name "cinnamon-screensaver")
(version "6.6.1")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/linuxmint/cinnamon-screensaver")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32 "1n8fg4p036v3wgx21pxxcjwn620nfjg2fplznc5jfknwi9qggb9l"))))
(build-system meson-build-system)
(inputs (list gtk+
linux-pam
xdotool))
(native-inputs
(list gettext-minimal `(,glib "bin") gobject-introspection pkg-config))
(home-page "https://github.com/linuxmint/cinnamon-screensaver")
(synopsis "Cinnamon Screensaver")
(description "This package provides the Cinnamon screen locker and
screensaver program.")
(license license:gpl2+)))
(define-public cinnamon-session
(package
(name "cinnamon-session")
(version "6.6.4")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/linuxmint/cinnamon-session")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32 "0kb10aq1m1pyignqhl56svs68a2za1fq0wc38pklpxnh2nsgw7mg"))))
(build-system meson-build-system)
(inputs (list cinnamon-desktop
glib
gtk+
libcanberra
libgnomekbd
libsm
libxapp
libxkbfile
xtrans))
(native-inputs
(list gettext-minimal `(,glib "bin") gobject-introspection pkg-config))
(home-page "https://github.com/linuxmint/cinnamon-session")
(synopsis "Cinnamon session manager")
(description "his package contains the Cinnamon session manager,
as well as a configuration program to choose applications starting on login.")
(license license:gpl2+)))
(define-public cinnamon-settings-daemon
(package
(name "cinnamon-settings-daemon")
(version "6.6.4")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/linuxmint/cinnamon-settings-daemon")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32
"0mng9wx0a64gwfb7hjxfxxc865kkwav20rf6sjhas2xzszvd7nnd"))))
(build-system meson-build-system)
(arguments
(list
#:glib-or-gtk? #t
#:configure-flags
#~(list ;; Otherwise, the RUNPATH will lack the final path component.
(string-append "-Dc_link_args=-Wl,-rpath=" #$output
"/lib/cinnamon-settings-daemon-3.0:"
;; Also add NSS because for some reason Meson
;; > 0.60 does not add it automatically (XXX).
(search-input-directory %build-inputs "lib/nss")))
#:phases
#~(modify-phases %standard-phases
(add-before 'configure 'set-baobab-file-name
(lambda* (#:key inputs #:allow-other-keys)
;; Hard-code the file name of Baobab instead of looking
;; it up in $PATH. This ensures users get the "Examine"
;; button in the low disk space notification of CDM even
;; if they don't have Cinnamon in their main profile.
(substitute* "plugins/housekeeping/csd-disk-space.c"
(("g_find_program_in_path \\(DISK_SPACE_ANALYZER\\)")
(format #f "g_strdup (~s)"
(search-input-file inputs "bin/baobab"))))))
(add-after 'unpack 'skip-update-icon-cache
(lambda _
(substitute* "install-scripts/meson_update_icon_cache.py"
(("gtk-update-icon-cache") "true")))))))
(native-inputs
(list docbook-xml-4.2
docbook-xsl
gettext-minimal
`(,glib "bin") ;for glib-mkenums
libxslt
perl
pkg-config))
(inputs
(list alsa-lib
baobab
cinnamon-desktop
colord
cups
gcr
geoclue
geocode-glib
gsettings-desktop-schemas
lcms
libcanberra
libgnomekbd
libgudev
libgweather
libnotify
(librsvg-for-system)
libwacom
libx11
libxtst
modem-manager
network-manager
nss
polkit
pulseaudio
upower
wayland
xf86-input-wacom))
(home-page "https://github.com/linuxmint/cinnamon-settings-daemon")
(synopsis "Cinnamon settings daemon")
(description
"This package contains the daemon responsible for setting the various
parameters of a Cinnamon session and the applications that run under it. It
handles settings such keyboard layout, shortcuts, and accessibility, clipboard
settings, themes, mouse settings, and startup of other daemons.")
(license license:gpl2+)))
(define-public cinnamon-translations
(package
(name "cinnamon-translations")
(version "6.6.2")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/linuxmint/cinnamon-translations")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32 "0kmiqlhk4243pqcsg7d45dvs439dap040gwfpm9xn56hibsicz0c"))))
(build-system copy-build-system)
(arguments
(list
#:install-plan #~`(("usr/share/locale" "share/locale"))
#:phases #~(modify-phases %standard-phases
(add-before 'install 'build
(lambda _ (invoke "make"))))))
(native-inputs (list gettext-minimal gnu-make))
(home-page "https://github.com/linuxmint/cinnamon-translations")
(synopsis "Translations for cinnamon")
(description "This package provides translation files for cinnamon and
related packages.")
(license license:gpl2+)))
(define-public cinnamon
(package
(name "cinnamon")
(version "6.6.8")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/linuxmint/cinnamon")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32
"0g3n9aiyidi2fhjh8h3i2lb3gpif5kr2igsmzjvjzlvqapcyf8q7"))))
(build-system meson-build-system)
(arguments
(list
#:glib-or-gtk? #true
#:imported-modules `((guix build python-build-system)
,@%meson-build-system-modules)
#:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'patch-install
(lambda* (#:key inputs #:allow-other-keys)
(substitute* "meson.build"
(("install_dir: '/',") "install_dir: prefix,"))
(substitute* "install-scripts/meson_update_icon_cache.py"
(("gtk-update-icon-cache") "true"))
(substitute* (append (find-files "files/usr/bin")
(find-files "files/usr/share" "\\.py$"))
((".*octopi.*") "")
(("\"gsettings")
(string-append "\""
(search-input-file inputs "bin/gsettings")))
(("/usr/bin/passwd") "passwd")
(("/usr/bin/([a-z_-]*)" all command)
(if (string-prefix? "cinnamon" command)
(string-append #$output "/bin/" command)
(search-input-file inputs
(string-append "/bin/" command))))
(("/usr/share") (string-append #$output "/share")))
(rename-file "files/usr/bin" "files/bin")
(rename-file "files/usr/share" "files/share")
(rmdir "files/usr")
(substitute* "files/share/cinnamon/cinnamon-settings/bin/capi.py"
(("(f?)\"/usr/lib/([^\"]*)\"" all f lib)
(string-append f "\"/run/current-system/profile/lib/" lib "\","
f "\"/usr/lib/" lib "\"")))))
(add-after 'install 'add-install-to-pythonpath
(@@ (guix build python-build-system) add-install-to-pythonpath))
(add-after 'add-install-to-pythonpath 'wrap-for-python
(@@ (guix build python-build-system) wrap))
(add-after 'wrap-for-python 'wrap-gi
(lambda _
(define gi-typelib-path (getenv "GI_TYPELIB_PATH"))
(for-each
(lambda (program)
(unless (wrapped-program? program)
(wrap-program program
`("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path)))))
(find-files (string-append #$output "/bin"))))))))
(inputs (list cinnamon-control-center
cinnamon-desktop
cinnamon-menus
cjs
cups-minimal
gcr-3
gsound
gstreamer
libgnomekbd
libnotify
libsecret
libxapp
network-manager
muffin
polkit
python-wrapper
python-dbus
python-libsass
python-pam
python-pycairo
python-pexpect
python-pillow
python-psutil
python-pytz
python-pygobject
python-requests
python-setproctitle
python-tinycss2
python-xapp
python-xlrd
timezonemap
xdg-utils))
(native-inputs (list gettext-minimal
`(,glib "bin")
gobject-introspection
intltool
pkg-config))
(home-page "https://github.com/linuxmint/cinnamon/")
(synopsis "Graphical desktop environment")
(description
"Cinnamon is a desktop environment reminiscent of ye olde GNOME 2,
with its underlying technology forked from modern GNOME.")
(license (list license:gpl2+))))
(define-public muffin
(package
(name "muffin")
(version "6.6.3")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/linuxmint/muffin")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32
"1rf53mal8fzin3wnv1pfg3vvwd4i17mhk550j8zdp7b20qygmliw"))))
(build-system meson-build-system)
(arguments
(list
#:modules '((guix build meson-build-system)
(guix build utils)
(ice-9 match))
#:glib-or-gtk? #t
#:configure-flags
#~(list
;; Otherwise, the RUNPATH will lack the final path component.
(string-append "-Dc_link_args=-Wl,-rpath="
#$output "/lib,-rpath="
#$output "/lib/muffin")
;; Don't install tests.
"-Dinstalled_tests=false"
;; The following flags are needed for the bundled clutter
(string-append "-Dxwayland_path="
(search-input-file %build-inputs "bin/Xwayland"))
;; the remaining flags are needed for the bundled cogl
(string-append "-Dopengl_libname="
(search-input-file %build-inputs "lib/libGL.so"))
(string-append "-Dgles2_libname="
(search-input-file %build-inputs "lib/libGLESv2.so"))
"-Degl_device=true" ;false by default
"-Dwayland_eglstream=true" ;false by default
)
#:test-options #~(list "--verbose")
#:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'set-SOURCE_DIR
(lambda _
;; Just to make our life easier later.
(setenv "SOURCE_DIR" (getcwd))))
(add-after 'unpack 'use-RUNPATH-instead-of-RPATH
(lambda _
;; The build system disables RUNPATH in favor of RPATH to work
;; around a peculiarity of their CI system. Ignore that.
(substitute* "meson.build"
(("disable-new-dtags")
"enable-new-dtags"))))
(add-after 'unpack 'patch-dlopen-calls
(lambda* (#:key inputs #:allow-other-keys)
(substitute* "src/wayland/meta-wayland-egl-stream.c"
(("libnvidia-egl-wayland.so.1")
(search-input-file inputs "lib/libnvidia-egl-wayland.so.1")))))
(add-before 'configure 'set-udev-dir
(lambda _
(setenv "PKG_CONFIG_UDEV_UDEVDIR"
(string-append #$output "/lib/udev")))))))
(native-inputs
(list desktop-file-utils ;for update-desktop-database
`(,glib "bin") ;for glib-compile-schemas, etc.
gettext-minimal
gobject-introspection
pkg-config
xvfb-run
wayland-protocols
;; For tests.
;; Warnings are configured to be fatal during the tests; add an icon
;; theme to please libxcursor.
adwaita-icon-theme
libei
libxcursor ;for XCURSOR_PATH
pipewire
python
python-dbus
python-dbusmock
wireplumber-minimal))
(propagated-inputs
(list gsettings-desktop-schemas
at-spi2-core
cairo
eudev
gdk-pixbuf
glib
gtk+
graphene
json-glib
libinput
libx11
libxcomposite
libxcvt
libxdamage
libxext
libxfixes
libxkbcommon
libxml2
libxrandr
mesa
pango
xinput))
(inputs
(list colord
egl-wayland ;for wayland-eglstream-protocols
elogind
cinnamon-desktop
libcanberra
libdisplay-info
libgudev
libice
libsm
libwacom
libxkbfile
libxrandr
libxtst
pipewire
startup-notification
sysprof
upower
xkeyboard-config
xorg-server-xwayland))
(home-page "https://github.com/linuxmint/muffin")
(synopsis "Window and compositing manager")
(description
"Muffin is a fork of Mutter, specifically adapted to work as the
window manager for the Cinnamon desktop environment.")
(license license:gpl2+)))
(define-public nemo
(package
(name "nemo")
(version "6.6.4")
(source
(origin
(method git-fetch)
(uri
(git-reference
(url "https://github.com/linuxmint/nemo")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32 "00iq5jibqrx081b3c5pqa5ha3r3cs1d45l70q4fjfndbdnmyk2hx"))))
(build-system meson-build-system)
(arguments
(list
#:glib-or-gtk? #true
#:tests? #false ;tests stall
#:phases
#~(modify-phases %standard-phases
(add-after 'patch-source-shebangs 'adjust-prefix
(lambda _
(substitute* "meson.build"
(("'data_dir")
(string-append "'" #$output "/share")))))
(add-before 'check 'pre-check
(lambda _
(system "Xvfb :1 &")
(setenv "DISPLAY" ":1")
(setenv "HOME" "/tmp") ;some tests require a writable HOME
(setenv "XDG_DATA_DIRS"
(string-append (getenv "XDG_DATA_DIRS")
":" #$output "/share")))))))
(native-inputs
(list gettext-minimal
(list glib "bin")
gobject-introspection
(list gtk+ "bin")
intltool
pkg-config
xorg-server-for-tests))
(inputs
(list at-spi2-core
cinnamon-desktop
exempi
gsettings-desktop-schemas
gtk+
json-glib
libexif
libgnomekbd
libgsf
libnotify
libx11
libxapp
libxkbfile
libxml2
xkeyboard-config))
(home-page "https://github.com/linuxmint/nemo")
(synopsis "File browser for Cinnamon")
(description
"Nemo is the file manager for the Cinnamon desktop environment.")
(properties '((lint-hidden-cpe-vendors . ("nvidia"))))
(license license:expat)))
(define-public cinnamon-meta-shell
(package
(name "cinnamon-meta-shell")
(version (package-version cinnamon))
(source #f)
(build-system trivial-build-system)
(arguments
(list #:builder
#~(begin (format (current-warning-port)
"Building ~a is useless. \
Refer to its propagated inputs instead.\n"
#$(package-name this-package))
(mkdir #$output))))
(propagated-inputs (list cinnamon
cinnamon-control-center
cinnamon-desktop
cinnamon-menus
cinnamon-screensaver
cinnamon-session
cinnamon-settings-daemon
cinnamon-translations
cjs
muffin
nemo))
(home-page "https://projects.linuxmint.com/cinnamon/")
(synopsis "Graphical desktop environment")
(description
"Cinnamon is a desktop environment reminiscent of ye olde GNOME 2,
with its underlying technology forked from modern GNOME.")
(license license:gpl2+)))
Reference in New Issue View Git Blame Copy Permalink