    (when (and params current-param-position)
      (get-in params [current-param-position :suggestions]))))
 
-(reg-sub
+(re-frame/reg-sub
  :chats/show-parameter-box?
  :<- [:chats/parameter-box]
  :<- [::show-suggestions?]

   (= (get-in mailserver [:id :value])
      current-mailserver-id)))

(reg-sub
 :mailserver.edit/validation-errors
 :<- [:mailserver.edit/mailserver]
 (fn [mailserver]

 (fn [[id->command access-scope->command-id chat]]
   (commands/chat-commands id->command access-scope->command-id chat)))

(re-frame/reg-sub
 :chats/chat
 :<- [:chats/active-chats]
 (fn [chats [_ chat-id]]
   (get chats chat-id)))

(re-frame/reg-sub
 :chats/content-layout-height
 :<- [:content-layout-height]
 :<- [:chats/current-chat-ui-prop :input-height]
