#!/bin/emacs --script

(add-to-list 'load-path (locate-user-emacs-file "lisp/my"))
(require 'org-agenda)
(require 'my-package)
(my-read-local-config)
(my-setq-from-local my-org-agenda-and-next-export-files)
(my-setq-from-local org-agenda-files)

(progn
  (setq org-todo-keywords
        '((sequence "TODO(t)" "DOIN(i)" "WAIT(w)" "|"
                    "DONE(d)" "OBSO(o)" "DUPL(u)")))
  (setq org-closed-keep-when-no-todo t)
  (setq org-enforce-todo-dependencies t
        org-enforce-todo-checkbox-dependencies nil)
  (setq org-use-fast-todo-selection 'expert)
  (setq org-agenda-custom-commands
	      `(("A" "Agenda and next"
	         ((agenda ""
		                ((org-agenda-span 32)
                     ;; only works when `org-agenda-start-on-weekday'
                     ;; is nil
                     (org-agenda-start-day "-2d")))
	          (tags-todo "PRIORITY=\"A\"" nil))
	         nil
           ,my-org-agenda-and-next-export-files
           )))
  (setq large-file-warning-threshold nil)
  (setq org-agenda-todo-ignore-time-comparison-use-seconds t)
  (setq org-agenda-todo-ignore-deadlines 'all)
  (setq org-agenda-todo-ignore-scheduled 'all)
  (setq org-agenda-todo-ignore-with-date 'all)
  (setq org-agenda-todo-ignore-timestamp 'all)
  (setq org-agenda-tags-todo-honor-ignore-options t)
  (setq org-agenda-sticky t)
  (setq org-agenda-inhibit-startup t)
  (setq org-agenda-skip-deadline-if-done nil)
  (setq org-agenda-skip-scheduled-if-done nil)
  (setq org-agenda-skip-timestamp-if-done t)
  (setq org-agenda-start-on-weekday nil)
  )

(let ((make-backup-files nil))
  (call-interactively 'org-store-agenda-views))