Commit ea9889d0 authored by Michael Raskin's avatar Michael Raskin
Browse files

Syncing from Monotone at 20211120-024903. Last commit message was Some Twitter/Nitter triacks

parent c7e375f7
......@@ -168,6 +168,17 @@
(setf (gethash u seen-urls) t)
(push u uniq-urls)
(push (ignore-errors (urldecode u :utf-8)) stack)
(when (cl-ppcre:scan ".+[/?&=]https?:[/][/]" u)
(push (cl-ppcre:regex-replace-all
"^.+[/?&=](https?:[/][/])" u "\\1")
(when (cl-ppcre:scan "^https://([^/]+[.])?" u)
(push (cl-ppcre:regex-replace
"/([^/]+[.])?" u "/")
(when (cl-ppcre:scan "^https://[^/]+/[^/]+/status/[0-9]+($|#)" u)
(push (cl-ppcre:regex-replace "^https://[^/]+/" u "")
(loop with query-params := (second (cl-ppcre:split "[?]" u))
with params := (cl-ppcre:split "[&]" u)
for p in params
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment