   (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-defkey org-mode-map "\C-\M-p"   'org-metaup)
    (org-defkey org-mode-map "\C-\M-n"   'org-metadown)

    (org-defkey org-mode-map "\C-c1"               'pmade:org-hide-others)
    (org-defkey org-mode-map "\C-c\C-r"            'pmade:org-reveal)
    (org-defkey org-mode-map "\C-j"                'pmade:org-list-append)

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