// http://users.customize.org/enfusion




//playlist bg color = 29,29,29
//playlist selection color = 29,29,29
//playlist selection border = 29,29,29

// -------------- colors ------------------

// - background color according to settings
$puts(c_bg_,1c1c1c)
// - highlight (bright white)
$puts(c_hl,dddddd|f1f1f1)
// - accent (red)
$puts(c_ac,5050dd|7777ff)
// - main color
$puts(c_norm,777777|aaaaaa)
// - sub color (dark grey)
$puts(c_2,$if(%_isplaying%,7777aa|7777aa,555555|777777))

// non-changables here

$puts(c_bg,$get(c_bg_)|$get(c_bg_))
$puts(c_bg2,$get(c_bg_)|777777)
$puts(c_bg_hl,$get(c_bg_)|f1f1f1)

$puts(hl,$if(%_isplaying%,$get(c_hl)))

$puts(_,$repeat(' ',4))
$puts(_arrowplay,»  )
$puts(_arrowplay,$if(%_isplaying%,5577ff|ffffff$get(_arrowplay) ,$get(_)))
$puts(_arrow_,8)
//•
$puts(_arrow,5050ff|ffffff$get(_arrow_))
$puts(_arrow_,$get(c_bg_)|777777$get(_arrow_))
$puts(_lineout,$transition($repeat(—,40),$get(c_ac),$get(c_bg)))





//-------------- track number guessing ----------
// --- this one i ripped with permission from
// ---- http://pelit.koillismaa.fi/fb2k/strings.php?f=40 

// check if all standard tags are present
$if($and($and(%title%,$not($strcmp(%title%,))),$and($and(%artist%,$not($strcmp(%artist%,))),$and(%album%,$not($strcmp(%album%,))))),
$puts(alltags,1),)

$if($get(alltags),

// formatting for files with tags:

// check if track belongs to VA album
$if($or($stricmp(%album artist%,VA),$stricmp($left(%album artist%,7),various)),$puts(va,1),)

// 'album' formatting
$puts(album,%album%[ - CD$num(%disc%,1)])

//if 'album artist' tag is present
$if(%album artist%,
// set 'artist' to VA for VA albums, and to 'album artist' otherwise:
$if($get(va),$puts(artist,VA),$puts(artist,%album artist%))
//if 'artist' is different from 'album artist', append the former to the title
$if($strcmp(%album artist%,%artist%),$puts(title,%title%),
$puts(title,%artist% '//' %title%)),
//no 'album artist' found
$puts(artist,%artist%)$puts(title,%title%)
)

// formatting for files without all the tags:
,
$if(%title%,
$puts(title,%title%)$if(%artist%,$puts(artist,%artist%)),
$puts(title,$if($stricmp($left(%_path_raw%,7),'http://'),%_path_raw%,
$if($stricmp($right(%_filename_ext%,4),.cue),,%_filename_ext%)
)))
)


$puts(filename,$trim($replace(%_filename%,_, ,'(',,')',,'[',,']',)))
$puts(filename_orig,$get(filename))


