[OS X TeX] TeXShop wish list
Paul Smyth
psmythirl at mac.com
Mon Sep 4 14:30:48 EDT 2006
Thanks Claus,
that worked perfectly after I added the other suffixes to the
definition of L.
Paul
On 4 Sep 2006, at 18:31, Claus Gerhardt wrote:
> Paul,
>
> Your Finder suppresses the suffixes. Below is an Applescript that
> takes care of it.
>
> 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 are
> 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)
>
> set theFile to POSIX file namePath as string
>
> tell application "Finder"
> if the file theFile exists then
> set theAnswer to "yes"
> else
> set theAnswer to "no"
> end if
> end tell
>
> if theAnswer is equal to "yes" then
> set texName to baseName
> else
> set texName to texName
> end if
>
> 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
>
> On Sep 4, 2006, at 17:58, Paul Smyth wrote:
>
>> That's the same version I'm using. I only downloaded it a couple
>> of days ago. I've tried various of my documents but the result is
>> always the same. Thanks anyway.
>>
>> Paul
>>
>> On 4 Sep 2006, at 12:50, Claus Gerhardt wrote:
>>
>>> I assume your using an old beta. The current beta is 2.10beta2.
>>> For me the script works fine.
>>>
>>> Claus
>>>
>>>
>>> On Sep 4, 2006, at 13:07, Paul Smyth wrote:
>>>
>>>> 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/
>>>>
>>>
>>> ------------------------- 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/
>
------------------------- 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