Created
June 6, 2017 05:35
-
-
Save horensor/ef08881a7e8b02397ff2d7e25d58a347 to your computer and use it in GitHub Desktop.
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Gosub, create_gui | |
| ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| ;; MyEmacsKeymap.ahk | |
| ;; - An AutoHotkey script to simulate Emacs keybindings on Windows | |
| ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| ;; Settings for testing | |
| ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| ;; enable warning | |
| ;#Warn All, MsgBox | |
| ;; replace the existing process with the newly started one without prompt | |
| ;#SingleInstance force | |
| ;;-------------------------------------------------------------------------- | |
| ;; Important hotkey prefix symbols | |
| ;; Help > Basic Usage and Syntax > Hotkeys | |
| ;; # -> Win | |
| ;; ! -> Alt | |
| ;; ^ -> Control | |
| ;; + -> Shift | |
| ;;-------------------------------------------------------------------------- | |
| ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| ;; General configuration | |
| ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| ;; These settings are required for this script to work. | |
| #InstallKeybdHook | |
| #UseHook | |
| ;; What does this actually do? | |
| SetKeyDelay 0 | |
| ;; Just to play with non-default send modes | |
| SendMode Input | |
| ;SendMode Play | |
| ;; Matching behavior of the WinTitle parameter | |
| ;; 1: from the start, 2: anywhere, 3: exact match | |
| ;; or RegEx: regular expressions | |
| SetTitleMatchMode 2 | |
| ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| ;; Global variables | |
| ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| ;; mark status. 1 = set, 0 = not set | |
| global m_Mark := 0 | |
| ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| ;; Control functions | |
| ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| ;; Determines if this script should be enabled based on "ahk_class" of the | |
| ;; active window. "ahk_class" can be identified using Window Spy | |
| ;; (right-click on the AutoHotkey icon in the task bar) | |
| m_IsEnabled() { | |
| global | |
| ;; List of applications to be ignored by this script | |
| ;; (Add applications as needed) | |
| ;; Emacs - NTEmacs | |
| ;; Vim - GVim | |
| ;; mintty - Cygwin | |
| m_IgnoreList := ["Emacs", "Vim", "mintty"] | |
| for index, element in m_IgnoreList | |
| { | |
| IfWinActive ahk_class %element% | |
| Return 0 | |
| } | |
| IfWinActive ahk_class ConsoleWindowClass ; Command Prompt | |
| { | |
| IfWinActive ahk_exe bash.exe | |
| Return 0 | |
| } | |
| Return 1 | |
| } | |
| ;; Checks if the active window is MS Excel. The main things it does: | |
| ;; C-c a Activates the selected cell and move the cursor to the end | |
| ;; This key stroke sends {F12}. The "a" is for Append. | |
| ;; C-c i Activates the selected cell and move the cursor to the beginning | |
| ;; This key stroke sends {F12]{Home}. The "i" is for Insert. | |
| ;; Note: In Excel 2013, you may want to disable the quick analysis feature | |
| ;; (Options > General > Show Quick Analysis options on selection). | |
| m_IsMSExcel() { | |
| global | |
| IfWinActive ahk_class XLMAIN | |
| Return 1 | |
| Return 0 | |
| } | |
| m_IsNotMSExcel() { | |
| global | |
| IfWinNotActive ahk_class XLMAIN | |
| Return 1 | |
| Return 0 | |
| } | |
| ;; Checks if the active window is Google Sheets. | |
| ;; The main purpose is to provide keybindings to edit cells as does with MS | |
| ;; Excel. | |
| m_IsGoogleSheets() { | |
| global | |
| ;IfWinActive Google Sheets ahk_class MozillaWindowsClass | |
| IfWinActive ahk_class MozillaWindowClass ; FireFox | |
| Return 1 | |
| IfWinActive Google Sheets ahk_class Chrome_WidgetWin_1 ; Chrome | |
| Return 1 | |
| Return 0 | |
| } | |
| ;; Checks if the active window is MS Word. The main things it does: | |
| ;; "kill-line" sends "+{End}+{Left}^c{Del}" instead of "+{End}^c{Del}". | |
| ;; This is to cut out the line feed mark which is usually configured to | |
| ;; be displayed in the View options in MS Word. | |
| m_IsMSWord() { | |
| global | |
| IfWinActive ahk_class OpusApp | |
| Return 1 | |
| Return 0 | |
| } | |
| ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| ;; Prefix key processing | |
| ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| ;; These functions just return without any processing. | |
| ;; The purpose of these functions is to make sure the hotkey is mapped to | |
| ;; the A_PriorHotkey built-in variable when the prefix key is pressed. | |
| ;; Ex) To detect whether C-x is pressed as the prefix key: | |
| ;; if (A_PriorHotkey = "^x") | |
| m_EnableControlCPrefix() { | |
| Return | |
| } | |
| m_EnableControlXPrefix() { | |
| Return | |
| } | |
| m_EnableControlQPrefix() { | |
| Return | |
| } | |
| ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| ;; Emacs simulating functions | |
| ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| ;; Buffers and Files ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| ;; C-x C-f | |
| m_FindFile() { | |
| Send ^o | |
| global m_Mark := 0 | |
| } | |
| ;; C-x C-s | |
| m_SaveBuffer() { | |
| Send ^s | |
| global m_Mark := 0 | |
| } | |
| ;; C-x C-w | |
| m_WriteFile() { | |
| Send !fa | |
| global m_Mark := 0 | |
| } | |
| ;; C-x k | |
| m_KillBuffer() { | |
| m_KillEmacs() | |
| } | |
| ;; C-x C-c | |
| m_KillEmacs() { | |
| Send !{F4} | |
| global m_Mark := 0 | |
| } | |
| ;; Cursor Motion ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| ;; C-f | |
| m_ForwardChar() { | |
| global | |
| if (m_Mark) { | |
| Send +{Right} | |
| } else { | |
| Send {Right} | |
| } | |
| } | |
| ;; C-b | |
| m_BackwardChar() { | |
| global | |
| if (m_Mark) { | |
| Send +{Left} | |
| } else { | |
| Send {Left} | |
| } | |
| } | |
| ;; C-n | |
| m_NextLine() { | |
| global | |
| if (m_Mark) { | |
| Send +{Down} | |
| } else { | |
| Send {Down} | |
| } | |
| } | |
| ;; C-p | |
| m_PreviousLine() { | |
| global | |
| if (m_Mark) { | |
| Send +{Up} | |
| } else { | |
| Send {Up} | |
| } | |
| } | |
| ;; M-f | |
| m_ForwardWord() { | |
| global | |
| if (m_Mark) { | |
| Loop 5 | |
| Send +{Right} | |
| } else { | |
| Loop, 5 | |
| Send {Right} | |
| } | |
| } | |
| ;; M-b | |
| m_BackwardWord() { | |
| global | |
| if (m_Mark) { | |
| Loop, 5 | |
| Send +{Left} | |
| } else { | |
| Loop, 5 | |
| Send {Left} | |
| } | |
| } | |
| ;; M-n | |
| m_MoreNextLines() { | |
| global | |
| if (m_Mark) { | |
| Loop, 5 | |
| Send +{Down} | |
| } else { | |
| Loop, 5 | |
| Send {Down} | |
| } | |
| } | |
| ;; M-p | |
| m_MorePreviousLines() { | |
| global | |
| if (m_Mark) { | |
| Loop, 5 | |
| Send +{Up} | |
| } else { | |
| Loop, 5 | |
| Send {Up} | |
| } | |
| } | |
| ;; C-a | |
| m_MoveBeginningOfLine() { | |
| global | |
| if (m_Mark) { | |
| Send +{Home} | |
| } else { | |
| Send {Home} | |
| } | |
| } | |
| ;; C-e | |
| m_MoveEndOfLine() { | |
| global | |
| if (m_Mark) { | |
| Send +{End} | |
| } else { | |
| Send {End} | |
| } | |
| } | |
| ;; C-v | |
| m_ScrollDown() { | |
| global | |
| if (m_Mark) { | |
| Send +{PgDn} | |
| } else { | |
| Send {PgDn} | |
| } | |
| } | |
| ;; M-v | |
| m_ScrollUp() { | |
| global | |
| if (m_Mark) { | |
| Send +{PgUp} | |
| } else { | |
| Send {PgUp} | |
| } | |
| } | |
| ;; M-< | |
| m_BeginningOfBuffer() { | |
| global | |
| if (m_Mark) { | |
| Send ^+{Home} | |
| } else { | |
| Send ^{Home} | |
| } | |
| } | |
| ;; M-> | |
| m_EndOfBuffer() { | |
| global | |
| if (m_Mark) { | |
| Send ^+{End} | |
| } else { | |
| Send ^{End} | |
| } | |
| } | |
| ;; Select, Delete, Copy & Paste ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| ;; C-spc | |
| m_SetMarkCommand() { | |
| global | |
| if (m_Mark) { | |
| m_Mark := 0 | |
| m_ForwardChar() | |
| m_BackwardChar() | |
| m_Mark := 1 | |
| } else { | |
| m_Mark := 1 | |
| } | |
| } | |
| ;; C-x h | |
| m_MarkWholeBuffer() { | |
| Send ^{End}^+{Home} | |
| global m_Mark := 1 | |
| } | |
| ;; C-x C-p | |
| m_MarkPage() { | |
| m_MarkWholeBuffer() | |
| } | |
| ;; C-d | |
| m_DeleteChar() { | |
| Send {Del} | |
| global m_Mark := 0 | |
| } | |
| ;; C-b | |
| m_DeleteBackwardChar() { | |
| Send {BS} | |
| global m_Mark := 0 | |
| } | |
| ;; C-k | |
| m_KillLine() { | |
| If (m_IsMSWord()) { | |
| ;Send +{End}+{Left}^c{Del} | |
| Send +{End}+{Left}^x | |
| } else { | |
| ;Send +{End}^c{Del} | |
| Send +{End}^x | |
| } | |
| global m_Mark := 0 | |
| } | |
| ;; C-w | |
| m_KillRegion() { | |
| Send ^x | |
| global m_Mark := 0 | |
| } | |
| ;; M-w | |
| m_KillRingSave() { | |
| Send ^c | |
| global m_Mark := 0 | |
| } | |
| ;; C-y | |
| m_Yank() { | |
| if (m_IsMSExcel()) { | |
| Send ^v | |
| ; Tried to suppress the "Paste Options" hovering menu with {Esc}, but it | |
| ; turned out this would cancel out the pasting action when it is done | |
| ; when the cell being edited. | |
| ; To close the hovering menu, it would be better to simply type the {Esc} | |
| ; key or C-g | |
| ;Send ^v{Esc} | |
| } else if (m_IsMSWord()) { | |
| ;Send ^v{Esc}{Esc}{Esc} | |
| Send ^v | |
| } else { | |
| Send ^v | |
| } | |
| global m_Mark := 0 | |
| } | |
| ;; Search ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| ;; C-s | |
| m_ISearchForward() { | |
| Send ^f | |
| global m_Mark := 0 | |
| } | |
| ;; C-r | |
| m_ISearchBackward() { | |
| m_IsearchForward() | |
| } | |
| ;; Undo and Cancel ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| ;; C-/ | |
| m_Undo() { | |
| Send ^z | |
| global m_Mark := 0 | |
| } | |
| ;; C-g | |
| m_KeyboardQuit() { | |
| ; MS Excel will ignore "{Esc}" generated by AHK in some cases(?) | |
| ;if (m_isNotMSExcel()) | |
| ;Send {Esc} | |
| Send {Esc} | |
| global m_Mark := 0 | |
| } | |
| ;; Input Method ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| ;; C-x C-j | |
| m_ToggleInputMethod() { | |
| Send {vkF3sc029} | |
| global m_Mark := 0 | |
| } | |
| ;; Others ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| ;; C-m, C-j | |
| m_NewLine() { | |
| Send {Enter} | |
| global m_Mark := 0 | |
| } | |
| ;; (C-o) | |
| m_OpenLine() { | |
| Send {Enter}{Up} | |
| global m_Mark := 0 | |
| } | |
| ;; C-i | |
| m_IndentForTabCommand() { | |
| Send {Tab} | |
| global m_Mark := 0 | |
| } | |
| ;; C-t | |
| m_TransposeChars() { | |
| m_SetMarkCommand() | |
| m_ForwardChar() | |
| m_KillRegion() | |
| m_BackwardChar() | |
| m_Yank() | |
| } | |
| ;; Keys to send as they are when followed by C-q ;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| ;; C-q C-a | |
| ;; For MS Paint | |
| m_RawSelectAll() { | |
| Send %A_ThisHotkey% | |
| } | |
| ;; C-q C-n | |
| ;; For Web browsers | |
| m_RawNewWindow() { | |
| Send %A_ThisHotkey% | |
| } | |
| ;; C-q C-p | |
| m_RawPrintBuffer() { | |
| Send %A_ThisHotkey% | |
| } | |
| ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| ;; Keybindings | |
| ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| F21 & Space:: | |
| if (m_IsEnabled()) { | |
| m_SetMarkCommand() | |
| } else { | |
| Send {CtrlDown}{Space}{CtrlUp} | |
| ;Send %A_ThisHotkey% ; this ends up with messed up key strokes | |
| } | |
| Return | |
| F21 & /:: | |
| if (m_IsEnabled()) { | |
| m_Undo() | |
| } else { | |
| Send %A_ThisHotkey% | |
| } | |
| Return | |
| /* | |
| !<:: | |
| if (m_IsEnabled()) { | |
| m_BeginningOfBuffer() | |
| } else { | |
| Send %A_ThisHotkey% | |
| } | |
| Return | |
| */ | |
| /* | |
| !>:: | |
| if (m_IsEnabled()) { | |
| m_EndOfBuffer() | |
| } else { | |
| Send %A_ThisHotkey% | |
| } | |
| Return | |
| */ | |
| F21 & \:: | |
| if (m_IsEnabled()) { | |
| m_ToggleInputMethod() | |
| } else { | |
| Send %A_ThisHotkey% | |
| } | |
| Return | |
| a:: | |
| if (m_IsMSExcel() or m_IsGoogleSheets() ) { | |
| if (A_PriorHotkey = "^c") { | |
| Send {F2} | |
| } else { | |
| Send %A_ThisHotkey% | |
| } | |
| } else { | |
| Send %A_ThisHotkey% | |
| } | |
| Return | |
| F21 & a:: | |
| if (m_IsEnabled()) { | |
| if (A_PriorHotkey = "^q") { | |
| m_RawSelectAll() | |
| } else { | |
| m_MoveBeginningOfLine() | |
| } | |
| } else { | |
| Send %A_ThisHotkey% | |
| } | |
| Return | |
| F21 & b:: | |
| if (m_IsEnabled()) { | |
| m_BackwardChar() | |
| } else { | |
| Send %A_ThisHotkey% | |
| } | |
| Return | |
| /* | |
| !b:: | |
| if (m_IsEnabled()) { | |
| m_BackwardWord() | |
| } else { | |
| Send %A_ThisHotkey% | |
| } | |
| Return | |
| */ | |
| F21 & c:: | |
| if (m_IsEnabled()) { | |
| if (A_PriorHotkey = "^x") { | |
| m_KillEmacs() | |
| } else if (m_IsMSExcel() or m_IsGoogleSheets()) { | |
| m_EnableControlCPrefix() | |
| } else { | |
| Send %A_ThisHotkey% | |
| } | |
| } else { | |
| Send %A_ThisHotkey% | |
| } | |
| Return | |
| F21 & d:: | |
| if (m_IsEnabled()) { | |
| m_DeleteChar() | |
| } else { | |
| Send %A_ThisHotkey% | |
| } | |
| Return | |
| F21 & e:: | |
| if (m_IsEnabled()) { | |
| m_MoveEndOfLine() | |
| } else { | |
| Send %A_ThisHotkey% | |
| } | |
| Return | |
| F21 & f:: | |
| if (m_IsEnabled()) { | |
| if (A_PriorHotkey = "^x") { | |
| m_FindFile() | |
| } else { | |
| m_ForwardChar() | |
| } | |
| } else { | |
| Send %A_ThisHotkey% | |
| } | |
| Return | |
| /* | |
| !f:: | |
| if (m_IsEnabled()) { | |
| m_ForwardWord() | |
| } else { | |
| Send %A_ThisHotkey% | |
| } | |
| Return | |
| */ | |
| F21 & g:: | |
| if (m_IsEnabled()) { | |
| m_KeyboardQuit() | |
| } else { | |
| Send %A_ThisHotkey% | |
| } | |
| Return | |
| h:: | |
| if (m_IsEnabled()) { | |
| if (A_PriorHotkey = "^x") { | |
| m_MarkWholeBuffer() | |
| } else { | |
| Send %A_ThisHotkey% | |
| } | |
| } else { | |
| Send %A_ThisHotkey% | |
| } | |
| Return | |
| F21 & h:: | |
| if (m_IsEnabled()) { | |
| m_DeleteBackwardChar() | |
| } else { | |
| Send %A_ThisHotkey% | |
| } | |
| Return | |
| i:: | |
| if (m_IsMSExcel() or m_IsGoogleSheets()) { | |
| if (A_PriorHotkey = "^c") { | |
| Send {F2}{Home} | |
| } else { | |
| Send %A_ThisHotkey% | |
| } | |
| } else { | |
| Send %A_ThisHotkey% | |
| } | |
| Return | |
| F21 & j:: | |
| if (m_IsEnabled()) { | |
| if (A_PriorHotkey = "^x") { | |
| m_ToggleInputMethod() | |
| } else { | |
| m_NewLine() | |
| } | |
| } else { | |
| Send %A_ThisHotkey% | |
| } | |
| Return | |
| k:: | |
| if (m_IsEnabled()) { | |
| if (A_PriorHotkey = "^x") { | |
| m_KillBuffer() | |
| } else { | |
| Send %A_ThisHotkey% | |
| } | |
| } else { | |
| Send %A_ThisHotkey% | |
| } | |
| Return | |
| F21 & k:: | |
| if (m_IsEnabled()) { | |
| m_KillLine() | |
| } else { | |
| Send %A_ThisHotkey% | |
| } | |
| Return | |
| F21 & m:: | |
| if (m_IsEnabled()) { | |
| m_NewLine() | |
| } else { | |
| Send %A_ThisHotkey% | |
| } | |
| Return | |
| F21 & n:: | |
| if (m_IsEnabled()) { | |
| if (A_PriorHotkey = "^q") { | |
| m_RawNewWindow() | |
| } else { | |
| m_NextLine() | |
| } | |
| } else { | |
| Send %A_ThisHotkey% | |
| } | |
| Return | |
| /* | |
| !n:: | |
| if (m_IsEnabled()) { | |
| m_MoreNextLines() | |
| } else { | |
| Send %A_ThisHotkey% | |
| } | |
| Return | |
| */ | |
| F21 & o:: | |
| if (m_IsEnabled()) { | |
| ;m_ToggleInputMethod() | |
| m_OpenLine() | |
| } else { | |
| Send %A_ThisHotkey% | |
| } | |
| Return | |
| F21 & p:: | |
| if (m_IsEnabled()) { | |
| if (A_PriorHotkey = "^x") { | |
| m_MarkPage() | |
| } else if (A_PriorHotkey = "^q") { | |
| m_RawPrintBuffer() | |
| } else { | |
| m_PreviousLine() | |
| } | |
| } else { | |
| Send %A_ThisHotkey% | |
| } | |
| Return | |
| /* | |
| !p:: | |
| if (m_IsEnabled()) { | |
| m_MorePreviousLines() | |
| } else { | |
| Send %A_ThisHotkey% | |
| } | |
| Return | |
| */ | |
| F21 & q:: | |
| if (m_IsEnabled()) { | |
| m_EnableControlQPrefix() | |
| } else { | |
| Send %A_ThisHotkey% | |
| } | |
| Return | |
| F21 & r:: | |
| if (m_IsEnabled()) { | |
| m_ISearchBackward() | |
| } else { | |
| Send %A_ThisHotkey% | |
| } | |
| Return | |
| F21 & s:: | |
| if (m_IsEnabled()) { | |
| if (A_PriorHotkey = "^x") { | |
| m_SaveBuffer() | |
| } else { | |
| m_ISearchForward() | |
| } | |
| } else { | |
| Send %A_ThisHotkey% | |
| } | |
| Return | |
| F21 & t:: | |
| if (m_IsEnabled()) { | |
| m_TransposeChars() | |
| } else { | |
| Send %A_ThisHotkey% | |
| } | |
| Return | |
| F21 & u:: | |
| if (m_IsEnabled()) { | |
| if (A_PriorHotkey = "^x") { | |
| m_Undo() | |
| } else { | |
| Send %A_ThisHotkey% | |
| } | |
| } else { | |
| Send %A_ThisHotkey% | |
| } | |
| Return | |
| F21 & v:: | |
| if (m_IsEnabled()) { | |
| m_ScrollDown() | |
| } else { | |
| Send %A_ThisHotkey% | |
| } | |
| Return | |
| /* | |
| !v:: | |
| if (m_IsEnabled()) { | |
| m_ScrollUp() | |
| } else { | |
| Send %A_ThisHotkey% | |
| } | |
| Return | |
| */ | |
| F21 & w:: | |
| if( 0 ){ | |
| if (m_IsEnabled()) { | |
| if (A_PriorHotkey = "^x") { | |
| m_WriteFile() | |
| } else { | |
| m_KillRegion() | |
| } | |
| } else { | |
| Send %A_ThisHotkey% | |
| } | |
| } else { | |
| if (m_IsEnabled()) { | |
| m_KillRingSave() | |
| } else { | |
| Send %A_ThisHotkey% | |
| } | |
| } | |
| Return | |
| F21 & x:: | |
| if (m_IsEnabled()) { | |
| m_EnableControlXPrefix() | |
| } else { | |
| Send %A_ThisHotkey% | |
| } | |
| Return | |
| F21 & y:: | |
| if (m_IsEnabled()) { | |
| m_Yank() | |
| } else { | |
| Send %A_ThisHotkey% | |
| } | |
| Return | |
| ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| ;; Administration | |
| ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| F21 & z:: | |
| Suspend, Toggle | |
| i_break := 1 | |
| sleep 300 | |
| i_break := 0 | |
| it11 := "Emacs AutoHotkey:" | |
| If(A_IsSuspended) | |
| it21 := "Suspended" | |
| Else | |
| it21 := "Resumed" | |
| popup_gui(it11, it21) | |
| ;; if (m_IsEnabled()) { | |
| ;; MsgBox, AutoHotkey emacs keymap is Enabled. | |
| ;; } else { | |
| ;; MsgBox, AutoHotkey emacs keymap is Disabled. | |
| ;; } | |
| Return | |
| create_gui: | |
| global t11, t21, i_break | |
| i_break := 0 | |
| istr := " " | |
| GuiTitle := "EmacsAutoHotkeyF21" | |
| ToastGuiHwnd := GuiTitle . "Toast" | |
| Gui, 1: New, +LabelToast AlwaysOnTop Lastfound +HwndToastGuiHwnd -Theme, %GuiTitle% +Delimiter`n | |
| Gui, %ToastGuiHwnd%:Default | |
| Gui,Show | |
| Winset, Transparent, 200, ahk_id %ToastGuiHwnd% | |
| Gui,Show,Hide | |
| Gui, -Caption +ToolWindow | |
| Gui, Font, s12 w700 Q2 | |
| Gui, Margin, 10, 10 | |
| gui, font,, Arial | |
| gui, font,, Sans | |
| gui, font,, Verdana | |
| gui, font,, MS PGothic | |
| gui, font,, MS UI Gothic | |
| gui, font,, Meiryo UI | |
| Gui, Add, Text, vt11 , %istr% %istr% | |
| Gui, Font, s20 w700 Q2 | |
| Gui, Add, Text, xs vt21 , %istr% | |
| Return | |
| show_gui: | |
| Gui, Show, AutoSize Center NoActivate | |
| return | |
| fade_gui: | |
| Gui, +LastFound | |
| Gosub, show_gui | |
| Winset, Transparent, 200, ahk_id %ToastGuiHwnd% | |
| tpv=200 | |
| Loop, 10 | |
| { | |
| if(i_break) | |
| Break | |
| sleep 100 | |
| } | |
| Loop, 20 | |
| { | |
| tpv -= 10 | |
| if(i_break) | |
| Break | |
| Winset, Transparent,%tpv%, ahk_id %ToastGuiHwnd% | |
| sleep 50 | |
| } | |
| i_break := 0 | |
| Gui, Hide | |
| Winset, Transparent, 200, ahk_id %ToastGuiHwnd% | |
| Return | |
| popup_gui( v1,v2 ){ | |
| Guicontrol, , t11 , %v1% | |
| Guicontrol, , t21 , %v2% | |
| Gosub, fade_gui | |
| } |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment