;;; init-org.el --- configure org  -*- lexical-binding:t -*-
;;; Commentary:
;;; Code:

(defun mpolden/org-goto ()
  "Jump to an Org heading.

Uses `consult-org-heading' if available, and otherwise falls back
to `org-goto'."
  (interactive)
  (if (functionp 'consult-org-heading)
      (call-interactively 'consult-org-heading)
    (org-goto)))

(use-package org
  :mode ("\\.org\\'" . org-mode)
  :bind (("C-c c" . org-capture)
         ("C-c l" . org-store-link)
         ("C-c a" . org-agenda)
         :map org-mode-map
         ("C-c o a" . org-archive-subtree)
         ("C-c o s" . org-save-all-org-buffers)
         ("C-c C-j" . mpolden/org-goto))
  :init
  ;; set default org directory
  (setq org-directory "~/org")

  ;; save archive file when archiving
  (setq org-archive-subtree-save-file-p t)

  ;; sparse tree construction shows matches in archived trees
  (setq org-sparse-tree-open-archived-trees t)

  ;; display all org files in agenda
  (setq org-agenda-files (list org-directory))

  ;; refile targets 1 level in current buffer and all org agenda files
  (setq org-refile-targets '((nil :maxlevel . 2) (org-agenda-files :maxlevel . 1)))

  ;; visual indenting only
  (setq org-startup-indented t
        org-adapt-indentation nil)

  ;; record time when moving a task to done state
  (setq org-log-done 'time)

  ;; capture template including title, date and time
  (setq org-capture-templates '(("i" "Inbox" entry (file "inbox.org")
                                 "* TODO %?\n%U")
                                ("t" "Tasks" entry (file+headline "notes.org" "Tasks")
                                 "* TODO %?\n%U")))

  ;; cycle opens archived trees
  (setq org-cycle-open-archived-trees t)

  ;; fold by default
  (setq org-startup-folded t)

  ;; define todo states
  (setq org-todo-keywords '((sequence "TODO(t)" "WAIT(w@)" "|" "ABRT(a@)" "DONE(d)")))

  ;; disallow invisible edits
  (setq org-catch-invisible-edits 'error)

  ;; complete tags from all agenda files
  (setq org-complete-tags-always-offer-all-agenda-tags t)

  ;; search headlines via completion
  (setq org-goto-interface 'outline-path-completion)

  ;; include the full path when searching headlines
  (setq org-outline-path-complete-in-steps nil)

  ;; insert state change notes and time stamps into a drawer
  (setq org-log-into-drawer t)

  ;; export as html5
  (setq org-html-doctype "html5")

  ;; hide todo entries whose deadline is far away according to
  ;; org-deadline-warning-days
  (setq org-agenda-todo-ignore-deadlines 'far)

  ;; hide todo entries scheduled in the future
  (setq org-agenda-todo-ignore-scheduled 'future)

  ;; include two weeks in agenda
  (setq org-agenda-span 'fortnight)

  ;; customize agenda
  (setq org-agenda-custom-commands
        '(;; default view
          ("n" "Agenda and all TODOs" ((agenda "") (alltodo "")))
          ;; split by state
          ("m" "Agenda and all TODOs split by state"
           ((agenda "") (todo "TODO") (todo "WAIT")))))

  ;; set export backends
  (setq org-export-backends '(ascii html md))

  ;; babel languages
  (setq org-babel-load-languages '((emacs-lisp . t)
                                   (python . t)
                                   (shell . t))
        org-babel-python-command "python3")

  :config
  ;; enable template expansion when typing <s in org-mode
  (add-to-list 'org-modules 'org-tempo t))

(use-package org-mac-link
  :ensure t
  :after org
  :if (eq system-type 'darwin)
  :bind (:map org-mode-map
         ("C-c o g" . org-mac-link-get-link)))

(use-package org-modern
  :ensure t
  :config
  (global-org-modern-mode 1))

(provide 'init-org)

;;; init-org.el ends here