$if($not(%tracknumber%),
//looks for ' - ' or '-' as separators **(START)**
$if($or($strstr($get(filename),' - '),$strstr(%_filename%,'-')),

$puts(separator,$if($strstr($get(filename),' - '),' - ','-'))
//replace separator with 
$puts(filename,$replace($get(filename),$get(separator),))
$puts(first_sep,$strchr($get(filename),))
$puts(finished,0)


//FIRST PART/TRY
$if($strcmp(0,$get(finished)),
$puts(candidate,$cut($get(filename),$sub($get(first_sep),1)))
//if it's a number
$if($and($strcmp($get(candidate),$upper($get(candidate))),$strcmp($get(candidate),$lower($get(candidate)))),
$puts(t_tracknumber,$get(candidate))
$puts(finished,1)
,
//if it's not a number, cut that part away
$puts(filename,$substr($get(filename),$add($get(first_sep),1),$len($get(filename))))
))



//SECOND PART/TRY
$if($and($strcmp(0,$get(finished)),$strstr($get(filename),)),
$puts(first_sep,$strchr($get(filename),))
$puts(candidate,$cut($get(filename),$sub($get(first_sep),1)))
//if it's a number
$if($and($strcmp($get(candidate),$upper($get(candidate))),$strcmp($get(candidate),$lower($get(candidate)))),
$puts(t_tracknumber,$get(candidate))
$puts(finished,1)
,
//if it's not a number, cut that part away
$puts(filename,$substr($get(filename),$add($get(first_sep),1),$len($get(filename))))
))


//THIRD PART/TRY
$if($and($strcmp(0,$get(finished)),$strstr($get(filename),)),
$puts(first_sep,$strchr($get(filename),))
$puts(candidate,$cut($get(filename),$sub($get(first_sep),1)))
//if it's a number
$if($and($strcmp($get(candidate),$upper($get(candidate))),$strcmp($get(candidate),$lower($get(candidate)))),
$puts(t_tracknumber,$get(candidate))
$puts(finished,1)
,
//if it's not a number, cut that part away
$puts(filename,$substr($get(filename),$add($get(first_sep),1),$len($get(filename))))
))


//If separator is found, but no tracknumber, look at the first characters of filename.
$if($strcmp(0,$get(finished)),
//3-digit tracknumber
$puts(candidate,$cut($get(filename_orig),3))
$if($and($and($strcmp($get(candidate),$upper($get(candidate))),$strcmp($get(candidate),$lower($get(candidate)))),$not($or($strcmp($substr($get(filename_orig),3,3), ),$strcmp($substr($get(filename_orig),3,3),'.')))),
$puts(t_tracknumber,$get(candidate))
$puts(finished,1)
,
//2-digit tracknumber
$puts(candidate,$cut($get(filename_orig),2))
$if($and($strcmp($get(candidate),$upper($get(candidate))),$strcmp($get(candidate),$lower($get(candidate)))),
$puts(t_tracknumber,$get(candidate))
$puts(finished,1)
))
)

,
//If no separator is found look at the first characters

//3-digit tracknumber
$puts(candidate,$cut($get(filename_orig),3))
$if($and($and($strcmp($get(candidate),$upper($get(candidate))),$strcmp($get(candidate),$lower($get(candidate)))),$not($or($strcmp($substr($get(filename_orig),3,3), ),$strcmp($substr($get(filename_orig),3,3),'.')))),
$puts(t_tracknumber,$get(candidate))
$puts(finished,1)
,
//2-digit tracknumber
$puts(candidate,$cut($get(filename_orig),2))
$if($and($strcmp($get(candidate),$upper($get(candidate))),$strcmp($get(candidate),$lower($get(candidate)))),
$puts(t_tracknumber,$get(candidate))
$puts(finished,1)
)

)


)

//if a tracknumber has been found
$if($strcmp(1,$get(finished)),
$puts(is_first,$if($and($or($strcmp(1,$get(t_tracknumber)),$strcmp(01,$get(t_tracknumber))),$strcmp(1,$get(is_album))),1,0))
$if($strcmp(is_single,1),,$puts(is_album,1))
$puts(is_single,0)
)



//if nothing has been found
$ifgreater($len($get(t_tracknumber)),0,,$puts(is_single,1)$puts(is_album,0))

,$puts(t_tracknumber,%tracknumber%))

// --- vinyl track number (for a1, b2, etc)

$puts(t_tracknumber,$replace($get(t_tracknumber),-,))
$if($strcmp($get(t_tracknumber),),
$if($strcmp($substr(%_filename%,3,3),-),
$puts(t_tracknumber,$upper($left(%_filename%,2))),
$puts(t_tracknumber,00)
)
)

//--hl
//--if / is in title
$if($or($strstr($get(title),' / '), $strstr($get(title),' // ')),
$puts(artist,$left($get(title),$sub($add($strchr($get(title),'/'),0),2) ))
$puts(title,$right($get(title),$add(-1,$sub($len($get(title)),$strchr($get(title),'/')))))
,
$if($and($strstr($get(title),' - '),
$or($strstr(VARIOUS,$upper($get(artist))),
$strstr(VA,$upper($get(artist)))
)
),
$puts(artist,$left($get(title),$sub($strchr($get(title),-),2) ))
$puts(title,$right($get(title),$add(-1,$sub($len($get(title)),$strchr($get(title),-)))))
)
)

