chomp/scripts/init

#!/usr/bin/env racket
#lang racket
; vim: ft=racket

(require db
         crypto
         crypto/libcrypto
         net/base64
         "../private/prefs.rkt"
         "../private/taskq.rkt")

(when (file-exists? "version")
  (displayln "current directory contains data")
  (exit))

; cache dirs
(make-directory "cache")
(make-directory "cache/actors")
(make-directory "cache/posts")

; 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")

(with-output-to-file "src/instance.rktd"
                     (lambda () (prefs-save DEFAULT-PREFS) (void)))
(with-output-to-file "src/bio.md"
                     (lambda ()
                       (write-string "this section left intentionally blank")
                       (void)))
(with-output-to-file "src/style.sass"
                     (lambda () (write-string "// styles go here :P") (void)))
(make-directory "src/posts")

(make-directory "public")
(make-directory "public/posts")
(make-directory "public/tags")

(make-directory "nginx")

; task queue
(taskq-shutdown (make-taskq "taskq.sqlite3" #t))

(with-output-to-file "version" (lambda () (write-string "1.0") (void)))

(displayln "done")