From mboxrd@z Thu Jan 1 00:00:00 1970 From: Sebastian Rose Subject: Re: Shift-Arrow Pass Through for windmove? Date: Sat, 24 Apr 2010 01:19:51 +0200 Message-ID: <87zl0tpxig.fsf@gmx.de> References: <87633jb57w.wl%ded-law@ddoherty.net> <87ochaqhau.fsf@gmx.de> <5BE40E2F-2FB3-4010-9C68-8D66E351BED7@gmail.com> Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii Return-path: Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1O5SAH-000351-BH for emacs-orgmode@gnu.org; Fri, 23 Apr 2010 19:20:05 -0400 Received: from [140.186.70.92] (port=53964 helo=eggs.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1O5SAE-00033O-CW for emacs-orgmode@gnu.org; Fri, 23 Apr 2010 19:20:04 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.69) (envelope-from ) id 1O5SAC-0002uR-BK for emacs-orgmode@gnu.org; Fri, 23 Apr 2010 19:20:02 -0400 Received: from mail.gmx.net ([213.165.64.20]:50159) by eggs.gnu.org with smtp (Exim 4.69) (envelope-from ) id 1O5SAB-0002uJ-Uv for emacs-orgmode@gnu.org; Fri, 23 Apr 2010 19:20:00 -0400 In-Reply-To: <5BE40E2F-2FB3-4010-9C68-8D66E351BED7@gmail.com> (Carsten Dominik's message of "Fri, 23 Apr 2010 20:54:53 +0200") List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: Carsten Dominik Cc: "Daniel E. Doherty" , "emacs-orgmode@gnu org" Carsten Dominik writes: > On Apr 23, 2010, at 6:12 PM, Sebastian Rose wrote: > >> Daniel E. Doherty 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