version 1.8, 2004/03/16 04:53:29 |
version 1.11, 2004/03/19 07:53:43 |
|
|
; $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.10 2004/03/17 13:28:38 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? "kterm") "kterm -g 100x50 -e w3m") |
(else #f))) |
((url-exists-in-path? "xterm") "xterm -g 100x50 -e w3m") |
|
(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") |
|
|
("LaTeX" (openxm-eval "!latex;")) |
("LaTeX" (openxm-eval "!latex;")) |
("verbatim" (openxm-eval "!verbatim;"))) |
("verbatim" (openxm-eval "!verbatim;"))) |
(-> "Load Modules (Asir)" |
(-> "Load Modules (Asir)" |
("dsolv" (openxm-eval "load(\"dsolv\");")) |
|
("ccurve" (openxm-eval "load(\"ccurve.rr\");")) |
("ccurve" (openxm-eval "load(\"ccurve.rr\");")) |
|
("dsolv" (openxm-eval "load(\"dsolv\");")) |
|
("ratint" (openxm-eval "load(\"ratint\");")) |
|
("solv" (openxm-eval "load(\"solv\");")) |
|
("sp" (openxm-eval "load(\"sp\");")) |
|
("sturm" (openxm-eval "load(\"sturm\");")) |
|
("sym" (openxm-eval "load(\"sym\");")) |
|
("weight" (openxm-eval "load(\"weight\");")) |
("yang" (openxm-eval "load(\"yang.rr\");")) |
("yang" (openxm-eval "load(\"yang.rr\");")) |
) |
) |
(-> "Display Configuration (Asir)" |
(-> "Display Configuration (Asir)" |
|
|
("Asir-contrib manual" |
("Asir-contrib manual" |
(w3m-search "doc/asir-contrib/html-ja/cman-ja_toc.html"))) |
(w3m-search "doc/asir-contrib/html-ja/cman-ja_toc.html"))) |
(-> "Web" |
(-> "Web" |
("The OpenXM Project" (w3m "http://www.math.kobe-u.ac.jp/OpenXM/"))) |
("The OpenXM Project" (w3m "http://www.math.kobe-u.ac.jp/OpenXM/")) |
|
("Risa/Asir web page" (w3m "http://www.math.kobe-u.ac.jp/Asir/index-ja.html"))) |
))) |
))) |
) |
) |
|
|