(*
Export Playlists for Apple Music
Written by Daniel Petrescu
https://github.com/dpet23
Texte auf Deutsch: A. Volkart 5.4.2022
Beim ersten Aufstarten des Skriptes muss "Itunes" oder "Music" ausgewählt werden. 
Das Skript funktioniert sowohl mit Itunes als auch mit Music, da die
Exportbefehle die gleichen sind. 
*)



------------------------------
(* global properties *)
------------------------------

property myTitle : "Export Playlists"
global iconApp
global iconWarning
global iconError
global originalDelimiter
global illegalCharacters1
global illegalCharacters2
global attrShow
global folderChoice
global nameChoice
global dupeLimit
global playlistsExported
global songsExported
global maxPathComponentLength
global ellipsisChar
set progress description to "Vorbereitenâ ¦"
set progress total steps to -1



------------------------------
(* main program *)
------------------------------

-- SET GLOBAL VARIABLES
set iconApp to 1 -- [icon note]
set iconWarning to 2 -- [icon caution]
set iconError to 0 -- [icon stop]
set dupeLimit to 100 -- [allow up to this many duplicate files; set limit to avoid possible infinite loop]
set maxPathComponentLength to 255 -- [the maximum length of a component of the new file's path]
set ellipsisChar to "..." -- [character to use when truncating long names. Example: 3 full stops (...) or the ellipsis character (â ¦)]
set playlistsExported to 0
set songsExported to 0

-- SET ILLEGAL CHARACTERS
-- `illegalCharacters1`: will be converted to "_"
-- `illegalCharacters2`: will be removed from name
set illegalCharacters1 to {"~", "?", "!", "@", "#", "$", "%", "&", "*", "=", "+", "{", "}", "<", ">", "|", "\\", "/", ";", ":", "à ", "÷"}
set illegalCharacters2 to {"'", "\"", ",", "`", "^", "Ë "}

with timeout of 60 * 60 * 24 seconds -- (timeout of 24 hours for many huge playlists, slow computer/network, etc.)
	tell application "iTunes"
		
		-- No need to check if Apple Music is open. The "tell application Music" command opens Apple Music if it's closed.
		
		-- SAVE DELIMITER
		set originalDelimiter to AppleScript's text item delimiters
		
		-- GET ALL PLAYLISTS FROM APPLE MUSIC
		try
			set all_specialps to (get name of every user playlist whose special kind is not none)
			set all_userps to (get name of every user playlist whose smart is false and special kind is none)
			set all_smartps to (get name of every user playlist whose smart is true and special kind is none)
			
			set delim to "--------------------------------------------------"
			set delim_specialpl to "---------------- Special Playlisten: ----------------"
			set delim_userpl to "------------------ Benutzer Playlisten: -----------------"
			set delim_smartpl to "---------------- Smart Playlisten: -----------------"
			set all_ps to {}
			if ((length of all_specialps) > 0) then
				set the end of all_ps to delim
				set the end of all_ps to delim_specialpl
				repeat with ps in all_specialps
					set the end of all_ps to ps
				end repeat
			end if
			if ((length of all_userps) > 0) then
				set the end of all_ps to delim
				set the end of all_ps to delim_userpl
				repeat with ps in all_userps
					set the end of all_ps to ps
				end repeat
			end if
			if ((length of all_smartps) > 0) then
				set the end of all_ps to delim
				set the end of all_ps to delim_smartpl
				repeat with ps in all_smartps
					set the end of all_ps to ps
				end repeat
			end if
		end try
		
		-- CHOOSE PLAYLISTS TO EXPORT
		set thePlaylistsNames to (choose from list all_ps with prompt ({"Wähle die Playliste für den Export.", return, "[Auswählen aus mehreren von ", (length of all_specialps as string), " special Playlisten, ", (length of all_userps as string), " Benutzer Playlisten, und ", (length of delim_smartpl as string), " smart Playlisten]"} as string) with title myTitle with multiple selections allowed)
		if thePlaylistsNames is false then return
		set thePlaylistsNumber to (count of thePlaylistsNames)
		set thePlaylistsNumberInvalid to my count_matches(thePlaylistsNames, "---------------")
		set thePlaylistsNumberGood to (thePlaylistsNumber - thePlaylistsNumberInvalid)
		my log_out("Playlisten gewählt:", thePlaylistsNames)
		
		try
			-- CLEAN UP PLAYLIST SELECTION
			set thePlaylistsNamesClean to {}
			repeat with i from 1 to thePlaylistsNumber
				if ({thePlaylistsNames's item i} as string) does not contain "---------------" then set thePlaylistsNamesClean's end to thePlaylistsNames's item i
			end repeat
			
			-- GET NUMBER OF SONGS IN EACH PLAYLIST
			set thePlaylistsNamesLength to {}
			set thePlaylistsNumberZero to 0
			repeat with i from 1 to thePlaylistsNumberGood
				set thisPlaylistName to (item i of thePlaylistsNamesClean)
				set thisPlaylist to (get some playlist whose name is thisPlaylistName)
				set numberSongs to (get count of tracks of thisPlaylist)
				if numberSongs = 0 then
					set thePlaylistsNumberZero to (thePlaylistsNumberZero + 1)
					set thePlaylistsNumberGood to (thePlaylistsNumberGood - 1)
				else
					set the end of thePlaylistsNamesLength to ({thisPlaylistName, " (", numberSongs, " Songs)"} as string)
				end if
			end repeat
			
			-- DELIMITERS
			set AppleScript's text item delimiters to (return as string)
			set thePlaylistsDisplay to (thePlaylistsNamesLength as string)
			set AppleScript's text item delimiters to originalDelimiter
			
			-- USER FEEDBACK
			if thePlaylistsNumberInvalid = 1 then
				set delimiter_s to " delimiter. It"
			else
				set delimiter_s to " delimiters. These"
			end if
			
			if thePlaylistsNumberZero = 1 then
				set playlist_s0 to "Playliste. Es"
			else
				set playlist_s0 to "Playlisten. Diese"
			end if
			
			if thePlaylistsNumberGood = 1 then
				set playlist_s to " Playliste"
			else
				set playlist_s to " Playlisten"
			end if
			
			set message to ""
			if (thePlaylistsNumberInvalid > 0) then
				set message to message & ({return, "- Du hast gewählt ", thePlaylistsNumberInvalid, delimiter_s, " wird ignoriert."} as string)
			end if
			if (thePlaylistsNumberZero > 0) then
				set message to message & ({return, "- Du hast gewählt ", thePlaylistsNumberZero, " leere ", playlist_s0, " wird ignoriert."} as string)
			end if
			if ((thePlaylistsNumberInvalid > 0) or (thePlaylistsNumberZero > 0)) then
				display dialog ({"Problem:", message} as string) with title myTitle buttons {"Abbrechen", "Fortfahren"} default button 1 with icon iconWarning giving up after 10
			end if
			
			-- SHOW FINAL LIST OF PLAYLISTS
			set button to button returned of (display dialog ({"Die ", thePlaylistsNumberGood, playlist_s, " zum Exportieren: ", return, return, thePlaylistsDisplay} as string) with title myTitle buttons {"Abbrechen", "Fortfahren"} default button 2 with icon iconApp giving up after 10)
			my log_out((thePlaylistsNumberGood & playlist_s & " zu exportieren:") as string, thePlaylistsDisplay)
			
			-- GET ROOT FOLDER
			set folderPath to (choose folder with prompt "Wähle den Ordner/Ort, wo die Playliste gespeichert werden soll:" default location path to desktop)
			set folderPathPOSIX to POSIX path of folderPath
			
			-- SAVING MODE
			if thePlaylistsNumberGood > 1 then
				set folderChoice to button returned of (display dialog ({"Willst Du die Playliste im gleichen oder einem anderen Ordnern speichern?", return, return, return, ¬
					"Zusammenfassung:", return, return, ¬
					"Gleicher Ordner - Lege einen neuen Ordner an der gewählten Stelle an und platziere alle Songs der Playliste dort. Erstelle einen Unterordner und platziere alle m3u Playlisten in ihm.", return, return, ¬
					"Unterschiedliche Ordner - Mache unterschiedliche Unterordner für jede Playlist an der gewählten Stelle. Die m3u-Playliste wird in den Unterordner gesetzt und alle weiteren Unterordner werden für die Songs erzeugt."} as string) with title myTitle buttons {"Abbrechen", "Gleicher Ordner", "Unterschiedliche Ordner"} default button 1)
			else
				set folderChoice to "Different folders"
			end if
			my log_out("Saving mode:", folderChoice)
			
			-- GET ATTRIBUTES FOR FILENAME
			set availableAttributes to {"[album]", "[album artist]", "[artist]", "[composer]", "[track name]", "[track number]", "[disc number]", "[playlist order number]", "[original file name]"}
			set AppleScript's text item delimiters to (return as string)
			set availableAttributesDisplay to (availableAttributes as string)
			set AppleScript's text item delimiters to originalDelimiter
			set folderStructure to text returned of (display dialog ({"Wähle die Ordnerstruktur für die exportierten Dokumente.", return, return, return, ¬
				"Verfügbare ATTRIBUTE:", return, availableAttributesDisplay, return, return, ¬
				"Beispiel:", return, "[Künstler] > [Album] > [track number] - [track name]", return, " meint:", return, "Im Musik-Unterordner, wird ein Ordner für den Künstler angelegt, dann ein Ordner für das ALBUM. Dann werden die Songs in den Ordner kopiert mit der Namensstruktur [track number] - [track name]\"", return, return, ¬
				"Bemerkung: Das letzte Objekt (Dateiname) muss umfassen [Dateiname] oder [track name] oder [original Dateiname]!"} as string) with title myTitle buttons {"Abbrechen", "OK"} default button 2 default answer "")
			
			-- CHECK ATTRIBUTE LIST - not empty
			if folderStructure is "" then
				display dialog ({"WARNUNG:", return, "Es wurden keine Attribute ausgewählt!", return, return, "Der Wert für die Benutzung wird sein", return, "    [Original Dateiname]"} as string) with title myTitle buttons {"Abbrechen", "Fortfahren"} default button 2 with icon iconWarning giving up after 10
				set folderStructure to "[original file name]"
			end if
			my log_out("Attributes chosen:", folderStructure)
			
			-- CHECK SPECIFIED FOLDER STRUCTURE
			set AppleScript's text item delimiters to (" > ")
			set folderStructure_NewFolders to every text item of folderStructure
			set AppleScript's text item delimiters to (return as string)
			log ({"Specified folder structure:", folderStructure_NewFolders, return} as string)
			set AppleScript's text item delimiters to originalDelimiter
			
			-- CHECK ATTRIBUTE LIST - file name
			set fileName to ((item -1 of folderStructure_NewFolders) as string)
			if (("[file name]" is not in fileName) and ("[track name]" is not in fileName) and ("[original file name]" is not in fileName)) then
				error ({"FEHLER: Der Dateiname gegeben war", return, "    ", fileName, return, "welcher nicht enthält [file name] oder [track name] oder [original file name]. Kann nicht weiter fahren."} as string) number 1
			end if
			
			-- Don't need to check the attribute list for valid attributes.
			-- An invalid attribute is treated as a string and added to the name like any other symbols (after cleaning).
			
			-- PARSE ATTRIBUTE LIST
			set attrLength to (count of availableAttributes)
			set attrShow to {}
			repeat with attr from 1 to attrLength
				set the end of attrShow to null
			end repeat
			repeat with attr from 1 to attrLength
				if folderStructure contains (item attr of availableAttributes) then
					set (item attr of attrShow) to true
				else
					set (item attr of attrShow) to false
				end if
			end repeat
			
			-- TRACK NAME OR WORK NAME?
			if ((item 5 of attrShow) = true) then
				set nameChoice to button returned of (display dialog ({"Du hast den Track-Namen eingeschlossen. Für Tracks, welche einen Arbeitsnamen haben und eine Bewegungsnummer gesetzt wurde (normallerweise klassische Music) möchtest Du den Arbeitsnamen oder den Track-Namen benutzen?", return, return, "(falls unsicher, wähle 'Track Name'.)"} as string) with title myTitle buttons {"Abbrechen", "Arbeitsname", "Track-Name"} default button 3 with icon iconApp giving up after 60)
				if (nameChoice = "Track-Name") then
					set nameChoice to true
				else if (nameChoice = "Arbeitsname") then
					set nameChoice to false
				else if (nameChoice = "") then
					set nameChoice to true
				end if
			else
				set nameChoice to true
			end if
			
		on error number -128 ------ "Abbrechen" button
			return
		end try
		
		-- MAKE MASTER LIST OF PLAYLISTS
		-- List of [reference to playlist, clean name, number of tracks] for each chosen playlist
		set thePlaylists to {}
		set thePlaylistsClean to {}
		repeat with i from 1 to thePlaylistsNumberGood ------ for each playlist:
			repeat 1 times ------ to allow skipping
				-- SET UP VARIABLES
				set tmp_list to {}
				set thisPlaylistName to (item i of thePlaylistsNamesClean)
				set thisPlaylistNameClean to my clean_name(thisPlaylistName)
				set thisPlaylist to (get some playlist whose name is thisPlaylistName)
				
				-- CHECK FOR DUPLICATE CLEAN NAMES
				if thePlaylistsClean does not contain thisPlaylistNameClean then
					set the end of thePlaylistsClean to thisPlaylistNameClean
				else
					set {thisPlaylistNameClean, thePlaylistsClean} to my fix_duplicate("playlist", thisPlaylistName, thisPlaylistNameClean, thePlaylistsClean)
					if (thisPlaylistNameClean = "exit repeat") then
						set thePlaylistsNumberGood to thePlaylistsNumberGood - 1
						exit repeat
					end if
				end if
				
				-- MAKE MASTER LIST
				set the end of tmp_list to thisPlaylist
				set the end of tmp_list to thisPlaylistNameClean
				set the end of tmp_list to (get count of tracks of thisPlaylist)
				set the end of thePlaylists to tmp_list
			end repeat ------ to allow skipping
		end repeat ------ for each playlist
		
		-- INITIAL FOLDER STRUCTURE
		if (folderChoice = "Same folder") then
			
			-- MAKE ROOT FOLDER
			set newName to "Apple Music Export"
			set rootPathExists to my folder_exists(folderPathPOSIX, newName, "d")
			if not rootPathExists then
				set rootPath to my make_dir(folderPathPOSIX, newName)
			else
				set rootPath to {POSIX path of folderPath as string, newName, "/"} as string
			end if
			
			-- MAKE PLAYLISTS FOLDER
			set newName to "_Playlists"
			set playlistsPathExists to my folder_exists(rootPath, newName, "d")
			if not playlistsPathExists then
				set playlistsPath to my make_dir(rootPath, newName)
			else
				set playlistsPath to {POSIX path of rootPath as string, newName, "/"} as string
			end if
			
			-- SET MUSIC PATH
			set musicPath to rootPath
			
		else if (folderChoice = "Different folders") then
			set rootPath to (POSIX path of folderPath as string)
		end if
		
		-- EXPORT PLAYLISTS
		repeat with i from 1 to thePlaylistsNumberGood ------ for each playlist:
			repeat 1 times ------ to allow skipping
				
				-- Update number of songs exported after 1st playlist
				if (i = 2) then
					set songsExported to (songsExported + 1)
				end if
				
				-- EXTRACT DETAILS FROM MASTER LIST
				set thisPlaylistDetails to (item i of thePlaylists)
				set thisPlaylist to (item 1 of thisPlaylistDetails)
				set thisPlaylistName to (get name of thisPlaylist)
				set thisPlaylistNameClean to (item 2 of thisPlaylistDetails)
				set thisPlaylistNumberSongs to (item 3 of thisPlaylistDetails)
				
				log ({delim, return, "Exportiere Playliste: '", thisPlaylistName, "'", return, return} as string)
				
				if (folderChoice = "Different folders") then
					
					-- MAKE PLAYLIST FOLDER
					if not my folder_exists(rootPath, thisPlaylistNameClean, "d") then
						set playlistsPath to my make_dir(rootPath, thisPlaylistNameClean)
					else
						set skipChoice to button returned of (display dialog ({"Exportiere Playliste '", thisPlaylistName, "'.", return, ¬
							"Ordner existiert bereits:", return, "    ", ({POSIX path of rootPath as string, thisPlaylistNameClean} as string), return, return, ¬
							"Willst Du die Playliste überspringen oder den bestehenden Ordner benutzen?"} as string) with title myTitle buttons {"Abbrechen", "à berspringen", "Bestehenden Ordner benutzen"} default button 3 with icon iconError)
						if (skipChoice = "Ã berspringen") then
							exit repeat
						else if (skipChoice = "Bestehenden Ordner benutzen") then
							set playlistsPath to {POSIX path of rootPath as string, thisPlaylistNameClean, "/"} as string
						end if
					end if
					
					-- MAKE MUSIC FOLDER
					set newName to "Musik"
					if not my folder_exists(playlistsPath, newName, "d") then
						set musicPath to my make_dir(playlistsPath, newName)
					else
						set musicPath to {POSIX path of playlistsPath as string, newName, "/"} as string
					end if
				end if
				
				-- LOG FOLDER STRUCTURE
				log ({"Folder structure:", return, ¬
					"- Chosen folder: ", folderPathPOSIX, return, ¬
					"- Root path: ", rootPath, return, ¬
					"- Music path: ", musicPath, return, ¬
					"- Playlists path: ", playlistsPath, return, return} as string)
				
				
				-- Hier die Struktur der Dateierweiterung wählen: 
				-- PLAYLIST FILE SETUP
				set playlistFileType to "m3u" --"xml"
				set playlistFileName to ({thisPlaylistNameClean, ".", playlistFileType} as string)
				set playlistFileName to my truncate_name(playlistFileName, true)
				set playlistFilePath to {POSIX path of playlistsPath as string, thisPlaylistNameClean, ".", playlistFileType} as string
				
				try ------ if anything goes wrong, close the playlist file
					
					-- CREATE PLAYLIST FILE
					set thePlaylistFile to open for access (POSIX path of playlistFilePath) with write permission
					if (playlistFileType = "m3u") then
						tell current application to write ("#EXTM3U" & return) to thePlaylistFile starting at eof
					end if
					
					repeat with j from 1 to thisPlaylistNumberSongs ------ for each song:
						repeat 1 times ------ for skipping missing/duplicate songs
							
							-- GET THIS TRACK'S DETAILS
							set thisTrack to (get track j of thisPlaylist)
							set thisTrackDetails to my get_track_details(thisTrack)
							
							-- SKIP IF NO DURATION
							if ((item 4 of thisTrackDetails) is null) then
								set message to ({"FEHLENDE DAUER: \"", (item 1 of thisTrackDetails as string), "\" by ", (item 2 of thisTrackDetails as string), return} as string)
								log message
								display dialog message with title myTitle buttons {"Fortfahren"} default button 1 with icon iconError giving up after 10
								exit repeat
							end if
							
							-- SHOW ERROR IF FILE IS MISSING
							if (item 5 of thisTrackDetails) is equal to missing value then
								set message to ({"FEHLENDER SONG: \"", (item 1 of thisTrackDetails as string), "\" by ", (item 2 of thisTrackDetails as string), return} as string)
								log message
								display dialog message with title myTitle buttons {"Fortfahren"} default button 1 with icon iconError giving up after 10
								exit repeat
							end if
							
							-- CHECK FILE SIZE < 4GB
							tell application "Finder" to set fileSize to size of file (item 5 of thisTrackDetails as string)
							set fileSize to (fileSize / 1.073741824E+9)
							if (fileSize â ¥ 4) then
								set sizeChoice to button returned of (display dialog ({"Die Grösse der Datei '", (POSIX path of (item 5 of thisTrackDetails as string) as string), "' is ", ((round (fileSize * 100)) / 100), "GB.", return, return, "Aus Gründen der maximalen Kompatibilität wird nicht empfohlen, Dateien mit mehr als 4 GB zu exportieren. Möchten Sie diese Datei überspringen oder mit dem Kopieren fortfahren?"} as string) with title myTitle buttons {"Abbrechen", "à berspringen", "Fortfahren"} default button 2 with icon iconWarning)
								if (sizeChoice = "Ã berspringen") then
									exit repeat
								end if
							end if
							
							-- GET MORE DETAILS
							tell application "Finder"
								set thisTrackFileName to name of file (item 5 of thisTrackDetails)
							end tell
							set AppleScript's text item delimiters to (".")
							set thisTrackExtension to the last text item of thisTrackFileName
							set AppleScript's text item delimiters to originalDelimiter
							set the end of thisTrackDetails to thisTrackFileName
							set the end of thisTrackDetails to thisTrackExtension
							-- thisTrackDetails = {thisTrackName, thisTrackArtist, thisTrackAlbum, thisTrackDuration, thisTrackLocation, thisTrackAlbumArtist, thisTrackComposer, thisTrackNumber, thisTrackDisc, thisTrackCompilation, thisTrackFileName, thisTrackExtension}
							
							-- SHOW CURRENT PROGRESS
							my progress(i, thePlaylistsNumberGood, thisPlaylistName, j, thisPlaylistNumberSongs, (item 1 of thisTrackDetails), (item 2 of thisTrackDetails), (item 3 of thisTrackDetails))
							
							-- DEFINE PATH FOR NEW FILE
							set cwd to musicPath
							set foldersToMake to {}
							set foldersExist to {}
							set foldersAll to {}
							set folderStructure_NumberFolders to ((count of folderStructure_NewFolders) - 1)
							repeat with k from 1 to folderStructure_NumberFolders ------ for each new folder
								
								set newFolderTemplate to ((item k of folderStructure_NewFolders) as string)
								set newName to my define_from_attributes(newFolderTemplate, thisTrackDetails, thisPlaylistNumberSongs, j, i)
								set newNameStr to newName as string
								
								-- Make sure no folder starts with "." (no folder is hidden)
								if ((length of newNameStr > 0) and ((item 1 of newNameStr) = ".")) then
									set newNameStr to ({"_", ((characters 2 thru -1 of newNameStr) as string)} as string)
								end if
								
								-- Truncate name
								set newNameStr to my truncate_name(newNameStr, false)
								(*
								set pathComponentLength to the length of newNameStr
								if (pathComponentLength > maxPathComponentLength) then
									set pathComponentMiddle to (round (pathComponentLength / 2) rounding down) + 1
									set charsToRemove to {pathComponentLength - maxPathComponentLength + 1}
									set charstoRemoveLeft to (round (charsToRemove / 2) rounding down)
									set charstoRemoveRight to (round (charsToRemove / 2) rounding up) - 1
									set newNameStr to {(characters 1 thru (pathComponentMiddle - charstoRemoveLeft - 1) of newNameStr as string), "â ¦", (characters (pathComponentMiddle + charstoRemoveLeft) thru -1 of newNameStr as string)} as string
								end if
								*)
								
								set pathExists to my folder_exists(cwd, newNameStr, "d")
								if not pathExists then
									set the end of foldersToMake to newNameStr
								else
									set the end of foldersExist to newNameStr
								end if
								set the end of foldersAll to newNameStr
								set cwd to {POSIX path of cwd as string, newNameStr, "/"} as string
								
							end repeat ------ for each new folder
							
							-- DEFINE NEW FILE NAME
							set newNameTemplate to (item -1 of folderStructure_NewFolders)
							set newName to my define_from_attributes(newNameTemplate, thisTrackDetails, thisPlaylistNumberSongs, j, i)
							set the end of newName to ({".", (item 12 of thisTrackDetails as string)} as string)
							set newNameStr to (newName as string)
							
							-- Truncate name
							set newNameStr to my truncate_name(newNameStr, true)
							
							-- Make sure new name starts with "." (not hidden)
							if ((length of newNameStr > 0) and ((item 1 of newNameStr) = ".")) then
								set newNameStr to ({"_", ((characters 2 thru -1 of newNameStr) as string)} as string)
							end if
							
							set makeNewFile to true
							
							-- CREATE NEW PATH
							set newFileExists to my folder_exists(cwd, newNameStr, "f")
							if (newFileExists = true) then
								set {newNameStr, _} to my fix_duplicate("song", ({"'", (item 1 of thisTrackDetails as string), "' by ", (item 2 of thisTrackDetails as string)} as string), newNameStr, cwd)
								if (newNameStr = "exit repeat") then
									exit repeat
								end if
								if (_ = "reference previous") then
									set makeNewFile to false
								end if
							end if
							set cwd to musicPath
							repeat with currentFolder in foldersAll
								set currentFolder to (currentFolder as string)
								if foldersToMake contains currentFolder then
									set cwd to my make_dir(cwd, currentFolder)
								else
									set cwd to {POSIX path of cwd as string, currentFolder, "/"} as string
								end if
							end repeat
							
							-- COPY FILE
							if (makeNewFile = true) then
								set newPath to ({cwd, newNameStr} as string)
								tell application "Finder"
									set newFile to (duplicate file (item 5 of thisTrackDetails) to (POSIX file cwd))
									set name of newFile to newNameStr
								end tell
							end if
							
							-- ADD FILE TO PLAYLIST FILE
							if (playlistFileType = "m3u") then
								my write_playlist_file_m3u(thePlaylistFile, thisTrackDetails, ({cwd, newNameStr} as string))
							end if
							
							-- LOG THE SUCCESSFUL COMPLETION
							set songsExported to (songsExported + 1)
							log {POSIX path of (item 5 of thisTrackDetails as string) as string, "   -->   ", cwd, newNameStr} as string
							
						end repeat ------ for skipping missing/duplicate songs
					end repeat ------ for each song
					
					set playlistsExported to (playlistsExported + 1)
					
					-- CLOSE PLAYLIST FILE
					close access thePlaylistFile
					
				on error e number n partial result r from f to t
					try
						close access thePlaylistFile
					end try
					if n = -1728 then
						display dialog ({"Kann keinen Ordner erstellen von ", attribute} as string) with title myTitle buttons {"OK"} default button 1 with icon iconError giving up after 10
					end if
					error e number n partial result r from f to t
					return
				end try ------ if anything goes wrong, close the playlist file
				
			end repeat ------ to allow skipping
		end repeat ------ for each playlist
		
		-- FINISH
		if (playlistsExported = 1) then
			set playlist_s to " Playliste"
		else
			set playlist_s to " Playlisten"
		end if
		display notification ({"Exportieren abgeschlossen ", playlistsExported, playlist_s, " (", songsExported, " Songs total)."} as string) with title myTitle
		
	end tell
end timeout



------------------------------
(* helper subroutines *)
------------------------------


(*
  DESCRIPTION: Logs a message.
  @param Str message = the text message to log
  @param List vars = optional - any variables to include in the message
*)
on log_out(message, vars)
	set AppleScript's text item delimiters to (return as string)
	if (vars is missing value) then
		log ({message, return} as string)
	else
		log ({message, vars, return} as string)
	end if
	set AppleScript's text item delimiters to originalDelimiter
end log_out


(*
  DESCRIPTION: Counts the number of times `this_item` appears in `this_list`.
  @param Int/Str this_item = the item to search for
  @param List this_list = the list in which to search
  @return Int - the number of matches
*)
on count_matches(this_list, this_item)
	set the match_counter to 0
	repeat with i from 1 to the count of this_list
		if (((item i of this_list) is this_item) or ((item i of this_list) contains this_item)) then
			set the match_counter to the match_counter + 1
		end if
	end repeat
	return the match_counter
end count_matches


(*
  DESCRIPTION: Cleans the illigal characters from a string.
  @param Str originalName = the string to clean
  @return Str - the cleaned string
*)
on clean_name(originalName)
	-- Clean accents
	set originalNameQuoted to (quoted form of (originalName as string))
	try
		set cleanAccents to (do shell script ({"echo ", originalNameQuoted, " | iconv -f UTF-8 -t ASCII//TRANSLIT"} as string))
	on error e number 1
		display dialog ({"Kann nicht säubern ", originalNameQuoted, return, "Original Namen benutzen ⠦"} as string) with title myTitle buttons {"OK"} default button 1 with icon iconError giving up after 10
		set cleanAccents to originalNameQuoted
	end try
	
	-- Clean illegal characters 1
	set AppleScript's text item delimiters to illegalCharacters1
	set listName to every text item of cleanAccents
	set AppleScript's text item delimiters to "_"
	set listNameString to (listName as string)
	
	-- Clean illegal characters 2
	set AppleScript's text item delimiters to illegalCharacters2
	set listName to every text item of listNameString
	set AppleScript's text item delimiters to ""
	set listNameString to (listName as string)
	
	-- Return
	set AppleScript's text item delimiters to originalDelimiter
	return listNameString
end clean_name


(*
  DESCRIPTION: Checks if a folder exists.
  @param Str folderPath = path to root folder
  @param Str newName = name of the new folder
  @param Str mode = what to search for: folders (d) or files (f)
  @return Bool - true if the folder exists, false otherwise
*)
on folder_exists(folderPath, newName, mode)
	set pathToCheck to ({POSIX path of folderPath as string, newName} as string)
	if ((mode is not "d") and (mode is not "f")) then
		error ({"Kann nicht Ordner/Datei erzeugen... ", pathToCheck, return, "Der spezifizierte Modus (", mode, ") ist inkorrekt."} as string) number 1
	end if
	set found_var to (do shell script ({"if [ -", mode, " \"", pathToCheck, "\" ]; then echo \"FOUND\"; else echo \"NOT FOUND\"; fi"} as string))
	if found_var = "FOUND" then
		return true
	else
		return false
	end if
end folder_exists


(*
  DESCRIPTION: Make a folder if it doesn't exist.
  @param Str folderPath = path to root folder (in which to create new folder)
  @param Str newName = name of the new folder
  @return Str - path to the new folder (folderPath/newName)
*)
on make_dir(folderPath, newName)
	tell application "Finder"
		set newPath to ({POSIX path of folderPath as string, newName} as string)
		make new folder at (POSIX file folderPath) with properties {name:newName}
		return ({newPath, "/"} as string)
	end tell
end make_dir


(*
  DESCRIPTION: Convert an Arabic numeral to a Roman numeral. Used to convert the movement number.
  @param Int n = an Arabic numeral
  @return Int - a Roman numeral
*)
on arabic2roman(n)
	local r, i, n
	try
		if (n as integer) > 3999 then error "Maximale Nummer ist 3999." number 1
		set r to ""
		repeat with i from 1 to (count (n as string))
			set r to item (((item -i of (n as string)) as integer) + 1) of item i of ¬
				{{"", "I", "II", "III", "IV", "V", "VI", "VII", "VIII", "IX"}, ¬
					{"", "X", "XX", "XXX", "XL", "L", "LX", "LXX", "LXXX", "XC"}, ¬
					{"", "C", "CC", "CCC", "CD", "D", "DC", "DCC", "DCCC", "CM"}, ¬
					{"", "M", "MM", "MMM"}} & r
		end repeat
		return r
	on error eMsg number eNum
		error "Kann nicht zu Roman numeral konvertieren: " & eMsg number eNum
	end try
end arabic2roman


(*
  DESCRIPTION: Get the metadata of a track from Apple Music.
  @param Track thisTrack = a reference to an Apple Music track
  @return List - the track's metadata
*)
on get_track_details(thisTrack)
	tell application "iTunes"
		
		-- GET NAME/WORK
		if (nameChoice = true) then
			set thisTrackName to (get name of thisTrack)
		else
			if ((work of thisTrack) as string) is "" then
				set thisTrackName to (get name of thisTrack)
			else
				set thisTrackName to ({(work of thisTrack) as string, ": ", my arabic2roman((movement number of thisTrack) as string), ". ", (movement of thisTrack) as string} as string)
			end if
		end if
		
		-- GET ARTIST
		if artist of thisTrack = "" then
			set thisTrackArtist to "Unknown Artist"
		else
			set thisTrackArtist to (get artist of thisTrack)
		end if
		
		-- GET ALBUM
		if album of thisTrack = "" then
			set thisTrackAlbum to "Unknown Album"
		else
			set thisTrackAlbum to (get album of thisTrack)
		end if
		
		-- GET DURATION
		set thisTrackDuration to (get duration of thisTrack)
		if (thisTrackDuration is missing value) then
			set thisTrackDuration to null
		else
			set thisTrackDuration to round thisTrackDuration rounding down
		end if
		
		-- GET LOCATION & SKIP IF MISSING
		set thisTrackLocation to (get location of thisTrack)
		
		-- IF SELECTED: GET ALBUM ARTIST
		if ((item 2 of attrShow) is true) then
			if album artist of thisTrack = "" then
				set thisTrackAlbumArtist to "Unknown Album Artist"
			else
				set thisTrackAlbumArtist to (get album artist of thisTrack)
			end if
		else
			set thisTrackAlbumArtist to null
		end if
		
		-- IF SELECTED: GET COMPOSER
		if ((item 4 of attrShow) is true) then
			if ((composer of thisTrack) as string) is equal to "" then
				set thisTrackComposer to "Unknown Composer"
			else
				set thisTrackComposer to (get composer of thisTrack)
			end if
		else
			set thisTrackComposer to null
		end if
		
		-- IF SELECTED: GET TRACK NUMBER
		if ((item 6 of attrShow) is true) then
			set thisTrackNumber to (get track number of thisTrack)
		else
			set thisTrackNumber to null
		end if
		
		-- IF SELECTED: GET DISC NUMBER
		if ((item 7 of attrShow) is true) then
			set thisTrackDisc to (get disc number of thisTrack)
		else
			set thisTrackDisc to null
		end if
		
		-- IS TRACK PART OF A COMPILATION?
		set thisTrackCompilation to (get compilation of thisTrack)
		
		-- RETURN VALUES
		return {thisTrackName, thisTrackArtist, thisTrackAlbum, thisTrackDuration, thisTrackLocation, thisTrackAlbumArtist, thisTrackComposer, thisTrackNumber, thisTrackDisc, thisTrackCompilation}
		
	end tell
end get_track_details


(*
  DESCRIPTION: Get a specific piece of metadata from the list of extracted metadata for a track from Apple Music.
  @param Str folderStructureItem = the attribute to search for
  @param List trackAttributes = the list of extracted metadata for the track
  @return Str - the value of the attribute
*)
on value_of_attr(folderStructureItem, thisTrackDetails)
	if folderStructureItem contains "[album]" then
		return (item 3 of thisTrackDetails)
	else if folderStructureItem contains "[album artist]" then
		return (item 6 of thisTrackDetails)
	else if folderStructureItem contains "[artist]" then
		return (item 2 of thisTrackDetails)
	else if folderStructureItem contains "[composer]" then
		return (item 7 of thisTrackDetails)
	else if folderStructureItem contains "[track name]" then
		return (item 1 of thisTrackDetails)
	else if folderStructureItem contains "[track number]" then
		set trackNumber to (item 8 of thisTrackDetails)
		if trackNumber < 10 then
			return (("0" & trackNumber) as string)
		else
			return (trackNumber as string)
		end if
	else if folderStructureItem contains "[disc number]" then
		set discNumber to (item 9 of thisTrackDetails)
		if discNumber < 10 then
			return (("0" & discNumber) as string)
		else
			return (discNumber as string)
		end if
	else if folderStructureItem contains "[playlist order number]" then
		return folderStructureItem
	else if folderStructureItem contains "[original file name]" then
		return folderStructureItem
	else
		return null
	end if
end value_of_attr


(*
  DESCRIPTION: Define a new folder/song name based on the given name template and the extracted metadata.
  @param Str newTemplate = template for the new name
  @param List thisTrackDetails = the list of extracted metadata for the track
  @param Int thisPlaylistNumberSongs = number of songs in the current playlist
  @param Int j = the number of the current song (eg. 5th song of playlist is 5)
  @param Int i = the number of the current playlist (eg. 2nd playlist to be exported is 2)
  @return Str - the new name of the folder or song
*)
on define_from_attributes(newTemplate, thisTrackDetails, thisPlaylistNumberSongs, j, i)
	set AppleScript's text item delimiters to ("[")
	set newTemplate_split to every text item of newTemplate
	set AppleScript's text item delimiters to ("]")
	set newTemplate_split to every text item of (newTemplate_split as string)
	set AppleScript's text item delimiters to originalDelimiter
	set newNameAttrLength to (count of newTemplate_split)
	
	set newName to {}
	repeat with k from 1 to newNameAttrLength
		set theItem to ((item k of newTemplate_split) as string)
		set theItemBrackets to ({"[", theItem, "]"} as string)
		set newNameTMP to my value_of_attr(theItemBrackets, thisTrackDetails)
		if (newNameTMP is not null) then
			if (newNameTMP = "[playlist order number]") then
				if (i = 1) then
					set playlistOrderNumber to j
				else
					set playlistOrderNumber to songsExported
				end if
				if ((thisPlaylistNumberSongs > 9) and (playlistOrderNumber < 10)) then
					set newNameTMP to (("0" & playlistOrderNumber) as string)
				else if ((thisPlaylistNumberSongs > 99) and (playlistOrderNumber < 100)) then
					set newNameTMP to (("00" & playlistOrderNumber) as string)
				else if ((thisPlaylistNumberSongs > 999) and (playlistOrderNumber < 1000)) then
					set newNameTMP to (("000" & playlistOrderNumber) as string)
				else
					set newNameTMP to (playlistOrderNumber as string)
				end if
			else if (newNameTMP = "[original file name]") then
				set newNameTMP to (item 11 of thisTrackDetails)
				set {newNameTMP, _} to my extract_extension(newNameTMP)
			end if
			set the end of newName to my clean_name(newNameTMP)
		else -- if (newNameTMP is null) then
			set the end of newName to my clean_name(theItem)
		end if
	end repeat
	return newName
end define_from_attributes


(*
  DESCRIPTION: Offers the user a choice when duplicates are detected, and actions that choice.
  @param Str mode = type of item: "playlist" or "song"
  @param Str nameOriginal = the original name of the item
  @param Str nameClean = the cleaned name of the item
  @param Str thePlaylistsCleanOrCwd = for playlists, this is the list `thePlaylistsClean`; for songs, this is the `cwd` path
  @return List - [cleaned name with number appended, {thePlaylistsClean for playlists; null for songs}]
*)
on fix_duplicate(mode, nameOriginal, nameClean, thePlaylistsCleanOrCwd)
	if (mode = "playlist") then
		set plural to "playlists"
		set skipButton to "Skip"
		set nameOriginal to ({"'", nameOriginal, "''"} as string)
	else if (mode = "song") then
		set plural to "songs"
		set skipButton to "Reference previous"
		set {nameClean, nameCleanExtension} to my extract_extension(nameClean)
	else
		error ({"Unknown mode in the fix_duplicate method: '", mode, "'."} as string) number 1
	end if
	
	if (folderChoice = "Same folder") then
		set dupeChoice to skipButton
	else
		set dupeChoice to button returned of (display dialog ({"The clean name of the ", mode, " ", nameOriginal, " is '", nameClean, "', which is taken by another ", mode, ".", return, return, ¬
			"Would you like to skip this ", mode, " or try to fix the name by appending a number to the name?", return, return, ¬
			"[default option: ", skipButton, "]"} as string) with title myTitle buttons {"Abbrechen", skipButton, "Try to fix"} default button 2 with icon iconError giving up after 60)
		if (dupeChoice = "") then
			set dupeChoice to skipButton
		end if
	end if
	
	if (dupeChoice = "Skip") then
		return {"exit repeat", null}
	else if (dupeChoice = "Reference previous") then
		return {{nameClean, ".", nameCleanExtension} as string, "reference previous"}
	else if (dupeChoice = "Try to fix") then
		repeat with k from 2 to dupeLimit
			set nameClean2 to ({nameClean, "_", k} as string)
			
			set nameOK to false
			if ((mode = "playlist") and (thePlaylistsCleanOrCwd does not contain nameClean2)) then
				set the end of thePlaylistsCleanOrCwd to nameClean2
				set nameOK to true
			else if ((mode = "song") and (my folder_exists(thePlaylistsCleanOrCwd, ({nameClean2, ".", nameCleanExtension} as string), "f")) = false) then
				set nameOK to true
				set nameClean2 to ({nameClean2, ".", nameCleanExtension} as string)
			end if
			
			if (nameOK = true) then
				display dialog ({"The clean name of the ", mode, " '", nameOriginal, "' is now '", nameClean2, "'."} as string) with title myTitle buttons {"Abbrechen", "Continue"} default button 2 with icon iconWarning giving up after 10
				set k to 1
				exit repeat
			end if
		end repeat
		
		if ((k = dupeLimit) or (nameOK = false)) then
			display dialog ({"There are already ", dupeLimit, " ", plural, " with the base name '", nameClean, "' - skipping the ", mode, " '", nameOriginal, "'."} as string) with title myTitle buttons {"Abbrechen", "Continue"} default button 2 with icon iconError giving up after 10
			return {"exit repeat", null}
		else
			return {nameClean2, thePlaylistsCleanOrCwd}
		end if
	end if
end fix_duplicate


(*
  DESCRIPTION: Extract the extension from a filename.
  @param Str componentName = tha name conaining a file extension
  @return List - the name without the extension, and the extension without the "."
*)
on extract_extension(componentName)
	set componentExtension to (do shell script ({"x=\"", componentName, "\"; echo ${x##*.}"} as string))
	set componentName to (do shell script ({"x=\"", componentName, "\"; echo ${x%.*}"} as string))
	return {componentName, componentExtension}
end extract_extension


(*
  DESCRIPTION: Truncate a name in the middle so that it is not longer than `maxPathComponentLength `.
  @param Str newNameStr = the item name to truncate
  @param Bool hasExtension = true if the item has a file extension, false otherwise
  @return Str - the truncated name of the folder or song
*)
on truncate_name(newNameStr, hasExtension)
	
	if (hasExtension = false) then
		set newName to newNameStr
		set pathComponentLength to the length of newNameStr
		set pathExtensionLength to 0
	else if (hasExtension = true) then
		set {newName, newNameExtension} to my extract_extension(newNameStr)
		set pathComponentLength to the length of newName
		set pathExtensionLength to the length of newNameExtension
	else
		error ({"Unknown mode in the truncate_name method: '", hasExtension, "'."} as string) number 1
	end if
	
	if ((pathComponentLength + pathExtensionLength) â ¤ maxPathComponentLength) then
		return newNameStr
	else
		set ellipsisLength to (length of ellipsisChar)
		set pathComponentMiddle to (round (pathComponentLength / 2) rounding down) + 1
		set charsToRemove to {pathComponentLength - maxPathComponentLength + 1}
		set limitLeft to (pathComponentMiddle - (round (charsToRemove / 2) rounding down) - (round (ellipsisLength / 2) rounding down))
		set limitRight to (pathComponentMiddle + (round (charsToRemove / 2) rounding up) + (round (ellipsisLength / 2) rounding up))
		
		if (hasExtension = true) then
			set limitLeft to (limitLeft - 2)
			set limitRight to (limitRight + 2)
		end if
		
		set newNameStr2 to {(characters 1 thru limitLeft of newName as string), ellipsisChar, (characters limitRight thru -1 of newName as string)} as string
		
		set finalLength to (length of newNameStr2)
		if (finalLength > maxPathComponentLength) then
			display dialog ({"The name \"", newNameStr, "\" could not be truncated to ", maxPathComponentLength, " characters.", return, return, "The final length is ", finalLength, " characters."} as string) with title myTitle buttons {"Abbrechen", "Continue"} default button 1 with icon iconError giving up after 10
		end if
		
		if (hasExtension = true) then
			return ({newNameStr2, ".", newNameExtension} as string)
		else
			return newNameStr2
		end if
		
	end if
end truncate_name


(*
  DESCRIPTION: Write song details to an M3U file.
  @param File thePlaylistFile = reference to the file to use (must be currently open for writing)
  @param List thisTrackDetails = the extracted metadata for this song
  @param Str newFilePath = path to song's new file after exporting
*)
on write_playlist_file_m3u(thePlaylistFile, thisTrackDetails, newFilePath)
	tell application "Finder"
		write ("#EXTINF:" & (item 4 of thisTrackDetails as string) & "," & (item 2 of thisTrackDetails as string) & " - " & (item 1 of thisTrackDetails as string) & return) to thePlaylistFile
		write (POSIX path of newFilePath & return) to thePlaylistFile
	end tell
end write_playlist_file_m3u



------------------------------
(* progress *)
------------------------------

(*
  DESCRIPTION: Show progress visually.
  @param Int i = current playlist number
  @param Int thePlaylistsNumber = total number of playlists
  @param Str thisPlaylistName = name of current playlist
  @param Int j = current track in playlist
  @param Int thisPlaylistNumberSongs = number of songs in playlist
  @param Str thisTrackName = name of current track
  @param Str thisTrackArtist = artist of current track
  @param Str thisTrackAlbum = album of current track
*)
on progress(i, thePlaylistsNumber, thisPlaylistName, j, thisPlaylistNumberSongs, thisTrackName, thisTrackArtist, thisTrackAlbum)
	
	set progress total steps to thisPlaylistNumberSongs
	
	set percent to ((round ((j / thisPlaylistNumberSongs * 100) * 100)) / 100)
	set progress description to ({"Exportiere Playliste ", i, " of ", thePlaylistsNumber, " (\"", thisPlaylistName, "\").", return, return, ¬
		"Processing track ", j, " of ", thisPlaylistNumberSongs, " (", percent, "%)"} as string)
	
	set progress additional description to ({return, "Name: ", thisTrackName, ¬
		return, "Artist: ", thisTrackArtist, ¬
		return, "Album: ", thisTrackAlbum} as string)
	
	set progress completed steps to j
	
end progress