Content-Security-Policy: default-src 'none'
Content-Type: text/plain; charset=UTF-8
Content-Length: 3247
Content-Disposition: inline; filename="gv.scm"
Last-Modified: Sat, 28 Sep 2024 07:29:46 GMT
Expires: Tue, 26 Sep 2034 07:29:46 GMT
ETag: "b2e1fbb211e236d8d2b0ca74720d712e5dd4b33a"

;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2013 Andreas Enge <andreas@enge.fr>
;;; Copyright © 2013, 2016, 2017 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2016 Efraim Flashner <efraim@flashner.co.il>
;;;
;;; 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 gv)
  #:use-module (gnu packages)
  #:use-module (gnu packages ghostscript)
  #:use-module (gnu packages compression)
  #:use-module (gnu packages pkg-config)
  #:use-module (gnu packages xorg)
  #:use-module ((guix licenses) #:prefix license:)
  #:use-module (guix packages)
  #:use-module (guix download)
  #:use-module (guix build-system gnu))

(define-public gv
  (package
   (name "gv")
   (version "3.7.4")
   (source (origin
            (method url-fetch)
            (uri (string-append "mirror://gnu/gv/gv-"
                                version ".tar.gz"))
            (sha256 (base32
                     "0q8s43z14vxm41pfa8s5h9kyyzk1fkwjhkiwbf2x70alm6rv6qi1"))))
   (build-system gnu-build-system)
   (arguments
    '(#:phases (modify-phases %standard-phases
                 (add-before 'configure 'set-gs-file-name
                   (lambda* (#:key inputs #:allow-other-keys)
                     ;; Set the value of 'GV.gsInterpreter' in the generated
                     ;; 'gv_system.ad' file.
                     (let ((gs (assoc-ref inputs "ghostscript")))
                       (with-fluids ((%default-port-encoding "ISO-8859-1"))
                        (substitute* "src/Makefile.in"
                          (("GV\\.gsInterpreter:([[:blank:]]+)gs" _ blank)
                           (string-append "GV.gsInterpreter:" blank
                                          gs "/bin/gs"))
                          (("GV\\.gsCmd([[:alpha:]]+):([[:blank:]]+)gs" _
                            command blank)
                           (string-append "GV.gsCmd" command ":"
                                          blank gs "/bin/gs"))))
                       #t))))))
   (inputs `(("ghostscript" ,ghostscript/x)
             ("libx11" ,libx11)
             ("libxaw3d" ,libxaw3d)
             ("libxinerama" ,libxinerama)
             ("libxpm" ,libxpm)
             ("zlib" ,zlib)))
   (native-inputs
     `(("pkg-config" ,pkg-config)))
   (synopsis "PostScript and PDF viewer using Ghostscript as a back-end")
   (description
    "GNU GV is a graphical user interface to the Ghostscript interpreter.
With it, one can view and navigate through PostScript and PDF documents in X
Windows.")
   (license license:gpl3+)
   (home-page "https://www.gnu.org/software/gv/")))
alue='0' selected='selected'>include</option><option value='1'>ignore</option></select></td></tr><tr><td class='label'>mode:</td><td class='ctrl'><select name='dt' onchange='this.form.submit();'><option value='0' selected='selected'>unified</option><option value='1'>ssdiff</option><option value='2'>stat only</option></select></td></tr><tr><td/><td class='ctrl'><noscript><input type='submit' value='reload'/></noscript></td></tr></table></form></div><div class='diffstat-header'><a href='/guix/diff/?id=54b29af03cd7c0efa1962942beddb0f294920d4a'>Diffstat</a> (limited to 'etc/guix-install.sh')</div><table summary='diffstat' class='diffstat'></table><div class='diffstat-summary'>0 files changed, 0 insertions, 0 deletions</div><table summary='diff' class='diff'><tr><td></td></tr></table></div> <!-- class=content -->
                         <div class=footer>generated by
                             <a href="https://git.zx2c4.com/cgit/about/">
                                 cgit
                             </a>
                         </div>
                        </div> <!-- id=cgit -->
</body>
</html>
d><a href='/guix/commit/tests/guix-build.sh?id=1397b422e254929de1805aaf1d0759cd5da6a60b'>store: 'GUIX_DAEMON_SOCKET' can now be a URI.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2017-03-19 18:14:22 +0100'>2017-03-19</span></td><td><a href='/guix/commit/tests/guix-build.sh?id=f6396d862f9f8ce0c0e6894ce30599773167af0c'>gnu: Rename "guile-next" to "guile".</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2016-10-03 15:24:21 +0200'>2016-10-03</span></td><td><a href='/guix/commit/tests/guix-build.sh?id=d223ac4acc51602e1be91d611ea2b4266edf6ee3'>tests: Adjust 'guix build -S' test for source-less packages.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2016-09-06 23:22:10 +0200'>2016-09-06</span></td><td><a href='/guix/commit/tests/guix-build.sh?id=01afdab89c6a91f4cd05d3c4f4ff95a0402703eb'>packages: Add 'package-superseded' and associated support.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2016-03-08 11:38:46 +0100'>2016-03-08</span></td><td><a href='/guix/commit/tests/guix-build.sh?id=95cd4971d07fe312a4e0d21b72e7bf1bba493753'>packages: Support the deprecated "NAME-VERSION" syntax.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2016-03-03 00:18:30 +0100'>2016-03-03</span></td><td><a href='/guix/commit/tests/guix-build.sh?id=94d609aba8e14963459c21863ab56da2b5f01517'>guix build: -S returns the replacement's source.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2016-03-02 21:41:41 +0100'>2016-03-02</span></td><td><a href='/guix/commit/tests/guix-build.sh?id=1b846da8c372bee78851439fd9e72b2499115e5a'>utils: Use '@' for separating package names and version numbers.</a><span class='msg-avail'>...</span></td><td>Mathieu Lirzin</td></tr>
<tr><td><span title='2016-03-02 14:47:07 +0100'>2016-03-02</span></td><td><a href='/guix/commit/tests/guix-build.sh?id=442a6ff5eae094f1fd4e09241a2f35c33ab908da'>tests: Disable grafts by default.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2016-02-01 08:59:13 +0100'>2016-02-01</span></td><td><a href='/guix/commit/tests/guix-build.sh?id=47c0f92c37dc7d50d9d4598ce5b91c4cdfec6ed1'>guix build: Add '--with-input'.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2015-10-28 08:40:16 -0400'>2015-10-28</span></td><td><a href='/guix/commit/tests/guix-build.sh?id=34a1783fc1498d7150210da22dd7804d288438b3'>scripts: build: Add --file option.</a><span class='msg-avail'>...</span></td><td>David Thompson</td></tr>
<tr><td><span title='2015-05-02 23:15:40 -0500'>2015-05-02</span></td><td><a href='/guix/commit/tests/guix-build.sh?id=2cdfe13deaf3d959e1ecb3a207cdbc28985e0e79'>guix: build: Add transitive source building.</a><span class='msg-avail'>...</span></td><td>Eric Bavier</td></tr>
<tr><td><span title='2014-11-30 18:54:07 +0100'>2014-11-30</span></td><td><a href='/guix/commit/tests/guix-build.sh?id=16eb115ef4986f319e6aebb04cefce12bc851e01'>guix: scripts: Add GUIX_BUILD_OPTIONS environment handling.</a><span class='msg-avail'>...</span></td><td>nebuli</td></tr>
<tr><td><span title='2014-08-27 00:27:12 +0200'>2014-08-27</span></td><td><a href='/guix/commit/tests/guix-build.sh?id=af9142dce07c8b5055b2306f330c32ed7f562458'>tests: Fix typo in guix-build.sh.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2014-06-14 22:55:59 +0200'>2014-06-14</span></td><td><a href='/guix/commit/tests/guix-build.sh?id=56b821069722c6341e9079299d90ae1cdfe9a916'>guix build: Allow gexps to be passed to '-e'.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2014-04-28 23:41:12 +0200'>2014-04-28</span></td><td><a href='/guix/commit/tests/guix-build.sh?id=ada3df03e33f686467ce4e887381e8753a3e603b'>monads: Hide 'derivation-expression' and 'lower-inputs'.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
