[BACK]Return to init-asir.scm CVS log [TXT][DIR] 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, 3 months ago) by ohara
Branch: MAIN
CVS Tags: R_1_3_1-2, RELEASE_1_3_1_13b, RELEASE_1_2_3_12, HEAD
Changes since 1.2: +2 -2 lines 

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"))