version 1.1, 2004/02/25 14:45:28 |
version 1.3, 2009/02/22 17:30:03 |
|
|
; $OpenXM$ |
; $OpenXM: OpenXM/src/texmacs/asir/progs/init-asir.scm,v 1.2 2004/02/28 19:00:48 ohara Exp $ |
|
|
; (define (asir-initialize) |
(define (asir-initialize) |
; (menu-extend texmacs-session-help-icons |
(menu-extend help-menu |
; (if (and (in-asir?) |
(if (in-asir?) | |
; (url-exists? "$OpenXM_HOME/doc/asir2000/html-eg/man_toc.html")) |
("Risa/Asir manual" (load-buffer "http://www.math.kobe-u.ac.jp/OpenXM/Current/doc/asir2000/html-en/man_toc.html"))) |
; | |
(if (in-asir?) | |
; ((balloon (icon "tm_help.xpm") "Asir manual") |
("Asir-contrib" (load-buffer "http://www.math.kobe-u.ac.jp/OpenXM/Current/doc/asir-contrib/html-en/cman-en_toc.html"))) |
; (load-help-buffer "$OpenXM_HOME/doc/asir2000/html-eg/man_toc.html"))) |
(if (in-asir?) | |
; )) |
("OpenXM Project" (load-buffer "http://www.math.kobe-u.ac.jp/OpenXM/"))) |
|
)) |
|
|
(plugin-configure asir |
(plugin-configure asir |
(:require (url-exists-in-path? "ox_asir")) |
(:require (url-exists-in-path? "ox_asir")) |
; (:initialize (asir-initialize)) |
; (:initialize (asir-initialize)) |
(:launch "tm_asir") |
(:launch "tm_asir") |
(:session "Asir")) |
(:session "Risa/Asir")) |