guix/gnu/packages/cinnamon.scm

231 lines
8.0 KiB
Scheme

;;; 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 gnu)
#:use-module (guix build-system meson)
#:use-module (gnu packages)
#:use-module (gnu packages admin)
#:use-module (gnu packages autotools)
#:use-module (gnu packages freedesktop)
#:use-module (gnu packages gettext)
#:use-module (gnu packages glib)
#:use-module (gnu packages gtk)
#:use-module (gnu packages gnome)
#:use-module (gnu packages linux)
#:use-module (gnu packages pkg-config)
#:use-module (gnu packages photo)
#:use-module (gnu packages pulseaudio)
#:use-module (gnu packages python)
#:use-module (gnu packages xml)
#:use-module (gnu packages xorg))
(define-public libxapp
(package
(name "libxapp")
(version "2.4.3")
(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
"0n443lwmxzmfnw03n98cqnm2ah1iij6pwsnwbly8sncmzg5jyklg"))))
(build-system meson-build-system)
(arguments
(list
#:modules
`((guix build meson-build-system)
(guix build utils)
((guix build python-build-system) #:prefix python:))
#:imported-modules
`(,@%meson-build-system-modules
(guix build python-build-system))
#:configure-flags
#~(list (string-append
"-Dpy-overrides-dir="
(python: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)
(substitute* "libxapp/meson.build"
(("gtk3_dep\\.get_pkgconfig_variable[(]'libdir'[)]")
(string-append "'" (assoc-ref outputs "out") "/lib'")))
(substitute* "scripts/pastebin"
(("'nc'")
(string-append "'"
(search-input-file inputs "/bin/nc")
"'")))
(substitute* "scripts/upload-system-info"
(("'inxi'")
(string-append "'"
(search-input-file inputs "/bin/inxi")
"'"))
(("'/usr/bin/pastebin'")
(string-append "'"
(assoc-ref outputs "out")
"/bin/pastebin'"))
(("'xdg-open'")
(string-append "'"
(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 cinnamon-desktop
(package
(name "cinnamon-desktop")
(version "5.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
"0rnk0vmpjiz8pgn5y8zizr91ilwzfh9w7cmfsjpqg3h5wkpxz22z"))))
(build-system meson-build-system)
(arguments
(list
#:glib-or-gtk? #true
#:configure-flags #~(list "-Dalsa=true")))
(inputs
(list accountsservice
alsa-lib
glib
gnome-common
gtk+
libxkbfile
libxrandr
libxext
pulseaudio
xkeyboard-config))
(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 nemo
(package
(name "nemo")
(version "5.6.5")
(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 "15032jzi1x3dr292wbx6sdydybrs5n3lim2sq2i0lb9xa7cxxl0x"))))
(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 atk
cinnamon-desktop
exempi
gsettings-desktop-schemas
gtk+
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.")
(license license:expat)))