2022-08-23 09:57:42 +00:00
|
|
|
#lang racket/base
|
2022-09-17 10:51:42 +00:00
|
|
|
(require racket/function
|
|
|
|
racket/pretty
|
2022-08-30 10:13:26 +00:00
|
|
|
racket/runtime-path
|
2022-09-17 10:51:42 +00:00
|
|
|
racket/string
|
2022-08-24 08:59:11 +00:00
|
|
|
ini)
|
2022-08-23 09:57:42 +00:00
|
|
|
|
|
|
|
(provide
|
2022-09-08 02:05:47 +00:00
|
|
|
config-parameter
|
2022-08-24 08:59:11 +00:00
|
|
|
config-true?
|
2022-08-23 09:57:42 +00:00
|
|
|
config-get)
|
|
|
|
|
2022-08-24 08:59:11 +00:00
|
|
|
(define-runtime-path path-config "../config.ini")
|
|
|
|
|
2022-09-08 02:05:47 +00:00
|
|
|
(define (config-parameter key)
|
|
|
|
(hash-ref config key))
|
|
|
|
|
2022-08-24 08:59:11 +00:00
|
|
|
(define (config-true? key)
|
2022-09-08 02:05:47 +00:00
|
|
|
(not (member ((config-parameter key)) '("" "false"))))
|
2022-08-24 01:23:46 +00:00
|
|
|
|
2022-08-23 09:57:42 +00:00
|
|
|
(define (config-get key)
|
2022-09-08 02:05:47 +00:00
|
|
|
((config-parameter key)))
|
2022-08-23 09:57:42 +00:00
|
|
|
|
|
|
|
(define default-config
|
2022-09-04 01:38:30 +00:00
|
|
|
'((application_name . "BreezeWiki")
|
|
|
|
(canonical_origin . "")
|
2022-08-24 08:59:11 +00:00
|
|
|
(debug . "false")
|
2022-09-04 01:38:30 +00:00
|
|
|
(instance_is_official . "false") ; please don't turn this on, or you will make me very upset
|
2022-09-07 12:16:24 +00:00
|
|
|
(port . "10416")
|
|
|
|
(strict_proxy . "true")))
|
2022-08-23 09:57:42 +00:00
|
|
|
|
2022-09-08 02:05:47 +00:00
|
|
|
(define loaded-alist
|
|
|
|
(with-handlers
|
|
|
|
([exn:fail:filesystem:errno?
|
|
|
|
(λ (exn)
|
|
|
|
(begin0
|
|
|
|
'()
|
|
|
|
(displayln "note: config file not detected, using defaults")))]
|
|
|
|
[exn:fail:contract?
|
|
|
|
(λ (exn)
|
|
|
|
(begin0
|
|
|
|
'()
|
|
|
|
(displayln "note: config file empty or missing [] section, using defaults")))])
|
|
|
|
(define l
|
|
|
|
(hash->list
|
|
|
|
(hash-ref
|
|
|
|
(ini->hash
|
|
|
|
(call-with-input-file path-config
|
|
|
|
(λ (in)
|
|
|
|
(read-ini in))))
|
|
|
|
'||)))
|
|
|
|
(begin0
|
|
|
|
l
|
|
|
|
(printf "note: ~a items loaded from config file~n" (length l)))))
|
|
|
|
|
2022-09-17 10:51:42 +00:00
|
|
|
(define env-alist
|
|
|
|
(let ([e-names (environment-variables-names (current-environment-variables))]
|
|
|
|
[e-ref (λ (name) (bytes->string/latin-1 (environment-variables-ref (current-environment-variables) name)))])
|
|
|
|
(map (λ (name) (cons (string->symbol (string-downcase (substring (bytes->string/latin-1 name) 3)))
|
|
|
|
(e-ref name)))
|
2022-09-17 10:55:25 +00:00
|
|
|
(filter (λ (name) (string-prefix? (string-downcase (bytes->string/latin-1 name)) "bw_")) e-names))))
|
2022-09-17 10:51:42 +00:00
|
|
|
(when (> (length env-alist) 0)
|
|
|
|
(printf "note: ~a items loaded from environment variables~n" (length env-alist)))
|
|
|
|
|
|
|
|
(define combined-alist (append default-config loaded-alist env-alist))
|
2022-09-08 02:05:47 +00:00
|
|
|
|
2022-08-23 09:57:42 +00:00
|
|
|
(define config
|
|
|
|
(make-hasheq
|
2022-09-08 02:05:47 +00:00
|
|
|
(map (λ (pair)
|
|
|
|
(cons (car pair) (make-parameter (cdr pair))))
|
|
|
|
combined-alist)))
|
2022-08-24 08:59:11 +00:00
|
|
|
|
|
|
|
(when (config-true? 'debug)
|
2022-08-30 12:45:37 +00:00
|
|
|
; all values here are optimised for maximum prettiness
|
2022-08-30 10:13:26 +00:00
|
|
|
(parameterize ([pretty-print-columns 80])
|
|
|
|
(display "config: ")
|
2022-09-08 02:05:47 +00:00
|
|
|
(pretty-write (sort
|
|
|
|
(hash->list (make-hasheq combined-alist))
|
|
|
|
symbol<?
|
|
|
|
#:key car))))
|
2022-09-17 11:09:47 +00:00
|
|
|
|
|
|
|
(when (not (config-true? 'debug))
|
|
|
|
(when (not (config-true? 'canonical_origin))
|
|
|
|
(displayln
|
|
|
|
(string-append "warning: configuring canonical_origin is highly recommended for production!\n"
|
|
|
|
" see https://docs.breezewiki.com/Configuration.html"))))
|