Uses less side-effects and handle errors.

AeroNotix · Dec 5, 2014 · e17c2f0 · e17c2f0
1 parent 5c74f83
commit e17c2f0
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 1 deletion.
diff --git a/lispkit.lisp b/lispkit.lisp
@@ -40,6 +40,7 @@
                             (leave-gtk-main))))
       (load-url *default-page* browser)
       (gtk-widget-hide entry)
+      (ensure-cookies-folder-exists *cookie-path-dir*)
       ;; TODO - Add error handling to this.
       (load-rc-file)
       (gtk-window-maximize window)

diff --git a/settings.lisp b/settings.lisp
@@ -4,4 +4,7 @@
 (defparameter *cookie-type* :webkit-cookie-persistent-storage-text)
 (defparameter *cookie-accept-policy* :webkit-cookie-policy-accept-always)
 
-(ensure-directories-exist *cookie-path-dir*)
+(defun ensure-cookies-folder-exists (path)
+  "Ensures that the cookies folder exists."
+  (handler-case (ensure-directories-exist path)
+    (file-error () (format *error-output* "Unable to ensure that the cookies folder ~s exists." path))))