Miscellany

alias c1 return $+($chr(3),00,$1-,$chr(3))
alias c2 return $+($chr(3),00,$1-,$chr(3)) 

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) 13[11iTunes13] $c1(11Now playing:) $c2(13 $+ $iif(%t,%t,Unknown) $+ ) $c1(11- Artist:) $&
    $c2(13 $+ $iif(%a1,%a1,Unknown) $+ ) $c1(11- Album:) $c2(13 $+ $iif(%a2,%a2,Unknown) $+ ) $c1(11- Genre:) $c2(13 $+ $iif(%g,%g,Unknown) $+ ) $c1(11- Time:) $&
    $c2(13 $+ $iif(%time,%time,Unknown) $+ )
} 

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,Name,3)
  var %t = $com(ct).result
  $iif($isid,return,msg $active) 13[11iTunes13] $c1(11Now playing:) $c2(13 $+ $iif(%t,%t,Unknown) $+ ) $c1(11- Artist:) $&
    $c2(13 $+ $iif(%a1,%a1,Unknown) $+ ) $c1(11- Album:) $c2(13 $+ $iif(%a2,%a2,Unknown) $+ )
}