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

1 files changed, 4 insertions, 0 deletions

diff --git a/exitter.el b/exitter.el
index 6fca09a..ce22d8e 100644
--- a/exitter.el
+++ b/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))))