Trying to use ngrok for debugging Lisp process.

.github/actions/build-docs/action.yml

@@ -17,10 +17,12 @@ runs:
         echo ::group::Install Documentation Builder
 
         echo 'github docs-builder 40ants/docs-builder' >> qlfile
+        echo 'github ngrok 40ants/ngrok' >> qlfile
         
         qlot update
 
         qlot exec ros install docs-builder
+        qlot exec ros install ngrok
         echo ::endgroup::
     - name: Build Docs
       id: build-docs

.github/actions/build-docs/upload.ros

@@ -6,7 +6,8 @@ exec ros -Q -- $0 "$@"
 (progn ;;init forms
   (ros:ensure-asdf)
   #+quicklisp
-  (ql:quickload '(log4cl)
+  (ql:quickload '(log4cl
+                  ngrok/slynk)
                 :silent t))
 
 (defpackage :ros.script.upload
@@ -221,6 +222,12 @@ behaviour could be overriden by keyword argument ``:raise t``."
                                                        docs-dir)
                                 :if-exists :overwrite)
         (declare (ignorable s)))
+      
+      (let ((url (ngrok/slynk:start 4005)))
+        (when url
+          (loop do (log:info "Waiting for connection to ~A" url)
+                   (sleep 5))))
+      
       (push-gh-pages docs-dir)
       (push-local-changes))))
 

.github/workflows/docs.yml

@@ -32,6 +32,7 @@ jobs:
       - uses: 40ants/cl-info/.github/actions/build-docs@custom-action
         with:
           asdf-system: cl-info
+          NGROK_AUTH_TOKEN: ${{ secrets.NGROK_AUTH_TOKEN }}
       # - name: Start SSH session
       #   uses: luchihoratiu/debug-via-ssh@main
       #   with: