[OS X TeX] TeXShop wish list

[Paul Smyth]

Thanks Claus,

I added this as a Macro and I can run it but I'm getting errors. In  
the current version of TeXShop I get

TeXShop got an error:
NSReceiverEvaluationScriptError: 4

Same in the current beta.

Note: I have not modified the script in any way.

Paul

On 4 Sep 2006, at 11:24, Claus Gerhardt wrote:

> The Applescript below closes the frontmost tex file and removes the  
> corresponding .aux files. You can add any other filename.xxx to be  
> removed by looking at the structure of the script.
>
> Save the script as a Macro to be called by a short key.
>
> Claus
>
> --AppleScript
> -- Apply only to an already saved file
> -- Claus Gerhardt, September 2006
> (*This script provides the filename and its various derivatives of  
> the frontmost (tex) document in TeXShop.*)
>
>
>
> 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
>
> set shellScript to "cd " & dirName & ";"
> set shellScript to shellScript & "rm -f  " & baseName & ".aux"
> do shell script shellScript
>
> 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
>
> On Sep 4, 2006, at 5:30, Jan Rosinski wrote:
>
>> The following option in TeXShop Preferences would be useful to me  
>> and maybe other people will find it useful as well. I would like  
>> to have, as an option to select,  'Trash Aux Files when closing a  
>> document'. This option, when checked, would reduce the clutter in  
>> my TeX folders automatically and without any problem since  
>> creating new aux files is very quick. If you do not want it, you  
>> can always uncheck it.
>>
>> Jan Rosinski
>> ------------------------- 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/
>

------------------------- 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/