--- 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)