From 55bb07cbfe68a55f9a63d0ed225da6dd5b0d57bf Mon Sep 17 00:00:00 2001
From: Pierre Neidhardt <mail@ambrevar.xyz>
Date: Tue, 10 Sep 2019 17:15:32 +0200
Subject: [PATCH] next: Force blocker mode on imdb.com.

---
 .config/next/init.lisp | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/.config/next/init.lisp b/.config/next/init.lisp
index 1b6e71fe..fb287f13 100644
--- a/.config/next/init.lisp
+++ b/.config/next/init.lisp
@@ -15,6 +15,12 @@
         url)))
 (add-to-default-list #'old-reddit-hook 'buffer 'load-hook)
 
+(defun blocker-hook (url)
+  (match (quri:uri-host (quri:uri url))
+    ("www.imdb.com" (next/blocker-mode:blocker-mode :activate t)))
+  url)
+(add-to-default-list #'blocker-hook 'buffer 'load-hook)
+
 (setf (get-default 'remote-interface 'download-directory)
       "~/temp")