Add SexpCode support

1

Be the world first BBS to support the successor of BBCode:
http://cairnarvon.rotahall.org/misc/sexpcode.html

2

It's still as shitty as BBCode. What needs improvement is that Alt+Key combination and only the superior Markdown allows you to format your text without having to type [] and {}

3

Use the Shiichan defaults, then we can have true shit quality boards.

4

What's the big deal. Seems just like a normal markup to me. What makes this special?

5
[code]
#lang racket
(require json)
(require net/http-client)

(define (4chan-data board x)
(let*-values
([(status headers res)
(http-sendrecv "a.4cdn.org"
(string-append "/" board "/" x ".json"))]
[(json) (read-string 1048576 res)]
[(page) (string->jsexpr json)])
page))

(define (4chan-data-page board n)
(4chan-data board (number->string n 10)))

(define (4chan-data-catalog board)
(4chan-data board "catalog"))

(define (4chan-thread-is-lisp-general? thread)
(and (hash-has-key? thread 'sub)
(regexp-match "Lisp General" (hash-ref thread 'sub)))
[/code]

Reply

Preview?