# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1693247820 14400
# Node ID dae3f0203507ab9df74332862fbc2694f9836cf7
# Parent  40d807495e6edb140ce3e780ea73fe187ff5438a
More

diff -r 40d807495e6e -r dae3f0203507 stumpwmrc
--- a/stumpwmrc	Mon Aug 28 14:36:36 2023 -0400
+++ b/stumpwmrc	Mon Aug 28 14:37:00 2023 -0400
@@ -241,10 +241,10 @@
   (local-time:find-timezone-by-location-name "US/Eastern"))
 
 (defparameter *budget/start*
-  (local-time:encode-timestamp 0 0 0 0 21 5 2023 :timezone *tz/eastern*))
+  (local-time:encode-timestamp 0 0 0 0 27 8 2023 :timezone *tz/eastern*))
 
 (defun budget/per-day ()
-  (first (losh:read-all-from-file "/home/sjl/Dropbox/budget/per-day")))
+  (first (losh:read-all-from-file "/home/sjl/Sync/budget/per-day")))
 
 (defun budget/elapsed ()
   (local-time:timestamp-difference (local-time:now) *budget/start*))
@@ -256,7 +256,7 @@
   (* (budget/days-elapsed) (budget/per-day)))
 
 (defun budget/out ()
-  (loop :for path :in (directory "/home/sjl/Dropbox/budget/hosts/*/total")
+  (loop :for path :in (directory "/home/sjl/Sync/budget/hosts/*/total")
         :summing (print (first (read-all-from-file (print path))))))
 
 (defun budget/current ()
@@ -264,7 +264,7 @@
 
 (defcommand budget-dump () ()
   (message
-    (sh '("sh" "-c" "tail -n 5 /home/sjl/Dropbox/budget/hosts/*/records")
+    (sh '("sh" "-c" "tail -n 5 /home/sjl/Sync/budget/hosts/*/records")
         :result-type 'string)))
 
 (defcommand budget () ()
@@ -272,7 +272,7 @@
 
 (defmacro with-budget-file ((f file &rest open-args) &body body)
   `(with-open-file
-     (,f (format nil "/home/sjl/Dropbox/budget/hosts/~(~A~)/~A" *host* ,file)
+     (,f (format nil "/home/sjl/Sync/budget/hosts/~(~A~)/~A" *host* ,file)
       ,@open-args)
      ,@body))
 
@@ -913,12 +913,15 @@
            "%)")))
 
       ;; temp, cpu, mem, time, tray
-      (list "(TEMP %S) (CPU %C) (MEM %M) %d %T")))
+      #+no (list "(TEMP %S) (CPU %C) (MEM %M) %d %T")
+      (list "(CPU %C) (MEM %M) %d %T")
+      ))
 
   (setf *mode-line-timeout* 10)
   (setf *mode-line-background-color* "#111111")
 
-  (ensure-mode-line))
+  (ensure-mode-line)
+  )
 
 (configure-modeline)