Hi Bastien,
On Wed, 24 Aug 2011 10:39:12 +0200
Bastien <b...@altern.org> 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.
>From 006046bd20758c387e9cb2340e1d97610365b060 Mon Sep 17 00:00:00 2001
From: Suvayu Ali <fatkasuvayu+li...@gmail.com>
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
