Return to init-openxm.scm CVS log

Up to [local] / OpenXM / src / kxx

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

1.4     ! ohara       1: ; $OpenXM: OpenXM/src/kxx/init-openxm.scm,v 1.3 2004/03/10 17:31:13 ohara Exp $
1.3       ohara       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.4     ! ohara      47:   (:launch "exec openxm ox_texmacs")
1.1       ohara      48:   (:session "OpenXM"))