mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2024-11-14 10:55:23 -05:00
496 lines
20 KiB
Scheme
496 lines
20 KiB
Scheme
;;; GNU Guix --- Functional package management for GNU
|
||
;;; Copyright © 2015 Tomáš Čech <sleep_walker@suse.cz>
|
||
;;; Copyright © 2015 Daniel Pimentel <d4n1@member.fsf.org>
|
||
;;; Copyright © 2015, 2016, 2017, 2018 Efraim Flashner <efraim@flashner.co.il>
|
||
;;; Copyright © 2017 Nils Gillmann <ng0@n0.is>
|
||
;;; Copyright © 2018 Tobias Geerinckx-Rice <me@tobias.gr>
|
||
;;; Copyright © 2018 Timo Eisenmann <eisenmann@fn.de>
|
||
;;;
|
||
;;; 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 enlightenment)
|
||
#:use-module ((guix licenses) #:prefix license:)
|
||
#:use-module (guix packages)
|
||
#:use-module (guix download)
|
||
#:use-module (guix build-system gnu)
|
||
#:use-module (guix build-system meson)
|
||
#:use-module (guix build-system python)
|
||
#:use-module (gnu packages)
|
||
#:use-module (gnu packages bash)
|
||
#:use-module (gnu packages check)
|
||
#:use-module (gnu packages code)
|
||
#:use-module (gnu packages compression)
|
||
#:use-module (gnu packages curl)
|
||
#:use-module (gnu packages fontutils)
|
||
#:use-module (gnu packages freedesktop)
|
||
#:use-module (gnu packages fribidi)
|
||
#:use-module (gnu packages game-development)
|
||
#:use-module (gnu packages gettext)
|
||
#:use-module (gnu packages ghostscript)
|
||
#:use-module (gnu packages gl)
|
||
#:use-module (gnu packages glib)
|
||
#:use-module (gnu packages gnome)
|
||
#:use-module (gnu packages gstreamer)
|
||
#:use-module (gnu packages gtk)
|
||
#:use-module (gnu packages image)
|
||
#:use-module (gnu packages linux)
|
||
#:use-module (gnu packages llvm)
|
||
#:use-module (gnu packages lua)
|
||
#:use-module (gnu packages pdf)
|
||
#:use-module (gnu packages perl)
|
||
#:use-module (gnu packages photo)
|
||
#:use-module (gnu packages pkg-config)
|
||
#:use-module (gnu packages pulseaudio)
|
||
#:use-module (gnu packages python)
|
||
#:use-module (gnu packages python-xyz)
|
||
#:use-module (gnu packages tls)
|
||
#:use-module (gnu packages video)
|
||
#:use-module (gnu packages xdisorg)
|
||
#:use-module (gnu packages xorg)
|
||
#:use-module (ice-9 match))
|
||
|
||
(define-public efl
|
||
(package
|
||
(name "efl")
|
||
(version "1.21.1")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append
|
||
"https://download.enlightenment.org/rel/libs/efl/efl-"
|
||
version ".tar.xz"))
|
||
(patches (search-patches "efl-mesa-compat.patch"))
|
||
(sha256
|
||
(base32
|
||
"0a5907h896pvpix7a6idc2fspzy6d78xrzf84k8y9fyvnd14nxs4"))))
|
||
(outputs '("out" ; 49 MB
|
||
"include")) ; 17 MB
|
||
(build-system gnu-build-system)
|
||
(native-inputs
|
||
`(("pkg-config" ,pkg-config)))
|
||
(inputs
|
||
`(("alsa-lib" ,alsa-lib)
|
||
("curl" ,curl)
|
||
("ghostscript" ,ghostscript)
|
||
("giflib" ,giflib)
|
||
("gstreamer" ,gstreamer)
|
||
("gst-plugins-base" ,gst-plugins-base)
|
||
("libexif" ,libexif)
|
||
("libjpeg" ,libjpeg)
|
||
("libraw" ,libraw)
|
||
("librsvg" ,librsvg)
|
||
("libspectre" ,libspectre)
|
||
("libtiff" ,libtiff)
|
||
("libwebp" ,libwebp)
|
||
("libx11" ,libx11)
|
||
("libxau" ,libxau)
|
||
("libxcomposite" ,libxcomposite)
|
||
("libxcursor" ,libxcursor)
|
||
("libxdamage" ,libxdamage)
|
||
("libxdmcp" ,libxdmcp)
|
||
("libxext" ,libxext)
|
||
("libxi" ,libxi)
|
||
("libxfixes" ,libxfixes)
|
||
("libxinerama" ,libxinerama)
|
||
("libxp" ,libxp)
|
||
("libxrandr" ,libxrandr)
|
||
("libxrender" ,libxrender)
|
||
("libxscrnsaver" ,libxscrnsaver)
|
||
("libxtst" ,libxtst)
|
||
("lz4" ,lz4)
|
||
("openjpeg" ,openjpeg-1)
|
||
("poppler" ,poppler)
|
||
("printproto" ,printproto)
|
||
("wayland-protocols" ,wayland-protocols)
|
||
("xinput" ,xinput)
|
||
("xpr" ,xpr)
|
||
("xorgproto" ,xorgproto)))
|
||
(propagated-inputs
|
||
;; All these inputs are in package config files in section
|
||
;; Requires.private.
|
||
`(("bullet" ,bullet) ; ephysics.pc
|
||
("dbus" ,dbus) ; eldbus.pc, elementary.pc, elocation.pc, ethumb_client.pc
|
||
("eudev" ,eudev) ; eeze.pc
|
||
("fontconfig" ,fontconfig) ; evas.pc, evas-cxx.pc
|
||
("freetype" ,freetype) ; evas.pc, evas-cxx.pc
|
||
("fribidi" ,fribidi) ; evas.pc, evas-cxx.pc
|
||
("glib" ,glib) ; ecore.pc, ecore-cxx.pc
|
||
("harfbuzz" ,harfbuzz) ; evas.pc, evas-cxx.pc
|
||
("luajit" ,luajit) ; elua.pc, evas.pc, evas-cxx.pc
|
||
("libinput" ,libinput-minimal) ; elput.pc
|
||
("libpng" ,libpng) ; evas.pc, evas-cxx.pc
|
||
("libsndfile" ,libsndfile) ; ecore-audio.pc, ecore-audio-cxx.pc
|
||
("libxkbcommon" ,libxkbcommon) ; ecore-wl2.pc, elementary.pc, elput.pc
|
||
("mesa" ,mesa) ; ecore-drm2.pc
|
||
("openssl" ,openssl) ; ecore-con.pc, eet.pc, eet-cxx.pc, emile.pc
|
||
("pulseaudio" ,pulseaudio) ; ecore-audio.pc, ecore-audio-cxx.pc
|
||
("util-linux" ,util-linux) ; mount: eeze.pc
|
||
("wayland" ,wayland) ; ecore-wl2.pc, elementary.pc
|
||
("zlib" ,zlib))) ; eet.pc, eet-cxx.pc, emile.pc
|
||
(arguments
|
||
`(#:configure-flags '("--disable-silent-rules"
|
||
"--disable-systemd"
|
||
"--with-profile=release"
|
||
"--enable-liblz4"
|
||
"--enable-xinput22"
|
||
"--enable-image-loader-webp"
|
||
"--enable-multisense"
|
||
,@(match (%current-system)
|
||
("armhf-linux"
|
||
'("--with-opengl=es" "--with-egl"))
|
||
(_
|
||
'("--with-opengl=full")))
|
||
"--enable-harfbuzz"
|
||
;; for wayland
|
||
"--enable-wayland"
|
||
"--enable-elput"
|
||
"--enable-drm")
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
;; If we don't hardcode the location of libcurl.so then we
|
||
;; have to wrap the outputs of efl's dependencies in curl.
|
||
(add-after 'unpack 'hardcode-libcurl-location
|
||
(lambda* (#:key inputs #:allow-other-keys)
|
||
(let* ((curl (assoc-ref inputs "curl"))
|
||
(lib (string-append curl "/lib/")))
|
||
(substitute* "src/lib/ecore_con/ecore_con_url_curl.c"
|
||
(("libcurl.so.?" libcurl) ; libcurl.so.[45]
|
||
(string-append lib libcurl)))
|
||
#t)))
|
||
(add-after 'unpack 'set-home-directory
|
||
;; FATAL: Cannot create run dir '/homeless-shelter/.run' - errno=2
|
||
(lambda _ (setenv "HOME" "/tmp") #t)))))
|
||
(home-page "https://www.enlightenment.org/about-efl")
|
||
(synopsis "Enlightenment Foundation Libraries")
|
||
(description
|
||
"Enlightenment Foundation Libraries is a set of libraries developed
|
||
for Enlightenment. Libraries covers data serialization, wide support for
|
||
graphics rendering, UI layout and themes, interaction with OS, access to
|
||
removable devices or support for multimedia.")
|
||
;; Different parts are under different licenses.
|
||
(license (list license:bsd-2 license:lgpl2.1 license:zlib))))
|
||
|
||
(define-public terminology
|
||
(package
|
||
(name "terminology")
|
||
(version "1.3.2")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri
|
||
(string-append "https://download.enlightenment.org/rel/apps/"
|
||
"terminology/terminology-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"1kclxzadmk272s9spa7n704pcb1c611ixxrq88w5zk22va0i25xm"))
|
||
(modules '((guix build utils)))
|
||
;; Remove the bundled fonts.
|
||
(snippet
|
||
'(begin
|
||
(delete-file-recursively "data/fonts")
|
||
(substitute* "data/meson.build"
|
||
(("subdir\\('fonts'\\)") ""))
|
||
#t))))
|
||
(build-system meson-build-system)
|
||
(arguments
|
||
'(#:phases
|
||
(modify-phases %standard-phases
|
||
(add-after 'unpack 'set-home-directory
|
||
;; FATAL: Cannot create run dir '/homeless-shelter/.run' - errno=2
|
||
(lambda _ (setenv "HOME" "/tmp") #t)))))
|
||
(native-inputs
|
||
`(("gettext" ,gettext-minimal)
|
||
("perl" ,perl)
|
||
("pkg-config" ,pkg-config)))
|
||
(inputs
|
||
`(("efl" ,efl)))
|
||
(home-page "https://www.enlightenment.org/about-terminology")
|
||
(synopsis "Powerful terminal emulator based on EFL")
|
||
(description
|
||
"Terminology is fast and feature rich terminal emulator. It is solely
|
||
based on Enlightenment Foundation Libraries. It supports multiple tabs, UTF-8,
|
||
URL and local path detection, themes, popup based content viewer for non-text
|
||
contents and more.")
|
||
(license license:bsd-2)))
|
||
|
||
(define-public rage
|
||
(package
|
||
(name "rage")
|
||
(version "0.3.0")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri
|
||
(string-append
|
||
"https://download.enlightenment.org/rel/apps/rage/rage-"
|
||
version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"0gfzdd4jg78bkmj61yg49w7bzspl5m1nh6agqgs8k7qrq9q26xqy"))))
|
||
(build-system meson-build-system)
|
||
(arguments
|
||
'(#:phases
|
||
(modify-phases %standard-phases
|
||
(add-after 'unpack 'set-home-directory
|
||
;; FATAL: Cannot create run dir '/homeless-shelter/.run' - errno=2
|
||
(lambda _ (setenv "HOME" "/tmp") #t)))))
|
||
(native-inputs
|
||
`(("pkg-config" ,pkg-config)))
|
||
(inputs
|
||
`(("efl" ,efl)))
|
||
(home-page "https://www.enlightenment.org/about-rage")
|
||
(synopsis "Video and audio player based on EFL")
|
||
(description
|
||
"Rage is a video and audio player written with Enlightenment Foundation
|
||
Libraries with some extra bells and whistles.")
|
||
(license license:bsd-2)))
|
||
|
||
(define-public enlightenment
|
||
(package
|
||
(name "enlightenment")
|
||
(version "0.22.4")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri
|
||
(string-append "https://download.enlightenment.org/rel/apps/"
|
||
name "/" name "-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"0ygy891rrw5c7lhk539nhif77j88phvz2h0fhx172iaridy9kx2r"))
|
||
(patches (search-patches "enlightenment-fix-setuid-path.patch"))))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
`(#:phases
|
||
(modify-phases %standard-phases
|
||
(add-before 'configure 'set-system-actions
|
||
(lambda* (#:key inputs #:allow-other-keys)
|
||
(let ((xkeyboard (assoc-ref inputs "xkeyboard-config"))
|
||
(setxkbmap (assoc-ref inputs "setxkbmap"))
|
||
(utils (assoc-ref inputs "util-linux"))
|
||
(libc (assoc-ref inputs "libc"))
|
||
(efl (assoc-ref inputs "efl")))
|
||
;; We need to patch the path to 'base.lst' to be able
|
||
;; to switch the keyboard layout in E.
|
||
(substitute* (list "src/modules/xkbswitch/e_mod_parse.c"
|
||
"src/modules/wizard/page_011.c")
|
||
(("/usr/share/X11/xkb/rules/xorg.lst")
|
||
(string-append xkeyboard
|
||
"/share/X11/xkb/rules/base.lst")))
|
||
(substitute* "src/bin/e_xkb.c"
|
||
(("\"setxkbmap \"")
|
||
(string-append "\"" setxkbmap "/bin/setxkbmap \"")))
|
||
(substitute* (list "src/bin/e_intl.c"
|
||
"src/modules/conf_intl/e_int_config_intl.c"
|
||
"src/modules/wizard/page_010.c")
|
||
(("locale -a") (string-append libc "/bin/locale -a")))
|
||
(substitute* "src/bin/e_import_config_dialog.c"
|
||
(("%s/edje_cc -v %s %s %s\", e_prefix_bin_get\\(\\)")
|
||
(string-append efl "/bin/edje_cc -v %s %s %s\"")))
|
||
(substitute* "src/modules/everything/evry_plug_apps.c"
|
||
(("/usr/bin/") ""))
|
||
(substitute* "configure"
|
||
(("/bin/mount") (string-append utils "/bin/mount"))
|
||
(("/bin/umount") (string-append utils "/bin/umount"))
|
||
(("/usr/bin/eject") (string-append utils "/bin/eject"))
|
||
(("/etc/acpi/sleep.sh force") "/run/current-system/profile/bin/loginctl suspend")
|
||
(("/etc/acpi/hibernate.sh force") "/run/current-system/profile/bin/loginctl hibernate")
|
||
(("/sbin/shutdown -h now") "/run/current-system/profile/bin/loginctl poweroff now")
|
||
(("/sbin/shutdown -r now") "/run/current-system/profile/bin/loginctl reboot now"))
|
||
#t))))))
|
||
(native-inputs
|
||
`(("gettext" ,gettext-minimal)
|
||
("pkg-config" ,pkg-config)
|
||
("util-linux" ,util-linux)))
|
||
(inputs
|
||
`(("alsa-lib" ,alsa-lib)
|
||
("dbus" ,dbus)
|
||
("efl" ,efl)
|
||
("freetype" ,freetype)
|
||
("libxcb" ,libxcb)
|
||
("libxext" ,libxext)
|
||
("linux-pam" ,linux-pam)
|
||
("setxkbmap" ,setxkbmap)
|
||
("xcb-util-keysyms" ,xcb-util-keysyms)
|
||
("xkeyboard-config" ,xkeyboard-config)))
|
||
(home-page "https://www.enlightenment.org/about-enlightenment")
|
||
(synopsis "Lightweight desktop environment")
|
||
(description
|
||
"Enlightenment is resource friendly desktop environment with integrated
|
||
file manager, wide range of configuration options, plugin system allowing to
|
||
unload unused functionality, with support for touchscreen and suitable for
|
||
embedded systems.")
|
||
(license license:bsd-2)))
|
||
|
||
(define-public python-efl
|
||
(package
|
||
(name "python-efl")
|
||
(version "1.21.0")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (string-append "http://download.enlightenment.org/rel/bindings/"
|
||
"python/python-efl-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"08x2cv8hnf004c3711250wrax21ffj5y8951pvk77h98als4pq47"))))
|
||
(build-system python-build-system)
|
||
(arguments
|
||
'(#:phases
|
||
(modify-phases %standard-phases
|
||
(replace 'build
|
||
(lambda _
|
||
(setenv "ENABLE_CYTHON" "1")
|
||
(invoke "python" "setup.py" "build")))
|
||
(add-before 'build 'set-flags
|
||
(lambda _
|
||
(setenv "CFLAGS"
|
||
(string-append "-I" (assoc-ref %build-inputs "python-dbus")
|
||
"/include/dbus-1.0"))
|
||
#t))
|
||
(add-before 'check 'set-environment
|
||
(lambda _
|
||
;; Some tests require write access to HOME.
|
||
(setenv "HOME" "/tmp")
|
||
;; These tests try to connect to the internet.
|
||
(delete-file "tests/ecore/test_09_file_download.py")
|
||
(delete-file "tests/ecore/test_11_con.py")
|
||
#t)))))
|
||
(native-inputs
|
||
`(("pkg-config" ,pkg-config)
|
||
("python-cython" ,python-cython)))
|
||
(inputs
|
||
`(("efl" ,efl)
|
||
("python-dbus" ,python-dbus)))
|
||
(home-page "https://www.enlightenment.org/")
|
||
(synopsis "Python bindings for EFL")
|
||
(description
|
||
"PYTHON-EFL are the python bindings for the whole Enlightenment Foundation
|
||
Libraries stack (eo, evas, ecore, edje, emotion, ethumb and elementary).")
|
||
(license license:lgpl3)))
|
||
|
||
(define-public python2-efl
|
||
(package-with-python2 python-efl))
|
||
|
||
(define-public edi
|
||
(package
|
||
(name "edi")
|
||
(version "0.6.0")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (string-append "https://download.enlightenment.org/rel/apps/edi/"
|
||
name "-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"0iqkah327ms5m7k054hcik2l9v68i4mg9yy52brprfqpd5jk7pw8"))))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
'(#:phases
|
||
(modify-phases %standard-phases
|
||
(add-after 'unpack 'set-home-directory
|
||
;; FATAL: Cannot create run dir '/homeless-shelter/.run' - errno=2
|
||
(lambda _ (setenv "HOME" "/tmp") #t)))
|
||
#:tests? #f)) ; tests require running dbus service
|
||
(native-inputs
|
||
`(("pkg-config" ,pkg-config)))
|
||
(inputs
|
||
`(("clang" ,clang)
|
||
("efl" ,efl)))
|
||
(home-page "https://www.enlightenment.org/about-edi")
|
||
(synopsis "Development environment for Enlightenment")
|
||
(description "EDI is a development environment designed for and built using
|
||
the EFL. It's aim is to create a new, native development environment for Linux
|
||
that tries to lower the barrier to getting involved in Enlightenment development
|
||
and in creating applications based on the Enlightenment Foundation Library suite.")
|
||
(license (list license:public-domain ; data/extra/skeleton
|
||
license:gpl2)))) ; edi
|
||
|
||
(define-public lekha
|
||
(package
|
||
(name "lekha")
|
||
(version "0.2.1")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (pypi-uri "Lekha" version))
|
||
(sha256
|
||
(base32
|
||
"0zr6i74ik58pbzrd7r9l7sawqbdv0r2c1a9927qkqzwga27x8j15"))))
|
||
(build-system python-build-system)
|
||
(arguments
|
||
`(#:tests? #f ; no test target
|
||
#:python ,python-2
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(add-after 'unpack 'fix-data-location
|
||
(lambda _ (substitute* "setup.py"
|
||
(("'/usr/")"'"))
|
||
#t)))))
|
||
(propagated-inputs
|
||
`(("python2-efl" ,python2-efl)
|
||
("python2-pypdf2" ,python2-pypdf2)
|
||
("python2-pyxdg" ,python2-pyxdg)))
|
||
(synopsis "Simple PDF viewer")
|
||
(description
|
||
"Simple PDF viewer based on the Enlightenment Foundation Libraries.")
|
||
(home-page "https://github.com/kaihu/lekha")
|
||
(license license:gpl3+)))
|
||
|
||
(define-public ephoto
|
||
(package
|
||
(name "ephoto")
|
||
(version "1.5")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (list (string-append "http://www.smhouston.us/stuff/ephoto-"
|
||
version ".tar.xz")
|
||
(string-append "https://download.enlightenment.org/rel/"
|
||
"apps/ephoto/ephoto-" version ".tar.xz")))
|
||
(sha256
|
||
(base32
|
||
"04kli43sfsy6s660g13pjc0kjmgdcmq8m4qh02vvpcwv60mf9mgz"))))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
'(#:phases
|
||
(modify-phases %standard-phases
|
||
(add-after 'unpack 'set-home-directory
|
||
;; FATAL: Cannot create run dir '/homeless-shelter/.run' - errno=2
|
||
(lambda _ (setenv "HOME" "/tmp") #t)))))
|
||
(native-inputs
|
||
`(("check" ,check)
|
||
("pkg-config" ,pkg-config)))
|
||
(inputs
|
||
`(("efl" ,efl)))
|
||
(home-page "http://smhouston.us/ephoto/")
|
||
(synopsis "EFL image viewer/editor/manipulator/slideshow creator")
|
||
(description "Ephoto is an image viewer and editor written using the
|
||
@dfn{Enlightenment Foundation Libraries} (EFL). It focuses on simplicity and
|
||
ease of use, while taking advantage of the speed and small footprint the EFL
|
||
provide.
|
||
|
||
Ephoto’s features include:
|
||
@enumerate
|
||
@item Browsing the file system and displaying images in an easy-to-use grid view.
|
||
@item Browsing images in a single image view format.
|
||
@item Viewing images in a slideshow.
|
||
@item Editing your image with features such as cropping, auto enhance,
|
||
blurring, sharpening, brightness/contrast/gamma adjustments, hue/saturation/value
|
||
adjustments, and color level adjustment.
|
||
@item Applying artistic filters to your image such as black and white and old
|
||
photo.
|
||
@item Drag And Drop along with file operations to easily maintain your photo
|
||
directories.
|
||
@end enumerate\n")
|
||
(license (list
|
||
license:bsd-2 ; Ephoto's thumbnailing code
|
||
license:bsd-3))))
|