Fgh museum mode

docker_medley/init/ONLINE-INIT

@@ -1,10 +1,15 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED "18-Mar-2025 22:45:51" {DSK}<home>medley>il>ONLINE-INIT.;1
 10668  
+
(FILECREATED "29-Oct-2025 23:56:02" {DSK}<home>frank>il>medley>greetfiles>ONLINE-INIT.;2
 11034  
 
-      :EDIT-BY "guest"
+      :EDIT-BY "FGH"
 
-      :PREVIOUS-DATE "17-Mar-2025 17:06:18" {DSK}<home>medley>il>ONLINE-INIT.;1)
+      :CHANGES-TO (ADVICE (SAVEVM :IN \IDLER))
+                  (FNS Online.SftpInitInfo Online.SftpUpdateInfo Online.SetUpNOTECARDSDIRECTORIES 
+                       Online.DoInit ONLINEP Online.FileButton)
+                  (VARS ONLINE-INITCOMS)
+
+      :PREVIOUS-DATE "18-Mar-2025 22:45:51" {DSK}<home>frank>il>medley>greetfiles>ONLINE-INIT.;1)
 
 
 (PRETTYCOMPRINT ONLINE-INITCOMS)
@@ -149,6 +154,8 @@
 (Online.DoInit

   [LAMBDA NIL
 
+    (* ;; "Edited 29-Oct-2025 23:55 by FGH")

+
     (* ;; "Edited 16-Mar-2025 23:26 by guest")

 
     (* ;; "Edited 25-Feb-2024 11:37 by fgh")

@@ -217,14 +224,15 @@
            (RPLACA (CAR CHAT.DISPLAYTYPES)
                   NIL)
 
-           (* ;; 
-
 "Setup NOTECARDSDIRECTORIES.  Should be done it APPS-INIT.  But until thats done, we'll do it here.")

+           (* ;; "Create File Import/Export Button")

 
-           (Online.SetUpNOTECARDSDIRECTORIES
)
+           (Online.FileButton
)
 
-           (* ;; "Create File Import/Export Button")

+           (* ;; "If there is a start-script file, load it ")

 
-           (Online.FileButton
])
+           (LET [(START-SCRIPT (UNIX-GETENV 'START_SCRIPT]
+                (IF
 START-SCRIPT
+                    THEN
 (LOAD START-SCRIPT])
 
 (ONLINEP

   [LAMBDA NIL
                                                (* ; "Edited 24-Feb-2024 22:31 by fgh")

@@ -239,7 +247,7 @@
 (BKSYSBUF " ")
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (1640 10532 (Online.SftpInitInfo 1650 . 2523) (Online.SftpUpdateInfo 2525 . 2780) (
-Online.SetUpNOTECARDSDIRECTORIES 2782 . 4490) (Online.FileButton 4492 . 7320) (Online.DoInit 7322 . 
-10393) (ONLINEP 10395 . 10530)))))
+  (FILEMAP (NIL (1924 10898 (Online.SftpInitInfo 1934 . 2807) (Online.SftpUpdateInfo 2809 . 3064) (
+Online.SetUpNOTECARDSDIRECTORIES 3066 . 4774) (Online.FileButton 4776 . 7604) (Online.DoInit 7606 . 
+10759) (ONLINEP 10761 . 10896)))))
 STOP

docker_medley/scripts/run-online-medley

@@ -67,6 +67,20 @@ if [ $# -gt 1 ] && [ "$2" = "custom" ]; then
     fi
 fi
 #
+unset START_SCRIPT
+if [ -n "${START_SCRIPT_URL}" ]
+then
+  export START_SCRIPT="${MEDLEY_USERDIR}/initdir/START-SCRIPT"
+  mkdir -p "$(dirname "${START_SCRIPT}")"
+  wget "${START_SCRIPT_URL}" -O "${START_SCRIPT}"
+  if [ $? -ne 0 ]
+  then
+    rm -f "${START_SCRIPT}"
+    unset START_SCRIPT
+  fi
+fi
+unset START_SCRIPT_URL
+#
 if [ $# -gt 2 ]; then
 	width=$3
 else

docs/Demo_mode.md

@@ -0,0 +1,74 @@
+
+# Online.Interlisp.Org: Demo mode (aka Museum Mode)
+## Overview
+
+When accessing online.interlisp.org (OIO) using Demo Mode,  Online Medley will LOAD a Lisp file called a *start script*.   The start script is specified by a query parameter in the URL through which OIO was accessed.  Before the Online Medley run starts, the start script file is downloaded using ```wget```into a known file in the Medley file system.  It is then LOADed as the last step in the ONLINE-INIT initialization.  The intent is that upon LOAD the start script will run a demo by defining and/or LOADing additional Lisp code and then starting up that demo, e.g., via a P file package command.  
+
+An addition aspect of Demo Mode is that login processing can (optionally) be skipped, the user automatically logged in as guest, and the Online Medley session started with no user interaction required.   Alternatively,  the login process can remain but the standard "Run Medley" page will be skipped and the user will go directly from login to the running Medley without having to set all the run parameters in the Run Medley page.  Automatic guest login is sufficient for most demos.  But requiring login allows demos to save files and context between runs of Online Medley, which is not possible with guest login.
+
+## Demo mode URLs
+To access Demo mode, use the following URLs:
+
+```https://online.interlisp.og/demo?start=\<START-SCRIPT>``` for automatic guest login.
+
+```https://online.interlisp.og/demo/login?start=\<START-SCRIPT>``` to require logins
+
+```<START-SCRIPT>``` is a URL pointing to a start-script lisp file that can be wget'd by the OIO server.  **This URL must be encoded using the equivalent of Javascript's *encodeURIComponent*.**  The easiest way to do this is via one of the many websites that offer this service such as https://meyerweb.com/eric/tools/dencoder/.
+
+In addition to the *start* query parameter, Demo mode supports the *notecards=1* and *rooms=1* query parameters.  If these query parameters are included in the Demo mode URL, then NoteCards and/or Rooms will be automatically started when Online Medley runs, in addition to the start-script.
+
+Any of the query parameters (start, notecards, rooms) can be left off, with the expected change of function.  For example, https://online.interlisp.org/demo?notecards=1 will automatically login as guest and start notecards - but not run any start script.
+
+Example Demo mode URL:  https://online.interlisp.org/demo?start=https%3A%2F%2Fgithub.com%2FInterlisp%2Fonline%2Fraw%2Frefs%2Fheads%2Ffgh_museum-mode%2Fstart-scripts%2FSTART-INSPHEX.LCOM&notecards=1.  This URL will automatically login as guest, wget and LOAD the file START-INSPHEX.LCOM from the Interlisp/Online repo on github and start Notecards.
+
+## Start scripts
+
+Any LOADable Lisp file (source or compiled, Interlisp or Medley CommonLisp) can serve as a start script.
+
+Sample start scripts can be found in the Interlisp/Online Github repo in the start-scripts directory.
+
+Most demos will require Lisp (or other) files that are not included in the standard Online Medley image.  One very handy function to be used in start scripts for these demos is ```(ShellWget URL OUTFILE)```.   This function will download (using wget) the file specified by URL and store it in the versioned Online Medley file system under the name OUTFILE.  OUTFILE can then be LOADed by the start script.
+
+Below is the start script for a demo of Pamoroso's INSPHEX utility  The start script defines and then runs a function called START-INSPHEX.  The START-INPHEX function in turn uses ShellWget to download the source code to INSPHEX from Github, compiles it, loads the compiled file and then uses ADD.PROCESS to run the main HEXDUMP function.  There is some additional complication in the call to ADD.PROCESS to ensure that packages are handled correctly.  But most existing Interlisp demos will not need this complexity since they don't use packages.
+
+```
+(DEFINE-FILE-INFO ^^PACKAGE "INTERLISP" ^^READTABLE "INTERLISP" ^^BASE 10)
+
+(FILECREATED "16-Nov-2025 21:15:14" {DSK}<home>frank>il>START-INSPHEX.;1 1641)
+
+(PRETTYCOMPRINT START-INSPHEXCOMS)
+
+(RPAQQ START-INSPHEXCOMS ((FNS START-INSPHEX)
+                          (P (START-INSPHEX))))
+(DEFINEQ
+
+(START-INSPHEX
+  [LAMBDA NIL                                               
+    (LET* ((INSPHEX.FILE (OUTFILEP "{CORE}INSPHEX"))
+           INSPHEX.DFASL)
+          (ShellWget "https://raw.githubusercontent.com/pamoroso/insphex/refs/heads/main/INSPHEX"
+                 INSPHEX.FILE)
+          (SETQ INSPHEX.DFASL (CL:COMPILE-FILE INSPHEX.FILE))
+          (LOAD INSPHEX.DFASL)
+          (ADD.PROCESS (LIST (CL:FIND-SYMBOL "HEXDUMP" "INSPHEX")
+                             (KWOTE INSPHEX.DFASL)
+                             '(CREATEW (CREATEREGION (FIX (TIMES 0.35 SCREENWIDTH))
+                                              (FIX (TIMES 0.25 SCREENHEIGHT))
+                                              (FIX (TIMES 0.5 SCREENWIDTH))
+                                              (FIX (TIMES 0.5 SCREENHEIGHT])
+)
+(START-INSPHEX)
+STOP
+
+```
+
+## Start scripts outside of Demo mode
+
+Start scripts can also be used outside of Demo mode.  In the normal OIO workflow, the user will be taken to the "Run Medley" page.  On the Run Medley page, if you enable *Show advanced options* there will be a field into which you can enter the URL for a start-script (in either original or URI encoded forms).   When Online Medley starts up, the specified start script will be wget'd and LOADed as in Demo mode.
+
+Additionally, if a ```start=<encoded start-script URL>``` query parameter is included in the URL used to access OIO (outside of Demo mode), then the specified URL (decoded) will be prepopulated into the Advanced Options/Start URL field on the Run Medley page.
+
+## Synonyms for *https::online.interlisp.org/demo*
+
+For legacy reasons,  ```https:://online.interlisp.org/demo/guest``` and ```https:://online.interlisp.org/guest``` are synonyms for ```https::online.interlisp.org/demo```.
+

start-scripts/START-INSPHEX

@@ -0,0 +1,55 @@
+(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
+
+
(FILECREATED "11-Nov-2025 23:54:22" {DSK}<home>frank>il>online>start-scripts>START-INSPHEX.;18
 2203   
+
+      :EDIT-BY "FGH"
+
+      :CHANGES-TO (FNS START-INSPHEX)
+                  (FUNCTIONS TmpShellWget)
+                  (VARS START-INSPHEXCOMS)
+
+      :PREVIOUS-DATE "11-Nov-2025 23:50:23" {DSK}<home>frank>il>online>start-scripts>START-INSPHEX.;17
+)
+
+
+(PRETTYCOMPRINT START-INSPHEXCOMS)
+
+(RPAQQ START-INSPHEXCOMS
 ((FUNCTIONS TmpShellWget)
+                          (FNS START-INSPHEX)
+                          (P (START-INSPHEX))))
+
+(CL:DEFUN TmpShellWget
 (URL OUTFILENAME)
                     (* ; "Edited 11-Nov-2025 23:50 by FGH")

+   (LET* ((WGET (ShellWhich "wget"))
+          (OUTNAME (OUTFILEP OUTFILENAME))
+          (TMPFILE (CONCAT "/tmp/wget" (CLOCK)))
+          (UNIXFILE (CONCAT "{UNIX}" TMPFILE))
+          (CMD (CONCAT WGET " " URL " -O " TMPFILE)))
+         (if
 (NULL WGET)
+             then
 (ERROR "ShellWget - wget not available"))
+         (ShellCommand CMD)
+         (COPYFILE UNIXFILE OUTNAME)
+         (DELFILE UNIXFILE)
+         OUTNAME))
+(DEFINEQ
+
+(START-INSPHEX

+  [LAMBDA NIL
                                                (* ; "Edited 11-Nov-2025 23:54 by FGH")


+                                                             (* ; "Edited  7-Nov-2025 10:43 by FGH")

+    (LET* ((INSPHEX.FILE (OUTFILEP "{CORE}INSPHEX"))
+           INSPHEX.DFASL)
+          (TmpShellWget
 "https://raw.githubusercontent.com/pamoroso/insphex/refs/heads/main/INSPHEX"
+                 INSPHEX.FILE)
+          (SETQ INSPHEX.DFASL (CL:COMPILE-FILE INSPHEX.FILE))
+          (LOAD INSPHEX.DFASL)
+          (ADD.PROCESS (LIST (CL:FIND-SYMBOL "HEXDUMP" "INSPHEX")
+                             (KWOTE INSPHEX.DFASL)
+                             '(CREATEW (CREATEREGION (FIX (TIMES 0.35 SCREENWIDTH))
+                                              (FIX (TIMES 0.25 SCREENHEIGHT))
+                                              (FIX (TIMES 0.5 SCREENWIDTH))
+                                              (FIX (TIMES 0.5 SCREENHEIGHT])
+)
+
+(START-INSPHEX
)
+(DECLARE%: DONTCOPY
+  (FILEMAP (NIL (623 1170 (TmpShellWget 623 . 1170)) (1171 2159 (START-INSPHEX 1181 . 2157)))))
+STOP

start-scripts/START-INSPHEX.URL

@@ -0,0 +1,2 @@
+https://online.interlisp.org:8081/demo?start=https%3A%2F%2Fgithub.com%2FInterlisp%2Fonline%2Fraw%2Frefs%2Fheads%2Ffgh_museum-mode%2Fstart-scripts%2FSTART-INSPHEX.LCOM
+

start-scripts/START-KINETIC

@@ -0,0 +1,33 @@
+(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
+
+
(FILECREATED " 1-Nov-2025 13:41:38" {DSK}<home>frank>il>medley>START-KINETIC.;2
 1112   
+
+      :EDIT-BY "FGH"
+
+      :CHANGES-TO (FNS START-KINETIC)
+
+      :PREVIOUS-DATE " 1-Nov-2025 13:21:22" {DSK}<home>frank>il>medley>START-KINETIC.;1)
+
+
+(PRETTYCOMPRINT START-KINETICCOMS)
+
+(RPAQQ START-KINETICCOMS
 ((FILES KINETIC)
+                          (FNS START-KINETIC)
+                          (P (START-KINETIC))))
+
+(FILESLOAD KINETIC)
+(DEFINEQ
+
+(START-KINETIC

+  [LAMBDA NIL
                                                (* ; "Edited  1-Nov-2025 13:41 by FGH")


+                                                             (* ; "Edited  1-Nov-2025 13:15 by FGH")

+    (ADD.PROCESS '(KINETIC (CREATEW (CREATEREGION (FIX (TIMES 0.25 SCREENWIDTH))
+                                           (FIX (TIMES 0.25 SCREENHEIGHT))
+                                           (FIX (TIMES 0.5 SCREENWIDTH))
+                                           (FIX (TIMES 0.5 SCREENHEIGHT])
+)
+
+(START-KINETIC
)
+(DECLARE%: DONTCOPY
+  (FILEMAP (NIL (517 1068 (START-KINETIC 527 . 1066)))))
+STOP

start-scripts/START-KINETIC.URL

@@ -0,0 +1 @@
+https://online.interlisp.org:8081/demo?start=https%3A%2F%2Fgithub.com%2FInterlisp%2Fonline%2Fraw%2Frefs%2Fheads%2Ffgh_museum-mode%2Fstart-scripts%2FSTART-KINETIC

system/install_mongodb8.0.sh

@@ -0,0 +1,8 @@
+!#/bin/bash
+wget -qO - https://www.mongodb.org/static/pgp/server-8.0.asc | sudo apt-key add -
+echo "deb [ arch=amd64,arm64 ] https://repo.mongodb.org/apt/ubuntu focal/mongodb-org/8.0 multiverse" | sudo tee /etc/apt/sources.list.d/mongodb-org-8.0.list
+sudo apt update
+sudo apt install -y mongodb-org
+sudo systemctl start mongod
+sudo systemctl enable mongod
+sudo systemctl status mongod

web-portal/client/js/main.js

@@ -99,7 +99,10 @@ window.addEventListener('load', (event) => {
             document.getElementById("interlisp_rb").checked = true;
     }
     fillWindowOnClick();
-    document.getElementById("dev-options-checkbox").checked = (localStore.getItem("show_dev_options") == "true");
+    if (alStart != "") document.getElementById("start_script_url").value = alStart;
+    else document.getElementById("start_script_url").value = localStore.getItem("start_script_url");
+    if ((localStore.getItem("show_dev_options") == "true") || (document.getElementById("start_script_url").value != ""))
+          document.getElementById("dev-options-checkbox").checked = true;
     showDevOptionsOnClick();
     if( ! (isAutoLogin || fromvnc)) {
         if(isVerified != true) {
@@ -127,7 +130,14 @@ function startSession (interlispOrXterm) {
     const runRooms = document.getElementById("run_rooms_cb").checked ? "true": "false";
     const startSftp = document.getElementById("sftp_checkbox").checked ? "true": "false";
     const medleyExec = document.getElementById("interlisp_rb").checked ? "inter" : "common";
+    const startScriptUrl =
+            (function() {
+                let ss = document.getElementById("start_script_url").value;
+                if (ss.includes("%2F")) ss = decodeURIComponent(ss);
+                return ss;
+             })();
     if(!isGuest) {
+        localStore.setItem("start_script_url", startScriptUrl);
         localStore.setItem("fill-window", fillWindow ? 'true' : 'false');
         if(! fillWindow) {
             localStore.setItem("screen_width", screenWidth);
@@ -159,36 +169,7 @@ function startSession (interlispOrXterm) {
         .then(  data => {
                     const isRunning = data.isRunning;
                     const sessionType = data.target;
-                    if(isRunning) {
-                        new Promise((resolve, reject) => {
-                            const dlg = document.getElementById("reconnect-dialog");
-                            const typeEl = document.getElementById("rd-type-span");
-                            typeEl.html = sessionType;
-                            dlg.resolve = resolve;
-                            dlg.reject = reject;
-                            dlg.showModal();
-                            }
-                        )
-                        .then(RorK => {
-                                window.location.assign(
-                                    `/medley/${interlispOrXterm || "interlisp"}`
-                                    + `?screen_width=${screenWidth}`
-                                    + `&screen_height=${screenHeight}`
-                                    + `&if=${RorK}`
-                                    + `&resume=${resume || "false"}`
-                                    + `&custom=${custom || "false"}`
-                                    + `&custom_init=${customInit || "false"}`
-                                    + `&notecards=${runNotecards || "false"}`
-                                    + `&rooms=${runRooms || "false"}`
-                                    + `&sftp=${startSftp || "false"}`
-                                    + `&exec=${medleyExec || "inter"}`
-                                    + ( isAutoLogin ? "&autologin" : "")
-                                );
-                            }
-                        );
-                    }
-                    else {
-                        window.location.assign(
+                    const medley_url =
                             `/medley/${interlispOrXterm || "interlisp"}`
                             + `?screen_width=${screenWidth}`
                             + `&screen_height=${screenHeight}`
@@ -200,8 +181,22 @@ function startSession (interlispOrXterm) {
                             + `&sftp=${startSftp || "false"}`
                             + `&exec=${medleyExec || "inter"}`
                             + ( isAutoLogin ? "&autologin" : "")
-                            );
+                            + ( (startScriptUrl != "") ? `&start=${encodeURIComponent(startScriptUrl)}` : "" )
+			;
+
+                    if(isRunning) {
+                        new Promise((resolve, reject) => {
+                            const dlg = document.getElementById("reconnect-dialog");
+                            const typeEl = document.getElementById("rd-type-span");
+                            typeEl.html = sessionType;
+                            dlg.resolve = resolve;
+                            dlg.reject = reject;
+                            dlg.showModal();
+                            }
+                        )
+                        .then(RorK => { window.location.assign(medley_url + `&if=${RorK}`); } );
                     }
+                    else window.location.assign(medley_url);
                 },
                 reason => {}
         );

web-portal/client/views/again.pug

@@ -28,5 +28,5 @@ block headeradds
 block content
 
     .row.text-center#again-button
-        button.main-button(type="button" onclick='window.location.assign(decodeURI(alURL));')!= "Run Medley Again"
+        button.main-button(type="button" onclick='window.location.assign(decodeURIComponent(alURL));')!= "Run Medley Again"
 

web-portal/client/views/help_dialogs.pug

@@ -122,3 +122,16 @@ dialog(id="help-dialog-which-exec").help-dialog
         Additional Exec windows based on either Interlisp or Common Lisp can be started at any time from the background menu.
     .single-button-div
         button(type="button" onclick='helpDialogClose("which-exec");').main-button OK
+dialog(id="help-dialog-start-script").help-dialog
+    h2  Help
+    p.
+        A start-script if a Medley Lisp file that will be LOADed at the end of the ONLINE-INIT script while Online
+        Medley is starting up.  It can be used to fetch other files from the Internet and/or to run code that will
+        set-up the Medley environment or start a specific Medley application.  This is generally used for automatings
+        demos.  Example start-scripts can be found at https://github.com/interlisp/online/start-scripts. 
+    p.
+        In this field enter a URL that points to a Medley Lisp file that can be downloaded from the Internet with
+        wget.  This file will be downloaded amd LOADed at the end of ONLINE-INIT.
+    .single-button-div
+        button(type="button" onclick='helpDialogClose("start-script");').main-button OK
+

web-portal/client/views/login.pug

@@ -41,7 +41,7 @@ block headeradds
 
             if(info) {
               const errorMessage = document.getElementById("error-message");
-              errorMessage.innerText = info;
+              errorMessage.innerText = decodeURIComponent(info);
               //errorMessage.style.display = "block";
             } else if("#{verificationNotice}" == "true") {
                 const dlg = document.getElementById("verification-dialog");