590 lines
		
	
	
	
		
			23 KiB
		
	
	
	
		
			Scheme
		
	
	
	
	
	
			
		
		
	
	
			590 lines
		
	
	
	
		
			23 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, 2019, 2020, 2021, 2022 Efraim Flashner <efraim@flashner.co.il>
 | 
						||
;;; Copyright © 2017 Nikita <nikita@n0.is>
 | 
						||
;;; Copyright © 2018, 2019, 2020 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 utils)
 | 
						||
  #: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 algebra)
 | 
						||
  #:use-module (gnu packages bittorrent)
 | 
						||
  #:use-module (gnu packages check)
 | 
						||
  #:use-module (gnu packages code)
 | 
						||
  #:use-module (gnu packages compression)
 | 
						||
  #:use-module (gnu packages curl)
 | 
						||
  #:use-module (gnu packages fonts)
 | 
						||
  #: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 hardware)
 | 
						||
  #:use-module (gnu packages ibus)
 | 
						||
  #:use-module (gnu packages image)
 | 
						||
  #:use-module (gnu packages libunwind)
 | 
						||
  #: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.26.3")
 | 
						||
    (source (origin
 | 
						||
              (method url-fetch)
 | 
						||
              (uri (string-append
 | 
						||
                    "https://download.enlightenment.org/rel/libs/efl/efl-"
 | 
						||
                    version ".tar.xz"))
 | 
						||
              (sha256
 | 
						||
               (base32
 | 
						||
                "05bxc58hj0z6pkp6yy5cmy1lc575q0nrbr5lxr6z8d4kznh3my6r"))))
 | 
						||
    (build-system meson-build-system)
 | 
						||
    (native-inputs
 | 
						||
     `(("check" ,check)
 | 
						||
       ("gettext" ,gettext-minimal)
 | 
						||
       ("pkg-config" ,pkg-config)
 | 
						||
       ("python" ,python)))
 | 
						||
    (inputs
 | 
						||
     `(("curl" ,curl)
 | 
						||
       ("giflib" ,giflib)
 | 
						||
       ("gstreamer" ,gstreamer)
 | 
						||
       ("gst-plugins-base" ,gst-plugins-base)
 | 
						||
       ("ibus" ,ibus)
 | 
						||
       ("mesa" ,mesa)
 | 
						||
       ("libraw" ,libraw)
 | 
						||
       ("librsvg" ,(librsvg-for-system))
 | 
						||
       ("libspectre" ,libspectre)
 | 
						||
       ("libtiff" ,libtiff)
 | 
						||
       ("libxau" ,libxau)
 | 
						||
       ("libxcomposite" ,libxcomposite)
 | 
						||
       ("libxcursor" ,libxcursor)
 | 
						||
       ("libxdamage" ,libxdamage)
 | 
						||
       ("libxdmcp" ,libxdmcp)
 | 
						||
       ("libxext" ,libxext)
 | 
						||
       ("libxi" ,libxi)
 | 
						||
       ("libxfixes" ,libxfixes)
 | 
						||
       ("libxinerama" ,libxinerama)
 | 
						||
       ("libxrandr" ,libxrandr)
 | 
						||
       ("libxrender" ,libxrender)
 | 
						||
       ("libxss" ,libxscrnsaver)
 | 
						||
       ("libxtst" ,libxtst)
 | 
						||
       ("libwebp" ,libwebp)
 | 
						||
       ("openjpeg" ,openjpeg)
 | 
						||
       ("poppler" ,poppler)
 | 
						||
       ("util-linux" ,util-linux "lib")
 | 
						||
       ("wayland-protocols" ,wayland-protocols)))
 | 
						||
    (propagated-inputs
 | 
						||
     ;; All these inputs are in package config files in section
 | 
						||
     ;; Requires.private.
 | 
						||
     `(("dbus" ,dbus)
 | 
						||
       ("elogind" ,elogind)
 | 
						||
       ("eudev" ,eudev)
 | 
						||
       ("fontconfig" ,fontconfig)
 | 
						||
       ("freetype" ,freetype)
 | 
						||
       ("fribidi" ,fribidi)
 | 
						||
       ("glib" ,glib)
 | 
						||
       ("harfbuzz" ,harfbuzz)
 | 
						||
       ("libinput" ,libinput-minimal)
 | 
						||
       ("libjpeg" ,libjpeg-turbo)
 | 
						||
       ("libsndfile" ,libsndfile)
 | 
						||
       ("libpng" ,libpng)
 | 
						||
       ("libunwind" ,libunwind)
 | 
						||
       ("libx11" ,libx11)
 | 
						||
       ("libxkbcommon" ,libxkbcommon)
 | 
						||
       ("luajit" ,luajit)
 | 
						||
       ("lz4" ,lz4)
 | 
						||
       ("openssl" ,openssl)
 | 
						||
       ("pulseaudio" ,pulseaudio)
 | 
						||
       ("wayland" ,wayland)
 | 
						||
       ("zlib" ,zlib)))
 | 
						||
    (arguments
 | 
						||
     `(#:configure-flags
 | 
						||
       `("-Dembedded-lz4=false"
 | 
						||
         "-Dbuild-examples=false"
 | 
						||
         "-Decore-imf-loaders-disabler=scim"
 | 
						||
         "-Dglib=true"
 | 
						||
         "-Dmount-path=/run/setuid-programs/mount"
 | 
						||
         "-Dunmount-path=/run/setuid-programs/umount"
 | 
						||
         "-Dnetwork-backend=connman"
 | 
						||
         ;; For Wayland.
 | 
						||
         "-Dwl=true"
 | 
						||
         "-Ddrm=true")
 | 
						||
       #:tests? #f     ; Many tests fail due to timeouts and network requests.
 | 
						||
       #:phases
 | 
						||
       (modify-phases %standard-phases
 | 
						||
         ;; If we don't hardcode the location of libcurl.so and others then we
 | 
						||
         ;; have to wrap the outputs of efl's dependencies in those libraries.
 | 
						||
         (add-after 'unpack 'hardcode-dynamic-libraries
 | 
						||
           (lambda* (#:key inputs #:allow-other-keys)
 | 
						||
             (let ((curl    (assoc-ref inputs "curl"))
 | 
						||
                   (pulse   (assoc-ref inputs "pulseaudio"))
 | 
						||
                   (sndfile (assoc-ref inputs "libsndfile"))
 | 
						||
                   (elogind (assoc-ref inputs "elogind"))
 | 
						||
                   (lib     "/lib/"))
 | 
						||
               (substitute* "src/lib/ecore_con/ecore_con_url_curl.c"
 | 
						||
                 (("libcurl.so.?" libcurl) ; libcurl.so.[45]
 | 
						||
                  (string-append curl lib libcurl)))
 | 
						||
               (substitute* "src/lib/ecore_audio/ecore_audio.c"
 | 
						||
                 (("libpulse.so.0" libpulse)
 | 
						||
                  (string-append pulse lib libpulse))
 | 
						||
                 (("libsndfile.so.1" libsnd)
 | 
						||
                  (string-append sndfile lib libsnd)))
 | 
						||
               (substitute* "src/lib/elput/elput_logind.c"
 | 
						||
                 (("libelogind.so.0" libelogind)
 | 
						||
                  (string-append elogind "/lib/" libelogind))))))
 | 
						||
         (add-after 'unpack 'fix-install-paths
 | 
						||
           (lambda _
 | 
						||
             (substitute* "dbus-services/meson.build"
 | 
						||
               (("install_dir.*")
 | 
						||
                "install_dir: join_paths(dir_data, 'dbus-1', 'services'))\n"))
 | 
						||
             (substitute* "src/tests/elementary/meson.build"
 | 
						||
               (("dir_data") "meson.source_root(), 'test-output'"))
 | 
						||
             (substitute* "data/eo/meson.build"
 | 
						||
               (("'usr', 'lib'") "'./' + dir_lib"))))
 | 
						||
         (add-after 'unpack 'set-home-directory
 | 
						||
           ;; FATAL: Cannot create run dir '/homeless-shelter/.run' - errno=2
 | 
						||
           (lambda _ (setenv "HOME" "/tmp"))))))
 | 
						||
    (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.12.1")
 | 
						||
    (source (origin
 | 
						||
              (method url-fetch)
 | 
						||
              (uri
 | 
						||
               (string-append "https://download.enlightenment.org/rel/apps/"
 | 
						||
                              "terminology/terminology-" version ".tar.xz"))
 | 
						||
              (sha256
 | 
						||
               (base32
 | 
						||
                "1aasddf2343qj798b5s8qwif3lxj4pyjax6fa9sfi6if9icdkkpq"))
 | 
						||
              (modules '((guix build utils)))
 | 
						||
              ;; Remove the bundled fonts.
 | 
						||
              (snippet
 | 
						||
               '(begin
 | 
						||
                  (delete-file-recursively "data/fonts")
 | 
						||
                  (substitute* "data/meson.build"
 | 
						||
                    (("subdir\\('fonts'\\)") ""))))))
 | 
						||
    (build-system meson-build-system)
 | 
						||
    (arguments
 | 
						||
     `(#:configure-flags
 | 
						||
       (let ((efl (assoc-ref %build-inputs "efl")))
 | 
						||
         (list "-Dtests=true"
 | 
						||
               (string-append "-Dedje-cc=" efl "/bin/edje_cc")
 | 
						||
               (string-append "-Deet=" efl "/bin/eet")))
 | 
						||
       #: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")))
 | 
						||
         (replace 'check
 | 
						||
           (lambda* (#:key tests? #:allow-other-keys)
 | 
						||
             (when tests?
 | 
						||
               (with-directory-excursion
 | 
						||
                 (string-append "../" ,name "-" ,version "/tests")
 | 
						||
                 (invoke "sh" "run_tests.sh" "--verbose"
 | 
						||
                         "-t" "../../build/src/bin/tytest")))))
 | 
						||
         (add-after 'install 'remove-test-binary
 | 
						||
           (lambda* (#:key outputs #:allow-other-keys)
 | 
						||
             ;; This file is not meant to be installed.
 | 
						||
             (delete-file (string-append (assoc-ref outputs "out")
 | 
						||
                                         "/bin/tytest")))))))
 | 
						||
    (native-inputs
 | 
						||
     (list gettext-minimal
 | 
						||
           perl
 | 
						||
           pkg-config
 | 
						||
           python))
 | 
						||
    (inputs
 | 
						||
     (list 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.4.0")
 | 
						||
    (source (origin
 | 
						||
              (method url-fetch)
 | 
						||
              (uri
 | 
						||
               (string-append
 | 
						||
                "https://download.enlightenment.org/rel/apps/rage/rage-"
 | 
						||
                version ".tar.xz"))
 | 
						||
              (sha256
 | 
						||
               (base32
 | 
						||
                "03yal7ajh57x2jhmygc6msf3gzvqkpmzkqzj6dnam5sim8cq9rbw"))))
 | 
						||
    (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"))))))
 | 
						||
    (native-inputs
 | 
						||
     (list pkg-config))
 | 
						||
    (inputs
 | 
						||
     (list 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.25.4")
 | 
						||
    (source (origin
 | 
						||
              (method url-fetch)
 | 
						||
              (uri
 | 
						||
               (string-append "https://download.enlightenment.org/rel/apps/"
 | 
						||
                              "enlightenment/enlightenment-" version ".tar.xz"))
 | 
						||
              (sha256
 | 
						||
               (base32
 | 
						||
                "18mp4ggfy7n0yz6kzx56ali0piqa84z72vnj6649l6w2dch5vnsn"))
 | 
						||
              (patches (search-patches "enlightenment-fix-setuid-path.patch"))))
 | 
						||
    (build-system meson-build-system)
 | 
						||
    (arguments
 | 
						||
     `(#:configure-flags
 | 
						||
       (list "-Dsystemd=false"
 | 
						||
             "-Dpackagekit=false"
 | 
						||
             "-Dwl=true")
 | 
						||
       #:phases
 | 
						||
       (modify-phases %standard-phases
 | 
						||
         (add-before 'configure 'set-system-actions
 | 
						||
           (lambda* (#:key inputs #:allow-other-keys)
 | 
						||
             (setenv "HOME" "/tmp")
 | 
						||
             (let ((xkeyboard (assoc-ref inputs "xkeyboard-config"))
 | 
						||
                   (setxkbmap (assoc-ref inputs "setxkbmap"))
 | 
						||
                   (libc      (assoc-ref inputs "libc"))
 | 
						||
                   (bc        (assoc-ref inputs "bc"))
 | 
						||
                   (ddcutil   (assoc-ref inputs "ddcutil"))
 | 
						||
                   (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/modules/everything/evry_plug_apps.c"
 | 
						||
                 (("/usr/bin/") ""))
 | 
						||
               (substitute* '("src/bin/e_sys_main.c"
 | 
						||
                              "src/bin/e_util_suid.h")
 | 
						||
                 (("PATH=/bin:/usr/bin:/sbin:/usr/sbin")
 | 
						||
                  (string-append "PATH=/run/setuid-programs:"
 | 
						||
                                 "/run/current-system/profile/bin:"
 | 
						||
                                 "/run/current-system/profile/sbin")))
 | 
						||
               (substitute* "src/modules/everything/evry_plug_calc.c"
 | 
						||
                 (("bc -l") (string-append bc "/bin/bc -l")))
 | 
						||
               (substitute* "src/bin/system/e_system_ddc.c"
 | 
						||
                 (("libddcutil\\.so\\.?" libddcutil)
 | 
						||
                  (string-append ddcutil "/lib/" libddcutil)))
 | 
						||
               (substitute* "data/etc/meson.build"
 | 
						||
                 (("/bin/mount") "/run/setuid-programs/mount")
 | 
						||
                 (("/bin/umount") "/run/setuid-programs/umount")
 | 
						||
                 (("/usr/bin/eject") "/run/current-system/profile/bin/eject"))
 | 
						||
               (substitute* "src/bin/system/e_system_power.c"
 | 
						||
                 (("systemctl") "loginctl"))))))))
 | 
						||
    (native-inputs
 | 
						||
     `(("gettext" ,gettext-minimal)
 | 
						||
       ("pkg-config" ,pkg-config)))
 | 
						||
    (inputs
 | 
						||
     `(("alsa-lib" ,alsa-lib)
 | 
						||
       ("bc" ,bc)
 | 
						||
       ("bluez" ,bluez)
 | 
						||
       ("dbus" ,dbus)
 | 
						||
       ("ddcutil" ,ddcutil)
 | 
						||
       ("freetype" ,freetype)
 | 
						||
       ("libdrm" ,libdrm)
 | 
						||
       ("libexif" ,libexif)
 | 
						||
       ("libxcb" ,libxcb)
 | 
						||
       ("libxext" ,libxext)
 | 
						||
       ("linux-pam" ,linux-pam)
 | 
						||
       ("pulseaudio" ,pulseaudio)
 | 
						||
       ("setxkbmap" ,setxkbmap)
 | 
						||
       ("xcb-util-keysyms" ,xcb-util-keysyms)
 | 
						||
       ("xkeyboard-config" ,xkeyboard-config)
 | 
						||
       ("xorg-server-xwayland" ,xorg-server-xwayland)))
 | 
						||
    (propagated-inputs
 | 
						||
     (list efl libxkbcommon wayland-protocols
 | 
						||
           ;; Default font that applications such as IceCat require.
 | 
						||
           font-dejavu))
 | 
						||
    (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.26.0")
 | 
						||
    (source
 | 
						||
      (origin
 | 
						||
        (method url-fetch)
 | 
						||
        (uri (string-append "https://download.enlightenment.org/rel/bindings/"
 | 
						||
                            "python/python-efl-" version ".tar.xz"))
 | 
						||
        (sha256
 | 
						||
         (base32
 | 
						||
          "0dj6f24n33hkpy0bkdclnzpxhvs8vpaxqaf7hkw0di19pjwrq25h"))
 | 
						||
        (modules '((guix build utils)))
 | 
						||
        ;; Remove files generated by Cython
 | 
						||
        (snippet
 | 
						||
         '(begin
 | 
						||
            (for-each (lambda (file)
 | 
						||
                        (let ((generated-file
 | 
						||
                                (string-append (string-drop-right file 3) "c")))
 | 
						||
                          (when (file-exists? generated-file)
 | 
						||
                            (delete-file generated-file))))
 | 
						||
                      (find-files "efl" "\\.pyx$"))
 | 
						||
            (delete-file "efl/eo/efl.eo_api.h")))))
 | 
						||
    (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"))))
 | 
						||
        (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"))))))
 | 
						||
    (native-inputs
 | 
						||
     (list pkg-config python-cython))
 | 
						||
    (inputs
 | 
						||
     (list efl python-dbus python-packaging))
 | 
						||
    (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 edi
 | 
						||
  (package
 | 
						||
    (name "edi")
 | 
						||
    (version "0.8.0")
 | 
						||
    (source
 | 
						||
      (origin
 | 
						||
        (method url-fetch)
 | 
						||
        (uri (string-append "https://github.com/Enlightenment/edi/releases/"
 | 
						||
                            "download/v" version "/edi-" version ".tar.xz"))
 | 
						||
        (sha256
 | 
						||
         (base32
 | 
						||
          "01k8gp8r2wa6pyg3dkbm35m6hdsbss06hybghg0qjmd4mzswcd3a"))))
 | 
						||
    (build-system meson-build-system)
 | 
						||
    (arguments
 | 
						||
     '(#:phases
 | 
						||
       (modify-phases %standard-phases
 | 
						||
         (add-after 'unpack 'fix-clang-header
 | 
						||
           (lambda _
 | 
						||
             (substitute* "scripts/clang_include_dir.sh"
 | 
						||
               (("grep clang") "grep clang | head -n1"))
 | 
						||
             #t))
 | 
						||
         (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
 | 
						||
     `(("check" ,check)
 | 
						||
       ("gettext" ,gettext-minimal)
 | 
						||
       ("pkg-config" ,pkg-config)))
 | 
						||
    (inputs
 | 
						||
     (list clang 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
 | 
						||
                   license:gpl3))))      ; data/extra/examples/images/mono-runtime.png
 | 
						||
 | 
						||
(define-public ephoto
 | 
						||
  (package
 | 
						||
    (name "ephoto")
 | 
						||
    (version "1.6.0")
 | 
						||
    (source
 | 
						||
     (origin
 | 
						||
       (method url-fetch)
 | 
						||
       (uri (string-append "https://download.enlightenment.org/rel/"
 | 
						||
                           "apps/ephoto/ephoto-" version ".tar.xz"))
 | 
						||
       (sha256
 | 
						||
        (base32 "1lvhcs4ba8h3z78nyycbww8mj4cscb8k200dcc3cdy8vrvrp7g1n"))))
 | 
						||
    (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"))))))
 | 
						||
    (native-inputs
 | 
						||
     (list pkg-config))
 | 
						||
    (inputs
 | 
						||
     (list efl))
 | 
						||
    (home-page "https://smhouston.us/projects/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))))
 | 
						||
 | 
						||
(define-public evisum
 | 
						||
  (package
 | 
						||
    (name "evisum")
 | 
						||
    (version "0.6.0")
 | 
						||
    (source
 | 
						||
      (origin
 | 
						||
        (method url-fetch)
 | 
						||
        (uri (string-append "https://download.enlightenment.org/rel/apps/"
 | 
						||
                            "evisum/evisum-" version ".tar.xz"))
 | 
						||
        (sha256
 | 
						||
         (base32 "1ip3rmp0hcn0pk6lv089cayx18p1b2wycgvwpnf7ghbdxg7n4q15"))))
 | 
						||
    (build-system meson-build-system)
 | 
						||
    (arguments
 | 
						||
     '(#:tests? #f                      ; no tests
 | 
						||
       #:phases
 | 
						||
       (modify-phases %standard-phases
 | 
						||
         (add-after 'unpack 'set-homedir
 | 
						||
           (lambda _
 | 
						||
             (setenv "HOME" (getcwd)))))))
 | 
						||
    (native-inputs
 | 
						||
     (list gettext-minimal
 | 
						||
           pkg-config))
 | 
						||
    (inputs
 | 
						||
     (list efl))
 | 
						||
    (home-page "https://www.enlightenment.org")
 | 
						||
    (synopsis "EFL process viewer")
 | 
						||
    (description
 | 
						||
     "This is a process monitor and system monitor using the
 | 
						||
@dfn{Enlightenment Foundation Libraries} (EFL).")
 | 
						||
    (license license:bsd-2)))
 | 
						||
 | 
						||
(define-public epour
 | 
						||
  (package
 | 
						||
    (name "epour")
 | 
						||
    (version "0.7.0")
 | 
						||
    (source
 | 
						||
      (origin
 | 
						||
        (method url-fetch)
 | 
						||
        (uri (string-append "https://download.enlightenment.org/rel/apps/epour"
 | 
						||
                            "/epour-" version ".tar.xz"))
 | 
						||
        (sha256
 | 
						||
         (base32
 | 
						||
          "0g9f9p01hsq6dcf4cs1pwq95g6fpkyjgwqlvdjk1km1i5gj5ygqw"))))
 | 
						||
    (build-system python-build-system)
 | 
						||
    (arguments
 | 
						||
     `(#:tests? #f      ; no test target
 | 
						||
       #:use-setuptools? #f
 | 
						||
       #:phases
 | 
						||
       (modify-phases %standard-phases
 | 
						||
         (add-after 'unpack 'find-theme-dir
 | 
						||
           (lambda* (#:key outputs #:allow-other-keys)
 | 
						||
             (let ((out (assoc-ref outputs "out")))
 | 
						||
               (substitute* "epour/gui/__init__.py"
 | 
						||
                 (("join\\(data_path")
 | 
						||
                  (string-append "join(\"" out "/share/epour\"")))
 | 
						||
               #t))))))
 | 
						||
    (native-inputs
 | 
						||
     (list intltool python-distutils-extra))
 | 
						||
    (inputs
 | 
						||
     (list libtorrent-rasterbar python-dbus python-efl python-pyxdg))
 | 
						||
    (home-page "https://www.enlightenment.org")
 | 
						||
    (synopsis "EFL Bittorrent client")
 | 
						||
    (description "Epour is a BitTorrent client based on the @dfn{Enlightenment
 | 
						||
Foundation Libraries} (EFL) and rb-libtorrent.")
 | 
						||
    (license license:gpl3+)))
 |