//--if title has remix (wrapped in ()'s)
$puts(title,$replace($get(title),_, ))
$if($strstr($get(title),'  '),$puts(title,$replace($get(title),'  ',' ('))$puts(title,$get(title)')'))
$puts(title,$replace($get(title),'[','('))
$puts(title,$replace($get(title),']',')'))
$if($strchr($get(title),'('),
$puts(mix,$substr($get(title),$add($strchr($get(title),'('),1),99999))
$if($strchr($get(mix),')'),
$puts(mix,$left($get(mix),$add($strchr($get(mix),')'),-1))),
)
$puts(title,$left($get(title),$add(-2,$strchr($get(title),'('))))
$puts(mix,$caps2($get(mix))),
$if($strstr($get(title),  ),
$puts(mix,$substr($get(title),$add($strstr($get(title),'  '),2),99999))
$puts(title,$left($get(title),$add(-1,$strstr($get(title),'  '))))
)
)

//--three digit track numbers reduce to two
$if($strcmp($len($get(t_tracknumber)),3),
$puts(t_tracknumber,$right($get(t_tracknumber),2))
)

//--tracknumber formatting
$puts(tnum,$pad_right($get(t_tracknumber),2,0))
//$puts(tnum,$replace($get(tnum),1,1$char(39),7,7$char(39)))
$puts(len,%_length%)
//$puts(len,$replace($get(len),1,1$char(39),7,7$char(39)))

$puts(title,$trim($get(title)))
//*
$puts(albumartist,%_directoryname%)
$puts(albumartist,$left($get(albumartist),$add($strchr($get(albumartist),-),-1)))
$if($strcmp($right($get(albumartist),1),_),$puts(albumartist,$left($get(albumartist),$add($len($get(albumartist)),-1)) ))
$puts(albumartist,$replace($get(albumartist),_, ,-, - ))
//*
$puts(albumx,%_directoryname%)
$puts(albumx,$replace($lower($get(albumx)),-2cd,,-2x12,,-promo_cdr,,-vinyl,,_vinyl,,-cdm,,-cds,,-cd,,-vls,,'-(vls)',,-read_nfo,,-promo,))
$puts(albumx,$substr($get(albumx),$add($strchr($get(albumx),-),1),99999))
//strip scene release
$puts(grp,$substr($get(albumx),$add($strrchr($get(albumx),-),1),99999))
$puts(yr,$substr($get(albumx),$add($strrchr($get(albumx),-),-4),$add($strrchr($get(albumx),-),-1)))
$if($and($strcmp($upper($get(yr)),$lower($get(yr))),$strcmp($len($get(yr)),4)),
$puts(albumx,$left($get(albumx),$add($strrchr($get(albumx),-),-6)))
)
$if($strcmp($left($get(albumx),1),_),$puts(albumx,$substr($get(albumx),2,9999) ))
$puts(albumx,$replace($get(albumx),_, ,-, - ))
$puts(albumx,$caps2($get(albumx)))
$puts(album,$get(albumx))
//*
$puts(title,$replace($get(title),_, ,-, - ))

$puts(albumartist,$caps2($get(albumartist)))
$puts(albumx,$caps2($get(albumx)))
$puts(artist,$caps2($get(artist)))
$puts(title,$caps2($get(title)))


//-- only every 3 tracks have track numbers
$if($or($strcmp($mod($add($get(tnum),-1),4),0),$strcmp($get(tnum),01)),
$puts(f_tnum,$get(c_hl)$get(tnum)),
$puts(f_tnum,$get(c_bg_hl)$get(tnum))
)


//-- only every 3 tracks have track numbers (for vinyl mode)

$if($or($strcmp($mod($add($get(tnum),-1),3),0),$strcmp($get(tnum),01)),
$puts(f_tnum2,$get(c_hl)$get(tnum)),
$puts(f_tnum2,$get(c_bg_hl)$get(tnum))
)
$if($or($strcmp($get(tnum),00),$strcmp($get(tnum),A1)),
$puts(f_tnum2,$get(c_hl)$get(tnum)),
)
//-------------------------- determining for display mode (!!!!!) -------------
//-------------------------- CHANGE THIS ------------------------------------

$if($or($strstr(%_path_raw%,Vinyl),$strstr(%_path_raw%,I:\)),
$puts(mode,vinyl),
$if($or($or($strstr(%_path_raw%,CDs),$strstr(%_path_raw%,Sets)),$strstr(%_path_raw%,cds)),
$puts(mode,album),
$puts(mode,single)
))

$if($strstr(%_path_raw%,J:),$puts(mode,album))


