gistfile1.txt

  (defun jv-orgtree ()
    (interactive)
    (org-element-map  ( org-element-parse-buffer) 'headline ;;org-element-all-elements
                      (lambda (x) (if  (org-element-property :todo-type x) 
                        (message "title:%s" (org-element-property :title x)))))
    )