From 38412f4a2fe4d05fbb5a790e778b233438d6c840 Mon Sep 17 00:00:00 2001 From: Leon Rische Date: Sun, 7 Mar 2021 16:20:11 +0100 Subject: Fix remaining compiler warnings --- org-fc-dashboard.el | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) (limited to 'org-fc-dashboard.el') 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))) -- cgit v1.2.3