Add function (ShellWget URL OUTFILE) that calls the shell to execute 'wget URL -O OUTFILE'. No checking is done on the URL.

.github/ISSUE_TEMPLATE/primer.yml

@@ -1,68 +0,0 @@
-name: Report an issue with the "Medley Interlisp for the Newcomer" primer
-description: Use this template to report issues or make suggestions.
-title: "[Primer] <short title here>"
-labels: 
-  - primer
-  - documentation
-body:
-  - type: dropdown
-    id: problemType
-    attributes:
-      label: "What type of issue are you reporting?"
-      options:
-        - Suggested improvement
-        - Incorrect explanation / code sample
-        - Confusing explanation
-        - Outdated information
-        - Broken link
-        - Typo / Grammar
-    validations:
-      required: true
-  - type: dropdown
-    id: location
-    attributes:
-      label: "Section of the primer where the issue occurs"
-      options:
-        - Introduction
-        - Medley online and Medley Local
-        - Understanding and Navigating the Interface
-        - Understanding Lisp Syntax
-        - Atoms, Functions and Lists
-        - Variable Bindings and Scope
-        - Iterators and Conditionals
-        - The File Browser
-        - Debugging
-        - Editing functions with SEdit
-        - Build Your First Interactive Program
-        - Saving Your Work
-        - TEdit, The WYSIWYG Editor
-        - Drawing and Displaystreams
-        - Making a Graph with Grapher
-        - Additional Resources
-        - General Feedback (not specific to a section)
-    validations:
-      required: true
-  - type: textarea
-    id: issueLocationDetails
-    attributes:
-      label: "Please provide more details about the location of the issue"
-      description: "For example, the specific page title, section heading, or url."
-    validations:
-      required: false
-  - type: textarea
-    id: issueDescription
-    attributes:
-      label: "Description of the issue"
-      description: "Please provide a detailed description of the issue you encountered."
-    validations:
-      required: true
-  - type: textarea
-    id: suggestedFix
-    attributes:
-      label: "Suggested fix or improvement"
-      description: "If you have a suggestion for how to fix or improve the issue, please provide it here."
-    validations:
-      required: false
-  - type: markdown
-    attributes:
-      value: "## Thank you for helping us improve the **Medley Interlisp for the Newcomer** primer!"

.github/ISSUE_TEMPLATE/what_people_are_saying.yml

@@ -1,6 +1,6 @@
-name: New "What People Are Saying" entry
-description: 'Suggest a new entry for the "What People Are Saying" page'
-title: "What People Are Saying suggestion"
+name: "New entry for **What People Are Saying**"
+description: "Suggest a new entry for the **What People are Saying** page"
+title: "What People are Saying suggestion"
 body:
   - type: dropdown
     id: contentType
@@ -24,7 +24,7 @@ body:
     id: additionalInformation
     attributes:
       label:  Additional information
-      description: "Use this space to supply any additional information on the suggested item."
+      description: "Use this space to supply any addiitonal information on the suggested item."
     validations:
       required: false
   - type: markdown

.github/workflows/buildLoadup.yml

@@ -20,18 +20,18 @@ name: Build/Push Medley Release
 on:
   workflow_dispatch:
     inputs:
-      maiko_release:
-        description: "What maiko release to use"
-        type: string
-        default: 'Latest'
       draft:
         description: "Mark this as a draft release"
-        type: boolean
-        default: false
+        type: choice
+        options:
+        - 'false'
+        - 'true'
       force:
         description: "Force build even if build already successfully completed for this commit"
-        type: boolean
-        default: false
+        type: choice
+        options:
+        - 'false'
+        - 'true'
 
   workflow_call:
     outputs:
@@ -39,21 +39,16 @@ on:
         description: "'True' if medley build completed successully"
         value: ${{ jobs.complete.outputs.build_successful }}
     inputs:
