introduce session objects
[eow] / scratch.lisp
1 (setf *e* (empire::connect :user "1" :password "1"))
2 (empire::quit *e*)
3
4 ;; http://localhost:4242/eow/
5
6 ;(setf *r* (drakma:http-request "http://gdata.youtube.com/feeds/videos"))
7 ;
8 ;;; DOM
9 ;(setf *d* (cxml:parse *r* (cxml-dom:make-dom-builder)))
10 ;(dom:child-nodes *d*)
11 ;(dom:get-elements-by-tag-name *d* "entry")
12 ;(setf *c* (aref (dom:get-elements-by-tag-name *d* "entry") 0))
13 ;(dom:map-document (cxml:make-character-stream-sink *standard-output*) *c*)
14 ;
15 ;;; Klacks
16 ;(setf *s* (cxml:make-source *r*))
17 ;(klacks:peek-next *s*)
18 ;(klacks:find-element *s* "entry")
19 ;(klacks:serialize-element *s* (cxml-xmls:make-xmls-builder))