Indentation of backend definitioon

Indentation of backend definitioon

[Carsten Dominik]

Hi Nicolas,

I propose the following patch to improve the automatic
indentation of the backend definition macros in ox.el.

- Carsten

diff --git a/lisp/ox.el b/lisp/ox.el
index c5b6d7c..31983b2 100644
--- a/lisp/ox.el
+++ b/lisp/ox.el
@@ -987,6 +987,7 @@ keywords are understood:
 	    ',export-block))
        ;; Splice in the body, if any.
        ,@body)))
+(put 'org-export-define-backend 'lisp-indent-function 1)
 
 (defmacro org-export-define-derived-backend (child parent &rest body)
   "Create a new back-end as a variant of an existing one.
@@ -1078,6 +1079,7 @@ The back-end could then be called with, for example:
 	    ',export-block))
        ;; Splice in the body, if any.
        ,@body)))
+(put 'org-export-define-derived-backend 'lisp-indent-function 2)
 
 (defun org-export-backend-parent (backend)
   "Return back-end from which BACKEND is derived, or nil."
@@ -5201,6 +5203,7 @@ and
 			   (message "Process '%s' exited abnormally" p))
 		       (unless org-export-async-debug
 			 (delete-file ,,temp-file)))))))))))))
+(put 'org-export-async-start 'lisp-indent-function 1)
 
 (defun org-export-add-to-stack (source backend &optional process)
   "Add a new result to export stack if not present already.

Re: Indentation of backend definitioon

[Nicolas Goaziou]

Hello,

Carsten Dominik <carsten.dominik@gmail.com> writes:

> I propose the following patch to improve the automatic
> indentation of the backend definition macros in ox.el.
>
> - Carsten
>
> diff --git a/lisp/ox.el b/lisp/ox.el
> index c5b6d7c..31983b2 100644
> --- a/lisp/ox.el
> +++ b/lisp/ox.el
> @@ -987,6 +987,7 @@ keywords are understood:
>  	    ',export-block))
>         ;; Splice in the body, if any.
>         ,@body)))
> +(put 'org-export-define-backend 'lisp-indent-function 1)
>  
>  (defmacro org-export-define-derived-backend (child parent &rest body)
>    "Create a new back-end as a variant of an existing one.
> @@ -1078,6 +1079,7 @@ The back-end could then be called with, for example:
>  	    ',export-block))
>         ;; Splice in the body, if any.
>         ,@body)))
> +(put 'org-export-define-derived-backend 'lisp-indent-function 2)
>  
>  (defun org-export-backend-parent (backend)
>    "Return back-end from which BACKEND is derived, or nil."
> @@ -5201,6 +5203,7 @@ and
>  			   (message "Process '%s' exited abnormally" p))
>  		       (unless org-export-async-debug
>  			 (delete-file ,,temp-file)))))))))))))
> +(put 'org-export-async-start 'lisp-indent-function 1)
>  
>  (defun org-export-add-to-stack (source backend &optional process)
>    "Add a new result to export stack if not present already.

Isn't it the default behaviour (see `declare' in definitions)?


Regards,

-- 
Nicolas Goaziou

Re: Indentation of backend definitioon

[Carsten Dominik]

On 14.3.2013, at 23:32, Nicolas Goaziou <n.goaziou@gmail.com> wrote:

> Hello,
> 
> Carsten Dominik <carsten.dominik@gmail.com> writes:
> 
>> I propose the following patch to improve the automatic
>> indentation of the backend definition macros in ox.el.
>> 
>> - Carsten
>> 
>> diff --git a/lisp/ox.el b/lisp/ox.el
>> index c5b6d7c..31983b2 100644
>> --- a/lisp/ox.el
>> +++ b/lisp/ox.el
>> @@ -987,6 +987,7 @@ keywords are understood:
>> 	    ',export-block))
>>        ;; Splice in the body, if any.
>>        ,@body)))
>> +(put 'org-export-define-backend 'lisp-indent-function 1)
>> 
>> (defmacro org-export-define-derived-backend (child parent &rest body)
>>   "Create a new back-end as a variant of an existing one.
>> @@ -1078,6 +1079,7 @@ The back-end could then be called with, for example:
>> 	    ',export-block))
>>        ;; Splice in the body, if any.
>>        ,@body)))
>> +(put 'org-export-define-derived-backend 'lisp-indent-function 2)
>> 
>> (defun org-export-backend-parent (backend)
>>   "Return back-end from which BACKEND is derived, or nil."
>> @@ -5201,6 +5203,7 @@ and
>> 			   (message "Process '%s' exited abnormally" p))
>> 		       (unless org-export-async-debug
>> 			 (delete-file ,,temp-file)))))))))))))
>> +(put 'org-export-async-start 'lisp-indent-function 1)
>> 
>> (defun org-export-add-to-stack (source backend &optional process)
>>   "Add a new result to export stack if not present already.
> 
> Isn't it the default behaviour (see `declare' in definitions)?

Indeed, apparently I had not loaded ox.el when I tried to reindent some code, and I am not used to using and seeing the declare form.  Sorry for the noise.

- Carsten