12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576 |
- (ql:quickload "cl-store")
- ;;;; Reimplementation of my bills tracker in Lisp
- (defun reload ()
- (load "/Users/swatson/Repos/lisp-files/fin-lisp/fin-lisp.lisp"))
- ;;; All records exist in this data structure
- ;;; nil on start and loaded in from file
- ;;; *records* represents as hash of months,
- ;;; where the key is the month stamp, eg 20210701
- ;;; and the value is the monthly expenses hash
- (defvar *records* (make-hash-table :test 'equalp))
- ;; Called like: (add-month '202107)
- (defun add-month (month-key)
- (setf (gethash month-key *records*) (make-hash-table :test 'equalp))
- month-key)
- ;;; Taken from practical common lisp
- (defun prompt-read (prompt)
- (format *query-io* "~a: " prompt)
- (force-output *query-io*)
- (read-line *query-io*))
- (defun prompt-for-expense ()
- (list
- (prompt-read "Enter expense name")
- (parse-integer
- (prompt-read "Enter expense value"))))
- (defun add-expense-to-month (month)
- (if (gethash month *records*)
- (let ((innerhash (gethash month *records*))
- (exp-l (prompt-for-expense)))
- (format t "Expense name is: ~a" (first exp-l))
- (terpri)
- (format t "Expense value is: ~a"(second exp-l))
- (terpri)
- (setf (gethash (first exp-l) innerhash) (second exp-l)))
- ;;NIL))
- (add-expense-to-month (add-month month))))
- ;;; Given key for *records* hash,
- ;;; print expenses/values for month
- (defun dump-month (month-key)
- (format t "~a~C" month-key #\linefeed)
- (let ((month-hash)
- (exp-keys))
- (setf month-hash (gethash month-key *records*))
- (setf exp-keys (loop for key being the hash-keys of month-hash collect key))
- (dolist (exp-key exp-keys)
- (format t "~a : ~a~C" exp-key (gethash exp-key month-hash) #\linefeed))))
- ;;; Dump all records.
- ;;; This will also be used for data serialization at some point
- (defun dump-records ()
- (let ((record-key-list (loop for key being the hash-keys of *records* collect key)))
- (dolist (month-key record-key-list) (dump-month month-key))))
- (defun serialize-records (filename)
- (cl-store:store *records* filename))
- (defun deserialize-records (filename)
- ;(setf *records* (cl-store:restore (pathname filename))))
- (setf *records* (cl-store:restore filename)))
- ;; Entry point
- (defun main ()
- (format t "Available options:")(terpri)
- (format t "1. Enter expense")(terpri)
- (format t "2. Display month")(terpri)
- (format t "3. Write records")(terpri)
- (let
- ((answer (prompt-read "Select an option")))
- answer))
-
|