AutoHotkey Community

[Programs]
Type=Include
Title=Notepad|Wordpad

[Helperwin]
Title=Firefox|Thunderbird

~RButton::
;If we aren't using the DetectMouseClickMoveScheme, skip out
IfNotEqual, DetectMouseClickMove, On
   Return
   
; If we have a Word and an OldCaretX, check to see if the Caret moved
IfNotEqual, OldCaretX,
{
   IfNotEqual, Word,
   {
      KeyWait, RButton, U
      ; Using GoSub as A_CaretX in function call breaks doubleclick
      GoSub, CheckForCaretMove
   }
}

Return

Loop, 10
{
   Gui, %DropDownGui%: Add, ListBox, vToolTip%A_Index% R%A_Index% X0 Y0
}

/*
Assign name for revised file, and original file
Run this script, it does the rest

Two modifications to the basic (great) TypingAid script

1:
I'm a touch typist who's clumsy at finding numbers
And I'm lazy, I hate to remove my fingers from the home row
This modification allows choosing words from the tooltip
by using the custom combination of <key> & <letter or number>
(while holding down <key> hit <letter or number>

Key options:

Space - text followed by space
N (NoSpace) - text without space after
; , . - text with that punctuation after
M (as in ctrl-m command) or Enter - text with carriage return after
, & . while tooltip displayed: Toggles whether space inserted after words and punctuation, default is Yes, insert. Changes default for _subsequent_ choices, not the current one.

Letter - number options:
asdfg qwert corresponds to 1 - 0 if <key> is held down
1234567890 will choose 11 - 20 if <key> is held down

Maybe someone knows a way to do this easier than creating a
hidden window when the tooltip shows content
( create gui window hidden99 by function g99c() )
and making the custom combinations conditional #ifwinexist hidden99

==> I don't think this change will be at all useful to one-finger typists, but I think it will be VERY helpful to touch typists.  (It is to me!)  Also, still allows choosing by numbers without holding down <key>.

2:
In addition, I've added a SpecialStringCheck() function.
It looks at the chosen string before sending it to be entered.
This allows:
+ insert multi-line strings ( | is replaced with string `n )
+ insert everything after chosen character (in this first revision I chose semicolon)
- <not yet done> can make this a remarkable front end that does more than insert text, by creating rules, for example assigning character which will start branch "run the following text as ahk code" instead of "insert text"


To avoid interfering with the original TypingAid, this (demonstration and bugs-included) Mod writes its own small wordlist.mod.txt and preferences.mod.ini

This script run in the same directory as
original file (eg TypingAid v2.13.ahk)
will create and load
revised file (eg TypingAid v2.13tooltip.ahk, tooltip because I also have a listbox mod


After assigning names,
The modTA include file (currently line 9) creates "RevisedFile" by looping through the "OriginalFile" line by line, creating place-sensitive additions and replacements to the original file, plus one line at the end for an include file.  This include file contains the window-sensitive custom combination hotkeys and revised functions

*/
 
OriginalFile = TA_2p13ori.ahk
IfNotExist, %OriginalFile%
InputBox, OriginalFile, , Type Name of File to modify`, located within script directory:,,,,,,,,%OriginalFile%
IfNotExist, %OriginalFile%
MsgBox,,, Error`, try again, 2
RevisedFile = TA_2p13ModToolTip.ahk
IncludeFile = %RevisedFile%.include.txt
ofile := OriginalFile
rfile := RevisedFile
ifil := IncludeFile
FileDelete, % rfile
FileDelete, % ifil

;#Include modTA.011_2p13a.ahk ; original to modify ori
;#Include modTA.011_2p13aa.ahk ; simplify the sendvalue commands, works
;#Include modTA.011_2p13aaa.ahk ; try to allow any sendmethod
#Include LoopAndChangeLines_2p13.ahk ; SendFullMod(sending, StrLen(Word))
/*
This Include File does place-sensitive additions and replacements within the original TypingAid v2.13, including adding 1 line for an include file at the end of the Modified TypingAid.

TMod11.txt is created below, the code is not place-sensitive and doesn't replace existing TypingAid code

This modification allows:
- custom combination hotkeys starting with ; or , or .
- choosing among the first 10 items by ;/,/. & letter chosen by the left hand
- choosing among the last 10 items by ;/,/. & Number 1 - 0
- ; just adds selection, while ,/. will add selection plus punctuation.
*/

ChooseString = asdfgqwert1234567890
cs := ChooseString
; FirstChar of combination hotkey determines action after item is chosen:
; Space -> space
; n -> No Space m Carriage return (like the old control m)
; ; or , or . -> that punctuation added

