EMACS.ahk

; ;;
; ;; An autohotkey script that provides emacs-like keybinding on Windows
; ;;

; ; The following line is a contribution of NTEmacs wiki http://www49.atwiki.jp/ntemacs/pages/20.html
; SetKeyDelay 0

; ; turns to be 1 when ctrl-x is pressed
; is_pre_x := 0
; ; turns to be 1 when ctrl-space is pressed
; is_pre_spc := 0

; ; Applications you want to disable emacs-like keybindings
; ; (Please comment out applications you don't use)
; is_target()
; {
;   IfWinActive,ahk_class ConsoleWindowClass ; Cygwin
;     Return 1 
;   IfWinActive,ahk_class MEADOW ; Meadow
;     Return 1 
;   IfWinActive,ahk_class cygwin/x X rl-xterm-XTerm-0
;     Return 1
;   IfWinActive,ahk_class MozillaUIWindowClass ; keysnail on Firefox
;     Return 1
;   ; Avoid VMwareUnity with AutoHotkey
;   IfWinActive,ahk_class VMwareUnityHostWndClass
;     Return 1
;   IfWinActive,ahk_class Vim ; GVIM
;     Return 1
; ;  IfWinActive,ahk_class SWT_Window0 ; Eclipse
; ;    Return 1
; ;   IfWinActive,ahk_class Xming X
; ;     Return 1
; ;   IfWinActive,ahk_class SunAwtFrame
; ;     Return 1
; ;   IfWinActive,ahk_class Emacs ; NTEmacs
; ;     Return 1  
; ;   IfWinActive,ahk_class XEmacs ; XEmacs on Cygwin
; ;     Return 1
;   Return 0
; }

; delete_char()
; {
;   Send {Del}
;   global is_pre_spc = 0
;   Return
; }
; delete_backward_char()
; {
;   Send {BS}
;   global is_pre_spc = 0
;   Return
; }
; kill_line()
; {
;   Send {ShiftDown}{END}{SHIFTUP}
;   Sleep 50 ;[ms] this value depends on your environment
;   Send ^x
;   global is_pre_spc = 0
;   Return
; }
; open_line()
; {
;   Send {END}{Enter}{Up}
;   global is_pre_spc = 0
;   Return
; }
; quit()
; {
;   Send {ESC}
;   global is_pre_spc = 0
;   Return
; }
; newline()
; {
;   Send {Enter}
;   global is_pre_spc = 0
;   Return
; }
; indent_for_tab_command()
; {
;   Send {Tab}
;   global is_pre_spc = 0
;   Return
; }
; newline_and_indent()
; {
;   Send {Enter}{Tab}
;   global is_pre_spc = 0
;   Return
; }
; isearch_forward()
; {
;   Send ^f
;   global is_pre_spc = 0
;   Return
; }
; isearch_backward()
; {
;   Send ^f
;   global is_pre_spc = 0
;   Return
; }
; kill_region()
; {
;   Send ^x
;   global is_pre_spc = 0
;   Return
; }
; kill_ring_save()
; {
;   Send ^c
;   global is_pre_spc = 0
;   Return
; }
; yank()
; {
;   Send ^v
;   global is_pre_spc = 0
;   Return
; }
; undo()
; {
;   Send ^z
;   global is_pre_spc = 0
;   Return
; }
; find_file()
; {
;   Send ^o
;   global is_pre_x = 0
;   Return
; }
; save_buffer()
; {
;   Send, ^s
;   global is_pre_x = 0
;   Return
; }
; kill_emacs()
; {
;   Send !{F4}
;   global is_pre_x = 0
;   Return
; }

; move_beginning_of_line()
; {
;   global
;   if is_pre_spc
;     Send +{HOME}
;   Else
;     Send {HOME}
;   Return
; }
; move_end_of_line()
; {
;   global
;   if is_pre_spc
;     Send +{END}
;   Else
;     Send {END}
;   Return
; }
; previous_line()
; {
;   global
;   if is_pre_spc
;     Send +{Up}
;   Else
;     Send {Up}
;   Return
; }
; next_line()
; {
;   global
;   if is_pre_spc
;     Send +{Down}
;   Else
;     Send {Down}
;   Return
; }
; forward_char()
; {
;   global
;   if is_pre_spc
;     Send +{Right}
;   Else
;     Send {Right}
;   Return
; }
; backward_char()
; {
;   global
;   if is_pre_spc
;     Send +{Left} 
;   Else
;     Send {Left}
;   Return
; }
; scroll_up()
; {
;   global
;   if is_pre_spc
;     Send +{PgUp}
;   Else
;     Send {PgUp}
;   Return
; }
; scroll_down()
; {
;   global
;   if is_pre_spc
;     Send +{PgDn}
;   Else
;     Send {PgDn}
;   Return
; }


; ^x::
;   If is_target()
;     Send %A_ThisHotkey%
;   Else
;     is_pre_x = 1
;   Return 
; ^f::
;   If is_target()
;     Send %A_ThisHotkey%
;   Else
;   {
;     If is_pre_x
;       find_file()
;     Else
;       forward_char()
;   }
;   Return  
; ^c::
;   If is_target()
;     Send %A_ThisHotkey%
;   Else
;   {
;     If is_pre_x
;       kill_emacs()
;   }
;   Return  
; ^d::
;   If is_target()
;     Send %A_ThisHotkey%
;   Else
;     delete_char()
;   Return
; ^h::
;   If is_target()
;     Send %A_ThisHotkey%
;   Else
;     delete_backward_char()
;   Return
; ^k::
;   If is_target()
;     Send %A_ThisHotkey%
;   Else
;     kill_line()
;   Return
; ;; ^o::
; ;;   If is_target()
; ;;     Send %A_ThisHotkey%
; ;;   Else
; ;;     open_line()
; ;;   Return
; ^g::
;   If is_target()
;     Send %A_ThisHotkey%
;   Else
;     quit()
;   Return
; ;; ^j::
; ;;   If is_target()
; ;;     Send %A_ThisHotkey%
; ;;   Else
; ;;     newline_and_indent()
; ;;   Return
; ^m::
;   If is_target()
;     Send %A_ThisHotkey%
;   Else
;     newline()
;   Return
; ^i::
;   If is_target()
;     Send %A_ThisHotkey%
;   Else
;     indent_for_tab_command()
;   Return
; ^s::
;   If is_target()
;     Send %A_ThisHotkey%
;   Else
;   {
;     If is_pre_x
;       save_buffer()
;     Else
;       isearch_forward()
;   }
;   Return
; ^r::
;   If is_target()
;     Send %A_ThisHotkey%
;   Else
;     isearch_backward()
;   Return
; ^w::
;   If is_target()
;     Send %A_ThisHotkey%
;   Else
;     kill_region()
;   Return
; !w::
;   If is_target()
;     Send %A_ThisHotkey%
;   Else
;     kill_ring_save()
;   Return
; ^y::
;   If is_target()
;     Send %A_ThisHotkey%
;   Else
;     yank()
;   Return
; ^/::
;   If is_target()
;     Send %A_ThisHotkey%
;   Else
;     undo()
;   Return  
  
; ;$^{Space}::
; ;^vk20sc039::
; ^vk20::
;   If is_target()
;     Send {CtrlDown}{Space}{CtrlUp}
;   Else
;   {
;     If is_pre_spc
;       is_pre_spc = 0
;     Else
;       is_pre_spc = 1
;   }
;   Return
; ^@::
;   If is_target()
;     Send %A_ThisHotkey%
;   Else
;   {
;     If is_pre_spc
;       is_pre_spc = 0
;     Else
;       is_pre_spc = 1
;   }
;   Return
; ^a::
;   If is_target()
;     Send %A_ThisHotkey%
;   Else
;     move_beginning_of_line()
;   Return
; ^e::
;   If is_target()
;     Send %A_ThisHotkey%
;   Else
;     move_end_of_line()
;   Return
; ^p::
;   If is_target()
;     Send %A_ThisHotkey%
;   Else
;     previous_line()
;   Return
; ^n::
;   If is_target()
;     Send %A_ThisHotkey%
;   Else
;     next_line()
;   Return
; ^b::
;   If is_target()
;     Send %A_ThisHotkey%
;   Else
;     backward_char()
;   Return
; ^v::
;   If is_target()
;     Send %A_ThisHotkey%
;   Else
;     scroll_down()
;   Return
; !v::
;   If is_target()
;     Send %A_ThisHotkey%
;   Else
;     scroll_up()
;   Return