github.com/Interlisp.medley
1
0
Fork 0
mirror of synced 2026-01-30 05:44:19 +00:00
Code Issues Projects Releases Wiki Activity

remove _ (underbar) from JS up button, add META for UTF-8 in HTML (#2464)

Browse Source
This commit is contained in:
Larry Masinter
2026-01-27 19:50:48 -08:00
committed by GitHub
parent 1e77a2e116
commit 43e08ea85b
2 changed files with 13 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
internal/MEDLEY-UTILS
View File

@@ -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

BIN
internal/MEDLEY-UTILS.DFASL
View File

Binary file not shown.