convert planet deps to pkg deps

Author: rmculpepper

info.rkt

@@ -5,5 +5,9 @@
 #lang info
 
 (define collection 'multi)
-(define deps '("base"))
+(define deps '("base"
+               "sxml"
+               "planet-neil-html-writing1"
+               "compatibility-lib"
+               "web-server-lib"))
 (define build-deps '("racket-doc" "scribble-lib"))

webapi/atom.rkt

@@ -1,10 +1,10 @@
-;; Copyright 2011-2012 Ryan Culpepper
+;; Copyright 2011-2013 Ryan Culpepper
 ;; Released under the terms of the LGPL version 3 or later.
 ;; See the file COPYRIGHT for details.
 
 #lang racket/base
 (require racket/class
-         (planet clements/sxml2:1)
+         sxml
          "private/sxml.rkt")
 (provide atom<%>
          atom)

webapi/blogger.rkt

@@ -1,4 +1,4 @@
-;; Copyright 2011-2012 Ryan Culpepper
+;; Copyright 2011-2013 Ryan Culpepper
 ;; Released under the terms of the LGPL version 3 or later.
 ;; See the file COPYRIGHT for details.
 
@@ -12,8 +12,8 @@
          "private/net.rkt"
          "private/has-atom.rkt"
          "private/sxml.rkt"
-         (planet clements/sxml2:1)
-         (planet neil/html-writing:1))
+         sxml
+         neil/html-writing1/main)
 (provide blogger-scope
          blogger<%>
          blogger%

webapi/picasa.rkt

@@ -1,4 +1,4 @@
-;; Copyright 2011-2012 Ryan Culpepper
+;; Copyright 2011-2013 Ryan Culpepper
 ;; Released under the terms of the LGPL version 3 or later.
 ;; See the file COPYRIGHT for details.
 
@@ -12,7 +12,7 @@
          "private/net.rkt"
          "private/has-atom.rkt"
          "private/sxml.rkt"
-         (planet clements/sxml2:1))
+         sxml)
 (provide picasa-scope
          picasa<%>
          picasa-album<%>

webapi/private/oauth2.rkt

@@ -1,4 +1,4 @@
-;; Copyright 2011-2012 Ryan Culpepper
+;; Copyright 2011-2013 Ryan Culpepper
 ;; Released under the terms of the LGPL version 3 or later.
 ;; See the file COPYRIGHT for details.
 
@@ -8,7 +8,7 @@
          net/url
          net/uri-codec
          "net.rkt"
-         (planet neil/json-parsing:1))
+         json)
 (provide oauth2-auth-server<%>
          oauth2-auth-server
 
@@ -207,7 +207,7 @@ Reference: http://code.google.com/apis/accounts/docs/OAuth2.html
              [json
               (get/url (url-add-query tokeninfo-url
                                       `((access_token . ,(get-access-token #:who who))))
-                       #:handle json->sjson
+                       #:handle read-json
                        #:who who)])
         (unless (equal? (hash-ref json 'audience #f) (send client get-id))
           (error who "invalid token: not issued to client"))
@@ -235,7 +235,7 @@ Reference: http://code.google.com/apis/accounts/docs/OAuth2.html
                 #:headers (form-headers)
                 #:data (body/acquire-token #:auth-code auth-code
                                            #:redirect-uri redirect-uri)
-                #:handle json->sjson
+                #:handle read-json
                 ;; FIXME: add #:fail arg that reads json error response
                 #:who who))
 
@@ -252,7 +252,7 @@ Reference: http://code.google.com/apis/accounts/docs/OAuth2.html
       (post/url (send auth-server get-token-url)
                 #:headers (form-headers)
                 #:data (body/refresh-token)
-                #:handle json->sjson
+                #:handle read-json
                 ;; FIXME: add #:fail arg that reads json error response
                 #:who who))
 

webapi/private/sxml.rkt

@@ -4,7 +4,7 @@
 
 #lang racket/base
 (require (only-in mzlib/etc begin-lifted)
-         (planet clements/sxml2:1))
+         sxml)
 (provide read-sxml
          namespace-names
          xpath-nss