diff options
Diffstat (limited to 'scripts/preview-order.scm')
| -rw-r--r-- | scripts/preview-order.scm | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/scripts/preview-order.scm b/scripts/preview-order.scm new file mode 100644 index 0000000..5550a88 --- /dev/null +++ b/scripts/preview-order.scm @@ -0,0 +1,17 @@ +(use-modules (ibkr api) (ibkr types) (ice-9 format)) +(define base "http://localhost:5000") + +(format #t "auth-status=~a\n" (auth-status base)) +(define accts (accounts base)) +(format #t "accounts=~a\n" accts) +(define acct-id (account-id (car accts))) +(format #t "positions=~a\n" (positions base acct-id)) +(format #t "ledger=~a\n" (ledger base acct-id "USD")) +(format #t "stocks-by-symbol(IBKR)=~a\n" (stocks-by-symbol base "IBKR")) +(define ibkr-id (contract-id (contract-for-stock-ticker base "IBKR" "NASDAQ"))) +(format #t "contract-id(IBKR)=~a\n" ibkr-id) +(format #t "last-trade=~a\n" (contract-snapshot base ibkr-id 'last-trade)) +(define order (make-order acct-id ibkr-id "MARKET" "BUY" "IOC" 100.0)) +(format #t "order=~a\n" order) +(format #t "order-json=\"[~a]\"\n" (order->json order)) +(format #t "order-preview=~a\n" (order-preview base acct-id order)) |