AppleScript's topics - tribe.net

Script looking for internet explorer?

Pink — Wed, 22 Aug 2007 15:19:00 GMT

I have a bunch of scripts in my iTunes script folder that I use to ease the pain of organizing my music files.

Sometimes when I run some scripts (legacy scripts from my power PC but still OS X) they ask for the location of Internet Explorer before they will run.

Anyone know why they do this? It's really annoying that someone who made an AppleScript would ask/utilize IE.

posted in AppleScript - 3 replies

InDesign CS2 convert clipping paths to varnish layer

raymassie — Tue, 10 Apr 2007 18:20:28 GMT

-- ID CS2 Clipping Path to Varnish Plate
-- 2007 Ray Massie & Chad Augur
-- with much help from macscripter.net and page-online.de forums

tell application "Adobe InDesign CS2"

set myDoc to active document

tell myDoc

try
make layer with properties {name:"Varnish"}
end try

set theLinks to every link

repeat with i from 1 to count of theLinks

set parentID to id of parent of item i of theLinks
set oldPath to clipping path of image id parentID

if the clipping type of oldPath is photoshop path then
set oldGraphic to parent of item i of theLinks
set newGraphic to duplicate oldGraphic
set properties of newGraphic to {item layer:"Varnish"}

set newpath to clipping path of graphic 1 of newGraphic
tell newpath
set convertPath to convert to frame
end tell

set properties of convertPath to {fill color:"Magenta"}
delete graphic 1 of convertPath

end if

end repeat

end tell

end tell

posted in AppleScript - 0 replies

applescript tutorials at macscripter.net

raymassie — Sat, 24 Mar 2007 15:16:14 GMT

stumbled across their tutorials page this morning: http://macscripter.net/unscripted

posted in AppleScript - 1 reply

close all open applications

raymassie — Thu, 28 Sep 2006 16:44:41 GMT

tell application "System Events" to set the visible of every process to true

tell application "System Events" to set theApps to (name of every process whose visible is true and name is not "Finder" and name is not (my name as text))

repeat with theApp in theApps
tell application theApp to quit
end repeat

posted in AppleScript - 0 replies

make HTML link from selection

raymassie — Sat, 13 May 2006 12:08:21 GMT

-- Builds HTML code for self-referencing link from selected text
--Adapted from the script "URL link bbcoder for the bbs." by Adam Bell: http://bbs.applescript.net/viewtopic.php?id=15344
--The remaining comments are his
--Be careful with spaces in the selection

tell application "Finder"
set visible of process "Script Editor" to false -- Needed if runing the script from Script Editor. If a compiled app is double-clicked put its name in place of "Script Editor" (no extension). Comment this line out if the script is run by a key command to a hotkey application like QuicKeys or FastScripts.
set Front_App to item 1 of (get name of processes whose frontmost is true)
end tell

tell application Front_App to activate -- necessary if you've just hidden the Script Editor or your script.app
tell application "System Events"
tell process Front_App
keystroke "x" using {command down}
set theURL to the clipboard
keystroke " <a href=\""
keystroke "v" using {command down}
keystroke "\">"
keystroke "v" using {command down}
keystroke "</a> "
end tell
end tell

posted in AppleScript - 0 replies

find a creator

raymassie — Wed, 08 Feb 2006 01:00:16 GMT

drop this code into the script editor and save it as an app

this is a drag-n-drop script to change the file/creator type for serveral common graphics formats. drop a file or folder on the script and it will prompt you for the file type that you want to associate with and assign the file/creator type accordingly.

-------------------------------------

property FileType : ""
property CreatorType : ""

on open theFiles
tell application "Finder"
activate

set pickProgram to choose from list {"Quark 5", "Quark 6", "InDesign", "Illustrator AI", "Illustrator EPS", "Illustrator PDF", "Acrobat PDF", "Photoshop PSD", "Photoshop TIFF", "Photoshop JPEG", "Photoshop GIF", "Photoshop EPS", "Word DOC", "Word RTF", "Plain TXT"} with prompt ¬
"What kind of file should this be?" OK button name "Go Man" cancel button name "Nevermind"

if (pickProgram as string) = "Quark 5" then
set FileType to "XDOC"
set CreatorType to "XPR3"

else if (pickProgram as string) = "Quark 6" then
set FileType to "XPRJ"
set CreatorType to "XPR3"

else if (pickProgram as string) = "InDesign" then
set FileType to "IDd4"
set CreatorType to "InDn"

else if (pickProgram as string) = "Illustrator AI" then
set FileType to "PDF "
set CreatorType to "ART5"

else if (pickProgram as string) = "Illustrator EPS" then
set FileType to "EPSF"
set CreatorType to "ART5"

else if (pickProgram as string) = "Illustrator PDF" then
set FileType to "PDF "
set CreatorType to "ART5"

else if (pickProgram as string) = "Acrobat PDF" then
set FileType to "PDF "
set CreatorType to "CARO"

else if (pickProgram as string) = "Photoshop PSD" then
set FileType to "EPSF"
set CreatorType to "8BIM"

