Skapa en knapp i Docken

Tråden skapades och har fått 7 svar. Det senaste inlägget skrevs .
1

Hej,

Jag skulle vilja göra en knapp/program som jag har i docken som jag kallar Jobbet. Den ska man kunna trycka på när man öppnar upp macen på jobbet och då ska följande göras:
Stänga av Spaces
Stänga av Airport
Starta Parallels
Starta Mail
Byta färg på knappen till blå

Sedan ska jag kunna trycka på den igen och då ska den byta färg till grön och göra följande:
Slå på Spaces
Slå på Airport

Hur kan man lösa detta så jag slipper detta eviga morgon och kvällsrutiner?

Tack!

// Daniel

  • Medlem
  • 2009-01-14 20:08

Det mesta går att göra med ett applescript eller kanske ett Automatorscript. Jag vet inte hur det är med färgen på knappen, men resten borde vara ganska enkelt.

edit: Spaces är svårare att styra. Det går att slå på, men jag hittar inte hur man stänger av det.
edit 2: det var jättelätt att styra.
Starta eller stänga av program är enkelt.

Lite bra länkar:
http://mac-guy-ver.blogspot.com/2008/03/toggle-airport-power-onoff-with.html
http://www.apple.com/applescript/features/system-prefs.html

Är också sugen på detta. Nån applescript-guru som känner sig manad?

  • Medlem
  • 2009-01-14 23:10

Om någon "jobbfunktion" är på ställs alla till "hemmaläge" och tvärt om:

tell application "System Events"
	tell expose preferences
		tell spaces preferences
			set S to spaces enabled
		end tell
	end tell
	set p to name of processes
	if "Parallels" is in p or "Mail" is in p or S is false then
		tell application "Parallels Desktop" to quit
		tell application "Mail" to quit
		tell expose preferences
			tell spaces preferences
				set spaces enabled to true
			end tell
		end tell
	else if "Parallels" is not in p or "Mail" is not in p or S is true then
		tell application "Parallels Desktop" to launch
		tell application "Mail" to launch
		tell expose preferences
			tell spaces preferences
				set spaces enabled to false
			end tell
		end tell
	end if
end tell
  • Medlem
  • 2009-01-14 23:14

Det går att göra mycket snyggare om man tänker efter lite, men mitt exempel visar att det går.

Ursprungligen av Baron:

Det går att göra mycket snyggare om man tänker efter lite, men mitt exempel visar att det går.

Bra jobbat, och tack för snabb respons!

  • Medlem
  • 2009-01-15 11:38

Jag hittade en annan grej som jag gjort tidigare som kan slängas in i det där om man lägger upp olika nätverksplatser med eller utan Airport aktivt.

tell application "System Events"
	tell network preferences
		set myLocations to the name of every location
		set myCurrentLocation to name of current location
		set myLocationChoice to (choose from list myLocations with prompt "Nuvarande plats nätverksplats är ”" & myCurrentLocation & "”. Vilken plats vill du ha?" with title "Nätverksplats" OK button name "Välj" cancel button name "Ändra inte" without multiple selections allowed) as string
		if myLocationChoice is "false" then
			return
		else
			set current location to location myLocationChoice
		end if
		set myCurrentLocationCheck to name of current location
		if myCurrentLocationCheck is not myLocationChoice then
			display alert "Av okänd anledning är den aktuella nätverksplatsen en annan än den du valde."
		end if
	end tell
end tell

Coolt och tack för svaret

1
Bevaka tråden