–Airtunes-Switch-Config-Script

(**hubionmac.com 10.09.2010

for addition info: http://hubionmac.com/wordpress/?p=2303

orig. Version by http://fall-line.com/2010/09/control-airplayairtunes-feature-of-itunes-with-applescript/

if check_these und uncheck_these = {} then your

Airtunes-Config will be switched the other way around….

Makes use of GUI-Skripting, hopefully Apple will add native AppleScript-Support in iTunes for

Airtunes some day 

**)

set check_these to {} –something like {“Name of Your Air-TunesDevice”}

set uncheck_these to {} –something like {“Computer”}

my check_gui_scripting_is_active()

my check_if_iTunes_window_visible()

my press_speaker_button_and_open_all_speakers()

my check_boxes_and_close_window(check_these, uncheck_these)

on press_speaker_button_and_open_all_speakers()

tell application “iTunes”

activate

tell application “System Events”

tell application process “iTunes”

click button 8 of window “iTunes” –Press the iTunes 10 Speaker Button

key code 125 using {command down} – this is essentiall hitting page down (command + down arrow)

delay 1

keystroke return

delay 1

end tell

end tell

end tell

end press_speaker_button_and_open_all_speakers

on check_boxes_and_close_window(check_these, uncheck_these)

–if check_these und uncheck_these = {} then your

–Airtunes-Config will be switched the other way around….

tell application “iTunes”

activate

tell application “System Events”

tell application process “iTunes”

tell window 1

tell table 1 of scroll area 1

set check_computer_allowed to false

repeat with i from (count of every row) to 1 by -1 – Itterate through each row, looking for the criteria below

set rowcount to count of rows

set a to rowcount

if rowcount > 0 then

tell group 1 of row i

activate – Drill into the object group of each row, so we don’t have to later.

– If “Speaker in Room A” is turned off (value of checkbox 1 = 0), turn it on. Otherwise do nothing

if check_these is {} and uncheck_these = {} then

if i > 1 and value of checkbox 1 as integer = 0 then

set check_computer_allowed to true

end if

if i > 1 then

click checkbox 1

else

if check_computer_allowed is true then

click checkbox 1

end if

end if

else

if (description of checkbox 1) is in check_these and value of checkbox 1 as integer = 0 then

click checkbox 1

end if

if (description of checkbox 1) is in uncheck_these and value of checkbox 1 as integer = 1 then

click checkbox 1

set a to (description of checkbox 1)

end if

end if

end tell

end if

end repeat

end tell

end tell

end tell

end tell

close window 1

end tell

end check_boxes_and_close_window

on check_if_iTunes_window_visible()

tell application “iTunes”

activate

tell application “System Events”

tell application process “iTunes”

–check if itunes Window is frontmost

if (count of every window) = 0 or (name of window 1 ≠ “iTunes”) then

keystroke “1″ using {command down, option down}

end if

end tell

end tell

end tell

end check_if_iTunes_window_visible

to check_gui_scripting_is_active()

tell application “System Events” to set isUIScriptingEnabled to UI elements enabled

if isUIScriptingEnabled = false then

tell application “System Preferences”

activate

set current pane to pane “com.apple.preference.universalaccess”

display dialog “Your system is not properly configured to run this script.

         Please select the \”Enable access for assistive devices\”

         checkbox and trigger the script again to proceed.”

return

end tell

end if

end check_gui_scripting_is_active

– hubionmac.com 10.10.2009

– scans download folder for folders containing media data iTunes can play

– creates a corresponding playlist within itunes

property special_bigChars : {“Ä”, “Å”, “Ç”, “É”, “Ñ”, “Ö”, “Ü”, “À”, “Ô, “Õ”, “Ÿ”, “”, “Ê”, “Á”, “Ë”, “È”, “Í”, “Δ, “Ï”, “Ì”, “Ó”, “Ô”, “Ò”, “Ú”, “Û”, “Ù”}

property special_smallChars : {“ä”, “å”, “ç”, “é”, “ñ”, “ö”, “ü”, “à”, “ã”, “õ”, “ÿ”, “â”, “ê”, “á”, “ë”, “è”, “í”, “î”, “ï”, “ì”, “ó”, “ô”, “ò”, “ú”, “û”, “ù”}

property action_list02 : {“01-Abcd Efg”, “02-Abcd efg”, “03-ABCD EFG”, “04-abcd efg”}

global folder2Scan, actionid

tell application “Finder”

set actionid to (my get_selection_index(action_list02, “Format of Playlist_names (cancel for no changes)”, false))

set folder2Scan to folder “Downloads” of home

set thefolders to every container of folder2Scan

set thefiles to every file of folder2Scan

–get my download folder

set thefolders_list to my makeDownloadPlaylist()

–clean the folderlist from old playlist // option dialog would be nice

my clean_iTunes_folder(thefolders_list)

– make a folder playlist called itunes or get reference to it

tell application “iTunes”

set files_in_folder2Scan to my check_playlist(thefolders_list, “•SINGLE FILES•”)

repeat with thefile in thefiles

if name of thefile does not end with “.pdf” then

add (thefile as alias) to files_in_folder2Scan

end if

end repeat

if (count of every track of files_in_folder2Scan) = 0 then

delete files_in_folder2Scan

else

–clean the playlist from duplicates

my cleanPlaylist(files_in_folder2Scan)

end if

repeat with thefolder in thefolders

set foldername to my do_string(actionid, my replace_chars((name of thefolder), “_”, ” “))

–now the script loops through every folder, creates a corrensponding playlist

