summaryrefslogtreecommitdiff
path: root/.config/nyxt/url-redirects.lisp
blob: 5069c1c993d6fd225c1a16037f60108708129295 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
(in-package #:nyxt-user)

(defparameter old-reddit-handler
  (url-dispatching-handler
   'old-reddit-dispatcher
   (match-regex "https?\:\/\/?.*?reddit\.com")
   (lambda (url)
	 (quri:copy-uri url :host "old.reddit.com"))))

(defparameter invidious-handler
  (url-dispatching-handler
   'invidious-dispatcher
   (match-regex "https?\:\/\/?.*?(?:youtube\.com|youtu\.be|youtube-nocookie\.com).*")
   (lambda (url)
	 (quri:copy-uri url :host "invidious.cafebabe.gay"))))

(defparameter wikiless-handler
  (url-dispatching-handler
   'wikiless-dispatcher
   (match-regex "https?\:\/\/?.*?wikipedia\.org.*")
   (lambda (url)
	 (quri:copy-uri url :host "wikiless.org"))))

(define-configuration buffer
	((request-resource-hook
	  (reduce #'hooks:add-hook
			  (list old-reddit-handler
					invidious-handler
					wikiless-handler)
			  :initial-value %slot-default%))))