diff options
Diffstat (limited to '.emacs.d/site-lisp/org-init.el')
| -rw-r--r-- | .emacs.d/site-lisp/org-init.el | 25 |
1 files changed, 17 insertions, 8 deletions
diff --git a/.emacs.d/site-lisp/org-init.el b/.emacs.d/site-lisp/org-init.el index 5a4d804..6a5c908 100644 --- a/.emacs.d/site-lisp/org-init.el +++ b/.emacs.d/site-lisp/org-init.el @@ -40,6 +40,9 @@ (with-eval-after-load 'org-crypt (org-crypt-use-before-save-magic)) +(eval-and-compile + (add-to-list 'load-path "~/.emacs.d/vendor-lisp/habitrpg.el")) + (defun tagify (str) "Remove dots, replace - with _ in STR." (replace-regexp-in-string @@ -77,12 +80,14 @@ (defun org-init-skip-tags () "Skip the \"ex\" and \"unconfirmed\" tags." - (let ((tags (org-entry-get (point) "TAGS"))) - (when (and tags (string-match-p - (rx (and ":" (or "ex" "unconfirmed") ":")) tags)) + (let ((tags (org-get-tags-at (point)))) + (when (or (member "ex" tags) + (member "unconfirmed" tags)) (save-excursion - (org-forward-element) - (point))))) + (or + (ignore-errors (org-forward-element) + (point)) + (point-max)))))) (defun org-init-get-tag-name () "Get the name for a new tag for the currently loaded desktop." @@ -94,8 +99,6 @@ "")) ""))) -(setq org-agenda-files '("~/documents/org/tasks")) - (setq org-agenda-cmp-user-defined (lambda (a b) 1)) (setq org-agenda-prefix-format '((agenda . " %i %-12:c%?-12t% s") @@ -112,7 +115,7 @@ (setq org-directory (expand-file-name "~/documents/org")) (setq org-default-notes-file (concat org-directory "/org")) (setq org-capture-templates - `(("t" "Task" entry (file "~/documents/org/tasks") + `(("t" "Task" entry (file+headline "~/documents/org/tasks" "Task Queue") "* TODO %? %(org-init-get-tag-name)" :empty-lines-before 1) ("T" "Linked task" entry (file "~/documents/org/tasks") @@ -179,5 +182,11 @@ (org-agenda-to-appt) (ad-activate 'org-agenda-redo) +(require 'habitrpg) +(add-hook 'org-after-todo-state-change-hook 'habitrpg-add 'append) + +(setq org-mobile-directory "~/ownCloud/MobileOrg" + org-mobile-inbox-for-pull "~/documents/org/inbox.org") + (provide 'org-init) ;;; org-init.el ends here |