futurile/guix-play
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

gnu: Add atril.

Browse Source 
* gnu/packages/mate.scm (atril): New variable.

Signed-off-by: Danny Milosavljevic <dannym@scratchpost.org>
This commit is contained in:
ng0 2017-12-30 22:43:42 +01:00 committed by Danny Milosavljevic
parent 5a97a26204
commit 694285712e
No known key found for this signature in database
GPG Key ID: E71A35542C30BAA5
1 changed files with 115 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

115
gnu/packages/mate.scm
View File

@ -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")