mlf176f2 pushed a commit to branch externals/ergoemacs-mode in repository elpa.
commit 35c522000284ec0acfea550374069419513576c7 Author: Matthew L. Fidler <[email protected]> Date: Tue Jun 24 13:03:17 2014 -0500 Add send outlook files to emacs --- ahk-us.ahk | 38 ++++++++++++++++++++++++++++++++++++++ 1 files changed, 38 insertions(+), 0 deletions(-) diff --git a/ahk-us.ahk b/ahk-us.ahk index a98e9bf..d8ce738 100644 --- a/ahk-us.ahk +++ b/ahk-us.ahk @@ -56,6 +56,7 @@ IniRead CurrCaps, ergoemacs-settings.ini, Caps, App IniRead CurrRAlt, ergoemacs-settings.ini, RAlt, App IniRead CurrLAlt, ergoemacs-settings.ini, LAlt, App IniRead CurrRAltLAlt, ergoemacs-settings.ini, RAltLAlt, App +IniRead OutlookSave, ergoemacs-settings.ini, Outlook, Save LayLst= VarLst= CareL = 0 @@ -659,6 +660,43 @@ redo: SendKey("{Ctrl down}{y}{Ctrl up}",0) return +execute-extended-command: + ;; Send to org-outlook if using outlook + If !WinActive("ahk_class Emacs"){ + If WinActive("ahk_class rctrl_renwnd32"){ + Clipboard= + SendKey("{Ctrl down}{c}{Ctrl up}") + ClipWait + EmailBody=%clipboard% + EmailBody:=uri_encode(EmailBody) + SendKey("{F12}",0) + Clipboard= + While !WinActive("Save As"){ + Sleep 100 + } + SendKey("{Ctrl down}{c}{Ctrl up}") + ClipWait + Counter = 1 + Title=%clipboard% + Title := uri_encode(Title) + fileName = %OutlookSave%\%clipboard%-%Counter%.msg + while FileExist(fileName) + { + Counter := Counter + 1 + fileName = %OutlookSave%\%clipboard%-%Counter%.msg + } + Clipboard = + Clipboard := fileName + ClipWait + SendKey("{Backspace}") + SendInput, %Clipboard% + SendKey("{Enter}") + fileName := uri_encode(fileName) + fileName = "%OutlookEmacs%" org-protocol:/capture:/%OutlookTemplate%%fileName%/%Title%/%EmailBody% + Run, %fileName% + } + } + return comment-dwim: ;; Word Alt+Ctrl+M is insert comment
