Fgh museum mode #64
There are no files selected for viewing
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Binary file not shown.
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,47 @@ | ||
| (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) | ||
|
|
||
| (FILECREATED "18-Nov-2025 22:54:33" {DSK}<home>frank>il>medley>library>ONLINEUTILS.;2 2078 | ||
|
|
||
| :EDIT-BY "FGH" | ||
|
|
||
| :CHANGES-TO (FNS ShellHttpGet) | ||
|
|
||
| :PREVIOUS-DATE "18-Nov-2025 22:48:48" {DSK}<home>frank>il>medley>library>ONLINEUTILS.;1) | ||
|
|
||
|
|
||
| (PRETTYCOMPRINT ONLINEUTILSCOMS) | ||
|
|
||
| (RPAQQ ONLINEUTILSCOMS ((FNS ShellHttpGet))) | ||
| (DEFINEQ | ||
|
|
||
| (ShellHttpGet | ||
| [LAMBDA (URL OUTFILENAME) (* ; "Edited 18-Nov-2025 22:54 by FGH") | ||
|
|
||
| (* ;; "Download a file specified by URL from the internet and place it in anew file name OUTFILENAME. OUTFILENAME will be versioned if it is on a versioned file device. Protocol of URL must be http: or https:. Uses wget (if it exists) or curl (if it exists) via a ShellCommand. It is an error if the underlying system doesn't have either wget or curl.") | ||
| (* ; "Edited 18-Nov-2025 22:39 by FGH") | ||
| (LET ((UURL (U-CASE URL))) | ||
| (if (NOT (OR (STRPOS "HTTP:://" UURL NIL NIL T) | ||
| (STRPOS "HTTPS://" UURL NIL NIL T))) | ||
| then (ERROR "ShellHttpGet URL argument is not a HTTP:// or HTTPS:// Url"))) | ||
| (LET* ((WGET (ShellWhich "wget")) | ||
| (CURL (if (NULL WGET) | ||
| then (ShellWhich "curl") | ||
| else NIL)) | ||
| (OUTNAME (OUTFILEP OUTFILENAME)) | ||
| (TMPFILE (CONCAT "/tmp/wget" (CLOCK))) | ||
| (UNIXFILE (CONCAT "{UNIX}" TMPFILE)) | ||
| (CMD (if WGET | ||
| then (CONCAT WGET " " URL " -O " TMPFILE) | ||
| elseif CURL | ||
| then (CONCAT CURL " " URL " --output " TMPFILE) | ||
| else NIL))) | ||
| (if (NULL CMD) | ||
| then (ERROR "ShellHttpGet - neither wget nor curl are available on this system")) | ||
| (ShellCommand CMD) | ||
| (COPYFILE UNIXFILE OUTNAME) | ||
| (DELFILE UNIXFILE) | ||
| OUTNAME]) | ||
| ) | ||
| (DECLARE%: DONTCOPY | ||
| (FILEMAP (NIL (414 2055 (ShellHttpGet 424 . 2053))))) | ||
| STOP |
Binary file not shown.
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -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¬ecards=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 ```(ShellHttpGet URL OUTFILE)```. This function will download (using wget or curl) 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 ShellHttpGet 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) | ||
| (ShellHttpGet "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* | ||
|
There was a problem hiding this comment. Is the double colon
Member
Author
There was a problem hiding this comment. @pamoroso No the double colons are a typo. Fixed. |
||
|
|
||
| For legacy reasons, ```https://online.interlisp.org/demo/guest``` and ```https://online.interlisp.org/guest``` are synonyms for ```https://online.interlisp.org/demo```. | ||
|
|
||
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,41 @@ | ||
| (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) | ||
|
|
||
| (FILECREATED "18-Nov-2025 23:40:40" {DSK}<home>frank>il>online>start-scripts>START-INSPHEX.;25 1665 | ||
|
|
||
| :EDIT-BY "FGH" | ||
|
|
||
| :CHANGES-TO (FNS START-INSPHEX) | ||
| (VARS START-INSPHEXCOMS) | ||
|
|
||
| :PREVIOUS-DATE "11-Nov-2025 23:54:22" {DSK}<home>frank>il>online>start-scripts>START-INSPHEX.;18 | ||
| ) | ||
|
|
||
|
|
||
| (PRETTYCOMPRINT START-INSPHEXCOMS) | ||
|
|
||
| (RPAQQ START-INSPHEXCOMS ((FNS START-INSPHEX) | ||
| (P (START-INSPHEX)))) | ||
| (DEFINEQ | ||
|
|
||
| (START-INSPHEX | ||
| [LAMBDA NIL (* ; "Edited 18-Nov-2025 23:40 by FGH") | ||
| (* ; "Edited 11-Nov-2025 23:54 by FGH") | ||
| (* ; "Edited 7-Nov-2025 10:43 by FGH") | ||
| (LET* ((INSPHEX.FILE (OUTFILEP "{CORE}INSPHEX")) | ||
| INSPHEX.DFASL) | ||
| (ShellHttpGet "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 (528 1621 (START-INSPHEX 538 . 1619))))) | ||
| STOP |
Binary file not shown.
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -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 | ||
|
|
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -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 |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -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 |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -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 |
Oops, something went wrong.
Add this suggestion to a batch that can be applied as a single commit.
This suggestion is invalid because no changes were made to the code.
Suggestions cannot be applied while the pull request is closed.
Suggestions cannot be applied while viewing a subset of changes.
Only one suggestion per line can be applied in a batch.
Add this suggestion to a batch that can be applied as a single commit.
Applying suggestions on deleted lines is not supported.
You must change the existing code in this line in order to create a valid suggestion.
Outdated suggestions cannot be applied.
This suggestion has been applied or marked resolved.
Suggestions cannot be applied from pending reviews.
Suggestions cannot be applied on multi-line comments.
Suggestions cannot be applied while the pull request is queued to merge.
Suggestion cannot be applied right now. Please check back later.
There was a problem hiding this comment.
Choose a reason for hiding this comment
The reason will be displayed to describe this comment to others. Learn more.
When visiting the example demo URL I get this error in Firefox and Chrome on Linux:
There was a problem hiding this comment.
Choose a reason for hiding this comment
The reason will be displayed to describe this comment to others. Learn more.
Expected. The URL in the documentation points to production OIO But demo-mode is not yet running on production, only on the development OIO. To test the URL at this point, you will need to manually add the :8081. This should go away once we deploy demo-mode PR to production.