;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2016 Leo Famulari <leo@famulari.name> ;;; Copyright © 2016 Alex Griffin <a@ajgrf.com> ;;; Copyright © 2017 Björn Höfling <bjoern.hoefling@bjoernhoefling.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 geo) #:use-module (guix build-system glib-or-gtk) #:use-module (guix build-system gnu) #:use-module (guix download) #:use-module ((guix licenses) #:prefix license:) #:use-module (guix packages) #:use-module (guix utils) #:use-module (gnu packages glib) #:use-module (gnu packages gnome) #:use-module (gnu packages gtk) #:use-module (gnu packages pkg-config) #:use-module (gnu packages webkit) #:use-module (gnu packages xml)) (define-public geos (package (name "geos") (version "3.6.1") (source (origin (method url-fetch) (uri (string-append "http://download.osgeo.org/geos/geos-" version ".tar.bz2")) (sha256 (base32 "1icz31kd5sml2kdxhjznvmv33zfr6nig9l0i6bdcz9q9g8x4wbja")))) (build-system gnu-build-system) (arguments `(#:phases (modify-phases %standard-phases (add-after 'unpack 'patch-test-shebangs (lambda _ (substitute* '("tests/xmltester/testrunner.sh" "tests/geostest/testrunner.sh") (("/bin/sh") (which "sh"))) #t))))) (inputs `(("glib" ,glib))) (home-page "https://geos.osgeo.org/") (synopsis "Geometry Engine for Geographic Information Systems") (description "GEOS provides a spatial object model and fundamental geometric functions. It is a C++ port of the Java Topology Suite (JTS). As such, it aims to contain the complete functionality of JTS in C++. This includes all the OpenGIS Simple Features for SQL spatial predicate functions and spatial operators, as well as specific JTS enhanced topology functions.") (license (list license:lgpl2.1+ ; Main distribution. license:zlib ; tests/xmltester/tinyxml/* license:public-domain)))) ; include/geos/timeval.h ;;; FIXME GNOME Maps only runs within GNOME. On i3, it fails with this error: ;;; (org.gnome.Maps:8568): GLib-GIO-ERROR **: Settings schema ;;; 'org.gnome.desktop.interface' is not installed (define-public gnome-maps (package (name "gnome-maps") (version "3.18.3") (source (origin (method url-fetch) (uri (string-append "mirror://gnome/sources/" name "/" (version-major+minor version) "/" name "-" version ".tar.xz")) (sha256 (base32 "1vdnr2wmhqhql2gxd5n1ijwk88qhim14izbkczncg35846hfsr5i")))) (build-system glib-or-gtk-build-system) (arguments `(#:configure-flags ; Ensure that geoclue is referred to by output. (list (string-append "LDFLAGS=-L" (assoc-ref %build-inputs "geoclue") "/lib") (string-append "CFLAGS=-I" (assoc-ref %build-inputs "geoclue") "/include")) #:phases (modify-phases %standard-phases (add-after 'install 'wrap (lambda* (#:key inputs outputs #:allow-other-keys) (let ((out (assoc-ref outputs "out")) (gi-typelib-path (getenv "GI_TYPELIB_PATH")) (goa-path (string-append (assoc-ref inputs "gnome-online-accounts") "/lib"))) (wrap-program (string-append out "/bin/gnome-maps") `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path)) ;; There seems to be no way to embed the path of libgoa-1.0.so.0. `("LD_LIBRARY_PATH" ":" prefix (,goa-path))) #t)))))) (native-inputs `(("gobject-introspection" ,gobject-introspection) ("intltool" ,intltool) ("pkg-config" ,pkg-config))) (inputs `(("folks" ,folks) ("libchamplain" ,libchamplain) ("libgee" ,libgee) ("libxml2" ,libxml2) ("geoclue" ,geoclue) ("geocode-glib" ,geocode-glib) ("gfbgraph" ,gfbgraph) ("gjs" ,gjs) ("glib" ,glib) ("gnome-online-accounts" ,gnome-online-accounts) ("rest" ,rest) ("webkitgtk" ,webkitgtk))) (propagated-inputs `(("gtk+3" ,gtk+))) (synopsis "Graphical map viewer and wayfinding program") (description "GNOME Maps is a graphical map viewer. It uses map data from the OpenStreetMap project. It can provide directions for walking, bicycling, and driving.") (home-page "https://wiki.gnome.org/Apps/Maps") (license license:gpl2+))) (define-public proj.4 (package (name "proj.4") (version "4.9.3") (source (origin (method url-fetch) (uri (string-append "http://download.osgeo.org/proj/proj-" version ".tar.gz")) (sha256 (base32 "1xw5f427xk9p2nbsj04j6m5zyjlyd66sbvl2bkg8hd1kx8pm9139")))) (build-system gnu-build-system) (arguments `(#:phases (modify-phases %standard-phases (add-after 'unpack 'patch-test-paths (lambda _ (substitute* '("nad/test27" "nad/test83" "nad/testvarious" "nad/testdatumfile" "nad/testflaky" "nad/testIGNF") (("/bin/rm") (which "rm"))) #t)) ;; Precision problems on i686 and other platforms. See: ;; https://web.archive.org/web/20151006134301/http://trac.osgeo.org/proj/ticket/255 ;; Disable failing test. (add-after 'patch-test-paths 'ignore-failing-tests (lambda _ (substitute* '("nad/Makefile.in") (("\tPROJ_LIB.*" all) (string-append "#" all))) #t))))) (inputs `(("glib" ,glib))) (home-page "http://proj4.org/") (synopsis "Cartographic Projections Library") (description "Proj.4 is a library for converting coordinates between cartographic projections.") (license (list license:expat ;; src/PJ_patterson.c license:asl2.0 ;; src/geodesic.c/h license:x11 ;; Embedded EPSG database. (license:non-copyleft "http://www.epsg.org/TermsOfUse") ;; cmake/* license:boost1.0))))