FileAppend, #IfWinExist`, hidden99`n, % ifil
loop, 20
{
i := A_Index
hk2 := SubStr(cs, i, 1)
FileAppend, ```; & %hk2%::`nCheckWord(`"$%i%`")`ng99d()`nreturn`n, % ifil
FileAppend, `. & %hk2%::`nCheckWord(`"$%i%`")`ng99d()`nreturn`n, % ifil
FileAppend, `, & %hk2%::`nCheckWord(`"$%i%`")`ng99d()`nreturn`n, % ifil
FileAppend, space & %hk2%::`nCheckWord(`"$%i%`")`ng99d()`nreturn`n, % ifil
FileAppend, enter & %hk2%::`nCheckWord(`"$%i%`")`ng99d()`nreturn`n, % ifil
FileAppend, m & %hk2%::`nCheckWord(`"$%i%`")`ng99d()`nreturn`n, % ifil
FileAppend, n & %hk2%::`nCheckWord(`"$%i%`")`ng99d()`nreturn`n, % ifil
}

FileAppend, `;::`ng99d()`nsend`, ```;`nreturn`n, % ifil
FileAppend, `,::`ng99d()`nsend`, ```,`nreturn`n, % ifil
FileAppend, `.::`ng99d()`nsend`, ```.`nreturn`n, % ifil
FileAppend, space::`ng99d()`nsend`, {space}`nreturn`n, % ifil
FileAppend, enter::`ng99d()`nsend`, {enter}`nreturn`n, % ifil
FileAppend, m::`ng99d()`nsend`, m`nreturn`n, % ifil
FileAppend, n::`ng99d()`nsend`, n`nreturn`n, % ifil
FileAppend, `, & `.::`ngosub`, ToggleDefSpace`nreturn`n, % ifil
FileAppend, #IfWinExist`n`n, % ifil

FileAppend,
(
g99c()
{
gui, 99:add, Text, ,
gui, 99:show, hide, hidden99
}

g99d()
{
gui, 99:destroy
}

ToggleDefSpace:
if (DefSpace=" ")
DefSpace=
else
DefSpace:= a_space
return

), % ifil

FileAppend,
(
AddToMatchListMod(position,value)
{
   global   
   Local prefix
   IfGreater, position, 20
   {
      prefix =
   } else {   
            pickletters = asdfgqwert1234567890
   IfLessOrEqual, position, 10
         prefix := Mod(position,10) . substr(pickletters
         ,Mod(position,20), 1) . ". "
   else
         prefix := " " . substr(pickletters
         ,Mod(position,20), 1) . ". "
         }

   IfEqual, ArrowKeyMethod, Off
   {
      match .= prefix . value . "``n"
   } else {
            IfEqual, MatchPos, `%Position`%
            {
               match .= ">" . prefix . value . "``n"
            } Else {
                     match .= "   " . prefix . value . "``n"
                  }
         }
}

), % ifil

FileAppend,
(
SpecialStringCheck(byref sending)
{
global
IfInString, sending, ```;
{
sending2 := SubStr(sending, InStr(sending, ";", False ,0)+1)
sending := sending2
}
IfInString, sending, ..
{
;sending2 := SubStr(sending, 1, InStr(sending, "..", False ,0)) . "``n"
sending2 := SubStr(sending, 3)
sending := sending2
;Return
}
IfInString, sending, |
{
;sending2 := SubStr(sending, 1, InStr(sending, "|", False ,0)-1) . "``n"
StringReplace, sending2, sending, |, ``n, All
AddSpace =
sending := sending2
Return
}
sending2 := sending
}

), % ifil

FileAppend,
(
Esc::ExitApp
^!r::Reload

), % ifil

FileAppend, ; this will be SendFullMod(x,y)
(
SendFullMod(SendValue,BackSpaceLen)
{
   global SendMethod, addSpace, DefSpace
   global A_id
   SpecialStringCheck(SendValue)
   
StringLeft, hkFirstChar, a_thishotkey, 1

`; override | as last character sending NewLine before punctuation
punc:="`;,."
stringright, stringlastchar, SendValue, 1

ifinstring, punc, `%hkFirstChar`%
{
stringright, stringlastchar, SendValue, 1
if (stringlastchar="``n")      {
stringtrimright, sendvalue, sendvalue, 1
LastAdd = ``n
                  }
}

if (hkFirstChar = ".") or (hkFirstChar = ",") or (hkFirstChar = ";")
FirstAdd := hkFirstChar

if (hkFirstChar = "s" ) or (hkFirstChar = "$" )
sleep, 1
; space allows default - space
;sending = {Shift Up}{Shift Down}{Shift Up}{BS `%BackSpaceLen`%}{Raw}`%SendValue`%

if (hkFirstChar = "e" ) or (hkFirstChar = "m")
{
AddSpace=
LastAdd = ``n
}

if (hkFirstChar = "n" )
AddSpace=
 
sending = {Shift Up}{Shift Down}{Shift Up}{BS `%BackSpaceLen`%}{Raw}`%SendValue`%`%FirstAdd`%`%LastAdd`%`%AddSpace`%
AddSpace := DefSpace

   IfEqual, SendMethod, 1
   {
      ; Shift key hits are here to account for an occassional bug which misses the first keys in SendPlay
`; sending is previously assigned      sending = {Shift Up}{Shift Down}{Shift Up}{BS `%BackSpaceLen`%}{Raw}`%SendValue`%
      SendPlay, `%sending`% ; First do the backspaces, Then send word (Raw because we want the string exactly as in wordlist.txt)
      Return
   }
`; don't know yet how to integrate these   sending = {BS `%BackSpaceLen`%}{Raw}`%SendValue`%
   
   IfEqual, SendMethod, 2
   {
      SendInput, `%sending`% ; First do the backspaces, Then send word (Raw because we want the string exactly as in wordlist.txt)     
      Return
   }

   IfEqual, SendMethod, 3
   {
      SendEvent, `%sending`% ; First do the backspaces, Then send word (Raw because we want the string exactly as in wordlist.txt)
      Return
   }
   
   ClipboardSave := ClipboardAll
   Clipboard =
   Clipboard := SendValue
   ClipWait, 0
   
   sending = {BS `%BackSpaceLen`%}^v
   
   IfEqual, SendMethod, 1C
   {
      sending := "{Shift Up}{Shift Down}{Shift Up}" . sending
      SendPlay, `%sending`% ; First do the backspaces, Then send word via clipboard
   } else {
            IfEqual, SendMethod, 2C
            {
               SendInput, `%sending`% ; First do the backspaces, Then send word via clipboard
            } else {
                     IfEqual, SendMethod, 3C
                     {
                        SendEvent, `%sending`% ; First do the backspaces, Then send word via clipboard
                     } Else {                     
                              sending = {BS `%BackSpaceLen`%}{Ctrl Down}v{Ctrl Up}
                              ControlGetFocus, ActiveControl, ahk_id `%A_id`%
                              IfNotEqual, ActiveControl,
                                 ControlSend, `%ActiveControl`%, `%sending`%, ahk_id `%A_id`%
                           }
                  }
         }
         
   Clipboard := ClipboardSave
   Return
}


), % ifil

IfNotExist, wordlist.mod.txt
{
contents=
(
..Two periods are automatically eliminated.
..This means you can put in choices (menus, if you will)
..Based on plain text
..This is fun|For girls and boys|Of all ages|
..Try ;Hey Hey AutoHotKey is the Greatest
..TryThis ;He ain't heavy|He's my brother|He is heavy!|
[heay
[heab
[heck
/headaches headachier  ;hi there
h;e is here
h;h-triggered words ;Starting with this little gem
He is a nut.
He is a filbert.
He is a pecan.
He is a peanut.
He is a nut.
He is a peanut.
He is a nut.
He is a nut|
He is a nut, a nutty nut|
He is a nutcase.
abaci
aback
abacus
abacuses
abaft
abalone
abalones
abandon
abandoned
abandonedly
abandonee
abandoner
abandoners
abandoning
abandonment
abandonments
abandons
abase
abased
abasedly
abasement
abaser
abasers
abases
abash
abashed
abashedly
abashes
abashing
abashment
abashments
abasing
abatable
abate
abated
abatement
abatements
abater
abaters
abates
abating
abatis
abatises
abator
abattoir
abattoirs
abbacies
abbacy
abbatial
abbe  ;A semicolon is interpreted as: don't type what goes before.
abbes ;Is it the first semicolon; or the last semicolon.
;LEARNEDWORDS;
)
FileAppend, %contents%, wordlist.mod.txt
}

IfNotExist, Preferences.mod.ini
{
contents=
(
[IncludePrograms]
IncludeProgramExecutables=
IncludeProgramTitles=
ExcludeProgramExecutables=
ExcludeProgramTitles=
;
[Settings]
Length=2
NumPresses=1
ToolTipOffset=14
ToolTipLineHeight=13
LearnMode=Off
LearnCount=5
LearnLength=5
ArrowKeyMethod=First
DisabledAutoCompleteKeys=
DetectMouseClickMove=On
SendMethod=1
MaxMatches=20
TerminatingCharacters={enter}{space}{bs}{esc}{tab}{Home}{End}{PgUp}{PdDn}{Up}{Dn}{Left}{Right}???!()$
ForceNewWordCharacters=
;
;
[HelperWindow]
HelperWindowProgramExecutables=
HelperWindowProgramTitles=
XY=200,277

)
FileAppend, %contents%, Preferences.mod.ini
}

MsgBox,,, You have modified TypingAid`nAnd Now %rfile% will be loaded`nEscape will exit it, 2

run % rfile

; Title LoopAndChangeLines_2p13.ahk
; This needs to be run as an include file in ModifyTypingAidxxx.ahk
loop, read, %ofile%
{
x := A_LoopReadLine
; DefSpace (DefaultSpace) IS a space, toggle by , & .
If (InStr(x, "CONFIGURATION"))   {
AddAfter("DefSpace := a_space")
Replace("AddSpace := DefSpace")
Continue                  
                        }
; g99d() destroys the hidden window that activates the custom combo keys
If (InStr(x, ";tryout Word=`n"))   {
AddBefore("g99d()")
Continue                  
                           }

If (InStr(x, "Input, chr, L1 V, {BS}%TerminatingCharacters%"))   {
AddAfter("g99d()")
Continue                  
                                             }
                                             
If (InStr(x, ";tryout ToolTip,")) and !(InStr(x, "CoordMode"))   {
AddAfter("g99d() `;pw ")
Continue                  
                                                }
If (InStr(x, "SetTitleMatchMode, 2"))   {
AddAfter("DetectHiddenWindows, On")
AddComment("Because each displayed tooltip creates the hidden window 'hidden99' which activates the custom key combinations")
Continue                     
                              }
; When the tooltip displays, the custom combinations are activated:
If (InStr(x, "ToolTip, %match%"))   {
AddAfter("g99c() `;pw ")
Continue                     
                           }
; Can't have , . ; as both terminating characters and custom combinations
If (InStr(x, "DftTerminatingCharacters = {enter}{space}{esc}{tab}"))   {
Replace("DftTerminatingCharacters = {enter}{space}{esc}{tab}{Home}{End}{PgUp}{PgDn}{Up}{Down}{Left}{Right}???!'()[]{}{}}{{}``~``%$&*-+=\/><^|@#:")
Continue
                                                   }
; Since this is for demo purposes:
If (InStr(x, "Preferences.ini"))   {
ReplacePartOfLine("Preferences.ini","Preferences.mod.ini")
Continue
                                                      }

If (InStr(x, "wordlist.txt"))   {
ReplacePartOfLine("wordlist.txt","wordlist.mod.txt")
Continue
                        }

; The ifil (include file) has
; the custom hotkey definitions
; g99c() and g99d()
; And the modified functions
; AddToMatchListMod(position,value)
; SpecialStringCheck(byref sending)
; SendFullMod(SendValue,BackSpaceLen)

If (InStr(x, "ExitApp"))                  {
AddAfter("`n`n#Include *i " . ifil . " `n ")
Continue                  
                                    }
                  
If (InStr(x, "AddToMatchList(A_Index,singlematch%A_Index%)"))   {
Replace("AddToMatchListMod(A_Index,singlematch%A_Index%)")
Continue                  
                                                }
                                          
If (InStr(x, "SendFull(sending, StrLen(Word))"))   {
Replace("SendFullMod(sending, StrLen(Word))")
Continue                  
                                       }


If (InStr(x, "StringRight, Key, Key, 1"))   {
AddComment(x)
Replace("StringLeft, FirstChar, a_thishotkey, 1")
Replace("StringTrimLeft, key, key, 1")
Continue                  
                                 }
                                    
If (InStr(x, "IfEqual, Key, 0"))   {
Replace("IfEqual, Key, 20")
Continue                  
                           }
                                    
If (InStr(x, "WordIndex = 10"))   {
Replace("WordIndex = 20")
Continue                  
                        }

If (InStr(x, "xx global SendMethod"))   {
Replace("global SendMethod, firstchar, AddSpace, DefSpace")
Continue                  
                           }

If (InStr(x, "xx SendPlay, %sending%"))   {
Replace("SendPlay, %sending%%AddSpace%")
AddComment(x)
Replace("AddSpace := DefSpace")
Continue                  
                              }

FileAppend, %x%`n, %rfile%
} ; end of loop


ReplacePartOfLine(oristring,newstring)
{
global
StringReplace, x, x, %oristring%, %newstring%
FileAppend, %x%`n, %rfile%
}

OriginalLine()
{
global
FileAppend, %x%`n, %rfile%
}

AddAfter(z)
{
global
FileAppend, %x%`n, %rfile%
FileAppend, %z%`n, %rfile%
}

AddBefore(z)
{
global
FileAppend, %z%`n, %rfile%
FileAppend, %x%`n, %rfile%
}

AddComment(z)
{
global
FileAppend, `; %z%`n, %rfile%
}

Replace(z)
{
global
FileAppend, %z%`n, %rfile%
}