All pastes #991864 Raw Edit

Something

public text v1 · immutable
#991864 ·published 2008-04-21 13:04 UTC
rendered paste body
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) [iTunes.exe] $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))
}