– if there created playlist is empty after all, it will be removed again =)

set current_playlist to my check_playlist(thefolders_list, foldername)

add (thefolder as alias) to current_playlist

if (count of every track of current_playlist) = 0 then

delete current_playlist

else

–clean the playlist from duplicates

my cleanPlaylist(current_playlist)

end if

end repeat

end tell

end tell

display dialog “done…

***commerical***

created by hubionmac.com :-P

***commerical***”

on check_playlist(folderplaylist, playlistname2check)

tell application “iTunes”

set thelists to every user playlist of source 1 whose special kind is none and smart is false

set fpl_lists to {}

repeat with i in thelists

try

if parent of i = folderplaylist then

set fpl_lists to fpl_lists & {i}

end if

end try

end repeat

repeat with i in fpl_lists

if (name of i) as text = playlistname2check then

return i

end if

end repeat

make new playlist with properties {name:playlistname2check} at folderplaylist

end tell

end check_playlist

on makeDownloadPlaylist()

tell application “iTunes”

– set thelists to name of every user playlist of source 1 whose special kind is none and smart is false

if (count of every folder playlist) = 0 or (name of every folder playlist) does not contain “Downloads” then

tell source 1 to make new folder playlist with properties {name:”Downloads”}

set fpl to folder playlist “Downloads” of source 1

else

set fpl to folder playlist “Downloads” of source 1

end if

return fpl

end tell

end makeDownloadPlaylist

on cleanPlaylist(theplaylist)

tell application “iTunes”

set idlist to {}

repeat with i from the (count of tracks) of theplaylist to 1 by -1

set currentID to database ID of track i of theplaylist

if currentID is in the idlist then

delete track i of theplaylist

else

if ((location of track i of theplaylist) as text) starts with folder2Scan then

set idlist to idlist & {currentID}

else

delete track i of theplaylist

end if

end if

end repeat

end tell

end cleanPlaylist

on replace_chars(this_text, search_string, replacement_string)

if this_text contains the search_string then

set AppleScript‘s text item delimiters to the search_string

set the item_list to every text item of this_text

set AppleScript‘s text item delimiters to the replacement_string

set this_text to the item_list as string

set AppleScript‘s text item delimiters to “”

end if

return do_string(actionid, this_text)

end replace_chars

on do_string(actionid, the_string)

if actionid = {} then

return the_string

else

set actionid to actionid as integer

set finalstring to “”

if actionid = 1 then

repeat with i from 1 to count of characters of the_string

set test_char to character i of the_string

if i = 1 then

set finalstring to makebig(test_char)

else

set prev_char to character (i – 1) of the_string –last character of finalstring as text

if followed_by_bigchar(prev_char) = true then

set finalstring to finalstring & makebig(test_char)

else

set finalstring to finalstring & makesmall(test_char)

end if

end if

end repeat

else if actionid = 2 then

set firstchar to makebig(character 1 of the_string)

repeat with i from 2 to count of characters of the_string

set test_char to character i of the_string

set finalstring to finalstring & makesmall(test_char)

end repeat

set finalstring to (firstchar & finalstring) as text

else if actionid = 3 then

repeat with i from 1 to count of characters of the_string

set test_char to character i of the_string

set finalstring to finalstring & makebig(test_char)

end repeat

else if actionid = 4 then

repeat with i from 1 to count of characters of the_string

set test_char to character i of the_string

set finalstring to finalstring & makesmall(test_char)

end repeat

end if

return finalstring

end if

end do_string

on followed_by_bigchar(test_char)

if ((ASCII number of test_char) is greater than 64) and ¬

((ASCII number of test_char) is less than 91) then

return false

else if ((ASCII number of test_char) is greater than 96) and ¬

((ASCII number of test_char) is less than 123) then

return false

else if special_bigChars contains test_char then

return false

else if test_char = “‘” then

return false

else

return true

end if

end followed_by_bigchar

on makesmall(test_char)

–when it’s a normal character

if ((ASCII number of test_char) is greater than 64) and ¬

((ASCII number of test_char) is less than 91) then

return (ASCII character ((ASCII number of test_char) + 32))

–when it’s a special character

else if test_char is in special_bigChars then

repeat with i from 1 to count of special_bigChars

if item i of special_bigChars = test_char then

return item i of special_smallChars

end if

end repeat

–when it’s something else

else

return test_char

end if

end makesmall

on makebig(test_char)

–when it’s a normal character

if ((ASCII number of test_char) is greater than 96) and ¬

((ASCII number of test_char) is less than 123) then

return (ASCII character ((ASCII number of test_char) – 32))

–when it’s a special character

else if test_char is in special_smallChars then

repeat with i from 1 to count of special_bigChars

if item i of special_smallChars = test_char then

return item i of special_bigChars

end if

end repeat

–when it’s something else

else

return test_char

end if

end makebig

on get_selection_index(action_list, theprompt, mult_selection)

set theselection to choose from list action_list multiple selections allowed mult_selection with prompt theprompt

set returnlist to {}

repeat with theselected in theselection

set i to 1

repeat with theaction in action_list

if theselected as text = theaction as text then

set returnlist to returnlist & i as list

end if

set i to i + 1

end repeat

end repeat

return returnlist

end get_selection_index

on clean_iTunes_folder(folder_playlist_2_clean)

tell application “iTunes”

set thelists to every user playlist of source 1 whose special kind is none and smart is false

repeat with i in thelists

try

if parent of i = folder_playlist_2_clean then

delete i

end if

end try

end repeat

end tell

end clean_iTunes_folder