;; -*- lexical-binding: t; -*-


(defvar-local agenda-file "~/Personal/roam/agenda/agenda_tasks.org")

(defun bd/org-mode-setup-hook ()
  "Sets up improved org-mode defaults upon
each org file open."
  (org-indent-mode)
  (org-toggle-inline-images)
  (org-toggle-pretty-entities))

;; hooks
(add-hook 'org-mode-hook 'bd/org-mode-setup-hook)

;; binds
(keymap-global-set "C-c n a" 'org-agenda)
(keymap-global-set "C-c n c" 'org-capture)
(keymap-global-set "C-c n s" 'org-schedule)
(keymap-global-set "C-c n d" 'org-deadline)
(keymap-global-set "C-c n r" 'org-refile)

;; source blocks
(org-babel-do-load-languages
 'org-babel-load-languages
 '((emacs-lisp . t)
   (python . t)
   (shell . t)
   (lisp . t)))

;; standard
(setopt org-startup-folded 'show2levels
        org-ellipsis " ▾")

;; agenda
(advice-add 'org-refile :after 'org-save-all-org-buffers) ; after refiling tasks, save all buffers

(setopt org-agenda-files
        `(,agenda-file "~/Personal/roam/agenda/archived_tasks.org")

        org-deadline-warning-days 7
        org-log-done 'time
        org-log-into-drawer "history"

        org-todo-keywords
        '((sequence "TODO(t)" "NEXT(n!)" "|" "DONE(d)" "CANC(c)"))

        org-refile-targets ; refile into the headings of these files, not tags
        '(("archived_tasks.org" :maxlevel . 1)
          ("agenda_tasks.org" :maxlevel . 1))

        org-capture-templates
        `(("t" " Tasks")
          ("ts" "Software Testing" entry (file+olp ,agenda-file "CS415")
           "* TODO %?\n DEADLINE: %^t")
          ("tm" "Machine Learning" entry (file+olp ,agenda-file "CS445")
           "* TODO %?\n DEADLINE: %^t")
          ("tp" "Programming Languages" entry (file+olp ,agenda-file "CS454")
           "* TODO %?\n DEADLINE: %^t")
          ("tc" "Creative Writing" entry (file+olp ,agenda-file "E210")
           "* TODO %?\n DEADLINE: %^t")
          ("s" " Self")
          ("s" "Unsorted Task" entry (file+olp ,agenda-file "Self")
           "* TODO %?\n %^t\n %a"))

        org-agenda-custom-commands
        '(("S" "Standard Block Agenda"
           ((tags-todo "*"
                       ((org-agenda-skip-function '(org-agenda-skip-if nil '(timestamp)))
                        (org-agenda-block-separator nil)
                        (org-agenda-overriding-header "Undated Tasks\n")))
            (agenda "" ((org-agenda-span 8)
                        (org-deadline-warning-days 0)
                        (org-agenda-block-separator nil)
                        (org-scheduled-past-days 4)
                        (org-agenda-overriding-header "\nUpcoming Tasks\n")))
            (agenda "" ((org-agenda-time-grid nil)
                        (org-agenda-show-all-dates nil)
                        (org-agenda-span 21)
                        (org-deadline-warning-days 0)
                        (org-agenda-block-separator nil)
                        (org-agenda-entry-types '(:deadline))
                        (org-agenda-skip-function '(org-agenda-skip-entry-if 'todo 'done))
                        (org-agenda-overriding-header "\nFuture Deadlines (+21d)\n")))))))


(provide 'bd--org)