Woah, dash.el has really nice pattern matching! (-let [(_ _ _ in-string in-comment &rest _) (syntax-ppss)] (or in-string in-comment))