Adding a utility to guess that a url is a x/twitter post

exitter.el

@@ -575,6 +575,10 @@ Including ancestors and descendants, if any."
             .favorite_count
             )))
 
+(defun exitter-post-url-p (url)
+  (string-match-p "^/[^/]+/status/\\([0-9]+\\)"
+                  (url-filename (url-generic-parse-url url))))
+
 (defun exitter-open-post (url)
   (interactive "sTwitter link: ")
   (let ((path-etc (url-filename (url-generic-parse-url url))))