From 70e7409f44bf81992bf59845b8ee525e32a2fd5c Mon Sep 17 00:00:00 2001
From: Alexander Artemenko <svetlyak.40wt@gmail.com>
Date: Sun, 7 Feb 2021 12:24:36 +0300
Subject: [PATCH] Trying to use ngrok for debugging Lisp process.

---
 .github/actions/build-docs/action.yml | 2 ++
 .github/actions/build-docs/upload.ros | 9 ++++++++-
 .github/workflows/docs.yml            | 1 +
 3 files changed, 11 insertions(+), 1 deletion(-)

diff --git a/.github/actions/build-docs/action.yml b/.github/actions/build-docs/action.yml
index 0bf1e64..9d4b2a0 100644
--- a/.github/actions/build-docs/action.yml
+++ b/.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
diff --git a/.github/actions/build-docs/upload.ros b/.github/actions/build-docs/upload.ros
index 5791e6a..79221f9 100755
--- a/.github/actions/build-docs/upload.ros
+++ b/.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))))
 
diff --git a/.github/workflows/docs.yml b/.github/workflows/docs.yml
index e02e094..65646d6 100644
--- a/.github/workflows/docs.yml
+++ b/.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: