Permalink
Browse files

fixed needless padding at the top of lines

  • Loading branch information...
1 parent 8dd07f5 commit e7f970cefcc11ef9583beffa007681caf4cc8009 @fukamachi committed Nov 13, 2010
Showing with 1 addition and 1 deletion.
  1. +1 −1 src/L5/layout.clj
View
2 src/L5/layout.clj
@@ -32,7 +32,7 @@
(defmacro lines [& strs]
(let [line-height (/ (:font-size (context)) 3)]
- `{:attr {:padding {:top (+ (-> (context) :padding :top) ~line-height)
+ `{:attr {:padding {:top ~line-height
:bottom ~line-height}}
:body [~@strs]}))

0 comments on commit e7f970c

Please sign in to comment.