Return to init-openxm.scm CVS log

Up to [local] / OpenXM / src / kxx

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