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

Return to init-openxm.scm CVS log

Up to [local] / OpenXM / src / kxx

version 1.14, 2005/01/23 09:55:29

version 1.15, 2006/02/13 06:14:22

Line 1

; $OpenXM: OpenXM/src/kxx/init-openxm.scm,v 1.13 2004/04/16 07:50:22 ohara Exp $

; $OpenXM: OpenXM/src/kxx/init-openxm.scm,v 1.14 2005/01/23 09:55:29 ohara Exp $

(define (alist-search alist)

(let* ((lang (or (getenv "LANG") "C"))

Line 49

(w3m (openxm-path t)))

(define (openxm-initialize)

(menu-extend texmacs-session-help-icons

; (menu-extend texmacs-session-help-icons

(if (in-openxm?)

; (if (in-openxm?)

; |

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

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

(w3m-search manual-asir2000))))

; (w3m-search manual-asir2000))))

(menu-extend texmacs-extra-menu

(if (in-openxm?)

(=> "OpenXM"

Line 92

)

(define (openxm-serialize lan t)

(import-from (texmacs plugin plugin-cmd))

(import-from (utils plugin plugin-cmd))

(with u (pre-serialize lan t)

(with s (texmacs->verbatim (stree->tree u))

(string-append (string-replace s "\n" "\v") "\n")