Something

alias F7 {
  var %current = $dde(mPlug,format,"%pm:%ps")
  var %end = $dde(mPlug,format,"%min:%sec")
  var %pos = $dde(mPlug,format,"%pos")
  var %total = $dde(mPlug,format,"%ll")
  var %name = $dde(mPlug,format,"%s")
  var %album = $dde(mPlug,format,"%4")
  describe $active np:  ( $+ %name $+ ) ( $+ $+(%current,/,%end) $+ ) ( $+ $bar($duration(%current),$duration(%end)) $+($ceil($calc(( $duration(%current) / $duration(%end) ) *100)),$chr(37)) played $+ ) 
}

alias bar {
  if ((!$2) || ($1 > $2)) { return $!false }
  var %1 = $round($calc(($1 / $2) *10))
  var %2 = $calc(10 - %1)

  return $+(,$chr(91),$str(|,%1),,$str(-,%2),,$chr(93),)
}