予定とTODOを一覧表示〜追加

;;TODOとスケジュールを一覧表示
(setq howm-todo-schedule-types "[!@+-]")
(defun howm-list-todo-schedule ()
  (interactive)
  (let ((howm-view-summary-format (if howm-view-split-horizontally;; dirty!
                                      ""
                                    howm-view-summary-format)))
    (howm-list-reminder howm-todo-schedule-types howm-list-schedule-name)
    (howm-view-sort-by-summary)
    (howm-reminder-goto-today)))

とりあえずhowmのソースからコピーしてこんな感じで。もうちょっと見やすくしたいです。範囲指定もしたいし。