(add-to-list 'load-path "~/code/org-mode/git/lisp/")
(add-to-list 'load-path "~/code/org-mode/git/lisp/babel/")
(add-to-list 'load-path "~/code/org-mode/git/lisp/langs/")

(require 'org-install)
(require 'org)

;;; BUG SPECIFIC

(unless (file-directory-p "/tmp/org")
  (make-directory "/tmp/org" t))

(with-current-buffer (find-file-noselect "/tmp/org/inbox.org")
  (erase-buffer)
  (insert "* TODO Headline 1\n\n* TODO Headline 2")
  (save-buffer)
  (kill-buffer))

(with-current-buffer (find-file-noselect "/tmp/org/target.org")
  (erase-buffer)
  (insert "* TARGET")
  (save-buffer)
  (kill-buffer))

(setq org-agenda-files '("/tmp/org"))
(setq org-refile-targets '((org-agenda-files . (:maxlevel . 3))))
(setq org-refile-use-outline-path 'file)

(fset 'agenda-macro
   [?\M-x ?o ?r ?g ?- ?a ?g ?e ?n ?d ?a return ?t down down ?m ?m ?B ?r ?t ?a ?r tab return])

(if (condition-case nil
	(progn
	  (execute-kbd-macro 'agenda-macro)
	  t)
      (error
       nil))
    (kill-emacs 0)
  (kill-emacs 1))