[OS X TeX] TeXShop wish list

Claus Gerhardt gerhardt at math.uni-heidelberg.de
Mon Sep 4 06:24:36 EDT 2006


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/




More information about the MacOSX-TeX mailing list