Byta "Ljud ut" med applescript

Jag byter ljud-ut i menyraden med hjälp av "SoundSource". Passar mig utmärkt. Det finns flera liknande alternativ också. Kika på www.versiontracker.com.

Jepp. SoundSource =bra.

Dra igång Manusredigeraren och tryck på spela in. Sen gör du inställningen och stannar inspelningen. Klart.

Det är inte konstigt, Systeminställningar är inte inspelningsbart så det går inte att göra så. Däremot kände jag för lite lördagsspyssel och knåpade ihop ett script som bör funka (det funkar i vart fall hos mig). Klistra in det i manusredigeraren och spara det i din scriptmapp och sen kan du köra det från scriptmenyn

OBS! Var väldigt noga med att ha alla enheter inkopplade första gången du kör scriptet. Detta pga av att det är självkonfigurerande och "lär" sig namnen den första gågne så att det blir "smartare" den andra gången du kör det.

property myUnits : ""
if myUnits is not "" then
	choose from list myUnits with prompt "Välj enhet för ljud ut"
	set myChosenUnit to item 1 of the result
end if

tell application "System Events"
	open file "Macintosh HD:System:Library:PreferencePanes:Sound.prefPane:"
	set myCounter to 0
	repeat while "System Preferences" is not in (get name of processes)
		delay 1
		set myCounter to myCounter + 1
		if myCounter is greater than 10 then
			exit repeat
			error number -128
		end if
	end repeat
	
	tell process "System Preferences"
		activate
		tell window 1
			tell tab group 1 --click button 1
				click radio button 2
				tell scroll area 1
					tell table 1
						if myUnits is "" then
							set myUnits to value of text field 1 of every row as list
							choose from list myUnits with prompt "Välj enhet för ljud ut"
							set myChosenUnit to item 1 of the result
						end if
						select (row 1 whose value of text field 1 is myChosenUnit)
					end tell
				end tell
			end tell
		end tell
	end tell
	
end tell

tell application "System Preferences" to quit

Jag tror Herr Rönnbäck var på seminarium igår...

Det stämmer faktiskt !

Var du där också?

UI scripting är ju en plåga men just därför tänkte jag att man kunde ta tillfället i akt att få lite övning

Jo, jag var där. Men jag trodde inte Ray var en folkabuss-hippie...

Du skulle kommit fram och hälsat.

Jag höll på att skratta på mig när han sa att han inte tar frågor om Unicode, eller från "mister Richard Ronnback"

Haha, hans samarbetspartner Shane Stanley som jag har ganska mycket kontakt med, hade sagt att jag skulle vara där och trodde att jag skulle komma med en massa geek-frågor

ALLA mac-människor är gamla hippies det vet du väl? Och skön sydstatsdialekt han hade!

Intressant när han visade hur man skulle lägga till objekt i en lista. 'set end of listan to x' istället för 'set lista to listan & x'. Men det finns en liten varning för detta. Se kod:

set a to {}
set end of a to 1
set end of a to 2
set end of a to {3, 4}
--- result = {1, 2, {3, 4}}
set a to {}
set a to a & 1
set a to a & 2
set a to a & {3, 4}
-- result = {1, 2, 3, 4}

Helt olika resutat...

Tja det är väl bra att tänka på. Själv använder jag mig i princip alltid av den tekniken dels pga att den är snabbare när man har med stora datamängder eller stora antal iterationer, men framför allt för att den möjliggör listor med blandade värden, nästlade listor, samt inte minst viktigt, att man slipper ifrån den implicita klassomvandlingen som concatenation kan medföra.

Titta på det här exempel:

set IntactList to {}
set end of IntactList to {Forname:"Sven", name:"Svensson"}
set end of IntactList to {Fornamn:"Anders", name:"Andersson"}
set end of IntactList to {Fornamn:"Olle", name:"Olsson"}
--return IntactList
--result {{Forname:"Sven", name:"Svensson"}, {Fornamn:"Anders", name:"Andersson"}, {Fornamn:"Olle", name:"Olsson"}}

--- result = {1, 2, {3, 4}}
set MangledList to {}
set MangledList to MangledList & {Fornamn:"Sven", name:"Svensson"}
set MangledList to MangledList & {Fornamn:"Anders", name:"Andersson"}
set MangledList to MangledList & {Fornamn:"Olle", name:"Olsson"}
return MangledList

--result {Fornamn:"Sven", name:"Svensson"}

Dessutom finns det fler skillnader. Concatenation returnerar den sammanslagna strängen, men att lägga till något med "set end of" returnerar, inte som du skriver en nästlad lista, utan endast det senaste objektet, alltså

{3, 4}