openbsd-ports/lang/newlisp/patches/patch-guiserver_newlisp-edit_lsp

$OpenBSD: patch-guiserver_newlisp-edit_lsp,v 1.2 2012/12/28 14:48:42 jasper Exp $
--- guiserver/newlisp-edit.lsp.orig	Tue Jul 19 23:32:22 2011
+++ guiserver/newlisp-edit.lsp	Fri Dec 28 15:46:19 2012
@@ -1,4 +1,4 @@
-#!/usr/bin/newlisp
+#!${PREFIX}/bin/newlisp
 
 ; newlisp-edit.lsp - multiple tab LISP editor and support for running code from the editor
 ; needs 9.9.2 version minimum to run
@@ -155,7 +155,7 @@
 			(write-file file (base64-dec text)))
 		(if (= ostype "Win32")
 			(catch (exec (string {newlisp.exe "} currentScriptFile {" } file " > " (string file "out"))) 'result)
-			(catch (exec (string "/usr/bin/newlisp " currentScriptFile " " file)) 'result)
+			(catch (exec (string "${PREFIX}/bin/newlisp " currentScriptFile " " file)) 'result)
 		)
 		(if (list? result)
 			(begin
@@ -223,7 +223,7 @@
 		(gs:run-shell 'OutputArea 
 			(string newlispDir "/newlisp.exe " currentExtension " -C -w \"" $HOME "\""))
 		(gs:run-shell 'OutputArea 
-			(string "/usr/bin/newlisp " currentExtension " -C -w " $HOME))
+			(string "${PREFIX}/bin/newlisp " currentExtension " -C -w " $HOME))
 	)
 )
 
@@ -1446,11 +1446,7 @@
 		; all other UNIX
 		(true 
 			(set 'files '(
-					"/usr/bin/sensible-browser"
-					"/usr/bin/x-www-browser"
-					"/usr/bin/mozilla"
-					"/usr/bin/firefox"
-					"/usr/bin/konqueror"
+					"${PREFIX}/bin/xdg-open"
 				))
 			(set 'prog (find true (map file? files)))
 			(if prog