;;; bascht --- org stuff
;;; Commentary:
;;; org-mode related settings

;;; Code:

(use-package org)
(use-package org-journal)
(use-package org-mu4e)
(use-package org-alert
  :commands (org-alert-enable))

(setq org-directory "~/Documents/Zettelkasten")
(setq org-agenda-files '("~/Documents/Zettelkasten" "~/Documents/Worklog"))
(setq org-default-notes-file "~/Documents/Zettelkasten/refile.org")
(setq org-agenda-file-regexp (format-time-string "\\`[^.].*\\.org\\'\\|\\`%Y%m[0-9]+\\'"))
(setq org-agenda-hide-tags-regexp "presents")
(setq org-agenda-include-diary t)
(setq org-agenda-show-inherited-tags (quote always))
(setq org-agenda-with-colors t)
(setq org-agenda-show-inherited-tags (quote always))
(setq org-agenda-tags-column -105)
(setq org-agenda-default-appointment-duration 60)
(setq org-agenda-columns-add-appointments-to-effort-sum t)
(setq org-archive-location "::* Archive")
(setq org-deadline-warning-days 5)
(setq org-scheduled-delay-days 0)
(setq org-duration-format (quote (("h" . t) (special . 2))))
(setq org-confirm-elisp-link-function nil)
(setq org-icalendar-alarm-time 120)
(setq org-icalendar-combined-agenda-file "~/Nextcloud/OrgExport/Org.ics")
(setq org-icalendar-include-todo (quote all))
(setq org-icalendar-store-UID t)
(setq org-icalendar-timezone "UTC+2:00")
(setq org-icalendar-use-deadline (quote (event-if-todo todo-due)))
(setq org-icalendar-use-scheduled (quote (event-if-todo todo-start)))
(setq org-icalendar-with-timestamps nil)
(setq org-journal-dir "~/Documents/Worklog/")
(setq org-journal-file-format "%Y%m%d")
(setq org-capture-templates
      '(("t" "Todo" entry (file "~/Documents/Zettelkasten/Todo.org")
         "* TODO %?\n  %i")
        ("m" "MailTodo" entry (file "~/Documents/Zettelkasten/Todo.org")
         "* TODO [#A] %?\nSCHEDULED: %(org-insert-time-stamp (org-read-date nil t \"+0d\"))\n%a\n")
        ("r" "RubyShift" entry (file+headline "~/Documents/Zettelkasten/Projects.org" "RubyShift")
         "* %?\nEntered on %U\n  %i\n  %a")))

(setq org-refile-targets '((org-agenda-files :maxlevel . 4)))
(setq org-refile-use-outline-path 'file)
(setq org-outline-path-complete-in-steps nil)
(setq org-refile-allow-creating-parent-nodes 'confirm)
(setq org-completion-use-ido t)

(setq org-tag-faces (quote (
                            ("next" . "red")
                            ("waiting" . "blue")
                            )))

;;store link to message if in header view, not to header query
(setq org-mu4e-link-query-in-headers-mode nil)

;;; Fancy!
(setq org-alert-notification-title "OrgMode")
(setq org-plantuml-jar-path "/home/bascht/bin/plantuml.jar")

;; (org-babel-do-load-languages
;;  (quote org-babel-load-languages)
;;  (quote ((emacs-lisp . t)
;;          (dot . t)
;;          (ditaa . t)
;;          (R . t)
;;          (python . t)
;;          (ruby . t)
;;          (gnuplot . t)
;;          (clojure . t)
;;          (sh . t)
;;          (ledger . t)
;;          (org . t)
;;          (plantuml . t)
;;          (latex . t))))

(setq org-feed-alist
      '(("Pinboard"
         "http://feeds.pinboard.in/rss/secret:05e96c41c91076f3ca0e/u:bascht/toread/"
         "~/Documents/Zettelkasten/Feeds.org" "Pinboard Unread")))

(setq org-confirm-babel-evaluate nil)

(add-to-list 'org-src-lang-modes (quote ("plantuml" . plantuml)))

(use-package org-super-agenda
  :config (org-super-agenda-mode))

(setq org-ellipsis "  ")
(setq org-pretty-entities t)

(setq org-agenda-custom-commands
      '(("c" "Mega Agenda" agenda
         (org-super-agenda-mode)
         ((org-super-agenda-groups
           '(
             (:name "Next Items"
                    :tag ("NEXT" "outbox"))
             (:name "Immersive + Deep"
                    :tag ("@immersive" "@deep"))
             (:name "Process + Shallow"
                    :time-grid t
                    :tag ("@process" "@shallow"))
             (:name "Important"
                    :priority "A")
             (:name "Quick Picks"
                    :effort< "0:30"
                    )
             (:priority<= "B"
                          :scheduled future
                          :order 1)
             )))
         (org-agenda nil "a"))))

(setq org-bullets-bullet-list
      '("" "" ""))

;; Switch to German Dictionary for org files
(add-hook 'org-mode-hook (lambda ()
                           (adict-change-dictionary "german")))

(spacemacs/toggle-mode-line-org-clock-on)

(provide 'org-config)
;;; org-config.el ends here
;; Local Variables:
;; byte-compile-warnings: (not free-vars unresolved)
;; End: