|
From: | Nicolas Goaziou |
Subject: | Re: [O] avoiding "First item of list cannot move without its subtree" |
Date: | Wed, 22 Feb 2017 12:04:09 +0100 |
User-agent: | Gnus/5.13 (Gnus v5.13) Emacs/25.1 (gnu/linux) |
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
[Prev in Thread] | Current Thread | [Next in Thread] |