org-super-agenda

[Jousimies]

(setq org-agenda-custom-commands
  '((" " "Agendas"
     ((agenda "" ((org-agenda-span 'day)
          (org-super-agenda-groups
           '((:name "Scheduled earlier"
                :scheduled past)
             (:name "Today"
                :and (:scheduled today :not (:tag ("Family" "Reading"))))
             (:name "Due Today"
                :deadline today
                :face (:foreground "Red" :underline t)
                :order 0)
             (:name "Due Soon"
                :deadline future
                :order 3)
             (:name "Overdue"
                :deadline past
                :order 4)
             (:discard (:anything t))))))
      (todo "" ((org-agenda-overriding-header "")
            (org-super-agenda-groups
             '((:discard (:scheduled t :deadline t :todo "NEXT" :children t :tag ("Emacs" "Arch" "Linux" "Ubuntu" "Windows" "Computer" "Family" "Reading" "FunTime" "读书")))))))
      (todo "" ((org-agenda-overriding-header "")
            (org-super-agenda-groups
             '((:name "Next List: DO IT ASAP."
              :and (:todo "NEXT" :scheduled nil :deadline nil :not (:tag ("Review" "FunTime" "Reading"))))
           (:name "Projects lists"
              :children t
              :order 0)
           (:discard (:anything t))))))
      (todo "" ((org-agenda-overriding-header "")
            (org-super-agenda-groups
             '((:name "Life and Family"
              :and (:tag "Family" :scheduled nil :deadline nil)
              :order 0)
           (:discard (:anything t))))))
      (todo "" ((org-agenda-overriding-header "")
            (org-super-agenda-groups
             '((:name "COMPUTER SCIENCE"
              :and (:tag ("Emacs" "Arch" "Linux" "Ubuntu" "Windows" "Computer"))
              :order 0)
           (:name "Reading lists"
              :and (:tag ("Reading" "读书"))
              :order 1)
           (:name "Fun time"
              :and (:tag ("FunTime") :scheduled nil)
              :order 2)
           (:discard (:anything t))))))
      (todo "SOMEDAY" ((org-agenda-overriding-header "==============MAYBE FUTURE==============")))
      (todo "WAIT" ((org-agenda-overriding-header "")))))))
(with-eval-after-load 'org-super-agenda
  (define-key org-super-agenda-header-map (kbd "j") nil)
  (define-key org-super-agenda-header-map (kbd "k") nil))
(add-hook 'after-init-hook 'org-super-agenda-mode)