dvliman

(weekly-csp
 (->> (accounts)
      first
      :securitiesAccount
      :currentBalances
      :buyingPowerNonMarginableTrade)
 ["HOOD" "COIN" "TSM"])

{:high ["HOOD" 104.85 105.0 4.97 2 1416],
 :low ["HOOD" 104.85 104.0 4.45 2 1277],

dvliman

(ns u.schwab
  (:require
   [cheshire.core :as json]
   [hato.websocket :as ws]
   [clj-http.client :as http]
   [clojure.string :as str]
   [clojure.walk :as walk]
   [integrant.core :as ig]
   [ring.util.codec :as codec]
   [ring.util.response :as response]))

dvliman

(defn between [from target to]
  (and (<= from target) (<= target to)))

(defn calculate-loan-size
  [loan-amount]
  (cond
    (between 1 loan-amount 10000) :small
    (between 10001 loan-amount 50000) :modest
    (between 50001 loan-amount 150000) :large
    (>= loan-amount 150001) :jumbo))

dvliman

(defn calculate-loan-size
  [loan-amount]
  (cond
    #d (between 1 loan-amount 10000) :small
    #d (between 10001 loan-amount 50000) :modest
    #d (between 50001 loan-amount 150000) :large
    #d (>= loan-amount 150001) :jumbo))

dvliman

[{0 [[1 :same-values (between 1 loan-amount 10000)] false]}
 {1 [[1 :same-values (between 10001 loan-amount 50000)] false]}
 {2 [[1 :same-values (between 50001 loan-amount 150000)] false]}
 {3 [[1 :same-values (>= loan-amount 150001)] false]}]

dvliman

(def log-store (atom {}))

(defn debug [tag val]
  (swap! log-store update-in [tag] #(conj (or % []) val))
  val)

(defn logs
  [tag & functions]
  (let [tag (if (number? tag)
              (nth (keys @log-store) tag)

dvliman

{d user/debug-data-reader}

dvliman

{:aliases {:dev {:extra-paths ["/Users/dliman/.clojure"]}}}

dvliman

(use-package! smartparens
  :init
  (map! :map smartparens-mode-map
        ...
        "s-5" #'user-reset-log-store
        "s-6" #'user-tags
        "s-7" #'user-logs))

;; or

dvliman

(defun user-reset-log-store ()
  (interactive)
  (cider-interactive-eval "(reset! user/log-store {})"))
  
(defun user-tags ()
  (interactive)
  (cider--pprint-eval-form "(user/tags)"))
  
(defun user-logs (&optional index-or-name)
  (interactive)