//-----------format
$if($strcmp($left(%_path_raw%,4),'_://'),
$puts(msg,$substr(%_path_raw%,5,99999))
$if($strcmp($get(msg),),,
//---------- message -----------
$get(_)
$get(_arrow_)

$get(_)$transition($repeat(—,30),$get(c_bg),$get(c_ac))$char(9)
$if($strcmp($get(msg),-),,$get(msg))
$transition($repeat(—,80),$get(c_ac),$get(c_bg))$char(9)
$char(9)' '
)
,

$if($strcmp($get(mode),vinyl),
$if($or($or($strcmp($num($get(t_tracknumber),2),01),$strcmp($get(t_tracknumber),A1)),
$strcmp($get(t_tracknumber),00)),
//---------- vinyl mode track 01 -----------
$get(_)
$get(_arrow)$get(_)$get(c_hl)$get(albumartist)
$get(_)$repeat(' ',10)
$char(9)
$transition($repeat(—,40),$get(c_bg),$get(c_ac))
$char(9)

$get(_)$get(f_tnum2)
$get(_)$get(c_norm)$get(hl)$get(title)
$char(9)$char(9)

$get(_)$get(c_2)['('$get(mix)')']

$char(9)$char(9)' '
,
$if($or($strcmp($num($get(t_tracknumber),2),02),$strcmp($get(t_tracknumber),B1)),
//---------- vinyl mode track 02 -----------
$get(_)
$get(_arrow_)$get(_)$get(c_norm)$get(albumx)   $char(9)
$get(_)$get(f_tnum2)
$get(_)$get(c_norm)$get(hl)$get(title)$char(9)$get(_)$get(c_2)['('$get(mix)')']
$char(9)' '
,
//---------- vinyl mode track 03+ -----------
$get(_)
$get(_arrow_)
$char(9)
$get(_)$get(c_hl)$get(f_tnum2)
//$get(hl)$get(artist)$char(9)
$get(_)$get(c_norm)$get(hl)$get(title)$char(9)$get(_)$get(c_2)['('$get(mix)')']
$char(9)' '
)),

$if($strcmp($get(mode),album),

$if($strcmp($num($get(t_tracknumber),2),01),
//---------- album mode track 01 -----------
$get(_)
$get(_arrow)$get(_)$get(c_hl)$get(albumartist)   
$transition($repeat(—,50),$get(c_bg),$get(c_ac))
$char(9)$char(9)

$get(_arrowplay)
$get(f_tnum)$get(_)
$if($and($strcmp($get(artist),),$strcmp($get(title),)),
$get(c_norm)$get(hl)Track $get(tnum)
$get(_)$get(c_ac)$transition($repeat(—,70),$get(c_ac),$get(c_bg))
$char(9)$char(9)

,
$get(c_norm)$get(hl)$get(artist)
$get(_)$get(c_ac)$repeat(—,40)
$char(9)$char(9)

$get(_arrowplay)
$get(c_norm)$get(hl)$get(title)$if($get(mix),  $get(c_2)['('$get(mix)')'])
$get(_)$get(_lineout)
)
$char(9)$char(9)' '
,
$if($strcmp($num($get(t_tracknumber),2),02),
//---------- album mode track 02 -----------
$get(_)
$get(_arrow)$get(_)$get(c_norm)$get(albumx)
$char(9)

$get(_arrowplay)
$get(f_tnum)$get(_)$get(c_norm)$get(hl)
$if($and($strcmp($get(artist),),$strcmp($get(title),)),
Track $get(tnum),$get(artist))
$char(9)

$get(_arrowplay)
$get(c_norm)$get(hl)$get(title)   $get(c_2)['('$get(mix)')']
$char(9)' '
,
//---------- album mode track 03+ -----------
$get(_)
$get(_arrow_)
$char(9)

$get(_arrowplay)
$get(f_tnum)$get(_)$get(c_norm)
$get(hl)$if($and($strcmp($get(artist),),$strcmp($get(title),)),
Track $get(tnum),$get(artist))
$char(9)

$get(_arrowplay)
$get(c_norm)$get(hl)$get(title)   $get(c_2)['('$get(mix)')']
$char(9)' '
))

,
//---------- single mode -----------
$get(_)
$get(_arrow)$get(_)$get(c_hl)
$get(artist)
$char(9)
$get(_)$repeat(' ',10)$transition($repeat(—,40),$get(c_bg),$get(c_norm))
$char(9)

$get(_arrowplay)
'        '
$get(c_norm)$get(hl)$get(title)
$char(9)$char(9)

$get(_)$get(c_2)['('$get(mix)')']
$char(9)$char(9)' '
))
)