OpenXM/src/kxx/init-openxm.scm - diff

Return to init-openxm.scm CVS log

Up to [local] / OpenXM / src / kxx

version 1.1, 2004/03/05 19:31:12

version 1.2, 2004/03/07 22:55:12

Line 1

; $OpenXM$

; $OpenXM: OpenXM/src/kxx/init-openxm.scm,v 1.1 2004/03/05 19:31:12 ohara Exp $

(define (w3m t)

(if (string? t)

(system (string-append "rxvt -g 100x50 -e w3m " t "&"))))

(define (w3m-local t)

(if (string? t)

(w3m (string-append "/usr/local/OpenXM/" t))))

(define (openxm-initialize)

(menu-extend texmacs-session-help-icons

(if (and (in-openxm?)

(url-exists? "/usr/local/OpenXM/doc/asir2000/html-eg/man_toc.html"))

(url-exists? "/usr/local/OpenXM/doc/asir2000/html-jp/man_toc.html"))

((balloon (icon "tm_help.xpm") "Risa/Asir manual")

(load-help-buffer "/usr/local/OpenXM/doc/asir2000/html-eg/man_toc.html"))) )

(w3m-local "doc/asir2000/html-eg/man_toc.html"))))

(menu-extend texmacs-extra-menu

(if (in-openxm?)

(=> "OpenXM"

Line 14

Line 22

("Kan/sm1 mode" (insert-string "!sm1;"))

---

(-> "Manuals"

("Risa/Asir manual" (load-help-buffer "/usr/local/OpenXM/doc/asir2000/html-eg/man_toc.html"))

("Risa/Asir manual" (w3m-local "doc/asir2000/html-jp/man_toc.html"))

("Asir-contrib manual" (load-help-buffer "/usr/local/OpenXM/doc/asir-contrib/html-en/cman-en_toc.html")))

("Asir-contrib manual" (w3m-local "doc/asir-contrib/html-ja/cman-ja_toc.html")))

(-> "Web"

("The OpenXM Project" (load-buffer "http://www.math.kobe-u.ac.jp/OpenXM/")))

("The OpenXM Project" (w3m "http://www.math.kobe-u.ac.jp/OpenXM/")))

)))

)

(plugin-configure openxm

(:require (url-exists-in-path? "ox_texmacs"))

(:require (and (url-exists-in-path? "openxm") (url-exists-in-path? "ox_texmacs")))

(:initialize (openxm-initialize))

(:launch "ox_texmacs")

(:launch "openxm ox_texmacs")

(:session "OpenXM"))