Show Twitter link on search pages

src/formatters.nim

@@ -1,7 +1,7 @@
-import strutils, strformat, sequtils, htmlgen, xmltree, times, uri
+import strutils, strformat, sequtils, htmlgen, xmltree, times, uri, tables
 import regex
 
-import types, utils
+import types, utils, query
 
 from unicode import Rune, `$`
 
@@ -139,3 +139,30 @@ proc getLink*(tweet: Tweet | Quote): string =
 
 proc getTombstone*(text: string): string =
   text.replace(re"\n* *Learn more", "").stripText().strip(chars={' ', '\n'})
+
+proc getTwitterLink*(path: string; params: Table[string, string]): string =
+  let
+    twitter = parseUri("https://twitter.com")
+    username = params.getOrDefault("name")
+    query = initQuery(params, username)
+
+  var after = params.getOrDefault("after", "0")
+  if query.kind notin {userList, users} and "/members" notin path:
+    after = after.genPos()
+
+  var paramList = filterParams(params).mapIt(
+    if it[0] == "after": ("max_position", after) else: it)
+
+  if "/search" notin path:
+    return $(twitter / path ? paramList)
+
+  let p = {
+    "f": $query.kind,
+    "q": genQueryParam(query),
+    "src": "typd",
+    "max_position": after
+  }
+
+  result = $(parseUri("https://twitter.com") / path ? p)
+  if username.len > 0:
+    result = result.replace("/" & username, "")