Delete unused swatches in InDesign

[augurone]

try
set BadSwatch to unused swatches in active document
delete every item of BadSwatch
end try

Simple, quick and easy it only took me 3 hours to figure it out damnit.