Things の今日タスクの進捗をカウントする AppleScript

毎日の進捗を把握し、かつ、モチベーションを（ある程度）上げるために、その日にやるべきタスクの達成度を時系列で記録し始めたわけですが、手間がかかるんですよね。というわけで AppleScript で自動化しました。ほんとは、appscript の Python バインドでやろうとしたのですが、ビルドに失敗したので、AppleScript です。

Things の「今日」タスク総数と、達成したタスク数を表示します。けっこう処理に時間がかかります。

tell application "Things"
    tell list "Today"
        set open_tasks to 0
        set completed_tasks to 0
        repeat with task in (to dos)
            tell task
                if status is open then
                    set open_tasks to open_tasks + 1
                else if status is completed then
                    set completed_tasks to completed_tasks + 1
                end if
            end tell
        end repeat
    end tell
    display dialog "Total: " & (open_tasks + completed_tasks) & return & "Done: " & completed_tasks
end tell

アプリケーションにコンパイルしたもの

もどうぞ。