Schinckel.net

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15

    tell application "iTunes"
    	set podcastList to {}
    	repeat with trk in selection
    		set thisPodcast to album of trk & " • " & artist of trk
    		if thisPodcast is not in podcastList then
    			set podcastList to podcastList & thisPodcast
    		end if
    	end repeat
    end tell
    
    set HTML to "<ul>"
    repeat with trk in podcastList
    	set HTML to HTML & "<li>" & trk & "</li>"
    end repeat
    set the clipboard to HTML & "</ul>"