Re: Suggestion to increase usefulness of TAB key / 'org-cycle' function

[Philipp Kiefer <phil.kiefer@gmail.com>]

[-- Attachment #1: Type: text/plain, Size: 2464 bytes --]

Thanks, Eric, I am aware of customization options.

My suggestion was aimed at improving the out-of-the-box experience of (new)
Org users by extending the usefulness of 'org-cycle' by folding the subtree
at point from anywhere inside it that is not itself a parent item rather
than doing nothing at all in those positions. I've used two flavours of
dedicated outlining software for many years and both have easy shortcuts to
fold the current subtree from any position - it is a frequently used action.



Fraga, Eric <e.fraga@ucl.ac.uk> schrieb am Fr., 28. Apr. 2023, 11:45:

> Hi Philipp,
>
> On Friday, 28 Apr 2023 at 10:49, Philipp Kiefer wrote:
> > Well, it could simplify things a good deal further if, on issuing the
> > command when point is *not* on a parent heading, (non-global)
> > org-cycle would instead fold the subtree that point is in, i. e. do
> > 'outline-up-heading' and 'hide-subtree' on the parent heading.
>
> You could always bind TAB to your own command that does this.  As an
> illustration, I have TAB bound to my own function that invokes
> completion instead unless I'm on an org heading!
>
> --8<---------------cut here---------------start------------->8---
> (defun esf/complete-or-indent ()
>   (interactive)
>   (cond
>    ;; ((eq 'message-mode major-mode)
>    ;;  (message-tab))
>    ((and (eq 'message-mode major-mode)
>          (message-point-in-header-p)
>          (looking-back "^\\(To\\|B?[Cc]c\\): *.*"
> (line-beginning-position)))
>     (if (looking-back " ")
>         (progn
>           (message "try inserting alias abbrev")
>           (insert (symbol-value (intern-soft (completing-read "Expand
> alias: " mail-abbrevs nil t) mail-abbrevs))))
>       (progn
>         (message "try eudc")
>         (eudc-expand-try-all))))
>    ((eq 'message-mode major-mode)
>     (completion-at-point))
>    ((org-table-p)
>     (org-cycle))
>    ((looking-back "[ \t\n]")
>     (if (eq 'org-mode major-mode)
>         (if (looking-back "^\\(\\*+ \\| *|\\)[^\\n]*")     ;a heading or
> table line
>             (org-cycle)
>           (indent-for-tab-command)
>           )
>       (indent-for-tab-command))
>     )
>    (t
>     ;;(consult-company)
>     (completion-at-point)
>     )))
> --8<---------------cut here---------------end--------------->8---
>
> You could use a similar (and much simpler) approach to get what you
> want.
>
> HTH,
> eric
>
> --
> : Eric S Fraga, with org release_9.6.4-335-ge065b5 in Emacs 30.0.50

[-- Attachment #2: Type: text/html, Size: 3270 bytes --]