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

- fixed find-user-id-from-exact-acct, was returning a wrong user id.

This commit is contained in:
cage 2021-06-25 20:59:02 +02:00
parent 4c950d9052
commit 05a06d1dad
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/program-events.lisp
View File

@ -727,8 +727,12 @@
(ui:close-send-message-window)))))))))
(defun find-user-id-from-exact-acct (username)
(when-let ((remote-account-matching (api-client:search-user username :limit 1)))
(tooter:id (first-elt remote-account-matching))))
(when-let* ((remote-accounts-matching (api-client:search-user username :limit 100))
(matched-account (find-if (lambda (a)
(string= (tooter:account-name a)
username))
remote-accounts-matching)))
(tooter:id matched-account)))
(defmacro with-process-follower ((username user-id
&optional (local-complete-username-fn #'db:all-unfollowed-usernames))