diff --git a/oni-org.el b/oni-org.el index d14f5a2..ca42e95 100644 --- a/oni-org.el +++ b/oni-org.el @@ -4,7 +4,7 @@ ;; Author: Tom Willemse ;; Keywords: local -;; Version: 20190528075843 +;; Version: 20190607115302 ;; Package-Requires: (org-plus-contrib org-bullets hydra org-wild-notifier) ;; This program is free software; you can redistribute it and/or modify @@ -82,6 +82,22 @@ ones that have a predecessor." (oni-org-heading-has-predecessor-p)) (oni-org-next-heading-position)))) +(defun oni-org-delete-frame-once () + "Run `delete-frame'. + +After running it once remove it from `org-capture-after-finalize-hook'." + (delete-frame) + (remove-hook 'org-capture-after-finalize-hook 'oni-org-delete-frame-once)) + +(defun oni-org-run-capture-in-dedicated-frame () + "Run `org-capture' in a dedicated frame." + (with-selected-frame (make-frame '((minibuffer))) + (org-capture nil "t") + (delete-other-windows) + (setf (frame-width) 80) + (setf (frame-height) 24) + (add-hook 'org-capture-after-finalize-hook 'oni-org-delete-frame-once))) + ;;;###autoload (defun oni-org-open-index () "Open the index of my org-based personal wiki." @@ -108,6 +124,9 @@ ones that have a predecessor." (setq org-agenda-todo-ignore-scheduled 'future) (setq org-agenda-skip-function-global #'oni-org-skip-tasks) +(setq org-agenda-custom-commands + '(("c" "Today's (Current) tasks" tags "SCHEDULED=\"\""))) + (setq org-agenda-files (mapcar #'oni-org-expand-to-home '("documents/gtd/todo.org"