From e06a2e1a1d22bbcfc97c83014c4fbd8c01bcdc7f Mon Sep 17 00:00:00 2001
From: Ivan Malison <IvanMalison@gmail.com>
Date: Fri, 25 Aug 2017 12:49:35 -0700
Subject: [PATCH 1/3] [Emacs] Use frames in org-mode when frame-mode enabled

---
 dotfiles/emacs.d/README.org | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/dotfiles/emacs.d/README.org b/dotfiles/emacs.d/README.org
index 32e799ee..c73dfb20 100644
--- a/dotfiles/emacs.d/README.org
+++ b/dotfiles/emacs.d/README.org
@@ -1164,6 +1164,12 @@ it on by default. Its probably safe to turn it on when in a programming mode.
   :demand t
   :config
   (progn
+    (defun imalison:maybe-use-frames-for-org (&rest args)
+      (let ((fn (if frame-mode 'org-switch-to-buffer-other-window
+                  'switch-to-buffer-other-frame)))
+        (apply fn args)))
+    (advice-add 'org-switch-to-buffer-other-window
+                :override 'imalison:maybe-use-frames-for-org)
     (add-hook 'frame-mode-hook (lambda () (display-time-mode -1)))
     (frame-mode +1)
     (frame-keys-mode +1)))

From d94b1d3a4f2c87ab48fb3cc122b51efd2998683e Mon Sep 17 00:00:00 2001
From: Ivan Malison <IvanMalison@gmail.com>
Date: Fri, 25 Aug 2017 12:50:12 -0700
Subject: [PATCH 2/3] [Emacs] Change super-agenda ordering

---
 dotfiles/emacs.d/README.org | 14 ++++++++------
 1 file changed, 8 insertions(+), 6 deletions(-)

diff --git a/dotfiles/emacs.d/README.org b/dotfiles/emacs.d/README.org
index c73dfb20..3b5f81a9 100644
--- a/dotfiles/emacs.d/README.org
+++ b/dotfiles/emacs.d/README.org
@@ -3411,12 +3411,14 @@ alphanumeric characters only."
 #+BEGIN_SRC emacs-lisp
 (use-package org-super-agenda
   :config
-  (setq org-super-agenda-groups
-        '((:order-multi (-1 (:name "High priority"
-                                   (:priority<= "B"))))
-          (:order-multi (1 (:name "Done today"
-                                  :and (:regexp "State \"DONE\""
-                                               :log t)))))))
+  (progn
+    (org-super-agenda-mode +1)
+    (setq org-super-agenda-groups
+          '((:order-multi (1 (:name "High priority"
+                                     :priority> "C")))
+            (:order-multi (1 (:name "Done today"
+                                    :and (:regexp "State \"DONE\""
+                                                  :log t))))))))
 #+END_SRC
 **** helm-org-rifle
 #+BEGIN_SRC emacs-lisp

From 12fe1a87db4a3e302132e7835fe11bb4aaee11e0 Mon Sep 17 00:00:00 2001
From: Ivan Malison <IvanMalison@gmail.com>
Date: Fri, 25 Aug 2017 12:50:28 -0700
Subject: [PATCH 3/3] [Emacs] Add default priority to GTD template

---
 dotfiles/emacs.d/README.org | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/dotfiles/emacs.d/README.org b/dotfiles/emacs.d/README.org
index 3b5f81a9..a7ffa782 100644
--- a/dotfiles/emacs.d/README.org
+++ b/dotfiles/emacs.d/README.org
@@ -2925,7 +2925,7 @@ Intero seems to be causing hangs, so it has been disabled
               ((eq major-mode 'org-agenda-mode) (org-agenda-todo)))))
 
     (defun imalison:make-org-linked-todo-template ()
-      (imalison:make-org-todo-template "%? %A"))
+      (imalison:make-org-todo-template "[#C] %? %A"))
 
     (defun org-cmp-creation-times (a b)
       (let ((a-created (get-date-created-from-agenda-entry a))