2 files changed, 8 insertions(+), 2 deletions(-)

M bearimy/utils.janet
M test/suite1.janet

@@ 42,11 42,15 @@
 (defn weeks-ago [n &opt tdy]
   (days-ago (* n 7) tdy))
 
-(defn start-of-week [n &opt tdy]
+(defn start-of-week
+  "Returns start of the week `n` weeks in future."
+  [n &opt tdy]
   (default tdy (today))
   (days-ago (+ (* 7 (- n)) (tdy :week-day)) tdy))
 
-(defn current-week-start [&opt tdy]
+(defn current-week-start
+  "Returns start of the current week for the optional date `tdy`."
+  [&opt tdy]
   (start-of-week 0 tdy))
 
 (defn last-week-start [&opt tdy]

@@ 1,3 1,4 @@
+(use marble)
 (use spork/test)
 (use /bearimy)
 (use /bearimy/utils)


@@ 180,4 181,5 @@
         "4 days ago")
 
 
+(assert-docs "/bearimy/utils")
 (end-suite)