Return to init-openxm.scm CVS log

Up to [local] / OpenXM / src / kxx

Annotation of OpenXM/src/kxx/init-openxm.scm, Revision 1.2

1.2     ! ohara       1: ; $OpenXM: OpenXM/src/kxx/init-openxm.scm,v 1.1 2004/03/05 19:31:12 ohara Exp $
        !             2:
        !             3: (define (w3m t)
        !             4:   (if (string? t)
        !             5:        (system (string-append "rxvt -g 100x50 -e w3m " t "&"))))
        !             6:
        !             7: (define (w3m-local t)
        !             8:   (if (string? t)
        !             9:     (w3m (string-append "/usr/local/OpenXM/" t))))
1.1       ohara      10:
                     11: (define (openxm-initialize)
                     12:   (menu-extend texmacs-session-help-icons
                     13:     (if (and (in-openxm?)
1.2     ! ohara      14:          (url-exists? "/usr/local/OpenXM/doc/asir2000/html-jp/man_toc.html"))
1.1       ohara      15:     |
                     16:     ((balloon (icon "tm_help.xpm") "Risa/Asir manual")
1.2     ! ohara      17:      (w3m-local "doc/asir2000/html-eg/man_toc.html"))))
1.1       ohara      18:   (menu-extend texmacs-extra-menu
                     19:     (if (in-openxm?)
                     20:       (=> "OpenXM"
                     21:                ("Asir mode"    (insert-string "!asir;"))
                     22:                ("Kan/sm1 mode" (insert-string "!sm1;"))
                     23:                ---
                     24:                (-> "Manuals"
1.2     ! ohara      25:                        ("Risa/Asir manual"    (w3m-local "doc/asir2000/html-jp/man_toc.html"))
        !            26:                        ("Asir-contrib manual" (w3m-local "doc/asir-contrib/html-ja/cman-ja_toc.html")))
1.1       ohara      27:                (-> "Web"
1.2     ! ohara      28:                        ("The OpenXM Project"  (w3m "http://www.math.kobe-u.ac.jp/OpenXM/")))
1.1       ohara      29:                )))
                     30: )
                     31:
                     32: (plugin-configure openxm
1.2     ! ohara      33:   (:require (and (url-exists-in-path? "openxm") (url-exists-in-path? "ox_texmacs")))
1.1       ohara      34:   (:initialize (openxm-initialize))
1.2     ! ohara      35:   (:launch "openxm ox_texmacs")
1.1       ohara      36:   (:session "OpenXM"))