[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.2, Sat Feb 28 19:00:48 2004 UTC (20 years, 4 months ago) by ohara
Branch: MAIN
CVS Tags: RELEASE_1_2_3, RELEASE_1_2_2_KNOPPIX_b, RELEASE_1_2_2_KNOPPIX, KNOPPIX_2006, DEB_REL_1_2_3-9
Changes since 1.1: +11 -10 lines 

revised

; $OpenXM: OpenXM/src/texmacs/asir/progs/init-asir.scm,v 1.2 2004/02/28 19:00:48 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-eg/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"))