(require 'org-agenda)
(setq org-agenda-custom-commands
      '(("a" "Agenda and all TODO's"
         (;; 2週間の予定
          (agenda "" ((org-agenda-span 14)
                      (org-agenda-show-log nil)
                      (org-agenda-clockreport-mode nil)))
          ;; 今日の予定・行動記録
          (agenda "" ((org-agenda-span 1)
                      (org-agenda-show-log 'clockcheck)
                      (org-agenda-clockreport-mode t)))
          (alltodo "")))))
(defun org-agenda-cache (&optional regenerate)
  "agendaを更新せずに表示する。"
  (interactive "P")
  (when (or regenerate (null (get-buffer "*Org Agenda*")))
    ;; "a" は org-agenda-custom-commands で常用する文字
    (setq current-prefix-arg nil)
    (org-agenda nil "a"))
  (switch-to-buffer "*Org Agenda*")
  (delete-other-windows))
;;; そもそもqで*Org Agenda*を殺しているのが悪い!
(define-key org-agenda-mode-map (kbd "q") 'quit-window)