- changed croatoan's 'window-position' to 'widget-position';

- updated version of croatoan known to works with tinmop in building script.

quick_quicklisp.sh.in

@@ -43,7 +43,7 @@ CROATOAN_GIT_URL=https://github.com/McParen/croatoan.git
 
 CROATOAN_DIR="$QUICKLISP_INSTALL_DIR"/local-projects/croatoan/;
 
-CROATOAN_COMMIT=a577951d8dd607f828d6efb3290b4e8ac9f1e654
+CROATOAN_COMMIT=2f37560e95928c41f599b4d7795aeb2723e95cdd
 
 echo_bold () {
     echo -e "${BOLD_TEXT}${1}${NORMAL_TEXT}";

src/program-events.lisp

@@ -727,7 +727,9 @@
                   (ui:close-send-message-window)))))))))
 
 (defun find-user-id-from-exact-acct (username)
-  (when-let* ((remote-accounts-matching (api-client:search-user username :limit 100))
+  (when-let* ((remote-accounts-matching (api-client:search-user username
+                                                                :limit   100
+                                                                :resolve   t))
               (matched-account          (find-if (lambda (a)
                                                    (string= (tooter:account-name a)
                                                             username))

src/windows.lisp

@@ -157,11 +157,11 @@ height, position and so on)"
 
 (defun win-x (win)
   (with-croatoan-window (inner-window win)
-    (second (window-position inner-window))))
+    (second (widget-position inner-window))))
 
 (defun win-y (win)
   (with-croatoan-window (inner-window win)
-    (first (window-position inner-window))))
+    (first (widget-position inner-window))))
 
 (defmacro with-window-width ((win w) &body body)
   `(let ((,w (win-width  ,win)))