Fix for suggestions bar (#370)

This commit is contained in:
Alexander Pantyuhov 2016-10-19 13:10:38 +03:00
parent 8011213ee9
commit 697ba310d0
1 changed files with 4 additions and 2 deletions

View File

@ -219,8 +219,10 @@
(let [chat-id (subscribe [:get-current-chat-id])] (let [chat-id (subscribe [:get-current-chat-id])]
(reaction (reaction
(min (get-in @db [:animations :to-response-height @chat-id]) (min (get-in @db [:animations :to-response-height @chat-id])
(if (> (:layout-height @db) 0)
(- (:layout-height @db) (- (:layout-height @db)
(get-in platform-specific [:component-styles :status-bar status-bar :height]))))))) (get-in platform-specific [:component-styles :status-bar status-bar :height]))
0))))))
(register-sub :web-view-url (register-sub :web-view-url
(fn [db] (fn [db]