67 lines
1.8 KiB
Racket
Executable File
67 lines
1.8 KiB
Racket
Executable File
#!/usr/bin/env racket
|
|
#lang racket
|
|
; vim: ft=racket
|
|
|
|
(require db
|
|
crypto
|
|
crypto/libcrypto
|
|
net/base64)
|
|
|
|
(when (file-exists? "version")
|
|
(displayln "current directory contains data")
|
|
(exit))
|
|
|
|
; cache dirs
|
|
(make-directory "cache")
|
|
(make-directory "cache/actors")
|
|
|
|
; db dirs
|
|
(make-directory "db")
|
|
(make-directory "db/followers")
|
|
(make-directory "db/comments")
|
|
(make-directory "db/posted")
|
|
|
|
; actor keys
|
|
(define PK-BEGIN "-----BEGIN PUBLIC KEY-----")
|
|
(define PK-END "-----END PUBLIC KEY-----")
|
|
(crypto-factories (list libcrypto-factory))
|
|
(define actor-key (generate-private-key 'rsa '((nbits 4096))))
|
|
(with-output-to-file
|
|
"db/actorkey"
|
|
(lambda ()
|
|
(write-bytes (pk-key->datum actor-key 'PrivateKeyInfo))
|
|
(void)))
|
|
(with-output-to-file
|
|
"db/actorkey.pub"
|
|
(lambda ()
|
|
(write-bytes (string->bytes/utf-8 PK-BEGIN))
|
|
(write-bytes #"\n")
|
|
(define pem (pk-key->datum actor-key 'SubjectPublicKeyInfo))
|
|
(write-bytes (base64-encode pem))
|
|
(write-bytes (string->bytes/utf-8 PK-END))
|
|
(void)))
|
|
|
|
; src and public
|
|
(make-directory "src")
|
|
(put-preferences '(shonks:instance-url shonks:display-name shonks:name)
|
|
'("https://myinstance.tld/" "Display Name(tm)" "username")
|
|
#f
|
|
"src/instance.rktd")
|
|
(with-output-to-file "src/bio.md"
|
|
(lambda ()
|
|
(write-string "this section left intentionally blank")
|
|
(void)))
|
|
(make-directory "src/posts")
|
|
|
|
(make-directory "public")
|
|
(make-directory "public/posts")
|
|
|
|
; task queue
|
|
(define c (sqlite3-connect #:database "taskq.sqlite3" #:mode 'create))
|
|
(query-exec c "create table taskq (id blob(16) primary key, task blob, state integer)")
|
|
(disconnect c)
|
|
|
|
(with-output-to-file "version" (lambda () (write-string "1.0") (void)))
|
|
|
|
(displayln "done")
|