diff --git a/lisp/org-inlinetask.el b/lisp/org-inlinetask.el index aac338b..46a7a7e 100644 --- a/lisp/org-inlinetask.el +++ b/lisp/org-inlinetask.el @@ -109,9 +109,13 @@ When nil, they will not be exported." "Insert an inline task." (interactive) (or (bolp) (newline)) - (insert (make-string org-inlinetask-min-level ?*) " \n" - (make-string org-inlinetask-min-level ?*) " END\n") + (let ((indent org-inlinetask-min-level)) + (if org-odd-levels-only + (setq indent (- (* 2 indent) 1))) + (insert (make-string indent ?*) " \n" + (make-string indent ?*) " END\n")) (end-of-line -1)) + (define-key org-mode-map "\C-c\C-xt" 'org-inlinetask-insert-task) (defvar htmlp) ; dynamically scoped into the next function