diff options
author | Leon Rische <leon.rische@me.com> | 2021-03-07 16:20:11 +0100 |
---|---|---|
committer | Leon Rische <leon.rische@me.com> | 2021-03-07 16:20:11 +0100 |
commit | 38412f4a2fe4d05fbb5a790e778b233438d6c840 (patch) | |
tree | ebfe2cb40f49a8d51ca1700d787b04f6e7f58028 /org-fc-dashboard.el | |
parent | 9783e5afda52e2e4d9634c7ca4cdee69f806210d (diff) |
Fix remaining compiler warnings
Diffstat (limited to 'org-fc-dashboard.el')
-rw-r--r-- | org-fc-dashboard.el | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/org-fc-dashboard.el b/org-fc-dashboard.el index be977af..38a7f8e 100644 --- a/org-fc-dashboard.el +++ b/org-fc-dashboard.el @@ -147,13 +147,13 @@ environment without svg support." (dolist (value values) (svg-rectangle svg pos 0 (* width (car value)) height :fill (cdr value)) (if (> (* width (car value)) (* 2 fontsize)) - (svg-text svg (format "%.1f" (* 100 (car value))) - :font-size fontsize - :fill "white" - :font-weight "bold" - :font-family "sans-serif" - :x (+ pos 5) - :y (+ fontsize (floor (- height fontsize) 2)))) + (svg-text svg (format "%.1f" (* 100 (car value))) + :font-size fontsize + :fill "white" + :font-weight "bold" + :font-family "sans-serif" + :x (+ pos 5) + :y (+ fontsize (floor (- height fontsize) 2)))) (setq pos (+ pos (* width (car value))))) (svg-image svg))) |