mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2024-11-17 20:27:36 -05:00
c09e331b25
Fixes <https://bugs.gnu.org/47713>. Reported by bo0od <bo0od@riseup.net>. This ensures applications such as IceCat can properly text (numbers in the case of IceCat). * gnu/packages/enlightenment.scm (enlightenment)[propagated-inputs]: Add FONT-DEJAVU. * gnu/packages/mate.scm (mate)[propagated-inputs]: New field. * gnu/packages/xfce.scm (xfce)[propagated-inputs]: New field.
634 lines
25 KiB
Scheme
634 lines
25 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 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 ibus)
|
||
#: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.25.1")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append
|
||
"https://download.enlightenment.org/rel/libs/efl/efl-"
|
||
version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"0svybbrvpf6q955y6fclxh3md64z0dgmh0x54x2j60503hhs071m"))))
|
||
(build-system meson-build-system)
|
||
(native-inputs
|
||
`(("check" ,check-0.14)
|
||
("gettext" ,gettext-minimal)
|
||
("pkg-config" ,pkg-config)))
|
||
(inputs
|
||
`(("curl" ,curl)
|
||
("giflib" ,giflib)
|
||
("gstreamer" ,gstreamer)
|
||
("gst-plugins-base" ,gst-plugins-base)
|
||
("ibus" ,ibus)
|
||
("mesa" ,mesa)
|
||
("libraw" ,libraw)
|
||
("librsvg" ,librsvg)
|
||
("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)
|
||
("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"
|
||
;(string-append "-Ddictionaries-hyphen-dir="
|
||
; (assoc-ref %build-inputs "hyphen")
|
||
; "/share/hyphen")
|
||
"-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)))
|
||
#t)))
|
||
(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"))
|
||
#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.9.0")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri
|
||
(string-append "https://download.enlightenment.org/rel/apps/"
|
||
"terminology/terminology-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"0v74858yvrrfy0l2pq7yn6izvqhpkb9gw2jpd3a3khjwv8kw6frz"))
|
||
(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
|
||
`(#: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") #t))
|
||
(replace 'check
|
||
(lambda _
|
||
(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"))
|
||
#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.1")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri
|
||
(string-append
|
||
"https://download.enlightenment.org/rel/apps/rage/rage-"
|
||
version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"04fdk23bbgvni212zrfy4ndg7vmshbsjgicrhckdvhay87pk9i75"))))
|
||
(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.24.2")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri
|
||
(string-append "https://download.enlightenment.org/rel/apps/"
|
||
"enlightenment/enlightenment-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"1wfz0rwwsx7c1mkswn4hc9xw1i6bsdirhxiycf7ha2vcipqy465y"))
|
||
(patches (search-patches "enlightenment-fix-setuid-path.patch"))))
|
||
(build-system meson-build-system)
|
||
(arguments
|
||
`(#:configure-flags
|
||
(let ((efl (assoc-ref %build-inputs "efl")))
|
||
(list "-Dsystemd=false"
|
||
"-Dpackagekit=false"
|
||
"-Dwl=true"
|
||
(string-append "-Dedje-cc=" efl "/bin/edje_cc")
|
||
(string-append "-Deldbus-codegen=" efl "/bin/eldbus-codegen")
|
||
(string-append "-Deet=" efl "/bin/eet")))
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(delete 'bootstrap) ; We don't want to run the autogen script.
|
||
(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"))
|
||
(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* "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"))
|
||
#t))))))
|
||
(native-inputs
|
||
`(("gettext" ,gettext-minimal)
|
||
("pkg-config" ,pkg-config)))
|
||
(inputs
|
||
`(("alsa-lib" ,alsa-lib)
|
||
("bc" ,bc)
|
||
("bluez" ,bluez)
|
||
("dbus" ,dbus)
|
||
("freetype" ,freetype)
|
||
("libxcb" ,libxcb)
|
||
("libxext" ,libxext)
|
||
("linux-pam" ,linux-pam)
|
||
("puleseaudio" ,pulseaudio)
|
||
("setxkbmap" ,setxkbmap)
|
||
("xcb-util-keysyms" ,xcb-util-keysyms)
|
||
("xkeyboard-config" ,xkeyboard-config)
|
||
("xorg-server-xwayland" ,xorg-server-xwayland)))
|
||
(propagated-inputs
|
||
`(("efl" ,efl)
|
||
("libxkbcommon" ,libxkbcommon)
|
||
("wayland-protocols" ,wayland-protocols)
|
||
|
||
;; Default font that applications such as IceCat require.
|
||
("font-dejavu" ,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 enlightenment-wayland
|
||
(deprecated-package "enlightenment-wayland" enlightenment))
|
||
|
||
(define-public python-efl
|
||
(package
|
||
(name "python-efl")
|
||
(version "1.25.0")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (string-append "https://download.enlightenment.org/rel/bindings/"
|
||
"python/python-efl-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"0bk161xwlz4dlv56r68xwkm8snzfifaxd1j7w2wcyyk4fgvnvq4r"))
|
||
(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")
|
||
#t))))
|
||
(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.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-0.14)
|
||
("gettext" ,gettext-minimal)
|
||
("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
|
||
license:gpl3)))) ; data/extra/examples/images/mono-runtime.png
|
||
|
||
(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 (string-append "https://download.enlightenment.org/rel/"
|
||
"apps/ephoto/ephoto-" version ".tar.xz"))
|
||
(sha256
|
||
(base32 "1q7v9abjp9jrs08xc7pqaac64yzax24dk1snjb9rciarzzh3mlzy"))))
|
||
(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 "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.5.11")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (string-append "https://download.enlightenment.org/rel/apps/"
|
||
"evisum/evisum-" version ".tar.xz"))
|
||
(sha256
|
||
(base32 "0cbfg393nlf0k91a2hdlyakns3dpzvs3isd95dm3zizydyf9h8wc"))))
|
||
(build-system meson-build-system)
|
||
(arguments
|
||
'(#:tests? #f)) ; no tests
|
||
(native-inputs
|
||
`(("gettext" ,gettext-minimal)
|
||
("pkg-config" ,pkg-config)))
|
||
(inputs
|
||
`(("efl" ,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
|
||
`(("intltool" ,intltool)
|
||
("python-distutils-extra" ,python-distutils-extra)))
|
||
(inputs
|
||
`(("libtorrent-rasterbar" ,libtorrent-rasterbar)
|
||
("python-dbus" ,python-dbus)
|
||
("python-efl" ,python-efl)
|
||
("python-pyxdg" ,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+)))
|