From mboxrd@z Thu Jan 1 00:00:00 1970 From: Suvayu Ali Subject: Re: [PATCH] Add customisable face for inlinetasks Date: Wed, 24 Aug 2011 13:38:50 +0200 Message-ID: <20110824133850.1b4447e9@kuru.homelinux.net> References: <20110820131808.31793978@kuru.homelinux.net> <871uwbf7a9.fsf@altern.org> Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="MP_/F+qxYLIM66PbGA4WDcf_Q8." Return-path: Received: from eggs.gnu.org ([140.186.70.92]:48702) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1QwBnL-0000v7-VY for emacs-orgmode@gnu.org; Wed, 24 Aug 2011 07:38:56 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1QwBnK-0003vF-Ey for emacs-orgmode@gnu.org; Wed, 24 Aug 2011 07:38:55 -0400 Received: from mail-ey0-f171.google.com ([209.85.215.171]:40551) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1QwBnK-0003v6-AR for emacs-orgmode@gnu.org; Wed, 24 Aug 2011 07:38:54 -0400 Received: by eyg24 with SMTP id 24so984289eyg.30 for ; Wed, 24 Aug 2011 04:38:53 -0700 (PDT) In-Reply-To: <871uwbf7a9.fsf@altern.org> 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-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: Bastien Cc: Org mode mailing list --MP_/F+qxYLIM66PbGA4WDcf_Q8. Content-Type: text/plain; charset=US-ASCII Content-Transfer-Encoding: 7bit Content-Disposition: inline Hi Bastien, On Wed, 24 Aug 2011 10:39:12 +0200 Bastien wrote: > Can you improve it with two small changes? > > - use `shadow' as the inherited face for the new defface; > > - add a ChangeLog message to the patch (see > http://orgmode.org/worg/org-contribute.html#sec-5) I have made the changes. Let me know if they are up to your expectations. -- Suvayu Open source is the future. It sets us free. --MP_/F+qxYLIM66PbGA4WDcf_Q8. Content-Type: text/plain Content-Transfer-Encoding: 7bit Content-Disposition: attachment; filename=0001-Define-org-inlinetask-face.patch >From 006046bd20758c387e9cb2340e1d97610365b060 Mon Sep 17 00:00:00 2001 From: Suvayu Ali Date: Tue, 2 Aug 2011 00:24:50 +0200 Subject: [PATCH] Define org-inlinetask face * org-inlinetask.el (org-inlinetask): New customisable face for inlinetasks --- lisp/org-inlinetask.el | 8 +++++++- 1 files changed, 7 insertions(+), 1 deletions(-) diff --git a/lisp/org-inlinetask.el b/lisp/org-inlinetask.el index c743423..a186517 100644 --- a/lisp/org-inlinetask.el +++ b/lisp/org-inlinetask.el @@ -405,6 +405,12 @@ (defun org-inlinetask-get-current-indentation () (current-column))) (defvar org-indent-indentation-per-level) ; defined in org-indent.el + +(defface org-inlinetask + (org-compatible-face 'shadow '((t (:bold t)))) + "Face for inlinetask headlines." + :group 'org-faces) + (defun org-inlinetask-fontify (limit) "Fontify the inline tasks down to LIMIT." (let* ((nstars (if org-odd-levels-only @@ -425,7 +431,7 @@ (defun org-inlinetask-fontify (limit) (add-text-properties (match-beginning 2) (match-end 2) '(face org-hide font-lock-fontified t)) (add-text-properties (match-beginning 3) (match-end 3) - '(face shadow font-lock-fontified t))))) + '(face org-inlinetask font-lock-fontified t))))) (defun org-inlinetask-toggle-visibility () "Toggle visibility of inline task at point." -- 1.7.4.4 --MP_/F+qxYLIM66PbGA4WDcf_Q8.--