git.pond.sub.org Git - eow/blob - scratch.lisp

   1
   2 (hunchentoot:start-server :port 4242)
   3 (setf hunchentoot:*show-lisp-backtraces-p* t)
   4 (setf hunchentoot:*show-lisp-errors-p* t)
   5 (empire-web:start)
   6 ;; http://localhost:4242/eow/
   7
   8 ;(setf *r* (drakma:http-request "http://gdata.youtube.com/feeds/videos"))
   9 ;
  10 ;;; DOM
  11 ;(setf *d* (cxml:parse *r* (cxml-dom:make-dom-builder)))
  12 ;(dom:child-nodes *d*)
  13 ;(dom:get-elements-by-tag-name *d* "entry")
  14 ;(setf *c* (aref (dom:get-elements-by-tag-name *d* "entry") 0))
  15 ;(dom:map-document (cxml:make-character-stream-sink *standard-output*) *c*)
  16 ;
  17 ;;; Klacks
  18 ;(setf *s* (cxml:make-source *r*))
  19 ;(klacks:peek-next *s*)
  20 ;(klacks:find-element *s* "entry")
  21 ;(klacks:serialize-element *s* (cxml-xmls:make-xmls-builder))