next: Add old-reddit-hook.

.config/next/init.lisp

@@ -4,6 +4,17 @@
 (setf (get-default 'port 'path)
       "~/common-lisp/next/ports/gtk-webkit/next-gtk-webkit")
 
+(defun old-reddit-hook (url)
+  (let* ((uri (quri:uri url)))
+    (if (search "www.reddit" (quri:uri-host uri))
+        (progn
+          (setf (quri:uri-host uri) "old.reddit.com")
+          (let ((new-url (quri:render-uri uri)))
+            (log:info "Switching to old Reddit: ~a" new-url)
+            new-url))
+        url)))
+(add-to-default-list #'old-reddit-hook 'buffer 'load-hook)
+
 (setf (get-default 'remote-interface 'download-directory)
       "~/temp")