[OS X TeX] TeXShop wish list

Paul Smyth psmythirl at mac.com
Mon Sep 4 13:08:25 EDT 2006


Thanks Claus,

I'm still getting the same error from Script Runner. I'll have more  
time next week so I try and do some debugging them to isolate the cause.

Thanks

Paul

On 4 Sep 2006, at 17:37, Claus Gerhardt wrote:

> Below is a modification of my former script that simplifies the  
> removal of multiple auxilary files.
>
> Claus
>
> --AppleScript
> -- Apply only to an already saved file
> -- Claus Gerhardt, September 2006
> (*This script closes the frontmost (tex) document in TeXShop and  
> removes the corresponding auxilary files the suffixes of which is  
> listed in the list L. Beware of the quotation marks. The list L may  
> contain suffixes to which no corresponding files exist.*)
>
> set L to {"aux", "flashmode"} as list
>
> tell application "TeXShop"
> 	get path of document of window 1
> 	set fileName to result
> end tell
>
> set {baseName, texName, pdfName, namePath, dirName,  
> dirNameunquoted, logName, logPath, rtfName} to setnamets(fileName)
>
> tell application "TeXShop"
> 	close document texName
> end tell
>
> repeat with x in L
> 	try
> 		set shellScript to "cd " & dirName & ";"
> 		set shellScript to shellScript & "rm -f  " & baseName & "." & x
> 		do shell script shellScript
> 	end try
> end repeat
>
> on setnamets(x)
> 	set n to (number of characters of contents of x)
> 	set fileNamequoted to quoted form of x
> 	set windowName to do shell script "basename " & fileNamequoted
> 	set m to (number of characters of contents of windowName)
> 	set dirName to quoted form of (characters 1 thru (n - m - 1) of x  
> as string)
> 	set dirNameunquoted to (characters 1 thru (n - m - 1) of x as string)
> 	set theText to contents of windowName as string
> 	
> 	set n to (number of characters of contents of theText)
> 	set i to n as number
> 	
> 	repeat while i > 0
> 		if character i of theText is equal to "." then
> 			set m to i
> 			exit repeat
> 		else
> 			set i to (i - 1)
> 		end if
> 	end repeat
> 	
> 	set baseName to (characters 1 thru (m - 1) of theText as string)
> 	set texName to baseName & ".tex"
> 	set namePath to dirNameunquoted & "/" & baseName as string
> 	set pdfName to namePath & ".pdf" as string
> 	set rtfName to namePath & ".rtf" as string
> 	set logPath to namePath & ".log" as string
> 	set logName to baseName & ".log" as string
> 	
> 	try
> 		tell application "TeXShop"
> 			save document texName
> 		end tell
> 	end try
> 	return {baseName, texName, pdfName, namePath, dirName,  
> dirNameunquoted, logName, logPath, rtfName} as list
> end setnamets
> ------------------------- Info --------------------------
> Mac-TeX Website: http://www.esm.psu.edu/mac-tex/
>          & FAQ: http://latex.yauh.de/faq/
> TeX FAQ: http://www.tex.ac.uk/faq
> List Archive: http://tug.org/pipermail/macostex-archives/
>

------------------------- Info --------------------------
Mac-TeX Website: http://www.esm.psu.edu/mac-tex/
          & FAQ: http://latex.yauh.de/faq/
TeX FAQ: http://www.tex.ac.uk/faq
List Archive: http://tug.org/pipermail/macostex-archives/




More information about the MacOSX-TeX mailing list