Commit 45185fda authored by Dave Griffiths's avatar Dave Griffiths
Browse files

synced sound

parent f44ece40
...@@ -295,7 +295,10 @@ ...@@ -295,7 +295,10 @@
(cond (cond
((null? r) ((null? r)
(debug! "All files up to date") (debug! "All files up to date")
(set-current! 'download 1)
(append (append
(if (eqv? (get-current 'upload 0) 1)
(list (play-sound "ping")) '())
(list (list
(toast "All files up to date")) r)) (toast "All files up to date")) r))
(else (else
...@@ -323,8 +326,12 @@ ...@@ -323,8 +326,12 @@
(toast "Uploading data..."))) (toast "Uploading data...")))
(else (else
(debug! "No data changed to upload") (debug! "No data changed to upload")
(list (set-current! 'upload 1)
(toast "No data changed to upload")))) r))) (append
(if (eqv? (get-current 'download 0) 1)
(list (play-sound "ping")) '())
(list
(toast "No data changed to upload")))) r))))
(define (connect-to-net fn) (define (connect-to-net fn)
(list (list
...@@ -1676,6 +1683,8 @@ ...@@ -1676,6 +1683,8 @@
(horiz (horiz
(mbutton2 "sync-all" "Sync me" (mbutton2 "sync-all" "Sync me"
(lambda () (lambda ()
(set-current! 'upload 0)
(set-current! 'download 0)
(connect-to-net (connect-to-net
(lambda () (lambda ()
(append (append
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment