(write-preamble): remove pdf-viewer code.

diff --git a/ChangeLog b/ChangeLog
index d0726be8edb31b78ed6d73294b38fc9c66a54404..50e1b857698d68d151ad25c8296b8957feca75bf 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,7 @@
 2005-02-27  Han-Wen Nienhuys  <hanwen@xs4all.nl>
 
+       * scm/framework-ps.scm (write-preamble): remove pdf-viewer code.
+ 
        * THANKS: add sponsor.
 
        * scm/define-markup-commands.scm (with-url): new markup command.

diff --git a/scm/framework-ps.scm b/scm/framework-ps.scm
index 620042278d664857cbc6e8ddf7d011817ae0ec70..6707d5ce51c9392910d7a1c01df1c7e2cee3fd9b 100644 (file)
--- a/scm/framework-ps.scm
+++ b/scm/framework-ps.scm
@@ -242,17 +242,6 @@
                  (filter string? font-names))))
           pfas))
 
-  ;; FIXME: user preference, somehow?
-  (define (pdf-viewer)
-    (define (find-alternative path lst)
-      (let ((command (search-path path (car lst))))
-       (if (or command (null? lst)) command
-           (find-alternative path (cdr lst)))))
-    (let ((path (parse-path (getenv "PATH")))
-         (pdf-viewers '("acroread" "gpdf" "kpdf" "xpdf" "gv" "echo")))
-      (find-alternative path pdf-viewers)))
-  
-  (format port "/pdf-viewer (~a) def\n" (basename (pdf-viewer)))
   (display (procset "music-drawing-routines.ps") port)
   (display (procset "lilyponddefs.ps") port)
   (if load-fonts?