mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-12-28 10:56:57 +00:00
Code

Define org-inlinetask face

Browse Source 
* org-inlinetask.el (org-inlinetask): New customisable face
  for inlinetasks

TINYCHANGE
This commit is contained in:
Suvayu Ali 2011-08-02 00:24:50 +02:00 committed by Bastien Guerry
parent fc4628ef56
commit 3a6956770e
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/org-inlinetask.el
View File

@ -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 '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 @@ 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."