1 files changed, 2 insertions, 1 deletions
diff --git a/init.el b/init.el
index 8666235..8408556 100644
--- a/init.el
+++ b/init.el
@@ -246,7 +246,8 @@
           (tags priority-down category-keep)
           (search category-keep)))
   (setq org-agenda-custom-commands
-        '(("d" todo "DONE" nil)
+        '(("A" tags-todo "PRIORITY=\"A\"" nil)
+          ("d" todo "DONE" nil)
           ("u" "Unschedule TODO entries" alltodo ""
            ((org-agenda-skip-function
              (lambda nil