解いた問題

1/03/2012

EmacsからAOJにサブミットする

Emacs Lisp 初挑戦。
Emacs から Aizu Online Judge (AOJ) にサブミットする Emacs Lispを描いてみた。

年末の退屈をしのぐために作ったので、これ以上は手を加えません。。。
動作も、しっかりとは確認してません。何が起こっても知りません。。。


使い方
  • 必要なモノをインストールしたり、置いたり。
    deferred.el
    http-get.el
    xml.el
    url.el
    wget
  • .emacs.el (.emacs)にこの2行を追加。
    (require 'aoj)
    (aoj-user-info "user-id" "passwd")

提供する機能は2つ
  • M-x aoj-submit
    • カレントバッファの内容をAOJにサブミットします。
    • バッファ名から問題番号を判別します。問題番号.拡張子をバッファ名にしてください。(e.g. 0001.cpp
  • M-x aoj-last20sub
    • AOJの最近の20サブミッションの結果を表示します。
以下コード