#!/usr/local/bin/sxmlcnv


(define SmartDoc:abbrev-table
  '(
    (W:sxml
     (*link "SXML" "http://okmij.org/ftp/Scheme/SXML.html"))
    (W:xml
     (*link "XML"  "http://www.w3.org/XML/"))
    (W:xml-infoset
     (*link "XML Infoset" "http://www.w3.org/TR/xml-infoset/"))
    (W:smartdoc
     (*link "SmartDoc" "http://www.asahi-net.or.jp/~dp8t-asm/java/tools/SmartDoc/"))
    (W:gauche
     (*link "Gauche" "http://www.shiro.dreamhost.com/scheme/gauche/index-j.html"))
    (W:sxml-gauche
     (*link "SXML-gauche" "http://www.shiro.dreamhost.com/scheme/gauche/packages.html"))
    (W:ssax
     (*link "ssax" "http://ssax.sourceforge.net/"))
    (W:GPL
     (*link "GNU General Public License (GPL2)" "http://www.gnu.org/licenses/gpl.html"))
    (W:slib
     (*link "SLIB(portable scheme library)" "http://www.swiss.ai.mit.edu/~jaffer/SLIB.html"))))
  

(define (L:body)
  '(body
    (p
     (img (@ src "sea_of_bali_small.png")))
    (*section
     "プロジェクト"
     "Projects"
     (*ja
      (ul (li (*link " Sumibi ( 新感覚日本語入力メソッド ) "
                     "http://www.sumibi.org/"))
          (li (*link " R@eply.org ( iモードメール専用Webリーダー ) "
                     "http://r.eply.org/"))
          (li (*link " Predoc ( 軽量ドキュメントフォーマット ) "
                     "predoc/"))
          (li (*link " TzWatch ( Lingr用の時刻表示アプリ ) "
                     "http://www.sumibi.org/lingr/tzwatch.cgi"))
          (li (*link " Oneliner ( Emacs shell mode ) "
                     "http://oneliner-elisp.sourceforge.net/index_ja.html"))
          (li (*link " Cmmi (configure ; make ; make install) "
                     "cmmi/index_ja.html"))
          (li (*link " Sxmlcnv (SXML <-> XML) "
                     "sxmlcnv/index_ja.html"))
          (li (*link " WhatsNewプロジェクト (WebSite 変更箇所表示プログラム) "
                     "whatsnew/index.html"))
          (li (*link "   Sewnn (Simple eWnn Client) "
                     "sewnn/index.html"))
          (li (*link " Emulin (Javaで記述したLinux Emulator) "
                     "emulin/"))))
     (*en
      (ul (li (*link " Sumibi ( roman to kanji conversion system ) "
                     "http://www.sumibi.org/"))
          (li (*link " R@eply.org ( web reader for i-mode mail ) "
                     "http://r.eply.org/"))
          (li (*link " Predoc ( lightweight document format ) "
                     "predoc/"))
          (li (*link " TzWatch ( World watch application for Lingr.com ) "
                     "http://www.sumibi.org/lingr/tzwatch.cgi"))
          (li (*link " Oneliner ( Emacs shell mode ) "
                     "http://oneliner-elisp.sourceforge.net/index.html"))
          (li (*link " Cmmi (configure ; make ; make install) "
                     "cmmi/index.html"))
          (li (*link " Sxmlcnv (SXML <-> XML) "
                     "sxmlcnv/index.html"))
          (li (*link " WhatsNew ('diff' tool for web site) "
                     "whatsnew/index.html"))
          (li (*link "   Sewnn (Simple eWnn Client) "
                     "sewnn/index.html"))
          (li (*link " Emulin (Linux Emulator in Java) "
                     "emulin/")))))
    (*section
     "ドキュメント"
     "Documents"
     (*ja
      (ul (li (*link "世界の果てから漢字変換 Sumibiの開発 2006(jus関西での講演資料)"
		     "http://www.sumibi.org/slides/sumibi_2006.html"))
          (li (*link " Jcodeを使おう (Kansai.pmでの講演資料)"
		     "jcode_intro/index.html"))
	  (li (*link " TMTOWTDIの謎を探る (Kansai.pmでの講演資料)"
		     "tmtowtdi/tmtowtdi.html"))
	  (li (*link " Emacsカスタマイズ入門 (LILO LMSでの講演資料)"
		     "emacs_setq/emacs_setq.html")
	      (*link " [PDF版] "
		     "emacs_setq/emacs_setq.pdf"))))
     (*en
      (ul (li "No Documents in English."))))

    (*section
     "日記"
     "Diary"
     (*ja
      (ul (li (*link "kiyoka日記"
		     "diary/"))))
     (*en
      (ul (li (*link "kiyoka Diary (in Japanese)"
		     "diary/")))))
    (p
     (img (@ src "sea_of_pipi_small.png")))

    (*section
     "プロフィール"
     "Profile"
     (*ja
      (ul
       (li "西山 清香")
       (li "eメール:" (*link "kiyoka@sumibi.org "
                            "mailto:kiyoka@sumibi.org"))
       (li "mixiID: kiyoka")))
     (*en
      (ul
       (li " Kiyoka Nishiyama")
       (li "email:"  (*link "kiyoka@sumibi.org "
                            "mailto:kiyoka@sumibi.org"))
       (li "mixiID: kiyoka"))))))

(SXML->XML
 SmartDoc:style-sheet
 `(*TOP* 
   (*PI* xml "version='1.0' ")
   (doc (@ (xml:lang "ja"))
	(head (title " Kiyoka Web ")
              ;; (author "Kiyoka Nishiyama ")
              ;; (date " $Date: 2007/02/10 13:22:27 $ ")
              )
	,(L:body))))