org-orgee-decorate-as-top-level

;; little idea about showing an orgee as top level
;; 'orgee' is a nick for org subtree

(let (overlays it-s-on)

  (defun org-decorate-as-top-level-tree-establish ()
    (interactive)
    (let (first-level)
      (org-map-entries
       (lambda ()
         (let ((level (org-outline-level)))
           (unless first-level
             (setf first-level level))
           (push (make-overlay (1+ (point)) (+ (point) first-level))
             overlays)
           (overlay-put (car overlays) 'invisible t)))
       t 'tree)))

  (defun org-decorate-as-top-level-tree-unravel ()
    (interactive)
    (dolist (ol overlays)
      (delete-overlay ol))
    (setf overlays nil)))