   (interactive)
   (org-overview)
   (org-reveal))
+
+(defun pmade:org-hide-all ()
+  "Close all headings, move to bob."
+  (interactive)
+  (goto-char (point-min))
+  (org-cycle '(4)))
 
 (defun pmade:org-list-append (&optional checkbox)
   "Append a plain list item to the current heading.  If the

       ((org-agenda-remove-tags t)
        (org-agenda-prefix-format "  ")
        (org-agenda-todo-keyword-format "")))
     (tags "TODO=\"NEXT\"-client-SCHEDULED>=\"<today>\"" 
       ((org-agenda-overriding-header "Non-Client Tasks Marked NEXT and Not Scheduled")
        (org-agenda-sorting-strategy '(tag-up))
        (org-agenda-show-inherited-tags nil)
        (org-agenda-todo-keyword-format "")))

                  "-a" "Emacs" "-d" "modeline"
                  "OrgMode Clock")))
    
(eval-after-load 'org-clock
  '(progn
     (defun org-clock-update-mode-line ()
       (if org-clock-effort (org-clock-notify-once-if-expired)
         (setq org-task-overrun nil))
       (setq global-mode-string (delq 'org-mode-line-string global-mode-string))
       (pmade:org-clock-growl (org-no-properties (org-clock-get-clock-string))))
     (defun pmade:org-clock-out-with-growl ()
       (pmade:org-clock-growl "Stopped"))
     (add-hook 'org-clock-out-hook 'pmade:org-clock-out-with-growl)))
