# HG changeset patch # User Steve Losh # Date 1693410528 14400 # Node ID 5b6e2d2bff48400953d6494ad971abbd5b3ef9fa # Parent 7990c9a826d3ea20a85d6ee352dce16f8e294b6f More diff -r 7990c9a826d3 -r 5b6e2d2bff48 stumpwmrc --- a/stumpwmrc Wed Aug 23 11:13:20 2023 -0400 +++ b/stumpwmrc Wed Aug 30 11:48:48 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)) diff -r 7990c9a826d3 -r 5b6e2d2bff48 vim/custom-dictionary.utf-8.add --- a/vim/custom-dictionary.utf-8.add Wed Aug 23 11:13:20 2023 -0400 +++ b/vim/custom-dictionary.utf-8.add Wed Aug 30 11:48:48 2023 -0400 @@ -335,3 +335,4 @@ memoized skald dwarven +tradeoff