Merge pull request #4 from garlic0x1/working

Working

Author: garlic0x1

README.md

@@ -3,7 +3,7 @@ Automatically generates certificates to intercept and decrypt SSL messages.
 
 # Dependencies
 
-- SBCL + Ultralisp
+- SBCL + [Ultralisp](https://ultralisp.org)
 - [FiloSottile/mkcert](https://github.com/FiloSottile/mkcert)
 - SQLite
 - GTK4 or Tcl/Tk

frontend/tk/modeline.lisp

@@ -2,13 +2,10 @@
 
 (defun redraw-modeline ()
   (setf (text (modeline *main-app*))
-        (uiop:strcat
-         " Server: "
-         (format nil "~a:~a"
-                 (ignore-errors (http:server-host mx-proxy:*server*))
-                 (ignore-errors (http:server-port mx-proxy:*server*)))
-         " | Project: "
-         mx-proxy:*db-file*)))
+        (format nil " Server: ~a:~a | Project: ~a"
+                (ignore-errors (http:server-host mx-proxy:*server*))
+                (ignore-errors (http:server-port mx-proxy:*server*))
+                mx-proxy:*db-file*)))
 
 (register-hook (:on-command :redraw-modeline) (command)
   (declare (ignore command))

src/database.lisp

@@ -1,7 +1,7 @@
 (in-package :mx-proxy)
 
 (defvar *db-file* nil
-  "Filename of the current Sqlite connection.")
+  "Filename of the current SQLite connection.")
 
 (defun migrate-database (&key recreate ensure)
   (loop :for table :in '(http:request http:response http:message-pair)
@@ -10,7 +10,7 @@
                   (t        (mito:migrate-table table)))))
 
 (defun connect-database (&key (file "/tmp/proxy.sqlite3"))
-  "Connect to a Sqlite database. This serves as a 'project file' for proxy sessions."
+  "Connect to a SQLite database. This serves as a 'project file' for proxy sessions."
   (mito:connect-toplevel :sqlite3 :database-name file)
   (setf *db-file* file)
   (migrate-database :ensure t))

src/package.lisp

@@ -13,6 +13,7 @@
    :replay
 
    ;; ssl.lisp
+   :*cert-directory*
    :send-request-ssl
 
    ;; config.lisp

src/ssl.lisp

@@ -1,10 +1,12 @@
 (in-package :mx-proxy)
 
+(defparameter *cert-directory* "/tmp/mx-proxy/certs/")
+
 (defun cert-file (name)
   (namestring
    (merge-pathnames
-    (format nil "certs/~a" name)
-    (asdf:system-source-directory :mx-proxy))))
+    name
+    (ensure-directories-exist *cert-directory*))))
 
 (defun certificate (host &key create)
   "Retrieve or generate certificate and key for host."