- Better support for key modifiers in autohotkey backend

iarwain · Jun 8, 2020 · 1b2934a · 1b2934a
1 parent 254e597
commit 1b2934a
Showing 1 changed file with 10 additions and 1 deletion.
diff --git a/text2key.r b/text2key.r
@@ -58,7 +58,16 @@ autohotkey: make backend [
     emit rejoin [{SetKeyDelay } either value = 0 [0] [to-integer 1000 * 1.0 / value] {, 0}]
   ]
   key: func [value] [
-    emit rejoin [uppercase trim/with replace/all replace/all value {ctrl} {^^} {alt} {!} #"+" {::}]
+    foreach [src dst] [
+      {ctrl}    {^^}
+      {alt}     {!}
+      {shift}   {+}
+      {win}     {#}
+      { }       {}
+    ] [
+      replace/all value src dst
+    ]
+    emit rejoin [uppercase value {::}]
   ]
 ]