From ca71cf5fd33cdbe28f28d02169c3cbfff3dd72d3 Mon Sep 17 00:00:00 2001 From: GLENN THOMPSON Date: Sun, 22 Sep 2024 08:25:28 +0300 Subject: [PATCH] Added a logging function --- guile-stash.log | 1 + guile-stash.scm | 12 +++++++++--- 2 files changed, 10 insertions(+), 3 deletions(-) create mode 100644 guile-stash.log diff --git a/guile-stash.log b/guile-stash.log new file mode 100644 index 0000000..1f5a4b1 --- /dev/null +++ b/guile-stash.log @@ -0,0 +1 @@ +Symlink created: /home/glenn/stash/test -> /home/glenn/.config/alacritty/test diff --git a/guile-stash.scm b/guile-stash.scm index d1a8e61..9d43386 100644 --- a/guile-stash.scm +++ b/guile-stash.scm @@ -142,9 +142,15 @@ (eqv? (stat:type stat) 'symlink))) (define (log-action message) - (with-output-to-file "guile-stash.log" - (lambda () (display message) (newline)) - #:append #t)) + (let ((log-port (open-file "guile-stash.log" "a"))) ;; Open file in append mode + (display message log-port) + (newline log-port) + (close-port log-port))) ;; Close the port after writing + +;; (define (log-action message) +;; (with-output-to-file "guile-stash.log" +;; (lambda () (display message) (newline)) +;; #:append #t)) ;; Helper function to build target symlink path (define (build-target-path source target)