params.rkt

#lang racket/base

(require gregor)

(provide api-token
         bearish?
         db-host
         db-user
         db-name
         db-pass
         email-user
         email-pass
         filename
         finviz-user
         finviz-pass
         ibkr-hostname
         ibkr-port-no
         save-markets
         save-end-date
         sim-start-date
         sim-end-date)

(define api-token (make-parameter ""))

(define bearish? (make-parameter #f))

(define db-host (make-parameter "127.0.0.1"))

(define db-user (make-parameter "user"))

(define db-name (make-parameter "local"))

(define db-pass (make-parameter ""))

(define email-user (make-parameter ""))

(define email-pass (make-parameter ""))

(define filename (make-parameter ""))

(define finviz-user (make-parameter ""))

(define finviz-pass (make-parameter ""))

(define ibkr-hostname (make-parameter "127.0.0.1"))

(define ibkr-port-no (make-parameter 7497))

(define save-markets (make-parameter "SPY,MDY,SLY,SPSM"))

(define save-end-date (make-parameter (today)))

(define sim-start-date (make-parameter (-years (today) 1)))

(define sim-end-date (make-parameter (today)))