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