localhost-to-ip-qr-code.scpt

on replaceText(find, replace, subject)
	set prevTIDs to text item delimiters of AppleScript
	set text item delimiters of AppleScript to find
	set subject to text items of subject
	
	set text item delimiters of AppleScript to replace
	set subject to subject as text
	set text item delimiters of AppleScript to prevTIDs
	
	return subject
end replaceText

tell application "Google Chrome"
	set activeUrl to get URL of active tab of first window
end tell

set ipAddr to IPv4 address of (get system info)
set fullAddr to replaceText("localhost", ipAddr, activeUrl)

tell application "Terminal"
	activate
	tell application "System Events"
		keystroke "n" using command down
		delay 0.1
		keystroke "npx qrcode " & fullAddr
		key code 36
	end tell
end tell