Re: Shift-Arrow Pass Through for windmove?

[Sebastian Rose <sebastian_rose@gmx.de>]

Carsten Dominik <carsten.dominik@gmail.com> writes:
> On Apr 23, 2010, at 6:12 PM, Sebastian Rose wrote:
>
>> Daniel E. Doherty <ded-law@ddoherty.net> writes:
>>> All,
>>>
>>> I make *very* frequent use of the shift-arrow keys to move from window
>>> to window inside emacs via windmove.  It is probably the most frequent
>>> key combination I access.
>>>
>>> Anyway, is there a way to make org-mode friendlier to it by passing the
>>> key along whenever org-mode would otherwise throw an error.  For
>>> example, when not on a heading, when in the agenda, and wherever else?
>>>
>>> I really like Carsten's use of the arrow keys for structure editing and
>>> don't want to lose that, just whenever org-mode can't make use of the
>>> keys.
>>>
>>> Regards,
>>
>>
>>
>> And here all the arrow keys.
>>
>> It's somewhat inelegant, since you always need to keep track of new
>> useful org-bindings.
>>
>> I would find an org-internal solution helpfull too. I use windmove.
>
> I have now added
>
> (defvar org-shiftup-hook nil
>   "Hook for functions attaching themselves to `S-up'.
> See `org-ctrl-c-ctrl-c-hook' for more information.")
> (defvar org-shiftdown-hook nil
>   "Hook for functions attaching themselves to `S-down'.
> See `org-ctrl-c-ctrl-c-hook' for more information.")
> (defvar org-shiftleft-hook nil
>   "Hook for functions attaching themselves to `S-left'.
> See `org-ctrl-c-ctrl-c-hook' for more information.")
> (defvar org-shiftright-hook nil
>   "Hook for functions attaching themselves to `S-right'.
> See `org-ctrl-c-ctrl-c-hook' for more information.")
>
> But I do not intend to attach specific functionality like windmove to them,
> and I'd like to reserve the possibility to make S-cursor do something
> in Org in more contexts.
>
> Hope this still helps.

This could be perfect!!!

But wouldn't the hook need to be called at the end of (e.g.)
`org-shiftright'?

I want to use windmove as the last resort, as does the OP:


-   (t (org-shiftselect-error))))
+   (t (if org-shiftright-hook
+       ((run-hook-with-args-until-success 'org-shiftright-hook))
+       (org-shiftselect-error))))

;; end of org-shiftright ($otpional arg)



Otherwise we would loose the org-mode specific functions.

We want to

  1. try to do somehing org-specific (if org-headline-p ....)
  2. else run the hook (i.e. windmove in this case)
  3. error    only if 1. and 2. failed


We do use windmove but at the same time we do _not_ want to loose all
those shift-right... features to come ;)



Sebastian