Return to init-openxm.scm CVS log

Up to [local] / OpenXM / src / kxx

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

1.3     ! ohara       1: ; $OpenXM: OpenXM/src/kxx/init-openxm.scm,v 1.2 2004/03/07 22:55:12 ohara Exp $
        !             2:
        !             3: (define (my-openxm-plugin-eval t)
        !             4:   (import-from (texmacs plugin plugin-cmd))
        !             5:   (import-from (texmacs plugin plugin-convert))
        !             6:   (plugin-eval "openxm" "default" (object->tree t)))
        !             7:
        !             8: (define (my-openxm-plugin-eval-paste t)
        !             9:   (insert-tree (object->tree (my-openxm-plugin-eval t))))
1.2       ohara      10:
                     11: (define (w3m t)
                     12:   (if (string? t)
1.3     ! ohara      13:     (system (string-append "rxvt -g 100x50 -e w3m " t "&"))))
1.2       ohara      14:
                     15: (define (w3m-local t)
                     16:   (if (string? t)
                     17:     (w3m (string-append "/usr/local/OpenXM/" t))))
1.1       ohara      18:
                     19: (define (openxm-initialize)
                     20:   (menu-extend texmacs-session-help-icons
                     21:     (if (and (in-openxm?)
1.3     ! ohara      22:           (url-exists? "/usr/local/OpenXM/doc/asir2000/html-jp/man_toc.html"))
1.1       ohara      23:     |
                     24:     ((balloon (icon "tm_help.xpm") "Risa/Asir manual")
1.2       ohara      25:      (w3m-local "doc/asir2000/html-eg/man_toc.html"))))
1.1       ohara      26:   (menu-extend texmacs-extra-menu
                     27:     (if (in-openxm?)
                     28:       (=> "OpenXM"
1.3     ! ohara      29:         (-> "Select engines"
        !            30:           ("Risa/Asir" (insert-string "!asir;"))
        !            31:           ("Kan/sm1"   (insert-string "!sm1;")))
        !            32:         (-> "Output format"
        !            33:           ("LaTeX"     (my-openxm-plugin-eval "!latex;"))
        !            34:           ("verbatim"  (my-openxm-plugin-eval "!verbatim;")))
        !            35:         ---
        !            36:         (-> "Manuals"
        !            37:           ("Risa/Asir manual"    (w3m-local "doc/asir2000/html-jp/man_toc.html"))
        !            38:           ("Asir-contrib manual" (w3m-local "doc/asir-contrib/html-ja/cman-ja_toc.html")))
        !            39:         (-> "Web"
        !            40:           ("The OpenXM Project"  (w3m "http://www.math.kobe-u.ac.jp/OpenXM/")))
        !            41:         )))
1.1       ohara      42: )
                     43:
                     44: (plugin-configure openxm
1.2       ohara      45:   (:require (and (url-exists-in-path? "openxm") (url-exists-in-path? "ox_texmacs")))
1.1       ohara      46:   (:initialize (openxm-initialize))
1.2       ohara      47:   (:launch "openxm ox_texmacs")
1.1       ohara      48:   (:session "OpenXM"))