change jsonrpc log

lem-project · Dec 10, 2023 · a4e3a9f · a4e3a9f
1 parent 84f118e
commit a4e3a9f
Showing 1 changed file with 7 additions and 3 deletions.
diff --git a/frontends/jsonrpc/utils.lisp b/frontends/jsonrpc/utils.lisp
@@ -5,10 +5,14 @@
            :with-error-handler))
 (in-package :lem-jsonrpc/utils)
 
+(defvar *log-filename* (merge-pathnames "logs/jsonrpc.log" (lem:lem-home)))
+
 (defun pdebug (fmt &rest args)
-  (with-open-file (out "~/lem-jsonrpc.log" :direction :output :if-exists :append :if-does-not-exist :create)
-    (apply #'format out fmt args)
-    (terpri out)))
+  (when *log-filename*
+    (ensure-directories-exist *log-filename*)
+    (with-open-file (out *log-filename* :direction :output :if-exists :append :if-does-not-exist :create)
+      (apply #'format out fmt args)
+      (terpri out))))
 
 (defun hash (&rest args)
   (alexandria:plist-hash-table args :test #'equal))