134 lines
4.5 KiB
EmacsLisp
134 lines
4.5 KiB
EmacsLisp
;;; 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:
|