gnu: Add atril.
* gnu/packages/mate.scm (atril): New variable. Signed-off-by: Danny Milosavljevic <dannym@scratchpost.org>master
ng0
Danny Milosavljevic
parent
5a97a26204
commit
694285712e
|
|
@ -28,27 +28,37 @@
|
|||
#:use-module (guix build-system trivial)
|
||||
#:use-module (gnu packages)
|
||||
#:use-module (gnu packages attr)
|
||||
#:use-module (gnu packages backup)
|
||||
#:use-module (gnu packages base)
|
||||
#:use-module (gnu packages compression)
|
||||
#:use-module (gnu packages djvu)
|
||||
#:use-module (gnu packages docbook)
|
||||
#:use-module (gnu packages documentation)
|
||||
#:use-module (gnu packages fonts)
|
||||
#:use-module (gnu packages fontutils)
|
||||
#:use-module (gnu packages freedesktop)
|
||||
#:use-module (gnu packages gettext)
|
||||
#:use-module (gnu packages ghostscript)
|
||||
#:use-module (gnu packages glib)
|
||||
#:use-module (gnu packages gnome)
|
||||
#:use-module (gnu packages gnupg)
|
||||
#:use-module (gnu packages gnuzilla)
|
||||
#:use-module (gnu packages gtk)
|
||||
#:use-module (gnu packages image)
|
||||
#:use-module (gnu packages imagemagick)
|
||||
#:use-module (gnu packages javascript)
|
||||
#:use-module (gnu packages libcanberra)
|
||||
#:use-module (gnu packages linux)
|
||||
#:use-module (gnu packages messaging)
|
||||
#:use-module (gnu packages nettle)
|
||||
#:use-module (gnu packages pkg-config)
|
||||
#:use-module (gnu packages pdf)
|
||||
#:use-module (gnu packages photo)
|
||||
#:use-module (gnu packages polkit)
|
||||
#:use-module (gnu packages pulseaudio)
|
||||
#:use-module (gnu packages python)
|
||||
#:use-module (gnu packages tex)
|
||||
#:use-module (gnu packages webkit)
|
||||
#:use-module (gnu packages xdisorg)
|
||||
#:use-module (gnu packages xml)
|
||||
#:use-module (gnu packages xorg))
|
||||
|
|
@ -610,6 +620,111 @@ the Window List, the Window Selector, the Notification Area, the Clock and the
|
|||
infamous 'Wanda the Fish'.")
|
||||
(license (list license:gpl2+ license:lgpl2.0+))))
|
||||
|
||||
(define-public atril
|
||||
(package
|
||||
(name "atril")
|
||||
(version "1.18.1")
|
||||
(source
|
||||
(origin
|
||||
(method url-fetch)
|
||||
(uri (string-append "https://pub.mate-desktop.org/releases/"
|
||||
(version-major+minor version) "/"
|
||||
name "-" version ".tar.xz"))
|
||||
(sha256
|
||||
(base32
|
||||
"1wl332v80c0nzz7nw36d1pfmbiibvl3l0i4d25ihg6mg9wbc0145"))))
|
||||
(build-system glib-or-gtk-build-system)
|
||||
(arguments
|
||||
`(#:configure-flags (list (string-append "--with-openjpeg="
|
||||
(assoc-ref %build-inputs "openjpeg"))
|
||||
"--enable-introspection"
|
||||
"--with-gtk=3.0"
|
||||
"--disable-schemas-compile"
|
||||
;; FIXME: Enable build of Caja extensions.
|
||||
"--disable-caja")
|
||||
#:tests? #f
|
||||
#:phases
|
||||
(modify-phases %standard-phases
|
||||
(add-after 'unpack 'fix-mathjax-path
|
||||
(lambda _
|
||||
(let* ((mathjax (assoc-ref %build-inputs "js-mathjax"))
|
||||
(mathjax-path (string-append mathjax
|
||||
"/share/javascript/mathjax")))
|
||||
(substitute* "backend/epub/epub-document.c"
|
||||
(("/usr/share/javascript/mathjax")
|
||||
mathjax-path)))
|
||||
#t))
|
||||
(add-after 'unpack 'fix-introspection-install-dir
|
||||
(lambda* (#:key outputs #:allow-other-keys)
|
||||
(let ((out (assoc-ref outputs "out")))
|
||||
(substitute* '("configure")
|
||||
(("\\$\\(\\$PKG_CONFIG --variable=girdir gobject-introspection-1.0\\)")
|
||||
(string-append "\"" out "/share/gir-1.0/\""))
|
||||
(("\\$\\(\\$PKG_CONFIG --variable=typelibdir gobject-introspection-1.0\\)")
|
||||
(string-append out "/lib/girepository-1.0/")))
|
||||
#t)))
|
||||
(add-before 'install 'skip-gtk-update-icon-cache
|
||||
;; Don't create 'icon-theme.cache'.
|
||||
(lambda _
|
||||
(substitute* "data/Makefile"
|
||||
(("gtk-update-icon-cache") "true"))
|
||||
#t)))))
|
||||
(native-inputs
|
||||
`(("pkg-config" ,pkg-config)
|
||||
("intltool" ,intltool)
|
||||
("itstool" ,itstool)
|
||||
("yelp-tools" ,yelp-tools)
|
||||
("glib:bin" ,glib "bin")
|
||||
("gobject-introspection" ,gobject-introspection)
|
||||
("gtk-doc" ,gtk-doc)
|
||||
("xmllint" ,libxml2)
|
||||
("zlib" ,zlib)))
|
||||
(inputs
|
||||
`(("atk" ,atk)
|
||||
("cairo" ,cairo)
|
||||
("caja" ,caja)
|
||||
("dconf" ,dconf)
|
||||
("dbus" ,dbus)
|
||||
("dbus-glib" ,dbus-glib)
|
||||
("djvulibre" ,djvulibre)
|
||||
("fontconfig" ,fontconfig)
|
||||
("freetype" ,freetype)
|
||||
("ghostscript" ,ghostscript)
|
||||
("glib" ,glib)
|
||||
("gtk+" ,gtk+)
|
||||
("js-mathjax" ,js-mathjax)
|
||||
("libcanberra" ,libcanberra)
|
||||
("libsecret" ,libsecret)
|
||||
("libspectre" ,libspectre)
|
||||
("libtiff" ,libtiff)
|
||||
("libx11" ,libx11)
|
||||
("libice" ,libice)
|
||||
("libsm" ,libsm)
|
||||
("libgxps" ,libgxps)
|
||||
("libjpeg" ,libjpeg)
|
||||
("libxml2" ,libxml2)
|
||||
("dogtail" ,python2-dogtail)
|
||||
("shared-mime-info" ,shared-mime-info)
|
||||
("gdk-pixbuf" ,gdk-pixbuf)
|
||||
("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
|
||||
("libgnome-keyring" ,libgnome-keyring)
|
||||
("libarchive" ,libarchive)
|
||||
("marco" ,marco)
|
||||
("nettle" ,nettle)
|
||||
("openjpeg" ,openjpeg-1)
|
||||
("pango" ,pango)
|
||||
;;("texlive" ,texlive)
|
||||
;; TODO:
|
||||
;; Build libkpathsea as a shared library for DVI support.
|
||||
;; ("libkpathsea" ,texlive-bin)
|
||||
("poppler" ,poppler)
|
||||
("webkitgtk" ,webkitgtk)))
|
||||
(home-page "https://mate-desktop.org")
|
||||
(synopsis "Document viewer for Mate")
|
||||
(description
|
||||
"Document viewer for Mate")
|
||||
(license license:gpl2)))
|
||||
|
||||
(define-public caja
|
||||
(package
|
||||
(name "caja")
|
||||
|
|
|
|||
Reference in New Issue