From mboxrd@z Thu Jan 1 00:00:00 1970 From: =?UTF-8?Q?C=c3=a9dric_ODY?= Subject: displaying icons in heading or subheadings Date: Tue, 25 Apr 2017 10:39:49 +0200 Message-ID: <7966d8aa-639f-61f9-8921-648595f7e612@univ-brest.fr> Mime-Version: 1.0 Content-Type: text/plain; charset=utf-8; format=flowed Content-Transfer-Encoding: 7bit Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:49471) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1d2w3u-0005xO-SU for emacs-orgmode@gnu.org; Tue, 25 Apr 2017 04:43:07 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1d2w3r-0002w0-Mt for emacs-orgmode@gnu.org; Tue, 25 Apr 2017 04:43:06 -0400 Received: from kassis.univ-brest.fr ([195.83.247.73]:45802) by eggs.gnu.org with esmtps (TLS1.0:DHE_RSA_AES_256_CBC_SHA1:32) (Exim 4.71) (envelope-from ) id 1d2w3r-0002qS-EQ for emacs-orgmode@gnu.org; Tue, 25 Apr 2017 04:43:03 -0400 Received: from localhost (Kassis.univ-brest.fr [127.0.0.1]) by kassis.univ-brest.fr (Postfix) with ESMTP id A2CBE94800E for ; Tue, 25 Apr 2017 10:43:00 +0200 (CEST) Received: from kassis.univ-brest.fr ([127.0.0.1]) by localhost (kassis.univ-brest.fr [127.0.0.1]) (amavisd-new, port 10024) with ESMTP id CocC4JfdWs9t for ; Tue, 25 Apr 2017 10:43:00 +0200 (CEST) Received: from [172.16.11.96] (11ums96.univ-brest.fr [172.16.11.96]) (using TLSv1 with cipher DHE-RSA-AES128-SHA (128/128 bits)) (No client certificate requested) (Authenticated sender: ody) by kassis.univ-brest.fr (Postfix) with ESMTP id 7DFCD94800D for ; Tue, 25 Apr 2017 10:43:00 +0200 (CEST) List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Sender: "Emacs-orgmode" To: emacs-orgmode@gnu.org 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