-      maiko_release:
-        description: "What maiko release to use"
-        required: false
-        type: string
-        default: 'Latest'
       draft:
         description: "Mark this as a draft release"
         required: false
-        type: boolean
-        default: false
+        type: string
+        default: 'false'
       force:
         description: "Force build even if build already successfully completed for this commit"
         required: false
-        type: boolean
-        default: false
+        type: string
+        default: 'false'
     secrets:
       OIO_SSH_KEY:
         required: true
@@ -115,7 +110,7 @@ jobs:
     needs: [sentry]
     if: |
       needs.sentry.outputs.release_not_built == 'true'
-      || inputs.force == true
+      || inputs.force == 'true'
 
     steps:
       # Checkout the actions for this repo owner
@@ -135,21 +130,24 @@ jobs:
         id: tag
         uses: ./../actions/release-tag-action
 
-      # Get Maiko release information, use maiko release tag from input or Latest
+      # Get Maiko release information, retrieves the name of the latest (draft)
       # release.  Used to download the correct Maiko release
+      # Find latest release (draft or normal)
       - name: Get maiko release information
         id: maiko
         run: |
           tag=""
-          if [ "${{ inputs.maiko_release }}" = "Latest" ];
+          if [ "${{ inputs.draft }}" = "true" ];
+          then
+            gh release list --repo ${{ github.repository_owner }}/maiko | grep Draft >/tmp/releases-$$
+            if [ $? -eq 0 ];
+            then
+              tag=$(head -n 1 /tmp/releases-$$ | awk '{ print $3 }')
+            fi
+          fi
+          if [ -z "${tag}" ];
           then
             tag=$(gh release list --repo ${{ github.repository_owner }}/maiko | grep Latest | head -n 1 | awk '{ print $3 }')
-          else
-            tag=$(echo "${{ inputs.maiko_release }}" | sed 's/[[:space:]]//g')
-            set +e
-            gh release view ${tag} --repo ${{ github.repository_owner }}/maiko
-            if [ $? -ne 0 ]; then echo "!!!!!!! Error:  Cannot find Maiko release ${tag}. Exiting."; exit 1; fi
-            set -e
           fi
           echo "maiko_tag=${tag}" >> ${GITHUB_OUTPUT}
         env:
@@ -264,7 +262,7 @@ jobs:
     needs: [sentry, loadup]
     if: |
       needs.sentry.outputs.release_not_built == 'true'
-      || inputs.force == true
+      || inputs.force == 'true'
 
     steps:
 
@@ -340,7 +338,7 @@ jobs:
     needs: [sentry, loadup]
     if: |
       needs.sentry.outputs.release_not_built == 'true'
-      || inputs.force == true
+      || inputs.force == 'true'
 #    if: false
 
     defaults:
@@ -411,7 +409,7 @@ jobs:
     needs: [sentry, loadup, linux_installer]
     if: |
       needs.sentry.outputs.release_not_built == 'true'
-      || inputs.force == true
+      || inputs.force == 'true'
 
     outputs:
       cygwin_installer: ${{ steps.compile_iss.outputs.CYGWIN_INSTALLER }}
@@ -514,7 +512,7 @@ jobs:
     needs: [sentry, loadup, linux_installer, macos_installer, cygwin_installer]
     if: |
       needs.sentry.outputs.release_not_built == 'true'
-      || inputs.force == true
+      || inputs.force == 'true'
 
     steps:
 

.gitignore

@@ -31,7 +31,7 @@ loadups/whereis.hash
 loadups/apps.sysout
 loadups/fuller.database
 loadups/build/
-loadups/tagged
+loadups/branches
 loadups/gitinfo
 
 

README.md

@@ -1,14 +1,12 @@
 # Medley 
 
