[Orgmode] Re: switching to emacs via keboard shortcut

[Rainer Stengele]

Am 02.02.2010 16:52, schrieb Brody, William (Buck):
> I run org-mode on GMU Emacs for Windows.  During my workflow I am
> frequently alt-tab ‘ing to get back to Emacs. Does anyone have a way to
> use a keyboard shortcut (maybe via an autohotkey script) to get back to
> emacs.
>
> Thanks
>
>
>
> _______________________________________________
> Emacs-orgmode mailing list
> Please use `Reply All' to send replies to the list.
> address@hidden
> http://lists.gnu.org/mailman/listinfo/emacs-orgmode

In an AutoHotkey script I have

; 
-------------------------------------------------------------------------------
; raise Emacs with "Ctrl-Meta-Shift-e"
^!+e::
if WinExist("ahk_class Emacs")
{
  IfWinActive
  {
    WinMinimize
  }
  else
  {
    WinActivate
  }
}
else
{
        Run %SystemDrive%\Programme\Emacs\emacs\bin\emacsclient.exe
}
return
; 
-------------------------------------------------------------------------------
; raise Emacs with "Windows + Shift + e"
#+e::
if WinExist("ahk_class Emacs")
{
  IfWinActive
  {
    WinMinimize
  }
  else
  {
    WinActivate
  }
}
else
{
        Run %SystemDrive%\Programme\Emacs\emacs\bin\emacsclient.exe
}
return
-----------------------------------------------------------------------------
I also have


; 
-------------------------------------------------------------------------------
#t:: ; raise Thunderbird with "Windows + Shift + t"
IfWinExist, Thunderbird
{
  IfWinActive
  {
    WinMinimize
  }
  else
  {
    WinActivate
  }
}
return
; 
-------------------------------------------------------------------------------
#f:: ; Firefox vorholen
IfWinExist, Mozilla Firefox
{
  IfWinActive
  {
    WinMinimize
  }
  else
  {
    WinActivate
  }
}
return
; 
-------------------------------------------------------------------------------
#p:: raise a specific Putty
; if WinExist("fritz.diplan.de - PuTTY")
if WinExist("debian2.diplan.de - PuTTY")
{
  WinActivate
}
return
; 
-------------------------------------------------------------------------------
; jump to clocked-in org todo
^!+F12::
; IfWinExist, Emacs
if WinExist("ahk_class Emacs")
{       WinActivate
        ; Send ^s
        Send ^!{F12}
}
else
{
        Run Notepad
}
return
; 
-------------------------------------------------------------------------------
; Org Remember
^!+r::
; IfWinExist, Emacs
if WinExist("ahk_class Emacs")
{       WinActivate
        ; Send ^s
        Send ^!r
}
else
{
        Run Notepad
}
return
; 
-------------------------------------------------------------------------------

All this and a lot more scripts and helpers makes Windows really usable ...


Rainer