 ; cmd-alt-l: reformat code
 ;
 ; navigation
-; cmd-alt-f7: show usages
-; alt-f7: find usages
+; cmd-f7: show usages
 ; cmd-e: recent files - cursive docs say you can use this instead of tabs, we'll see about that
 ; cmd-shift-o: search for file
 ; cmd-f12: display list of symbols defined in current file, begin typing to search

; cmd-f3: view all bookmarks
; cmd-up: open navigation bar, interact w/ it with arrow keys; consider using instead of project browser
;
; debugging
; alt-f8: toggle breakpoint
; ctrl-d: run program in debug mode
; f8: step over
; f7: step into
; shif-f8:  step out
;
; testing
; cmd-t: run tests in current ns
; cmd-shift-t: run test under caret

(s/defschema Mortgage
  {:house-price             s/Int
   :apr                     s/Num
   :down-payment-percentage s/Num})

(s/defn make-mortgage :- Mortgage
  [house-price apr down-payment-percentage]
  {:house-price             house-price
   :apr                     apr
   :down-payment-percentage down-payment-percentage})

(s/defn get-down-payment :- s/Num
  [m :- Mortgage]


  (s/fn-schema get-loan-amount)
  (s/fn-schema make-mortgage)

  (total-mortgage-price foo)
  (base-monthly-payment foo)

  )
