From 43e08ea85bb13aace99d1c2fa6de73428ae02e6c Mon Sep 17 00:00:00 2001
From: Larry Masinter <lmm@acm.org>
Date: Tue, 27 Jan 2026 19:50:48 -0800
Subject: [PATCH] remove _ (underbar) from JS up button, add META for UTF-8 in
 HTML (#2464)

---
 internal/MEDLEY-UTILS       |  25 +++++++++++++------------
 internal/MEDLEY-UTILS.DFASL | Bin 17054 -> 17108 bytes
 2 files changed, 13 insertions(+), 12 deletions(-)
diff --git a/internal/MEDLEY-UTILS b/internal/MEDLEY-UTILS
index f817801d..b7fa404f 100644
--- a/internal/MEDLEY-UTILS
+++ b/internal/MEDLEY-UTILS
@@ -1,13 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-(FILECREATED "24-Jan-2026 16:01:54" {DSK}<Users>larry>il>medley>internal>MEDLEY-UTILS.;3 26389  
+(FILECREATED "27-Jan-2026 10:51:16" {DSK}<Users>larry>il>medley>internal>MEDLEY-UTILS.;5 26509  
 
       :EDIT-BY "lmm"
 
-      :CHANGES-TO (VARS MEDLEY-UTILSCOMS)
-                  (FNS MAKE-INDEX-HTMLS)
+      :CHANGES-TO (FNS MAKE-INDEX-HTMLS)
 
-      :PREVIOUS-DATE "16-May-2025 15:37:36" {DSK}<Users>larry>il>MEDLEY>INTERNAL>MEDLEY-UTILS.;1)
+      :PREVIOUS-DATE "26-Jan-2026 12:32:45" {DSK}<Users>larry>il>medley>internal>MEDLEY-UTILS.;4)
 
 
 (PRETTYCOMPRINT MEDLEY-UTILSCOMS)
@@ -278,7 +277,8 @@
                          (PRINTOUT T "DONE" T))])
 
 (MAKE-INDEX-HTMLS
-  [LAMBDA (BASE TOP LEVEL ROOT.NAME)                         (* ; "Edited 23-Jan-2026 11:59 by lmm")
+  [LAMBDA (BASE TOP LEVEL ROOT.NAME)                         (* ; "Edited 27-Jan-2026 10:50 by lmm")
+                                                             (* ; "Edited 23-Jan-2026 11:59 by lmm")
                                                              (* ; "Edited 29-Apr-2024 14:18 by lmm")
                                                              (* ; "Edited 26-Apr-2024 16:15 by lmm")
                                                              (* ; "Edited 20-Apr-2024 12:34 by lmm")
@@ -307,8 +307,9 @@
              :EXTERNAL-FORMAT :UTF-8)
           (CL:FORMAT S "<HTML>~%%<HEAD>~%%")
           (CL:FORMAT S "<TITLE>Index page for ~a</TITLE>~%%" (SETQ SLASHED (SLASHIT BASE)))
+          (CL:FORMAT S "<META CHARSET=%"UTF-8%">~%%")
           (CL:FORMAT S "<SCRIPT>~%%")
-          (CL:FORMAT S "    function up_onclick(){~%%")
+          (CL:FORMAT S "    function uponelick(){~%%")
           (CL:FORMAT S "        var newLoc = location.href.replace(/\/index.html$/i, %"%");~%%")
           (CL:FORMAT S "        location = newLoc.replace(/\/[^\/]+\/?$/, %"%");~%%")
           (CL:FORMAT S "     }~%%")
@@ -317,7 +318,7 @@
           (CL:FORMAT S "<BODY><H1>Index page for ~a</H1>~%%" SLASHED)
           (CL:UNLESS (EQ LEVEL 1)
                  (CL:FORMAT S 
-      "<DIV>~%%<BUTTON TYPE=%"BUTTON%" ONCLICK=%"up_onclick()%">Go up one level</BUTTON>~%%</DIV>~%%"
+       "<DIV>~%%<BUTTON TYPE=%"BUTTON%" ONCLICK=%"uponclick()%">Go up one level</BUTTON>~%%</DIV>~%%"
                         ))
           (CL:FORMAT S "<P>This is an index of the files just to link them in.~%%<UL>~%%")
           (for FULLNAME in (DIRECTORY (CONCAT BASE "*.*;"))
@@ -467,9 +468,9 @@
 (ADDTOVAR LAMA )
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (1092 8026 (GATHER-INFO 1102 . 6484) (MAKE-FULLER-DB 6486 . 7395) (MEDLEY-FIX-LINKS 7397
- . 7790) (MEDLEY-FIX-DATES 7792 . 8024)) (9205 11993 (MAKE-EXPORTS-ALL 9215 . 10274) (
-MAKE-WHEREIS-HASH 10276 . 11465) (MAKE-WHEREIS-LOOPS 11467 . 11991)) (11994 21371 (HCFILES 12004 . 
-16267) (MAKE-INDEX-HTMLS 16269 . 21369)) (21621 26233 (RECOMPILE-ONE 21631 . 23528) (RECMPL 23530 . 
-24133) (COMPILE-SETUP 24135 . 24759) (REMAKEFILES 24761 . 26231)))))
+  (FILEMAP (NIL (1050 7984 (GATHER-INFO 1060 . 6442) (MAKE-FULLER-DB 6444 . 7353) (MEDLEY-FIX-LINKS 7355
+ . 7748) (MEDLEY-FIX-DATES 7750 . 7982)) (9163 11951 (MAKE-EXPORTS-ALL 9173 . 10232) (
+MAKE-WHEREIS-HASH 10234 . 11423) (MAKE-WHEREIS-LOOPS 11425 . 11949)) (11952 21491 (HCFILES 11962 . 
+16225) (MAKE-INDEX-HTMLS 16227 . 21489)) (21741 26353 (RECOMPILE-ONE 21751 . 23648) (RECMPL 23650 . 
+24253) (COMPILE-SETUP 24255 . 24879) (REMAKEFILES 24881 . 26351)))))
 STOP
