getCaptions :: IO [String]
getCaptions = do
  interactions <- rOutputParsed
  return [ c |  KnitInteraction _ is <- interactions,
                KnitImage c _ <- is,
                not (isBoringCaption c) ]

-- | true when the caption name looks like one knitr will automatically
-- generate
getCaptions :: IO [String]
getCaptions = do
  interactions <- rOutputParsed
  return [ c |  KnitInteraction _ is <- interactions,
                KnitImage c _ <- is,
                not (isBoringCaption c) ]

-- | true when the caption name looks like one knitr will automatically
-- generate
getCaptions = do
  interactions <- rOutputParsed
  return [ c |  KnitInteraction _ is <- interactions,
                KnitImage c _ <- is,
                not (isBoringCaption c) ]

-- | true when the caption name looks like one knitr will automatically
-- generate