SnapChan/parse.lisp at main · cab-1729/SnapChan · GitHub

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
31
32
33
34
(load "config.lisp")
(load "capture.lisp")
(ql:quickload "cl-ppcre")
(defvar *posts* (
	mapcar (
		lambda (x) (subseq x 2)
	) (
		ppcre:all-matches-as-strings ">>[0-9]+" INCLUDE
	)
))
(defconstant *expands* (
	mapcar (
		lambda (x) (subseq x 2)
	) (
		ppcre:all-matches-as-strings ">>[0-9]+" EXPANDS
	)
))
(setq THREAD (;;4chan.og
	subseq THREAD (
		if (
			ppcre:scan "^https://" THREAD
		) 25 17
)))
(defconstant ARCHIVE (
	if (
		member (
			subseq THREAD 0 ( ;;board name
				position #\/ THREAD
			)
		) (list "a" "aco" "an" "c" "cgl" "co" "d" "fit" "g" "his" "int" "k" "m" "mlp" "mu" "q" "qa" "r9k" "tg" "trash" "vr" "wsg") :test 'string-equal
	) (
		concatenate 'string "https://desuarchive.org/" THREAD
	)
))