bit.ly API version 3 を利用して短縮 url への変換を gauche でやってみた

twitter などでよく見かける短縮 url サービス bit.ly のAPI を利用して短縮 url へ変換するスクリプトを gauche で書いてみました。あいかわらずだからなんだという話ではありますが、ネタ的なところとしては bit.ly API の version 3 が 3 月 30 日に公開されて format=txt で短縮 url だけをテキストで取得できるようになりました。これは地味に便利です。お尻に改行が付くのは余計だと思いますが。ということで以下がそのスクリプトです。小なりのうしろにセミコロンがついているのは syntaxhighlighter のバグか何かで実際には必要ないです。

(use srfi-11)
(use srfi-13)
(use rfc.http)
(use rfc.uri)

(define-class <bitly> ()
  ((login :init-value "" 
          :init-keyword :login 
          :accessor login-of)
   (apikey :init-value "" 
           :init-keyword :apikey 
           :accessor apikey-of)
   (version :init-value 3.0 
            :getter version-of)))

(define-method shorten ((bitly <bitly>) (url <string>))
  (let* ((encoded-url (uri-encode-string url)) 
         (query-list `(("format" "txt") 
                       ("longUrl" ,encoded-url) 
                       ("login" ,(login-of bitly)) 
                       ("apiKey" ,(apikey-of bitly)))) 
         (query-string (string-join (map (cut string-join <> "=") query-list) "&")) 
         (trim (cut string-trim-both <> #[[:space:]]))) 
    (let-values (((status headers body) 
                  (http-get "api.bit.ly" (string-append "/v3/shorten?" query-string)))) 
                (if (not (string=? status "200")) 
                  #f 
                  (trim body)))))

(define bitly-client
  (make <bitly> 
        :login "your_login" 
        :apikey "your_api_key"))

(shorten bitly-client "http://www.google.co.jp/search?q=あいうえお")