Re: [O] avoiding "First item of list cannot move without its subtree"

[Nicolas Goaziou]

Hello,

"Max Rydahl Andersen" <address@hidden> writes:

> What am I doing wrong ?

Nothing. There is a typo in my code.

> (add-hook 'org-shiftmetaleft-hook
>         (lambda ()
>           (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)))

-> (org-element-property :post-affiliated list-parent)

>               (call-interactively
>                (if (org-element-lineage list-parent '(item)) ;not at top level
>                    #'org-outdent-item-tree
>                  #'org-ctrl-c-star))
>               t))))

Regards,

-- 
Nicolas Goaziou                                                0x80A93738