isBoringCaption :: String -> Bool
isBoringCaption s = maybe False
                      (all isDigit)
                      (stripPrefix "plot of chunk unnamed-chunk-" s)
isBoringCaption :: String -> Bool
isBoringCaption s = maybe False
                      (all isDigit)
                      (stripPrefix "plot of chunk unnamed-chunk-" s)
isBoringCaption s = maybe False
                      (all isDigit)
                      (stripPrefix "plot of chunk unnamed-chunk-" s)