cage
/
tinmop
mirror of https://codeberg.org/cage/tinmop/
1
0
Fork 0
Code Issues

- ensured an user is added into the the database before following them.

This commit is contained in:
cage 2022-12-09 13:39:32 +01:00
parent 185ec6aa3b
commit 9efb99b234
1 changed files with 12 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
src/program-events.lisp
View File

@ -799,7 +799,9 @@
username))
remote-accounts-matching)))
(values (tooter:id matched-account)
username)))
username
matched-account)))
(defmacro with-process-follower ((username user-id
&optional
@ -819,9 +821,15 @@
(defmethod process-event ((object follow-user-event))
(with-accessors ((username payload)) object
(with-process-follower (username user-id db:all-unfollowed-usernames)
(client:follow-user user-id)
(db:add-to-followers user-id)
(ui:notify (format nil (_ "Followed ~a") username)))))
(let ((user-object (nth-value 2 (find-user-id-from-exact-acct username))))
(if user-object
(progn
(db:update-db user-object)
(client:follow-user user-id)
(db:add-to-followers user-id)
(ui:notify (format nil (_ "Followed ~a") username)))
(ui:notify (format nil (_ "User ~a not found on the server") username)
:as-error t))))))
(defclass unfollow-user-event (program-event) ())