diff --git a/internal/MEDLEY-UTILS.DFASL b/internal/MEDLEY-UTILS.DFASL
index 3a6bdecf6e88a8b355804db64930fba49501124b..a05d7fe12d7c7df1ab9b74c4dd13cbe0f5498bd8 100644
GIT binary patch
delta 1094
zcmZvaOK1~O6o%(cqOJ9TP^py`nO4)6O_~{;Nlnwp*e3RwmSiGW7aE&XV{2N{27I=n
z))&{RT*W(3MZt}(EF&%i(S^Fvg$os`EiS|tg1XX;Qt!FJ2Ek#t=R4>B&$)AF=IS_l
zF^<mnY*z~+gPC-1Lh4HnB&6PSA~uqUONz(Y7E3u5x1ve1+pEf6St|(Yk&b_DMkX;F
zkL|Bzeu?=rvGjfkdTQsJrtV#_75--!*<;s`YF)Q`B~j7H?Ai;WqFO_aH+Ipp!RoA8
zk3>(sb!^>5J91maZW*CCIU*O49r7XaP+n%u$luVI>^dq4Vz<dwbR5u^!wT~-R7%Z5
z5SH)^{Q_Nh%og;MUc!qa(M=H}+#1>pmG9;r2w%8o8gPb>I}P|OhYwii!cbF-J{FFE
zbcai@Kbkbt5H6d;5RP-<6yO-3Fb$aIRX%htOzLnp>5%{^Jvk-H@iSC|*+*Bi!2v?{
z1QH*LK7wgE_kRM+&mP0Zjnm-%!NoIxA2_}Sd})qCc%Jh;;vyVGxSPWpIV3q8XGj{=
zj+HB+CQQKcg`UI6U&>HyC)d<cB$NB91C^0?>KakZBl+5D^qy2|t5>|D7&R~-dP1@2
z;&hX2)hfphP`to3+@Bl*aTmpTu3gEI-I<+`c2R7H6j-MOv6p9eZEiIncmK_^y6~Ig
zC7~`uYHkgO^v;09Ji=4fU*oEQ-Gm1e`+ePhV|Q{`Vs|VhB~$UlJ~F4(*{3Lu62((R
zws~YUNzQtzof8x<^3}Bj^k)C41Nx6pyx3P4X$rS?8?2P3IA4P6@TenB-g+9)7E)3l
z47N~Q0_DC;s&^zgn36I>gQ>(ovbVpg`rxR;OL2j3en>6F#lFsfp-b%F3P%D)V|mmF
zI_t|VT>lZRaumTCi3smoET_a~?&atp*c(G`^3}T*DOO=aJ6fvP7Mg}FkIORY_m!aa
z)=6JE%4^^y7rEWo#y-xobrqz{KZ_JH=PzTuWg9!hRh=T@rjRJ`*d=76LQd#wnDv%^
O4@F60lV<CmoBIP;4?Y|K

delta 1040
zcmZvZT}V@57{||Zwlod9P|-w@qi*<-n>(938*?htrp}gxTSndJnzN?1>D&rQXGlWE
z!HT!y9Hc0U=rTDF7TJZ+$5mHFSqXhW=}lgBkwJEzcjO2<7w7ps|NsAa&Uw#yH3K(h
z;L_1POSUhXhy_F3KzKOB1!JK=Jk-yb>kXZOh{0?!3mh*vOuWNdpWWv2dH;?10`Www
zKQLaa4shx~A`lzraHw{BYT@B^P2PXDk+4<(i*i%z;8=@=e9&EHEoLREf3Icj7R6gr
z53Jp+Oz*v-g?gpX!~^t@QNDom@)OEBzX4NL!!*ONEwXxtbBM+??vW=^*)30?`<r&~
z9ew60D(li!G0S(T#pmz#bhV@MSsui)N;4~nFX_5j#3yN7P$x6GT02}*-9EJLQVX9C
zb8-yJtUQM06gAExjv_KEi2YQhOM7vX*U;+nxzX{aopy@rsM=GnUYRO|XrxY%J4Hj^
zFvL<^LvNEFgZV*&E2ykd^8(^qitiAg%SkND>D&Wq;z5{uX}p%knG~K*l`!eEx(c(f
zVdn6*DqR$zsaQp}kt|wEpn|-%>LHK(vR1J0lW;;Qydlj(Y5ogIga$PSi;~D1Db15n
zq0%!fi93vAL*WrLk4R#s@pw3XB5@2`mn3SjMYc!;)Q_h%wtM{8m;dckKC?kS33)k7
z>O_sP2KO@y1Z-~YZAt7Qowh3IB{3ThbL5V#y85gnW;yFR+^&61NqtNbcRA~Pt=*o3
zezonF#GM>olSzFK*|ar42NCRTc84UEpgfR>1modogiDO{MkB%DaB!%q`b<(^D~Z|8
z?Jc>ISnl+D{9ZS?Z_8J{*q=d>t^nVe&_BnPNkk)`#81iU$g(2<Hll0L0k3!(_CpS@
z$&me;Olq6REoU*<l_h66WICv1AYU6h!KCm_8UUVHo6FR}!_8i{$jbsv9AFt*yO>nv
W$zxZA8vW>c1b#B#B4`G;w*CNLhA#2|

