Stuff

alias c1 { return 12 $+( $1-) } 
alias c2 { return 1 $+ 1[14 $+ $1- $+ 1] } 
Alias itunes {
  if ($com(it) == $null) {
    .comopen it iTunes.Application
  }
  if ($com(ct)) {
    .comclose ct
  }
  .echo -q $com(it,CurrentTrack,3,dispatch* ct)
  .echo -q $com(ct,Artist,3)
  var %a1 = $com(ct).result
  .echo -q $com(ct,Album,3)
  var %a2 = $com(ct).result
  .echo -q $com(ct,Genre,3)
  var %g = $com(ct).result
  .echo -q $com(ct,Time,3)
  var %time = $com(ct).result
  .echo -q $com(ct,Name,3)
  var %t = $com(ct).result
  $iif($isid,return,msg $active) 14[iTunes] $c1(I am currently listening to) $c2($iif(%t,%t,Unknown)) $c1(- Artist:) $&
    $c2($iif(%a1,%a1,Unknown)) $c1(Album:) $c2($iif(%a2,%a2,Unknown)) $c1(Genere:) $c2($iif(%g,%g,Unknown)) $c1(Time:) $&
    $c2($iif(%time,%time,Unknown))
}