Как заставить обработчики запускаться последовательно в повторном кадре?

Question

Начиная с этих двух обработчиков, которые заботятся о получении текущей информации о пользователе:

(re-frame/register-handler 
    :got-user 
    (fn [db [_ user]] 
    (assoc db :user user))) 

(re-frame/register-handler 
    :get-user 
    (fn [db [_]] 
    (ajax/GET "/user" 
     {:handler #(re-frame/dispatch [:got-user %1])}) 
    db)) 

на одной странице, я хочу, чтобы отобразить список друзей, но проблема заключается в том, что это зависит от того, пользователь является неправдоподобным первым :

(re-frame/register-handler 
    :get-friends 
    (fn [db [_]] 
    (when (nil? (:user db)) 
     (re-frame/dispatch [:get-user])) 
    ; Here's the problem, as I need to way for get-users and got-users to run. 
    (ajax/GET (str "https://stackoverflow.com/users/" (get-in db [:user :id])) 
     {:handler #(re-frame/dispatch [:got-friends %1])}) 
    db)) 

Как я должен структурировать этот код?

Answer 1

Принимая вдохновение из article about solving the CPU hog problem Я СДЕЛАЛ Get-Никнейм себя в то время как пользователь ноль, но, чтобы избежать отправки много запросов на сервер, он также добавляет флаг о пользователь запрашиваемых:

(re-frame/register-handler 
    :get-friends 
    (fn [db [_ user-requested]] 
    (if-let [user (:user db)] 
     (ajax/GET (str "https://stackoverflow.com/users/" (get-in db [:user :id])) 
       {:handler #(re-frame/dispatch [:got-friends %1])}) 
     (do 
     (when (not user-requested) 
      (re-frame/dispatch [:get-user])) 
     (re-frame/dispatch [:get-friends true]))) 
    db)) 

It работает, но на локальной машине ему удается называть себя 9 раз или около того, пока пользователь не установит пользователя. Не уверен, что это будет проблемой или нет, и я открыт для других решений, если они существуют.

Answer 2

First, the documentation specifically warns against creating handlers with side-effects (т. Е. Отправка событий от обработчиков событий). Во-вторых, не пытайтесь повторно использовать обработчики событий, но реорганизуйте повторно используемые части в вспомогательные функции. Используя re-frame-http-fx, я бы написать что-то вроде этого:

(reg-event-fx 
    :get-friends 
    [trim-v] 
    (fn 
    [{db :db} [_]] 
    {:http-xhrio (if (:user db) 
        {:method   :get 
        :uri    (str "https://stackoverflow.com/users/" (get-in db [:user :id])) 
        :on-success  [:got-friends] 
        :on-failure  [:get-friends-load-failed]} 

        {:method   :get 
        :uri    "/user" 
        :on-success  [:get-friends-for-user] 
        :on-failure  [:get-friends-user-load-failed]}) 
    :db   db} 
    )) 

: Get-друзей-для-пользователя будет затем первым сохранить найденную пользователя и начать выборку друзей.