Um bei Google eine Codebeispiel zu finden, wie Transmit 4 via AppleScript zu einem Upload zu bewegen ist, gibt man... ehm... Ich habe keine Ahnung, wie man so etwas finden soll. Nach einer gezielten Suche bei MacScripter.net hatte ich es aber nun zusammen. Jetzt kann ich meine Bilder via Quicklook durchsehen und per Shortcut in das aktuelle Verzeichnis in Transmit laden (ist es denn zu glauben, cmd+U ist im Finder noch nicht belegt!).
tell application "Finder"
set these to selection
set folderkind to kind of folder 1 of startup disk
set movetothisfolder to ""
repeat with this in these
if kind of this is folderkind then
if movetothisfolder = "" then
set movetothisfolder to this
end if
set these2 to every item of this
set biggestsize to 0
repeat with this2 in these2
if size of this2 > biggestsize then
set biggestsize to size of this2
set movethis2 to this2
end if
end repeat
move movethis2 to movetothisfolder
end if
end repeat
end tell
tell application "Finder"
set mydesktop to desktop as alias
set desktopsize to my sizeof(mydesktop)
end tell
to sizeof(a)
set a to quoted form of (POSIX path of (a))
return (word 1 of ((do shell script "du -ks " & a)) as integer)
end sizeof
tell application "System Events"
set visible of every process to false
end tell
tell application "Finder"
activate
close every window
repeat with i from 1 to 1
set arrangement of icon view options of window of desktop to arranged by kind
delay 0.25
set arrangement of icon view options of window of desktop to arranged by name
delay 0.25
set arrangement of icon view options of window of desktop to arranged by size
delay 0.25
set arrangement of icon view options of window of desktop to arranged by creation date
delay 0.25
set arrangement of icon view options of window of desktop to arranged by modification date
delay 0.25
set arrangement of icon view options of window of desktop to arranged by kind
delay 0.25
end repeat
end tell
Ich habe den Finder mit seinen Shortcuts wirklich lieb gewonnen (nunmehr schon seit Mac OS 7.0 bzw. 10.2). Seit 10.6 hat der kleine auch weniger Performance-Probleme und verrichtet flink und zuverlässig sein Dienste. Alle paar Monate äuge ich dann aber schon mal zum PathFinder oder ForkLift, nur sind diese Lösung nicht nur recht kostspielig (€40,-/€20,-), sondern zwängen einem auch ein neues Interface/Shortcuts/Menüs auf, da sie den Finder ersetzen möchten. Die Rechnung geht meist nur nicht auf, da z.B. PathFinder für meinen Geschmack zu viele Funktionen unter einen Hut bringen möchte, und schon mal gerne dann langsam und instabil wird.set h to button returned of (display dialog "Make Finder show all files" buttons {"Yes", "nope, default"} default button {"YES"}) as text
if h = "Yes" then
do shell script "defaults write com.apple.finder AppleShowAllFiles TRUE; killall Finder"
else
do shell script "defaults write com.apple.finder AppleShowAllFiles FALSE; killall Finder"
end if
Ich sortiere gerade meine zig Dateien und Ordner, die ich in den letzten Monaten angelegt habe. Ein Bild hier, ein nettes Tool dort... und hey, diesen Text wollte ich noch lesen.
Ich bezweifle, dass ich alles von dem Zeug noch brauchen werde, aber um wenigstens die paar Dinge wieder zu finden und halbwegs geordnet abzulegen, habe ich mir ein kleines Skript geschrieben,
mit dem ich die Auswahl im Finder in einen beliebigen Unterordner verschieben kann. Ggf. kann ich den auch noch darüber erstellen.
Das Ding habe ich mir jetzt über FastScripts auf einen Short-Cut gelegt und flux ist der der Finder um das Feature -> Bewege Auswahl in Unterordner XY reicher =)
--hubionmac.com 05.09.2009
tell application "Finder"
set myfolder to container of ((item 1 of (selection as list)) as alias)
set folderlist to (name of every container of myfolder)
end tell
set selectionNames to getSelectionNames()
set folderlist to BubbleSort(folderlist)
set folderlist to {"----NewFolder----"} & CheckupLists(folderlist, selectionNames)
tell application "Finder"
set theaction to choose from list folderlist default items {item 1 of folderlist}
if theaction ≠ false then
if theaction as text = (item 1 of folderlist) as text then
set foldername to text returned of (display dialog "New folder name?" default answer "new folder")
set thefolder to make new folder at myfolder with properties {name:foldername}
move selection to thefolder
else
move selection to folder (theaction as text) of myfolder
end if
end if
end tell
on BubbleSort(theList)
if class of theList is list then
set theSize to length of theList
repeat with i from 1 to theSize
repeat with j from 2 to (theSize - i + 1)
if ((item (j - 1) of theList) > (item j of theList)) then
set temp to (item (j - 1) of theList)
set (item (j - 1) of theList) to (item j of theList)
set (item j of theList) to temp
end if
end repeat
end repeat
return theList
else
return false
end if
end BubbleSort
on getSelectionNames()
tell application "Finder"
set b to {}
repeat with a in (selection as list)
set b to b & name of a
end repeat
end tell
return b
end getSelectionNames
on CheckupLists(folderlist, selectionNames)
set ff to {}
repeat with f in folderlist
if selectionNames does not contain f then
set ff to ff & f
end if
end repeat
return ff
end CheckupLists
Gerade in gemischten Netzwerken nervt es, wenn die Macs auf den Shares immer ihre "unsichtbaren" Dateien wie .DS_Store hinterlassen. Tinker Tool kann da u.a. Abhilfe schaffen, indem man das Anlegen solche Dateien über den Finder unterbindet.