Return to init-asir.scm CVS log | Up to [local] / OpenXM / src / texmacs / asir / progs |
File: [local] / OpenXM / src / texmacs / asir / progs / init-asir.scm (download)
Revision 1.3, Sun Feb 22 17:30:03 2009 UTC (15 years, 6 months ago) by ohara
The term "(help|html)-(eg|jp)" are replaced. |
; $OpenXM: OpenXM/src/texmacs/asir/progs/init-asir.scm,v 1.3 2009/02/22 17:30:03 ohara Exp $ (define (asir-initialize) (menu-extend help-menu (if (in-asir?) | ("Risa/Asir manual" (load-buffer "http://www.math.kobe-u.ac.jp/OpenXM/Current/doc/asir2000/html-en/man_toc.html"))) (if (in-asir?) | ("Asir-contrib" (load-buffer "http://www.math.kobe-u.ac.jp/OpenXM/Current/doc/asir-contrib/html-en/cman-en_toc.html"))) (if (in-asir?) | ("OpenXM Project" (load-buffer "http://www.math.kobe-u.ac.jp/OpenXM/"))) )) (plugin-configure asir (:require (url-exists-in-path? "ox_asir")) ; (:initialize (asir-initialize)) (:launch "tm_asir") (:session "Risa/Asir"))