Re: [O] [PATCH] Do not indent option keywords

[Carsten Dominik]

Hi Achim,

by decoration you mean font-lock support?

Maybe this would be a better fix:

        Modified lisp/org.el
diff --git a/lisp/org.el b/lisp/org.el
index 745fb82..43df094 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -5867,7 +5867,8 @@ by a #."
           ((or (equal dc1 "+results")
                (member dc1 '("+begin:" "+end:" "+caption:" "+label:"
                              "+orgtbl:" "+tblfm:" "+tblname:" "+results:"
-                             "+call:" "+header:" "+headers:" "+name:"))
+                             "+call:" "+header:" "+headers:" "+name:"
+                             "+options:"))
                (and (match-end 4) (equal dc3 "+attr")))
            (add-text-properties
             beg (match-end 0)

- Carsten

On 9.5.2013, at 22:34, Achim Gratz <address@hidden> wrote:

> That was not the patch I was trying to send, sorry.  Second try:
> 
> From 990257c497aa9fb0b8250d770c8e899762cc7abc Mon Sep 17 00:00:00 2001
> From: Achim Gratz <address@hidden>
> Date: Thu, 9 May 2013 22:30:08 +0200
> Subject: [PATCH] org.el: do not indent option keyword lines
> 
> * lisp/org.el (org-indent-line): Keep option keyword lines at column
>  zero so they don't lose their decoration.
> ---
> lisp/org.el | 7 +++++++
> 1 file changed, 7 insertions(+)
> 
> diff --git a/lisp/org.el b/lisp/org.el
> index 08570c3..b357c90 100644
> --- a/lisp/org.el
> +++ b/lisp/org.el
> @@ -21932,6 +21932,11 @@ (defun org-indent-line ()
>                            (org-inlinetask-in-task-p)))
>        (inline-re (and inline-task-p
>                        (org-inlinetask-outline-regexp)))
> +      (opt-re (org-make-options-regexp
> +               '("CATEGORY" "TODO" "COLUMNS" "STARTUP" "ARCHIVE"
> +                 "LINK" "PRIORITIES" "CONSTANTS" "PROPERTY" "DRAWERS"
> +                 "SETUPFILE" "OPTIONS")
> +               "\\(?:[a-zA-Z][0-9a-zA-Z_]*_TODO\\)"))
>        column)
>     (if (and orgstruct-is-++ (eq pos (point)))
>       (let ((indent-line-function (cadadr (assoc 'indent-line-function 
> org-fb-vars))))
> @@ -21976,6 +21981,8 @@ (defun org-indent-line ()
>                         (org-get-indentation (match-string 0))))
>                   (t
>                    (org-get-indentation (match-string 0))))))
> +       ;; Option keywords
> +       ((looking-at opt-re) (setq column 0))
>        ;; This line has nothing special, look at the previous relevant
>        ;; line to compute indentation
>        (t
> -- 
> 1.8.2.1
> 
> 
> 
> Regards,
> Achim.
> -- 
> +<[Q+ Matrix-12 WAVE#46+305 Neuron microQkb Andromeda XTk Blofeld]>+
> 
> Samples for the Waldorf Blofeld:
> http://Synth.Stromeko.net/Downloads.html#BlofeldSamplesExtra