Merge branch 'fgh_museum-mode' of https://github.com/Interlisp/online into fgh_museum-mode

Author: fghalasz

start-scripts/START-INSPHEX

@@ -1,25 +1,23 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED " 7-Nov-2025 10:43:14" {DSK}<home>frank>il>online>test>start-scripts>START-INSPHEX.;10
 2342   
+
(FILECREATED "11-Nov-2025 20:45:40" {DSK}<home>frank>il>online>start-scripts>START-INSPHEX.;12
 2401   
 
       :EDIT-BY "FGH"
 
       :CHANGES-TO (FNS START-INSPHEX)
                   (VARS START-INSPHEXCOMS)
+                  (FUNCTIONS TmpShellWget)
 
-      :PREVIOUS-DATE " 6-Nov-2025 20:45:51" 
-{DSK}<home>frank>il>online>test>start-scripts>START-INSPHEX.;2)
+      :PREVIOUS-DATE "11-Nov-2025 20:10:15" {DSK}<home>frank>il>online>start-scripts>START-INSPHEX.;11
+)
 
 
 (PRETTYCOMPRINT START-INSPHEXCOMS)
 
-(RPAQQ START-INSPHEXCOMS
 ((P (DEFPACKAGE "INSPHEX" (:USE "LISP" "XCL")))
-                          (FUNCTIONS TmpShellWget)
+(RPAQQ START-INSPHEXCOMS
 ((FUNCTIONS TmpShellWget)
                           (FNS START-INSPHEX)
                           (P (START-INSPHEX))))
 
-(DEFPACKAGE "INSPHEX" (:USE "LISP" "XCL"))
-
 (CL:DEFUN TmpShellWget
 (URL OUTFILENAME)
    (LET* ((WGET (ShellWhich "wget"))
           (OUTNAME (OUTFILEP OUTFILENAME))
@@ -36,25 +34,26 @@
 (DEFINEQ
 
 (START-INSPHEX

-  [LAMBDA NIL
                                                (* ; "Edited  7-Nov-2025 10:43 by FGH")

-    (LET ((INSPHEX.FILE (CONCAT LOGINDIR ">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)
-         [ADVISE '(TEDIT IN INSPHEX::CREATE-HEX-WINDOW)
-                'BEFORE
-                '(SETQ WINDOW (CREATEW (CREATEREGION (FIX (TIMES 0.35 SCREENWIDTH))
+  [LAMBDA NIL
                                                (* ; "Edited 11-Nov-2025 20:44 by FGH")


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

+    (LET* ((INSPHEX.FILE (CONCAT LOGINDIR ">INSPHEX"))
+           (INSPHEX.DFASL (CONCAT INSPHEX.FILE ".DFASL")))
+          (DIRECTORY INSPHEX.DFASL 'DELETE)
+          (DIRECTORY (CONCAT INSPHEX.FILE ".")
+                 'DELETE)
+          (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]
-         (ADD.PROCESS (LIST (CL:INTERN "HEXDUMP" (CL:FIND-PACKAGE "INSPHEX"))
-                            (KWOTE INSPHEX.DFASL)
-                            T])
+                                              (FIX (TIMES 0.5 SCREENHEIGHT])
 )
 
 (START-INSPHEX
)
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (706 1299 (TmpShellWget 706 . 1299)) (1300 2298 (START-INSPHEX 1310 . 2296)))))
+  (FILEMAP (NIL (623 1216 (TmpShellWget 623 . 1216)) (1217 2357 (START-INSPHEX 1227 . 2355)))))
 STOP

start-scripts/START-INSPHEX.DFASL

@@ -1,2 +1,2 @@
-https://online.interlisp.org:8081/guest?start=https%3A%2F%2Fgithub.com%2FInterlisp%2Fonline%2Fraw%2Frefs%2Fheads%2Ffgh_museum-mode%2Fstart-scripts%2FSTART-INSPHEX.DFASL
+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