version 1.13, 2004/04/16 07:50:22 |
version 1.15, 2006/02/13 06:14:22 |
|
|
; $OpenXM: OpenXM/src/kxx/init-openxm.scm,v 1.12 2004/03/25 01:05:34 ohara Exp $ |
; $OpenXM: OpenXM/src/kxx/init-openxm.scm,v 1.14 2005/01/23 09:55:29 ohara Exp $ |
|
|
(define (alist-search alist) |
(define (alist-search alist) |
(let* ((lang (or (getenv "LANG") "C")) |
(let* ((lang (or (getenv "LANG") "C")) |
|
|
(w3m (openxm-path t))) |
(w3m (openxm-path t))) |
|
|
(define (openxm-initialize) |
(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 |
(menu-extend texmacs-extra-menu |
(if (in-openxm?) |
(if (in-openxm?) |
(=> "OpenXM" |
(=> "OpenXM" |
|
|
) |
) |
|
|
(define (openxm-serialize lan t) |
(define (openxm-serialize lan t) |
(import-from (texmacs plugin plugin-cmd)) |
(import-from (utils plugin plugin-cmd)) |
(with u (pre-serialize lan t) |
(with u (pre-serialize lan t) |
(with s (texmacs->verbatim (object->tree u)) |
(with s (texmacs->verbatim (stree->tree u)) |
(string-append (string-replace s "\n" "\v") "\n") |
(string-append (string-replace s "\n" "\v") "\n") |
))) |
))) |
|
|