LLFuture

定員1000人なら、ただのミーハーがちょっとくらい紛れ込んでも大丈夫かと思って少し前にチケット買っちゃったんだけど、去年のプログラムを見直したり大物ゲストの発表とか見ると不安になってくる。

まあでも折角なので空気読まずに行ってみよう。

とりあえず
doukaku.org
xyzzyでやってみる。
miyamukoさんのxml-http-request使用。便利すぎる。

(require "xml-http-request")
(defun get-tinyurl (url)
  (let ((res (xhr::xhr-get (concat "http://tinyurl.com/api-create.php?url=" url)
                           :key 'xhr::xhr-response-text)))
    (when (and res (string-match "http:\/\/tinyurl\.com\/\[0-9a-z\]+" res))
      res)))

(msgbox (get-tinyurl "http://ll.jus.or.jp/2008/info/xgihyo"))

しかし何の工夫も思いつかない。