[Top][All Lists]
[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