emacs-orgmode
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Orgmode] RE: switching to emacs via keboard shortcut


From: Brody, William (Buck)
Subject: [Orgmode] RE: switching to emacs via keboard shortcut
Date: Tue, 2 Feb 2010 14:15:08 -0500

Thanks.  These are great and work like a charm.

-----Original Message-----
From: Rainer Stengele [mailto:address@hidden 
Sent: Tuesday, February 02, 2010 12:37 PM
To: Brody, William (Buck)
Cc: address@hidden
Subject: Re: switching to emacs via keboard shortcut

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





reply via email to

[Prev in Thread] Current Thread [Next in Thread]