# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1660249901 14400
# Node ID 169f00eabdc6863248215b20a37b51adf707d5e0
# Parent  1fea5b4e8980d21fecca384ea8b398ac177698f3# Parent  61b4f1f3a9f15ce474f977509aef9e5f4ba0ef8c
Merge

diff -r 1fea5b4e8980 -r 169f00eabdc6 stumpwmrc
--- 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")