| version 1.8, 2004/03/16 04:53:29 |
version 1.9, 2004/03/16 11:41:15 |
|
|
| ; $OpenXM: OpenXM/src/kxx/init-openxm.scm,v 1.7 2004/03/16 03:26:40 ohara Exp $ |
; $OpenXM: OpenXM/src/kxx/init-openxm.scm,v 1.8 2004/03/16 04:53:29 ohara Exp $ |
| |
|
| (define (openxm-eval t) |
(define (openxm-eval t) |
| (import-from (texmacs plugin plugin-cmd)) |
(import-from (texmacs plugin plugin-cmd)) |
|
|
| (define w3m-cmd |
(define w3m-cmd |
| (cond |
(cond |
| ((url-exists-in-path? "w3m") |
((url-exists-in-path? "w3m") |
| (cond ((url-exists-in-path? "rxvt") "rxvt -g 100x50 -e w3m") |
(cond ((url-exists-in-path? "rxvt") "rxvt -g 100x50 -e w3m") |
| ((url-exists-in-path? "xterm") "xterm -g 100x50 -e w3m") |
((url-exists-in-path? "xterm") "xterm -g 100x50 -e w3m") |
| (else #f))) |
(else #f))) |
| ((url-exists-in-path? "mozilla" ) "mozilla" ) |
((url-exists-in-path? "mozilla" ) "mozilla" ) |
| ((url-exists-in-path? "netscape") "netscape") |
((url-exists-in-path? "netscape") "netscape") |
| ((url-exists-in-path? "iexplore") "iexplore") |
((url-exists-in-path? "iexplore") "iexplore") |
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to init-openxm.scm CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM / src / kxx