あやぴーが今日の天気をお伝えします。

2013-08-06東京都 東京 の天気曇時々雨最低気温: --, 最高気温: 32

2013-08-06 11:47:56 via gosh_de_tweet

こんな感じ

元ネタというか、こんなものを走り書きしたのはこの発言を受けて。

「晴れルヤ」っていう天気予報をメールでお知らせしてくれるサービスが予告無しにサービス停止しちゃってすごく不便(´・ω・`)　サービス停止するならちゃんとそのこと伝えてよー

2013-08-06 06:42:27 via ShootingStar

コードこんなん。assoc-refがやたらめったら出てくるけど、んーんー…。

#!/usr/local/bin/gosh

(use rfc.http)
(use rfc.uri)
(use rfc.json)
(use gauche.parseopt)
(use net.twitter)

;; twitter
(define *cred* (make <twitter-cred>
		 :consumer-key "XXXXXXXXXXX"
		 :consumer-secret "XXXXXXXXXXX"
		 :access-token "XXXXXXXXXXX"
		 :access-token-secret "XXXXXXXXXXX"))

;; use livedoor weather api.
;; http://weather.livedoor.com/forecast/webservice/json/v1

(define (tenki-api city)
  (receive (status head body)
	   (http-get "weather.livedoor.com"
		     (string-append
		      "/forecast/webservice/json/v1"
		      "?city=" city))
	   (parse-json-string body)))

(define (temperature-celsius temperature m)
  (let ((temp (assoc-ref temperature m)))
    (if (pair? temp) (assoc-ref temp "celsius") "--")))

(define (formatting tenki day)
  (let* ((description (assoc-ref tenki "description"))
	 (forecasts   (assoc-ref tenki "forecasts"))
	 (day         (vector-ref forecasts day)))
    (let* ((title        (assoc-ref tenki "title"))
	   (date         (assoc-ref day "date"))
	   (image        (assoc-ref day "image"))
	   (image-title  (assoc-ref image "title"))
	   (image-url    (assoc-ref image "url"))
	   (temperature  (assoc-ref day "temperature"))
	   (temp-min-cel (temperature-celsius temperature "min"))
	   (temp-max-cel (temperature-celsius temperature "max")))
      (string-join `(,date
		     ,title
		     ,image-title
		     ,(string-append "最低気温: " temp-min-cel
				     ", 最高気温: " temp-max-cel))
		     (string #\newline)))))

(define (main args)
  (let-args (cdr args)
	    ((city "c|city=s" "130010")
	     (day "d|day=i" 0)
	     (tweet "tweet")
	     . rest)
	    (let ((content (formatting (tenki-api city) day)))
	      (if tweet
		  (twitter-update *cred* content)
		  (print content)))))