From da2caff9cfb6e92b389ac069a2d1580a39114f10 Mon Sep 17 00:00:00 2001 From: Colin Okay Date: Sat, 18 Apr 2020 09:57:20 -0500 Subject: saving user-id to hardcopy --- granolin.lisp | 2 ++ 1 file changed, 2 insertions(+) (limited to 'granolin.lisp') diff --git a/granolin.lisp b/granolin.lisp index a5a1e66..62718d1 100644 --- a/granolin.lisp +++ b/granolin.lisp @@ -80,6 +80,7 @@ :id-source (slot-value client 'id-source) :homeserver (homeserver client) :timeout (timeout client) + :user-id (user-id client) :access-token (access-token client) :next-batch (next-batch client)) out))) @@ -92,6 +93,7 @@ (let ((conf (with-open-file (in fname) (read in)))) (setf (slot-value client 'id-source) (getf conf :id-source)) + (setf (slot-value client 'user-id) (getf conf :user-id)) (setf (timeout client) (getf conf :timeout)) (setf (access-token client) (getf conf :access-token)) (setf (next-batch client) (getf conf :next-batch))) -- cgit v1.2.3