Add functions to show a special capture frame, add agenda command

Add functions to show a capture frame so that I can call it from anywhere and
quickly capture some Org notes.

Add an agenda command that shows me all the tasks that have been scheduled for
today.

1 files changed, 20 insertions, 1 deletions

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 <tom@ryuslash.org>
 ;; 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=\"<today>\"")))
+
 (setq org-agenda-files
       (mapcar #'oni-org-expand-to-home
               '("documents/gtd/todo.org"