[PATCH] Add customisable face for inlinetasks

[PATCH] Add customisable face for inlinetasks

[Suvayu Ali]

[-- Attachment #1: Type: text/plain, Size: 138 bytes --]

Hi,

Attached is a small patch that defines a customisable face for
inlinetasks.

-- 
Suvayu

Open source is the future. It sets us free.

[-- Attachment #2: 0001-Define-org-inlinetask-face.patch --]
[-- Type: text/plain, Size: 1347 bytes --]

From 16359dd0352baa0e636aec6bf6573fbbb913bef4 Mon Sep 17 00:00:00 2001
From: Suvayu Ali <fatkasuvayu+linux@gmail.com>
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

Re: [PATCH] Add customisable face for inlinetasks

[Bastien]

Hi Suvayu,

Suvayu Ali <fatkasuvayu+linux@gmail.com> writes:

> Attached is a small patch that defines a customisable face for
> inlinetasks.

Thanks for this patch.  

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)

Thanks again!

-- 
 Bastien

Re: [PATCH] Add customisable face for inlinetasks

[Suvayu Ali]

[-- Attachment #1: Type: text/plain, Size: 425 bytes --]

Hi Bastien,

On Wed, 24 Aug 2011 10:39:12 +0200
Bastien <bzg@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.

[-- Attachment #2: 0001-Define-org-inlinetask-face.patch --]
[-- Type: text/plain, Size: 1391 bytes --]

From 006046bd20758c387e9cb2340e1d97610365b060 Mon Sep 17 00:00:00 2001
From: Suvayu Ali <fatkasuvayu+linux@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

Re: [PATCH] Add customisable face for inlinetasks

[Bastien]

Hi Suvayu,

Suvayu Ali <fatkasuvayu+linux@gmail.com> writes:

> I have made the changes. 

Applied, thanks a lot!

> Let me know if they are up to your expectations.

That's perfect.  I've just added the "TINYCHANGE" tag at the bottom 
of the commit message, I forgot to mention this again.

Thanks again,

-- 
 Bastien

Implement a new emphasis style to hide text

[Stefan Janik]

Hello, 
for some purposes I need to hide some words. (It would help to memorize these
words). In the enriched mode I can do this just by marking the words and
choosing M-x facemenu-set-background and then typing "black" for the "Background
color". 

In the org-mode the enriched mode doesn't work. 

A perfect solution for me would be a new emphasis style: 
Maybe something like $a hidden text.$ --> $JUSTABLACKBOX$
(like the _underline style_ ). 
How can I do that? (Or any other suggestions?)
 
Thanks.

Best regard, Stephan 

Re: Implement a new emphasis style to hide text

[Eric S Fraga]

Stefan Janik <sjanjal@web.de> writes:

> Hello, 
> for some purposes I need to hide some words. (It would help to memorize these
> words). In the enriched mode I can do this just by marking the words and
> choosing M-x facemenu-set-background and then typing "black" for the "Background
> color". 
>
> In the org-mode the enriched mode doesn't work. 
>
> A perfect solution for me would be a new emphasis style: 
> Maybe something like $a hidden text.$ --> $JUSTABLACKBOX$
> (like the _underline style_ ). 
> How can I do that? (Or any other suggestions?)
>  
> Thanks.
>
> Best regard, Stephan 

Have a look at

,----[ C-h v org-emphasis-alist RET ]
| org-emphasis-alist is a variable defined in `org.el'.
| Its value is shown below.
| 
| Documentation:
| Special syntax for emphasized text.
| Text starting and ending with a special character will be emphasized, for
| example *bold*, _underlined_ and /italic/.  This variable sets the marker
| characters, the face to be used by font-lock for highlighting in Org-mode
| Emacs buffers, and the HTML tags to be used for this.
| For LaTeX export, see the variable `org-export-latex-emphasis-alist'.
| For DocBook export, see the variable `org-export-docbook-emphasis-alist'.
| Use customize to modify this, or restart Emacs after changing it.
| 
| You can customize this variable.
| 
| Value: (("*" bold "<b>" "</b>")
|  ("/" italic "<i>" "</i>")
|  ("_" underline "<span style=\"text-decoration:underline;\">" "</span>")
|  ("=" org-code "<code>" "</code>" verbatim)
|  ("~" org-verbatim "<code>" "</code>" verbatim)
|  ("+"
|   (:strike-through t)
|   "<del>" "</del>")
|  ("@" org-warning "<b>" "</b>"))
| 
| Original value was 
| (("*" bold "<b>" "</b>")
|  ("/" italic "<i>" "</i>")
|  ("_" underline "<span style=\"text-decoration:underline;\">" "</span>")
|  ("=" org-code "<code>" "</code>" verbatim)
|  ("~" org-verbatim "<code>" "</code>" verbatim)
|  ("+"
|   (:strike-through t)
|   "<del>" "</del>"))
`----

You can define your own syntax (see my addition for @) with an
associated face (second term in each list).  The face could be one which
/hides/ the text, as you desire.

HTH,
eric

-- 
: Eric S Fraga (GnuPG: 0xC89193D8FFFCF67D) in Emacs 24.0.90.1
: using Org-mode version 7.7 (release_7.7.615.g02c26)