 
   (setq org-agenda-compact-blocks t
         org-agenda-sticky t
+        org-agenda-todo-list-sublevels nil
+        org-agenda-overriding-columns-format "%60ITEM(Details) %TAGS(Context) %7TODO(To Do) %5Effort(Time){:} %6CLOCKSUM"
         org-agenda-start-on-weekday nil
         org-agenda-span 'day
         org-agenda-include-diary nil

        `(("N" "Notes" tags "NOTE"
           ((org-agenda-overriding-header "Notes")
            (org-tags-match-list-sublevels t)))
          ("g" "GTD"
           ((agenda "" nil)
            (tags "INBOX"


(after-load 'org
  (define-key org-mode-map (kbd "C-M-<up>") 'org-up-element)
  (define-key org-mode-map (kbd "C-c >") 'org-time-stamp-inactive)
  (when *is-a-mac*
    (define-key org-mode-map (kbd "M-h") nil)
    (define-key org-mode-map (kbd "C-c g") 'org-mac-grab-link)))
