AutoHotkey Community

; ShortHand
;
; Automatically expands shorthand
;
; The shorthand is read from ShortHand.ini, with the
; text to look for on the first line, and the text to replace
; it with on the following line like this:
;
; btw
; by the way
; otoh
; on the other hand
;
; !=alt, ^=ctrl, +=shift, #=windows, so use ` to override,
; as in `!=!. Also, you can use {Tab}{Enter}{Left}{PgUp} etc...

Menu,Tray,NoStandard
Menu,Tray,Add,&Edit ShortHand.ini,EDIT
Menu,Tray,Add,&Reload ShortHand.ini,LOAD
Menu,Tray,Add,E&xit,EXIT

SetKeyDelay,-1

LOAD:
counter=0
Loop
{
  counter+=1
  FileReadLine,line1,%A_WorkingDir%\ShortHand.ini,%counter%
  counter+=1
  FileReadLine,line2,%A_WorkingDir%\ShortHand.ini,%counter%
  if ErrorLevel<>0
    break
  %line1%=%line2%                             ;Some clever AHK-stuff
}

START:
Input,input,I V,.:`,;{Space}{Tab}{Esc}{Enter}
Transform,output,Deref,`%%input%`%            ;More clever AHK-stuff
StringLen,length,output
if length>0
{
  StringLen,length,input
  Send,{Left}{Backspace %length%}%output%{Right}
}
Goto,START

EDIT:
run,notepad %A_WorkingDir%\ShortHand.ini
Return

EXIT:
ExitApp

Transform,output,Deref,`%%input%`%

#h::  ; Win+H hotkey; The marked text as HotString is appended to this script, reloaded

AutoTrim Off  ; Retain any leading and trailing whitespace on the clipboard.
ClipboardOld = %ClipboardAll%
ClipBoard =   ; Clear to be able to see a change

Send ^c
ClipWait 1

; Replace CRLF and/or LF with `n for use in a "send-raw" hotstring
; The same for other characters that might be a problem in raw mode

StringReplace Hotstring, Clipboard, ``, ````, All  ; Do this replacement first to avoid interfering with the others below.
StringReplace Hotstring, Hotstring, `r`n, ``r, All ; Using `r works better than `n in MS Word, etc.
StringReplace Hotstring, Hotstring, `n, ``r, All
StringReplace Hotstring, Hotstring, %A_Tab%, ``t, All
StringReplace Hotstring, Hotstring, `;, ```;, All

Clipboard = %ClipboardOld%       ; Restore previous contents of clipboard.

SetTimer, MoveCaret, 10          ; Move the InputBox's caret to a friendly position

; Show the InputBox, providing the default hotstring
InputBox Hotstring, New Hotstring, Type your abreviation at the insertion point.`nYou can also edit the replacement text.`n`nExample entry: :R:btw`::by the way,,,,,,,, :R:`::%Hotstring%
IfNotEqual ErrorLevel,0,Return   ; The user pressed Esc or clicked Cancel.

IfInString Hotstring, :R`:::
{
   MsgBox You didn't provide an abbreviation. The hotstring has not been added.
   return
}

FileAppend, `n%Hotstring%, %A_ScriptFullPath% ; Add the hotstring, reload the script
Reload

Sleep 1000 ;  Error brings you here, otherwise Reload closes this instance during the Sleep
MsgBox 4,, The hotstring just added is improperly formatted.`nWould you like to open the script for editing?`nThe bad hotstring is at the bottom of the script.
IfMsgBox Yes, Edit
return

MoveCaret:                       ; Another thread to move the caret
IfWinNotActive, New Hotstring
   return
Send {Home}{Right 3}             ; Insertion point -> where to type the abbreviation.
SetTimer, MoveCaret, Off         ; Runs only once
return

Transform,output,Deref,`%%input%`%

output := %input%

; Automatically expands shorthand
;
; The shorthand is read from ShortHand.ini, with the
; text to look for on the first line, and the text to replace
; it with on the following line like this:
;
; btw
; by the way
; otoh
; on the other hand
;
; !=alt, ^=ctrl, +=shift, #=windows, so use ´ to override,
; as in ´!=!. Also, you can use {Tab}{Enter}{Left}{PgUp} etc...

SetKeyDelay,-1
Menu,Tray,NoStandard
Menu,Tray,Add,&Edit ShortHand.ini,EDIT
Menu,Tray,Add,&Reload ShortHand.ini,LOAD
Menu,Tray,Add,E&xit,EXIT

IfNotExist,%A_WorkingDir%\ShortHand.ini
  FileAppend,btw`nby the way,%A_WorkingDir%\ShortHand.ini

counter=0
Loop
{
  counter+=1
  FileReadLine,line1,%A_WorkingDir%\ShortHand.ini,%counter%
  counter+=1
  FileReadLine,line2,%A_WorkingDir%\ShortHand.ini,%counter%
  if ErrorLevel<>0
    break
  ;hexify to allow for more complex shorthand
  hexed:=Hexify(line1)
  %hexed%=%line2%
}

START:
Input,input,I V,.:`,;{Space}{Tab}{Esc}{Enter}
hexed:=Hexify(input)
;variable reference, same as Transform,output,Deref,`%%hexed%`%
output:=%hexed%
StringLen,length,output
if length>0
{
  StringLen,length,input
  Send,{Left}{Backspace %length%}%output%{Right}
}
Goto,START

EDIT:
run,notepad.exe %A_WorkingDir%\ShortHand.ini
Return

LOAD:
Reload

EXIT:
ExitApp


;Function Hexify by Laszlo
Hexify(x)                     ; Convert a string to a huge hex number starting with X
{
   StringLen Len, x
   format = %A_FormatInteger%
   SetFormat Integer, H
   hex = X
   Loop %Len%
   {
      Transform y, ASC, %x%   ; ASCII code of 1st char, 15 < y < 256
      StringTrimLeft y, y, 2  ; Remove leading 0x
      hex = %hex%%y%
      StringTrimLeft x, x, 1  ; Remove 1st char
   }
   SetFormat Integer, %format%
   Return hex
}