souplesse

commit 9484597491c9291782a1d1a730f96dc9bdacb57d
parent ec21f4c6e8a469025a9c82153707977189c05afe
Author: Daniel Barlow <dan@telent.net>
Date:   Thu, 21 Nov 2024 21:40:47 +0000

inline/remove top level oneliners

Diffstat:
M
frontend/src/Lib.elm
 | 
12
+++++-------

1 file changed, 5 insertions(+), 7 deletions(-)
diff --git a/frontend/src/Lib.elm b/frontend/src/Lib.elm
@@ -1,17 +1,15 @@
 -- miscellaneous functions extracted from Main so
 -- we can more easily test them
 
-module Lib exposing(looseLabels)
+module Lib exposing (looseLabels)
 
 
 -- https://github.com/cenfun/nice-ticks/blob/master/docs/Nice-Numbers-for-Graph-Labels.pdf
 
-log10 x = logBase 10 x
-expt b x = b^(toFloat x)
-
 niceNumber x round =
-    let exp = floor (log10 x)
-        f = x / (expt 10.0 exp)
+    let expt b ex = b^ toFloat ex
+        exp = floor (logBase 10 x)
+        f = x / expt 10.0 exp
         nfRound = if f < 1.5
                   then 1
                   else if f < 3
@@ -37,6 +35,6 @@ looseLabels ticks min max =
     let
         range = niceNumber (max-min) False
         d = niceNumber (range/(ticks - 1)) True
-        graphmin = toFloat (floor  (min/d)) * d
+        graphmin = toFloat (floor (min/d)) * d
         graphmax = toFloat (ceiling (max/d)) * d
     in (graphmin, graphmax, d)