"Max Rydahl Andersen" <[email protected]> writes:
> Any pointers on how to do this ?
>
> I tried this but no luck to get hooked in:
>
> ```
> (defadvice org-fix-list-indent
> (around org-list-indent-item-generic)
> "Advise list indention to trigger creation of star instead"
> (message "DO MAGIC!")
> (ad-do-it)
> )
> ```
>
> But with this "DO MAGIC!" does not show up.
The function to advice is `org-shiftmetaleft', not
`org-fix-list-indent'.
Anyway, you can also add something like the following to
`org-shiftmetaleft-hook':
(defun my-shiftmetaleft ()
(interactive)
(let* ((element (org-element-at-point))
(list-parent (org-element-lineage element '(item plain-list) t)))
(when (and list-parent
(= (line-beginning-position)
(org-element-property :post-affiliated element)))
(call-interactively
(if (org-element-lineage list-parent '(item)) ;not at top level
#'org-outdent-item-tree
#'org-ctrl-c-star))
t)))
Regards,
