タグ

ブックマーク / read-eval-print.blogspot.com (2)

  • teepeedee2

    teepeedee2 をちょこっと動かしてみた。 (eval-when (:compile-toplevel :load-toplevel :execute) (require :teepeedee2)) (defpackage :try-teepeedee2 (:use :cl :tpd2 :tpd2.ml.html)) (in-package :try-teepeedee2) (defpage "/hello" ; URL ((name "Friend")) ; リクエストパラメータ (values ; ボディとヘッダの多値を返す (<html ; タグはマクロ (<body (<h1 "こんにちは " name) (<div "まみむめも♪"))) (byte-vector-cat ; ヘッダはバイトベクタで返す tpd2.webapp::+http-header-html-cont

  • Common Lisp で Twitter API をたたいてみる

    いまさらながら Twitter を再開しています。 そこで Common Lisp で Twitter API をたたいてみたいと思います。 REST なので Drakma で http-request すればできちゃいます。フォーマットは JSON を指定して、CL-JSON でデコードします。 デコードまでしてしまえば alist のリストが手に入るので、後は煮るなり焼くなり好きなように。なのですが、せっかくの Common Lisp なので無駄に with-selector なんていうマクロを書いて遊んでいます。 次のページを参考にさせていただきました。ありがとうございます。 観測気球さんのTwitter API 仕様書 (勝手に日語訳シリーズ) Twitter Development Talk API Documentation (eval-when (:compile-topl

  • 1