source: itunes/gutenbach - Queue Music.applescript @ 2c76f34

debianmacno-cupsweb
Last change on this file since 2c76f34 was 30beeab, checked in by Jessica B. Hamrick <jhamrick@…>, 14 years ago

Remove "gutenbach-" from directory names and rename "gutenbach" to "gutenbach-server"

  • Property mode set to 100644
File size: 1.4 KB
Line 
1-- -----------------
2-- iTunes -> gutenbach
3-- -----------------
4-- This is a simple little script which sends
5-- music from an iTunes library to the gutenbach
6-- lpr server.
7--
8-- Changelog:
9--
10-- 23 Aug 2009 -> broder spun loop into shell script instead of
11--     applescript so that iTunes doesn't hang
12-- 9 Jan 2009 -> price added 'quoted form'
13-- 7 Jan 2009 -> kmill created initial version
14--
15-- Installation:
16--
17-- 1) Launch the Printer Setup Utility and add
18--    an IP Printer with the LPD protocol with
19--    the following information:
20--     Address: zygorthian-space-raiders.mit.edu
21--     Queue: gutenbach
22--    It is not necessary to specify the driver.
23--
24-- 2) Create the directory ~/Library/iTunes/Scripts
25--    and place the "Send to gutenbach.scpt" file
26--    within.
27--
28-- Usage:
29--
30-- When in iTunes, select the songs which you
31-- would like to hear in the office, and click
32-- "Send to gutenbach" in the script menu from
33-- the menu bar.  The script menu looks like a
34-- little scroll icon.  There will be no
35-- feedback beyond the pleasant sounds you now
36-- hear around you.
37
38set ts to ""
39
40tell application "iTunes"
41        repeat with t in selection
42                if class of t is (file track) then
43                        set loc to POSIX path of (get location of t)
44                        set ts to ts & " " & (quoted form of loc)
45                end if
46        end repeat
47end tell
48
49set command to "(for t in " & ts & "; do lpr -o raw -Pgutenbach \"$t\"; done) >/dev/null 2>&1 </dev/null &"
50do shell script command
Note: See TracBrowser for help on using the repository browser.