Annotation of OpenXM/src/kxx/init-openxm.scm, Revision 1.1
1.1 ! ohara 1: ; $OpenXM$
! 2:
! 3: (define (openxm-initialize)
! 4: (menu-extend texmacs-session-help-icons
! 5: (if (and (in-openxm?)
! 6: (url-exists? "/usr/local/OpenXM/doc/asir2000/html-eg/man_toc.html"))
! 7: |
! 8: ((balloon (icon "tm_help.xpm") "Risa/Asir manual")
! 9: (load-help-buffer "/usr/local/OpenXM/doc/asir2000/html-eg/man_toc.html"))) )
! 10: (menu-extend texmacs-extra-menu
! 11: (if (in-openxm?)
! 12: (=> "OpenXM"
! 13: ("Asir mode" (insert-string "!asir;"))
! 14: ("Kan/sm1 mode" (insert-string "!sm1;"))
! 15: ---
! 16: (-> "Manuals"
! 17: ("Risa/Asir manual" (load-help-buffer "/usr/local/OpenXM/doc/asir2000/html-eg/man_toc.html"))
! 18: ("Asir-contrib manual" (load-help-buffer "/usr/local/OpenXM/doc/asir-contrib/html-en/cman-en_toc.html")))
! 19: (-> "Web"
! 20: ("The OpenXM Project" (load-buffer "http://www.math.kobe-u.ac.jp/OpenXM/")))
! 21: )))
! 22: )
! 23:
! 24: (plugin-configure openxm
! 25: (:require (url-exists-in-path? "ox_texmacs"))
! 26: (:initialize (openxm-initialize))
! 27: (:launch "ox_texmacs")
! 28: (:session "OpenXM"))
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>