Add AutoHotKey/AutoIT syntax highglight fixes #886

demo/kitchen-sink/doclist.js

@@ -138,6 +138,7 @@ var docs = {
     "docs/c9search.c9search_results": "C9 Search Results",
     
     "docs/actionscript.as": "ActionScript",
+    "docs/autohotkey.ahk": "AutoHotKey",
     "docs/erlang/erl": "Erlang",
     "docs/forth.frt": "Forth",
     "docs/haskell.hs": "Haskell",

demo/kitchen-sink/docs/autohotkey.ahk

@@ -0,0 +1,35 @@
+#NoEnv
+SetBatchLines -1
+
+CoordMode Mouse, Screen
+OnExit GuiClose
+
+zoom := 9
+
+computeSize(){
+	global as_x
+	as_x := Round(ws_x/zoom/2 - 0.5)
+	if (zoom>1) {
+		pix := Round(zoom)
+	} ele {
+		pix := 1
+	}
+    ToolTip Message %as_x% %zoom% %ws_x% %hws_x% 
+}
+
+hdc_frame := DllCall("GetDC", UInt, MagnifierID)
+
+; comment
+DrawCross(byRef x="", rX,rY,z, dc){
+        ;specify the style, thickness and color of the cross lines
+    h_pen := DllCall( "gdi32.dll\CreatePen", Int, 0, Int, 1, UInt, 0x0000FF)
+}
+
+;Ctrl ^; Shift +; Win #; Alt !
+^NumPadAdd::
+^WheelUp::   
+^;::   ;comment
+    If(zoom < ws_x and ( A_ThisHotKey = "^WheelUp" or A_ThisHotKey ="^NumPadAdd") )
+		zoom *= 1.189207115         ; sqrt(sqrt(2))
+	Gosub,setZoom
+return

demo/kitchen-sink/modelist.js

@@ -108,6 +108,7 @@ var modesByName = {
     
     abap:         ["ABAP"          , "abap"],
     actionscript: ["ActionScript"  ,"as"],
+    autohotkey:   ["AutoHotKey"    , "ahk"],
     erlang:       ["Erlang"  ,"erl|hrl"],
     forth:        ["Forth",  ,"frt|fs|ldr"],
     haskell: ["Haskell", "hs"],