From mboxrd@z Thu Jan 1 00:00:00 1970 From: Suvayu Ali Subject: [PATCH] Add customisable face for inlinetasks Date: Sat, 20 Aug 2011 13:18:08 +0200 Message-ID: <20110820131808.31793978@kuru.homelinux.net> Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="MP_/qdt.+nZVqYN3_1PRkHNbKAo" Return-path: Received: from eggs.gnu.org ([140.186.70.92]:54470) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1QujZ8-0007cN-4A for emacs-orgmode@gnu.org; Sat, 20 Aug 2011 07:18:15 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1QujZ7-0008EI-5m for emacs-orgmode@gnu.org; Sat, 20 Aug 2011 07:18:14 -0400 Received: from mail-ew0-f41.google.com ([209.85.215.41]:64744) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1QujZ6-0008E6-Vn for emacs-orgmode@gnu.org; Sat, 20 Aug 2011 07:18:13 -0400 Received: by ewy9 with SMTP id 9so1566275ewy.0 for ; Sat, 20 Aug 2011 04:18:11 -0700 (PDT) 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: Org mode mailing list --MP_/qdt.+nZVqYN3_1PRkHNbKAo Content-Type: text/plain; charset=US-ASCII Content-Transfer-Encoding: 7bit Content-Disposition: inline Hi, Attached is a small patch that defines a customisable face for inlinetasks. -- Suvayu Open source is the future. It sets us free. --MP_/qdt.+nZVqYN3_1PRkHNbKAo Content-Type: text/plain Content-Transfer-Encoding: 7bit Content-Disposition: attachment; filename=0001-Define-org-inlinetask-face.patch >From 16359dd0352baa0e636aec6bf6573fbbb913bef4 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 --- 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 7d0d691..33a8abd 100644 --- a/lisp/org-inlinetask.el +++ b/lisp/org-inlinetask.el @@ -405,6 +405,12 @@ Either remove headline and meta data, or do special formatting." (current-column))) (defvar org-indent-indentation-per-level) ; defined in org-indent.el + +(defface org-inlinetask + (org-compatible-face 'org-level-8 '((t (:bold t)))) + "Face for inlinetask headlines." + :group 'org-faces) + (defun org-inlinetask-fontify (limit) "Fontify the inline tasks." (let* ((nstars (if org-odd-levels-only @@ -425,7 +431,7 @@ Either remove headline and meta data, or do special formatting." (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_/qdt.+nZVqYN3_1PRkHNbKAo--