Next: Use new get-default and add custom hostlist to blocker-mode

.config/next/init.lisp

@@ -9,10 +9,17 @@
 
 ;; ;; (setf (cdr (last (eval (get-default 'window 'search-engines))))
 ;; ;;       '(("yt" . "https://www.youtube.com/results?search_query=~a")))
-(nconc (eval (get-default 'window 'search-engines))
+(nconc (get-default 'window 'search-engines)
        '(("q" . "http://quickdocs.org/search?q=~a")
          ("yt" . "https://www.youtube.com/results?search_query=~a")))
 
+(add-to-default-list
+ (make-instance 'hostlist
+                :hosts '("platform.twitter.com"
+                         "syndication.twitter.com"
+                         "m.media-amazon.com"))
+ 'blocker-mode 'hostlists)
+
 (defun eval-in-emacs (&rest s-exps)
   "Evaluate S-EXPS with emacsclient."
   (let ((s-exps-string (cl-strings:replace-all