[O] displaying icons in heading or subheadings

[Cédric ODY]

Hi,

I'd like to be able to display icons just after the stars in heading or 
subheadings, by defining the icon as a property. For instance


* Emacs heading
  :PROPERTIES:
  :ICON:  /tmp/emacs.png
  :END:

I have tried something like

#+BEGIN_SRC elisp :results value raw
(let ((parsetree (org-element-parse-buffer 'headline)))
  (org-element-map parsetree 'headline
    (lambda (hl) (org-back-to-heading t) (insert-image (create-image 
(org-element-property :ICON hl))))))
#+END_SRC

which inserts the icon before the star.

Any hint to do it? Is this smart enough?

Thanks,

co


--
--------------

02 98 49 86 04