-The [Medley Interlisp Project](https://interlisp.org) aims to preserve, revive, and modernize the [Interlisp](https://interlisp.org) software development environment for rapid prototyping, research and Artificial Intelligence created at Xerox PARC since the 1970s.
+This repository is for the Lisp environment of [Medley](https://interlisp.org).
 
-This repository is for the Lisp environment of the [Medley](https://interlisp.org) release of Interlisp. Other repositories hold additional subsystems and applications such as [Maiko](https://github.com/Interlisp/maiko), the implementation (in C) of the Medley virtual machine, the [LOOPS](https://github.com/Interlisp/loops) object-oriented extension of Interlisp, and the [NoteCards](https://github.com/Interlisp/notecards) hypermedia system.
-
-[Install and Run](https://interlisp.org/software/install-and-run) covers ways to install and start up Medley on Linux systems, MacOS, Windows (with or without WSL), and in a web browser.
+[Install and Run](https://interlisp.org/software/install-and-run) covers ways to install and start up Medley on Linux systems, MacOS, and Windows (with or without WSL).
 
 [Using Medley](https://interlisp.org/software/using-medley/) has an overview and pointers to documentation.
 
-The [Glossary](https://interlisp.org/history/glossary) defines system-specific terms such as "loadup" and "sysout".
+[Interlisp/maiko](https://github.com/Interlisp/maiko), is the repo for the implementation (in C) of the Medley virtual machine. 
 
 ## Releases
 
@@ -69,9 +67,25 @@ If you have a high-resolution display, note that much of the graphics was design
 
 Medley presumes you have a 3-button mouse; the scroll-wheel on some mice acts as one, with some difficulty. Go into XQuartz Preferences/Input and check "Emulate three button mouse" option.
 
-### Running Medley Interlisp
+### Running Medley Interlisp (obsolete)
 
-The primer [Medley Interlisp for the Newcomer](https://primer.interlisp.org) eases new users into the Interlisp environment. It assumes no prior knowledge of Lisp and covers the user interface, programming and debugging, windows and graphics, and more. We recommend consulting this document to learn how to run and use the system.
+The `run-medley` script in this repo sets up some convenient defaults. Running Medley can be done by typing:
+```
+$ cd medley
+$ ./run-medley
+```
+
+Or, if you wish to start Medley up with a different SYSOUT:
+
+```
+$ cd medley
+$ ./run-medley <SYSOUT-file-name>
+```
+The first time the system is run it loads the system image that comes
+with the system.  When you exit the system (or "do a `SaveVM`" menu
+option) the state of your machine is saved in a file named
+`~/lisp.virtualmem`.  Subsequent system startups load the
+`~/lisp.virtualmem` image by default.
 
 ### Exiting The System
 
@@ -109,7 +123,7 @@ Each directory should have a README.md, but briefly
 * BUILDING.md -- instructions on how to make your own loadups
 * clos -- early implementation of Common Lisp Object System
 * CLTL2 -- files submitted to bring Medley up to the conformance to "Common Lisp, the Language" 2nd edition. Not enough to conform to the ANSI standard lisp.
-* docs -- Documentation files (in TEdit format, PDFs, or online help
+* docs -- Documentation files (in TEdit format, PDFs, or online help; look [here](https://github.com/Interlisp/medley/Documentation))
 * fonts -- raster fonts (or font widths) in various resolutions for display, postscript, interpress, press formats
 * greetfiles -- various configuration setups
 * internal -- These _were_ internal to Venue

docs/html-primer/Medley-Primer-OnePage.html

@@ -0,0 +1,2 @@
+<!DOCTYPE  html PUBLIC "-//W3C//DTD XHTML 1.0 Frameset//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-frameset.dtd">
+<html xmlns="http://www.w3.org/1999/xhtml"><head><meta http-equiv="Content-Type" content="text/html; charset=utf-8"/><title>Medley-Primer-OnePage</title></head><frameset cols="310pt,*" rows="94%"><frame src="Medley-Primer-OnePage_files/headings.htm" name="headings"/><frame src="Medley-Primer-OnePage_files/content.htm" name="content"/></frameset></html>