agent/agent: Use parameter instead of fluid

Change-Id: I365b4346d123b0cc8c71a17e62e25bae37e5fc49

test/agent/agent.scm

@@ -25,8 +25,8 @@
   #:export (ensure-account
             ensure-account-from-archive))
 
-(define-public account-id (make-fluid "afafafafafafafaf"))
-(define-public peer-id (make-fluid))
+(define-public account-id (make-parameter "afafafafafafafaf"))
+(define-public peer-id (make-parameter #f))
 
 (define* (ensure-account% this-account-id account-details #:optional (wait-for-announcement? #t))
   (if wait-for-announcement?
@@ -51,11 +51,11 @@
         (account:add account-details this-account-id)))
 
   (let ((details (account:get-details this-account-id)))
-    (fluid-set! peer-id (assoc-ref details "Account.username"))))
+    (peer-id (assoc-ref details "Account.username"))))
 
 (define* (ensure-account #:key (wait-for-announcement? #t))
   (jami:info "Ensure account")
-  (ensure-account% (fluid-ref account-id) '(("Account.type"            . "RING")
+  (ensure-account% (account-id) '(("Account.type"            . "RING")
                                   ("Account.displayName"     . "AGENT")
                                   ("Account.alias"           . "AGENT")
                                   ("Account.archivePassword" . "")
@@ -65,7 +65,7 @@
 
 (define* (ensure-account-from-archive path #:key (wait-for-announcement? #t))
   (jami:info "Ensure account from archive ~a" path)
-  (ensure-account% (fluid-ref account-id) `(("Account.type"            . "RING")
+  (ensure-account% (account-id) `(("Account.type"            . "RING")
                                   ("Account.displayName"     . "AGENT")
                                   ("Account.alias"           . "AGENT")
                                   ("Account.archivePassword" . "")

test/agent/examples/active-agent.scm

@@ -52,7 +52,7 @@
 
 (agent:ensure-account)
 
-(let ((account (fluid-ref agent:account-id))
+(let ((account (agent:account-id))
       (peer "FIXME"))
 
   (when (string= peer "FIXME")

test/agent/examples/passive-agent.scm

@@ -10,9 +10,9 @@
 
 (agent:ensure-account)
 
-(jami:info "Agent peer-id: ~a" (fluid-ref agent:peer-id))
+(jami:info "Agent peer-id: ~a" (agent:peer-id))
 
-(let ((account (fluid-ref agent:account-id)))
+(let ((account (agent:account-id)))
   (jami:on-signal 'incoming-call/media
                   (lambda (account-id call-id peer media-lst)
                     (when (string= account-id account)

test/agent/scenarios/peer-monitor/scenario.scm

@@ -65,7 +65,7 @@
 
                        (sigaction SIGALRM (lambda _ (setup-timer)))
 
-                       (let ((account (fluid-ref agent:account-id))
+                       (let ((account (agent:account-id))
                              (details (next-details!)))
                          (progress "SIGALRM - Changing account details: ~a" details)
                          (account:send-register account #f)
@@ -104,13 +104,13 @@
                                   #t))
                             #f)))
       (with-mutex mtx
-        (set! this-call-id (call:place-call (fluid-ref agent:account-id) peer))
+        (set! this-call-id (call:place-call (agent:account-id) peer))
         (let ((ret (wait-condition-variable cnd mtx
                                             (+ (current-time) timeout))))
           (unless ret (atomic-box-set! continue #f))
           ret))))
 
-  (let ((account (fluid-ref agent:account-id))
+  (let ((account (agent:account-id))
         (success 0)
         (failure 0)
         (reset (call/cc (lambda (k)