Org-agenda

emacs/init.el

@@ -701,6 +701,7 @@
          ("C-c o s" . org-screenshot)
          ("C-c SPC" . org-table-blank-field)
          ("C-o a" . org-agenda)
+         ("C-o d" . my/org-agenda-today)
          ;; Unbind to make room for avy and mwim
          :map org-mode-map
          ("C-j" . nil)
@@ -717,7 +718,17 @@
   (add-to-list 'org-speed-commands '("h" . org-fold-hide-sublevels))
   (org-use-fast-todo-selection 'expert)
   (org-todo-keywords '((sequence "TODO(t)" "BLOCKED(b)" "|" "DONE(d)")))
-  (org-image-actual-width '(800)))
+  (org-use-property-inheritance '("STYLE"))
+  (org-image-actual-width '(800))
+  (org-agenda-custom-commands
+   '(("d" "Today's agenda and unscheduled TODOs"
+      ((agenda "" ((org-agenda-span 1)))
+       (todo "TODO" ((org-agenda-skip-function '(org-agenda-skip-entry-if 'scheduled 'deadline))))))))
+  :config
+  (defun my/org-agenda-today ()
+    "Show org agenda for today only."
+    (interactive)
+    (org-agenda nil "d")))
 
 (use-package org-bullets
   :ensure t