else if (pickProgram as string) = "Photoshop TIFF" then
set FileType to "TIFF"
set CreatorType to "8BIM"

else if (pickProgram as string) = "Photoshop JPEG" then
set FileType to "JPEG"
set CreatorType to "8BIM"

else if (pickProgram as string) = "Photoshop GIF" then
set FileType to "GIFf"
set CreatorType to "8BIM"

else if (pickProgram as string) = "Photoshop EPS" then
set FileType to "EPSF"
set CreatorType to "8BIM"

else if (pickProgram as string) = "Word DOC" then
set FileType to "W8BN"
set CreatorType to "MSWD"

else if (pickProgram as string) = "Word RTF" then
set FileType to "W8BN"
set CreatorType to "MSWD"

else if (pickProgram as string) = "Plain TXT" then
set FileType to "ttxt"
set CreatorType to "TEXT"
end if

repeat with eachFile in theFiles
set the file type of eachFile to FileType
set the creator type of eachFile to CreatorType
end repeat

end tell
end open

posted in AppleScript - 0 replies

Online Books

Paul_F — Fri, 20 Jan 2006 17:26:43 GMT

Hey People:

I'm not sure if you know about it or not but Oreilly has all their books online in entirety at their "safari enabled" site.

http://safari.oreilly.com/

For 20 bucks a month you can study the "how to" books, reference the references, and download the examples. It's truly a dream come true for people without several thousand a year to spend on books. They have different tiers for pricing and access.

Check it out! There is a glut of information on Apple Script. It doesn't seem I can link the search but if you enter "applescript" in the search box you'll see what I mean.

posted in AppleScript - 2 replies

i've finished my first real script

raymassie — Thu, 19 Jan 2006 18:33:19 GMT

i finally completed what i would consider to be my first REAL script -- meaning that it took me some time to figure out and it makes a positive impact on my working situation, reducing what would normally take an hour or so down to about 5 seconds.

the script:
1) sets the bleed and slug area
2) creates six layers with name and color properties
3) creates a slug box on four specific layers
4) creates slug line in the boxes with
a) the document name
b) automatic page number
c) layer name
d) proof version

here's a copy of the script:

(*
Can we build it?! YES WE CAN!!
January, 2006
Ray Massie: raymassie@onomonopia.com
Build InDesign document layers and slug, for Haggin Marketing
With much help from: John Thorsen, Hanaan Rosenthal, Sal Soghoian, Olivier Berquin, and MacScripter.net
*)

tell application "Adobe InDesign CS2"

--!! change doc preferences !!---

--set bleed and slug
try
set properties of document preferences of active document to {document bleed bottom offset:0.125, document bleed inside or left offset:0.125, document bleed outside or right offset:0.125, document bleed top offset:0.125, document bleed uniform size:true, slug bottom offset:0.5, slug inside or left offset:0.0, slug right or outside offset:0.0, slug top offset:0.0, document slug uniform size:false}
end try

--set zero point
set zeroPoint to zero point of active document
set zero point of active document to {0, 0}

--set ruler origin
set rulerOrigin to ruler origin of view preferences of active document
set ruler origin of view preferences of active document to page origin

--some definitions
set myDoc to active document
set docName to name of myDoc as text
set boxWidth to page width of document preferences of myDoc
set boxHeight to page height of document preferences of myDoc
set currentDate to current date
set underscore to "_"
set autoPage to auto page number
set countPages to (count pages of myDoc)

---!! build the layers !!---

--change the first layer to "Default"
try
set name of layer 1 of myDoc to "Default"
end try

--make layers
tell myDoc
set coldread to make layer with properties {name:"Print/ColdRead", layer color:black, visible:false}
set mwgm to make layer with properties {name:"Midwest-MWGM", layer color:light blue}
set swgm to make layer with properties {name:"Southwest-SWGM", layer color:red, visible:false}
set wgm to make layer with properties {name:"West-WGM", layer color:green, visible:false}
set egm to make layer with properties {name:"East-EGM", layer color:blue, visible:false}
set sep to make layer with properties {name:"Separator", layer color:magenta, visible:false}
end tell

--! MWGM !--

--Set the active layer of the document.
set active layer of active window to layer "Midwest-MWGM" of myDoc
set layerName to "Midwest-MWGM"

--draw the slug
repeat with i from 1 to countPages
tell page (i) of myDoc

set mySlug to make text frame with properties {geometric bounds:{(boxHeight + 0.5), "0", (boxHeight - 0.0625), boxWidth}, contents:docName & underscore & autoPage & underscore & layerName & underscore & "Proof 1" & return & ¬
"DTP" & underscore & underscore & underscore & underscore & underscore & underscore & " " & ¬
"PR" & underscore & underscore & underscore & underscore & underscore & underscore & " " & ¬
"CE" & underscore & underscore & underscore & underscore & underscore & underscore & " " & ¬
"AD" & underscore & underscore & underscore & underscore & underscore & underscore & " " & ¬
"AM" & underscore & underscore & underscore & underscore & underscore & underscore}

