Testing org-super-agenda

emacs.el

;;; Package Management

;; Always load newest byte code
(setq load-prefer-newer t)

(require 'package)
(setq package-enable-at-startup nil)

;; Standard package repositories
(add-to-list 'package-archives '("org" . "http://orgmode.org/elpa/"))
(add-to-list 'package-archives '("melpa" . "http://melpa.org/packages/"))
(add-to-list 'package-archives '("melpa-stable" . "http://stable.melpa.org/packages/"))
(add-to-list 'package-archives '("marmalade" . "http://marmalade-repo.org/packages/"))

(package-initialize)
(custom-set-variables
 ;; custom-set-variables was added by Custom.
 ;; If you edit it by hand, you could mess it up, so be careful.
 ;; Your init file should contain only one such instance.
 ;; If there is more than one, they won't work right.
 '(package-selected-packages (quote (org org-super-agenda))))
(custom-set-faces
 ;; custom-set-faces was added by Custom.
 ;; If you edit it by hand, you could mess it up, so be careful.
 ;; Your init file should contain only one such instance.
 ;; If there is more than one, they won't work right.
 )

;; Show matching parentheses to make this easier.
(show-paren-mode t)


;; Org mode

(define-key global-map "\C-cc" 'org-capture)
(define-key global-map "\C-cl" 'org-store-link)
(define-key global-map "\C-ca" 'org-agenda)



(setq org-directory "~/org")
(setq org-default-notes-file (concat org-directory "/notes.org"))
(setq org-agenda-files (list "~/org/personal.org"
			     "~/org/work.org"))
(setq org-log-done 'time)
(setq org-log-done-with-time t)
(setq org-log-into-drawer t)
(setq org-completion-use-ido t)

(setq org-todo-keywords
      '((sequence "TODO(t)" "WAIT(w@/!)" "APPT(a)" "|" "DONE(d!)" "CANCELLED(c@)" "DELEGATED(l@)")))




;; Org Super Agenda
(setq org-agenda-custom-commands
      '(("u" "My Super View"
	 ((agenda "" ((org-super-agenda-groups
		      '((:name "Today"
			       :time-grid t
			       :scheduled "today"))
		     ))
		  )
	  (todo "" ((org-super-agenda-groups
		     '((:name "My Projects"
                              :children todo)
		       (:auto-group t)
		       (:name "Waiting"
			      :todo "WAIT")
		      )
		     ))
		))
	 ))
)