parent
6415c06398
commit
45da1a28df
|
@ -62,8 +62,7 @@
|
||||||
|
|
||||||
(defn calc-lines
|
(defn calc-lines
|
||||||
[height]
|
[height]
|
||||||
(let [lines (Math/round (/ height constants/line-height))]
|
(Math/floor (/ height constants/line-height)))
|
||||||
(if platform/ios? lines (dec lines))))
|
|
||||||
|
|
||||||
(defn calc-extra-content-height
|
(defn calc-extra-content-height
|
||||||
[images? link-previews? reply? edit?]
|
[images? link-previews? reply? edit?]
|
||||||
|
|
Loading…
Reference in New Issue