Adw1-demo review - Support a -d, --debug cmd line option

* examples/adw-1/adw1-demo.scm: Support a -d, --debug cmd line option.

1 files changed, 14 insertions, 6 deletions

diff --git a/examples/adw-1/adw1-demo.scm b/examples/adw-1/adw1-demo.scm
index 4f3577b..e13d3c5 100755
--- a/examples/adw-1/adw1-demo.scm
+++ b/examples/adw-1/adw1-demo.scm
@@ -51,9 +51,17 @@ exec guile -e main -s "$0" "$@"
 
 
 (define (main args)
-  (let ((app (make <adw-application>
-               #:application-id "org.gnu.g-golf.adw1.demo")))
-    (connect app 'activate show-window)
-    (let ((status (g-application-run app args)))
-      #;(exit status)
-      'done)))
+  (letrec ((animate
+            (lambda ()
+              (let ((app (make <adw-application>
+                           #:application-id "org.gnu.g-golf.adw1.demo")))
+                (connect app 'activate show-window)
+                (let ((status (g-application-run app '())))
+                  #;(exit status)
+                  'done)))))
+    ;; a simple -d [--debug] cmd line option detection
+    (if (or (member "-d" args)
+            (member "--debug" args))
+        (parameterize ((%debug #t))
+          (animate))
+        (animate))))