--- a/stumpwmrc Tue Aug 09 12:10:25 2022 -0400
+++ b/stumpwmrc Thu Aug 11 16:31:41 2022 -0400
@@ -237,15 +237,15 @@
;;;; Budget ------------------------------------------------------------------
-(defparameter *budget/per-day*
- (first (losh:read-all-from-file "/home/sjl/Dropbox/budget/per-day")))
-
(defparameter *tz/eastern*
(local-time:find-timezone-by-location-name "US/Eastern"))
(defparameter *budget/start*
(local-time:encode-timestamp 0 0 0 0 26 7 2022 :timezone *tz/eastern*))
+(defun budget/per-day ()
+ (first (losh:read-all-from-file "/home/sjl/Dropbox/budget/per-day")))
+
(defun budget/elapsed ()
(local-time:timestamp-difference (local-time:now) *budget/start*))
@@ -253,7 +253,7 @@
(floor (/ (budget/elapsed) (* 60 60 24))))
(defun budget/in ()
- (* (budget/days-elapsed) *budget/per-day*))
+ (* (budget/days-elapsed) (budget/per-day)))
(defun budget/out ()
(loop :for path :in (directory "/home/sjl/Dropbox/budget/hosts/*/total")