haskal
/
chomp
2
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

preferences

This commit is contained in:
xenia 2020-05-01 20:01:47 -04:00
parent 438b14d76f
commit e162a531bc
1 changed files with 15 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
scripts/init
View File

@ -7,8 +7,9 @@
crypto/libcrypto crypto/libcrypto
net/base64) net/base64)
; TODO (when (file-exists? "version")
; if a blog tree already exists, print a nice error instead of letting make-directory error lol (displayln "current directory contains data")
(exit))
; cache dirs ; cache dirs
(make-directory "cache") (make-directory "cache")
@ -42,6 +43,14 @@
; src and public ; src and public
(make-directory "src") (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 "src/posts")
(make-directory "public") (make-directory "public")
@ -51,3 +60,7 @@
(define c (sqlite3-connect #:database "taskq.sqlite3" #:mode 'create)) (define c (sqlite3-connect #:database "taskq.sqlite3" #:mode 'create))
(query-exec c "create table taskq (id blob(16) primary key, task blob, state integer)") (query-exec c "create table taskq (id blob(16) primary key, task blob, state integer)")
(disconnect c) (disconnect c)
(with-output-to-file "version" (lambda () (write-string "1.0") (void)))
(displayln "done")