[BACK]Return to init-openxm.scm CVS log [TXT][DIR] Up to [local] / OpenXM / src / kxx

Diff for /OpenXM/src/kxx/init-openxm.scm between version 1.14 and 1.16

version 1.14, 2005/01/23 09:55:29 version 1.16, 2006/02/13 09:21:08
Line 1 
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.15 2006/02/13 06:14:22 ohara Exp $
   
 (define (alist-search alist)  (define (alist-search alist)
   (let* ((lang (or (getenv "LANG") "C"))    (let* ((lang (or (getenv "LANG") "C"))
Line 13 
Line 13 
   (alist-search    (alist-search
    '(("C"  . "doc/asir-contrib/html-en/cman-en_toc.html") ("ja" . "doc/asir-contrib/html-ja/cman-ja_toc.html"))))     '(("C"  . "doc/asir-contrib/html-en/cman-en_toc.html") ("ja" . "doc/asir-contrib/html-ja/cman-ja_toc.html"))))
   
 (define (openxm-eval t)  (define openxm-eval script-apply)
   (import-from (texmacs plugin plugin-cmd))  ; (define (openxm-eval t)
   (import-from (texmacs plugin plugin-convert))  ;   (import-from (texmacs plugin plugin-cmd))
   (plugin-eval "openxm" "default" (object->tree t)))  ;   (import-from (texmacs plugin plugin-convert))
   ;   (plugin-eval "openxm" "default" (object->tree t)))
   
 (define (openxm-eval-paste t)  ; (define (openxm-eval-paste t)
   (insert-tree (object->tree (openxm-eval t))))  ;   (insert-tree (object->tree (openxm-eval t))))
   
 (define (openxm-path t)  (define (openxm-path t)
   (if (string? t)    (if (string? t)
Line 49 
Line 50 
   (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"
Line 92 
Line 93 
 )  )
   
 (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 (stree->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")
Legend:
Removed from v.1.14  
changed lines
  Added in v.1.16
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>