write text from the clipboard to text file inside path finder or finder's current directory

write-clip-down.applescript

use AppleScript version "2.4" -- Yosemite (10.10) or later
use scripting additions

on writeclipdown(filepath)
	try
		set f to open for access file filepath with write permission
		set eof of f to 0
		set olddel to AppleScript's text item delimiters
		set AppleScript's text item delimiters to {return & linefeed, return, linefeed, character id 8233, character id 8232}
		set newText to text items of (get the clipboard)
		set AppleScript's text item delimiters to {linefeed}
		set newText to newText as text
		set AppleScript's text item delimiters to olddel
		write newText as «class utf8» to f starting at eof
		close access f
		return true
	on error
		try
			close access f
		end try
		return false
	end try
end writeclipdown

script writedown
	property currFolder : ""
	on pathfinder()
		try
			application id "com.cocoatech.PathFinder"
		on error number -1728
			return false
		end try
		tell application id "com.cocoatech.PathFinder"
			if it is not running then
				return false
			end if
			set currFolder to (path of target of the front finder window) as alias
			log "pathfinder's current folder is " & currFolder
			if currFolder is not "" then
				return true
			else
				return false
			end if
		end tell
	end pathfinder
	
	on finder()
		tell application id "com.apple.finder"
			set currFolder to (target of the front Finder window) as alias
			log "finder's current folder is " & currFolder
			if currFolder is not "" then
				return true
			else
				return false
			end if
		end tell
	end finder
	
end script

on run
	if writedown's pathfinder() or writedown's finder() then
		set newtextfile to (currFolder of writedown as text) & "cliptext.txt"
	end if
	writeclipdown(newtextfile)
end run