From smihica at gmail.com  Fri Aug 14 16:40:01 2009
From: smihica at gmail.com (=?ISO-2022-JP?B?GyRCQEQ7Mz83GyhC?=)
Date: Sat, 15 Aug 2009 01:40:01 +0900
Subject: [Web4r-devel-ja] =?iso-2022-jp?b?GyRCJDQ8QUxkJCwkIiRqJF4kOSEjGyhC?=
Message-ID: <d5d1b75f0908140940u77d802b8mcef2f45ed92dd973@mail.gmail.com>

????????(nagayoru)????????
Lisp????????????????????????

???(http://github.com/tomoyuki28jp/web4r/tarball/v0.2.8)?????Web?????????????

???????????

defpage??????? "/" ??????????????????????????????
(defpage "/" () ... )????? "//" ????????????

????
(defpage top-page () ...)
(push (hunchentoot:create-prefix-dispatcher "/" #'(lambda ()
(web4r:page "top-page"))) hunchentoot:*dispatch-table*)
?????????????????????????????

?????????????
????

[div :id "main_parent"
  [div :id "main"]]

????????????????

(with-template (:default)
  (replace "#main"
           [div :id "a"]
           [div :id "b"]
           [div :id "c"]))

?????????????
?????????????????????????????????

(with-template (:default)
  (remove "#main")
  (append "#main-parent" [div :id "a"])
  (append "#main-parent" [div :id "b"])
  (append "#main-parent" [div :id "c"]))

??????????????????

?????????????????????????
?????????????



From tomoyuki28jp at gmail.com  Sat Aug 15 05:44:31 2009
From: tomoyuki28jp at gmail.com (Tomo Matsumoto)
Date: Sat, 15 Aug 2009 14:44:31 +0900
Subject: [Web4r-devel-ja]
	=?iso-2022-jp?b?GyRCJDQ8QUxkJCwkIiRqJF4kOSEjGyhC?=
In-Reply-To: <d5d1b75f0908140940u77d802b8mcef2f45ed92dd973@mail.gmail.com>
References: <d5d1b75f0908140940u77d802b8mcef2f45ed92dd973@mail.gmail.com>
Message-ID: <780e7d140908142244tbfd2cc0pf030ed845b786587@mail.gmail.com>

????

??????
web4r?????????

????????ML?????? :)
web4r??????????????????

> defpage??????? "/" ???????????
> ???????????????????
> (defpage "/" () ... )????? "//" ????????????

?????(Ubuntu 9.04 32bit + SBCL 1.0.18 + web4r 0.2.8)??
????????????"http://localhost:8080/"????????
????????????????????????????????
??????????????OS?Lisp?????????????

(defpage / ()   [p "default1"])
(defpage "/" () [p "default2"])

> [div :id "main_parent"
>  [div :id "main"]]
>
> ????????????????
>
> (with-template (:default)
>  (replace "#main"
>           [div :id "a"]
>           [div :id "b"]
>           [div :id "c"]))
>
> ?????????????

??????????????
??????????????

?????????sml v0.1.6????????????
?????????????????????????
??????

github??????????????asdf-install??
sml?v0.1.6?????????????cliki???
????????

github: http://github.com/tomoyuki28jp/sml/downloads
cliki:  http://www.cliki.net/sml

????sml v0.1.5??progn????????????
???????
(with-template (:template1)
 (replace "#main"
          (progn
            [div :id "a"]
            [div :id "b"]
            [div :id "c"])))

?????????????????????

??

2009/8/15 ??? <smihica at gmail.com>:
> ????????(nagayoru)????????
> Lisp????????????????????????
>
> ???(http://github.com/tomoyuki28jp/web4r/tarball/v0.2.8)?????Web?????????????
>
> ???????????
>
> defpage??????? "/" ??????????????????????????????
> (defpage "/" () ... )????? "//" ????????????
>
> ????
> (defpage top-page () ...)
> (push (hunchentoot:create-prefix-dispatcher "/" #'(lambda ()
> (web4r:page "top-page"))) hunchentoot:*dispatch-table*)
> ?????????????????????????????
>
> ?????????????
> ????
>
> [div :id "main_parent"
>  [div :id "main"]]
>
> ????????????????
>
> (with-template (:default)
>  (replace "#main"
>           [div :id "a"]
>           [div :id "b"]
>           [div :id "c"]))
>
> ?????????????
> ?????????????????????????????????
>
> (with-template (:default)
>  (remove "#main")
>  (append "#main-parent" [div :id "a"])
>  (append "#main-parent" [div :id "b"])
>  (append "#main-parent" [div :id "c"]))
>
> ??????????????????
>
> ?????????????????????????
> ?????????????
>
> _______________________________________________
> Web4r-devel-ja mailing list
> Web4r-devel-ja at common-lisp.net
> http://common-lisp.net/cgi-bin/mailman/listinfo/web4r-devel-ja
>