tell mySlug
set vertical justification of text frame preferences to bottom align
set justification of paragraphs to center align
set applied font of paragraphs to "Helvetica Neue 55 Roman"
end tell

end tell
end repeat

--! SWGM !--

--Set the active layer of the document.
set active layer of active window to layer "Southwest-SWGM" of myDoc
set layerName to "Southwest-SWGM"

--draw the slug
repeat with i from 1 to countPages
tell page (i) of myDoc

set mySlug to make text frame with properties {geometric bounds:{(boxHeight + 0.5), "0", (boxHeight - 0.0625), boxWidth}, contents:docName & underscore & autoPage & underscore & layerName & underscore & "Proof 1" & return & ¬
"DTP" & underscore & underscore & underscore & underscore & underscore & underscore & " " & ¬
"PR" & underscore & underscore & underscore & underscore & underscore & underscore & " " & ¬
"CE" & underscore & underscore & underscore & underscore & underscore & underscore & " " & ¬
"AD" & underscore & underscore & underscore & underscore & underscore & underscore & " " & ¬
"AM" & underscore & underscore & underscore & underscore & underscore & underscore}

tell mySlug
set vertical justification of text frame preferences to bottom align
set justification of paragraphs to center align
set applied font of paragraphs to "Helvetica Neue 55 Roman"
end tell

end tell
end repeat

--! WGM !--

--Set the active layer of the document.
set active layer of active window to layer "West-WGM" of myDoc
set layerName to "West-WGM"

--draw the slug
repeat with i from 1 to countPages
tell page (i) of myDoc

set mySlug to make text frame with properties {geometric bounds:{(boxHeight + 0.5), "0", (boxHeight - 0.0625), boxWidth}, contents:docName & underscore & autoPage & underscore & layerName & underscore & "Proof 1" & return & ¬
"DTP" & underscore & underscore & underscore & underscore & underscore & underscore & " " & ¬
"PR" & underscore & underscore & underscore & underscore & underscore & underscore & " " & ¬
"CE" & underscore & underscore & underscore & underscore & underscore & underscore & " " & ¬
"AD" & underscore & underscore & underscore & underscore & underscore & underscore & " " & ¬
"AM" & underscore & underscore & underscore & underscore & underscore & underscore}

tell mySlug
set vertical justification of text frame preferences to bottom align
set justification of paragraphs to center align
set applied font of paragraphs to "Helvetica Neue 55 Roman"
end tell

end tell
end repeat

--! EGM !--

--Set the active layer of the document.
set active layer of active window to layer "East-EGM" of myDoc
set layerName to "East-EGM"

--draw the slug
repeat with i from 1 to countPages
tell page (i) of myDoc

set mySlug to make text frame with properties ¬
{geometric bounds:{(boxHeight + 0.5), "0", (boxHeight - 0.0625), boxWidth}, contents:docName & underscore & autoPage & underscore & layerName & underscore & "Proof 1" & return & ¬
"DTP" & underscore & underscore & underscore & underscore & underscore & underscore & " " & ¬
"PR" & underscore & underscore & underscore & underscore & underscore & underscore & " " & ¬
"CE" & underscore & underscore & underscore & underscore & underscore & underscore & " " & ¬
"AD" & underscore & underscore & underscore & underscore & underscore & underscore & " " & ¬
"AM" & underscore & underscore & underscore & underscore & underscore & underscore ¬
}

tell mySlug
set vertical justification of text frame preferences to bottom align
set justification of paragraphs to center align
set applied font of paragraphs to "Helvetica Neue 55 Roman"
end tell

end tell
end repeat

---!! house keeping !!---

--search/replace auto page number
tell myDoc
search for "auto page number" replacing with "^#" with case sensitive and whole word
end tell

--reset ruler origin
set ruler origin of view preferences of myDoc to rulerOrigin

--reset zero point
set zero point of myDoc to zeroPoint

--last end tell
end tell

posted in AppleScript - 3 replies

some resource links

raymassie — Mon, 09 Jan 2006 22:14:43 GMT

General:
http://www.apple.com/applescript/
http://www.apple.com/applescript/developers/
http://developer.apple.com/documentation/AppleScript/index.html
http://applescriptsourcebook.com/
http://macscripter.net/
http://share.studio.adobe.com/axBrowseSubmit.asp?t=54
http://freespace.virgin.net/hamish.sanderson/appscript.html
http://maccentral.macworld.com/features/applescriptprimer00/

InDesign:
http://olivier.berquin.free.fr/indesign/index.html
http://www.adobeforums.com/cgi-bin/webx?14@267.LXSmeydKUIE.0@.ee6b330!
http://www.scriptingmatters.com/indesigncs_changes.php
http://chris.paveglio.com/
http://www.nickhodge.com/mne.php?msid=1

Pro Solutions:
http://tecsoft.com/
http://customflowsolutions.com/
http://www.macscript.com/

posted in AppleScript - 0 replies