Miscellany

alias songpath {
  return $remove($dde(mPlug,var_fn),$dde(mPlug,var_nm))
}

alias song {
  if ($isid) {
    if ($1 = artist) return $dde(mPlug,var_1)
    if ($1 = title) return $dde(mPlug,var_2)
    if ($1 = tracknumber) return $left($dde(mPlug,var_nm),2)
    if ($1 = album) return $dde(mPlug,var_4)
    if ($1 = date) return $dde(mPlug,var_5)
    if ($1 = genre) return $dde(mPlug,var_7)
    if ($1 = length) return $+($dde(mPlug,var_min),:,$dde(mPlug,var_sec))
    if ($1 = current) return $+($dde(mPlug,var_pm),:,$dde(mPlug,var_ps))
    if ($1 = bitrate) return $dde(mPlug,var_br) $+ Kbps
    if ($1 = size) return $dde(mPlug,var_fl)
    if ($1 = filename) return $dde(mPlug,var_nm)
    if ($1 = percent) return $dde(mPlug,var_prc)
    if ($1 = playstate) return $dde(mPlug,var_tstat)
    if ($1 = disc) && ($len($dde(mPlug,var_fdir)) == 3) && ($mid($dde(mPlug,var_fdir),3,1) isnum) return $mid($dde(mPlug,var_fdir),3,1)
    if ($1 = position) return $dde(mPlug,var_pos)
    if ($1 = totalsongs) return $dde(mPlug,var_ll)
    if ($1 = various) && (VA - isincs $songpath) return 1
    if ($1 = extension) return $dde(mPlug,var_ext)
    if ($1 = samplerate) return $dde(mPlug,var_sr) $+ KHz
    if ($1 = name) return $dde(mPlug,var_name)
  }
}

alias sn {
  if ($song(title)) {
    return 5-(14Now Playing: $song(artist) - $song(title) 5±14 Album: $song(album) 5±14 Information: $song(length) ¦ $song(bitrate) ¦ $song(samplerate) 5)-
  }
  else {
    return doesn't have any media players open
  }
}

alias F12 {
  describe # $sn
}