diff options
Diffstat (limited to 'granolin.lisp')
| -rw-r--r-- | granolin.lisp | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/granolin.lisp b/granolin.lisp index ed25128..ede3a2e 100644 --- a/granolin.lisp +++ b/granolin.lisp @@ -41,6 +41,26 @@ :type string :documentation "Used on sync requests as the value of the SINCE parameter"))) +(defun save-client-state (client &key (fname "granolin.conf")) + "Save a PLIST of client state to disk. Saves HOMESERVER, TIMEOUT, + ACCESS-TOKEN, and NEXT-BATCH values to the file." + + (with-open-file (out fname :direction :output) + (print (list :homeserver (homeserver client) + :timeout (timeout client) + :access-token (access-token client) + :next-batch (next-batch client)) + out))) + +(defun load-client-state (client &optional (fname "granolin.conf")) + "Load client state from a PLIST stored in a file." + (let ((conf (with-open-file (in fname) (read in)))) + (setf (homeserver client) (getf conf :homeserver)) + (setf (timeout client) (getf conf :timeout)) + (setf (access-token client) (getf conf :access-token)) + (setf (next-batch client) (getf conf :next-batch))) + client) + ;; TODO (defun validate-homserver-url (client) "Ensure that the homeserver url is well formed, and makes an attempt to format it if it isnt") |