From 5fadc0f63272a0fdf2eee6176021a9e8b330eb1b Mon Sep 17 00:00:00 2001 From: rmkaplan <69548581+rmkaplan@users.noreply.github.com> Date: Wed, 4 Feb 2026 22:09:08 -0800 Subject: [PATCH] man tedit and man sketch (#2468) man tedit and man sketch bring up desktop windows with relevant pdf documentation files --- lispusers/HELPSYS | 47 ++++++++++++++++++++++++++--------------- lispusers/HELPSYS.LCOM | Bin 62147 -> 62554 bytes 2 files changed, 30 insertions(+), 17 deletions(-) diff --git a/lispusers/HELPSYS b/lispusers/HELPSYS index 4ff064d9..748a9348 100644 --- a/lispusers/HELPSYS +++ b/lispusers/HELPSYS @@ -1,12 +1,13 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED " 5-May-2025 22:04:32" {WMEDLEY}HELPSYS.;15 87966 +(FILECREATED "27-Jan-2026 13:21:10" {WMEDLEY}HELPSYS.;21 88654 :EDIT-BY rmk - :CHANGES-TO (FNS CLHS.INDEX) + :CHANGES-TO (FNS DOCS.LOOKUP GENERIC.MAN.LOOKUP) + (VARS HELPSYSCOMS) - :PREVIOUS-DATE " 4-May-2025 13:30:47" {WMEDLEY}HELPSYS.;12) + :PREVIOUS-DATE " 5-May-2025 22:04:32" {WMEDLEY}HELPSYS.;15) (PRETTYCOMPRINT HELPSYSCOMS) @@ -17,7 +18,7 @@ (DECLARE%: EVAL@COMPILE DONTCOPY (FILES (LOADCOMP) DINFO HASH)) [COMS (COMMANDS "man") - (FNS HELPSYS IRM.LOOKUP GENERIC.MAN.LOOKUP IRM.SMART.LOOKUP IRM.RESET) + (FNS HELPSYS IRM.LOOKUP GENERIC.MAN.LOOKUP IRM.SMART.LOOKUP IRM.RESET DOCS.LOOKUP) (INITVARS (IRM.HOST&DIR) (IRM.HASHFILE.NAME)) (GLOBALVARS IRM.HOST&DIR IRM.HASHFILE.NAME) @@ -161,7 +162,8 @@ NIL]) (GENERIC.MAN.LOOKUP - [LAMBDA (KEYWORD GRAPH TYPE) (* ; "Edited 27-Aug-2022 12:15 by larry") + [LAMBDA (KEYWORD GRAPH TYPE) (* ; "Edited 27-Jan-2026 11:42 by rmk") + (* ; "Edited 27-Aug-2022 12:15 by larry") (* ; "Edited 24-Aug-2022 22:35 by larry") (* ; "Edited 19-Aug-2022 19:35 by lmm") (* drc%: " 6-Jan-86 14:50") @@ -171,7 +173,8 @@ (APPEND (IRM.LOOKUP KEYWORD NIL GRAPH T) (CLHS.LOOKUP KEYWORD) - (REPO.LOOKUP KEYWORD)) + (REPO.LOOKUP KEYWORD) + (DOCS.LOOKUP KEYWORD)) elseif (NOT (LITATOM KEYWORD)) then (* ;; " not a string -- list or number. turn it into a string, removing parens") @@ -192,7 +195,8 @@ (AND (CL:FIND-SYMBOL KEYWORD "IL") (IRM.LOOKUP KEYWORD TYPE GRAPH T))) else (APPEND (IRM.LOOKUP KEYWORD TYPE GRAPH T) - (REPO.LOOKUP KEYWORD]) + (REPO.LOOKUP KEYWORD) + (DOCS.LOOKUP KEYWORD]) (IRM.SMART.LOOKUP [LAMBDA (KEYWORD GRAPH) (* drc%: " 6-Jan-86 14:50") @@ -208,6 +212,15 @@ (CLOSEHASHFILE \IRM.HASHFILE) (SETQ \IRM.HASHFILE) (SETQ \IRM.KEYWORDS]) + +(DOCS.LOOKUP + [LAMBDA (KEYWORD) (* ; "Edited 27-Jan-2026 13:20 by rmk") + (LET ((DIR (MEDLEYDIR (CONCAT "library/" (L-CASE KEYWORD) + "/docs/") + NIL NIL T))) + (CL:WHEN DIR + (ShellOpen (CONCAT "file://" (SLASHIT (TRUEFILENAME DIR) + NIL T))))]) ) (RPAQ? IRM.HOST&DIR ) @@ -1703,14 +1716,14 @@ (PUTPROPS HELPSYS FILETYPE :FAKE-COMPILE-FILE) (DECLARE%: DONTCOPY - (FILEMAP (NIL (4571 10304 (HELPSYS 4581 . 6422) (IRM.LOOKUP 6424 . 8062) (GENERIC.MAN.LOOKUP 8064 . -9733) (IRM.SMART.LOOKUP 9735 . 9891) (IRM.RESET 9893 . 10302)) (10561 17880 (CLHS.INDEX 10571 . 13535) - (CLHS.LOOKUP 13537 . 15543) (CLHS.OPENER 15545 . 16868) (REPO.LOOKUP 16870 . 17878)) (70975 72493 ( -IRM.GET.DINFOGRAPH 70985 . 71860) (IRM.DISPLAY.REF 71862 . 72491)) (72495 72857 (IRM.LOAD-GRAPH 72495 - . 72857)) (73182 78686 (IRM.DISPLAY.CREF 73192 . 74906) (IRM.CREF.BOX 74908 . 75735) (IRM.PUT.CREF -75737 . 75962) (IRM.GET.CREF 75964 . 76335) (IRM.CREF.BUTTONEVENTFN 76337 . 78684)) (79241 87547 ( -\IRM.GET.REF 79251 . 80582) (\IRM.SMART.REF 80584 . 82511) (\IRM.CHOOSE.REF 82513 . 83764) ( -\IRM.WILD.REF 83766 . 85021) (\IRM.WILDCARD 85023 . 85389) (\IRM.WILD.MATCH 85391 . 86621) ( -\IRM.GET.HASHFILE 86623 . 87086) (\IRM.GET.KEYWORDS 87088 . 87545)) (87684 87840 (\IRM.AROUND-EXIT -87684 . 87840))))) + (FILEMAP (NIL (4640 10992 (HELPSYS 4650 . 6491) (IRM.LOOKUP 6493 . 8131) (GENERIC.MAN.LOOKUP 8133 . +10001) (IRM.SMART.LOOKUP 10003 . 10159) (IRM.RESET 10161 . 10570) (DOCS.LOOKUP 10572 . 10990)) (11249 +18568 (CLHS.INDEX 11259 . 14223) (CLHS.LOOKUP 14225 . 16231) (CLHS.OPENER 16233 . 17556) (REPO.LOOKUP +17558 . 18566)) (71663 73181 (IRM.GET.DINFOGRAPH 71673 . 72548) (IRM.DISPLAY.REF 72550 . 73179)) ( +73183 73545 (IRM.LOAD-GRAPH 73183 . 73545)) (73870 79374 (IRM.DISPLAY.CREF 73880 . 75594) ( +IRM.CREF.BOX 75596 . 76423) (IRM.PUT.CREF 76425 . 76650) (IRM.GET.CREF 76652 . 77023) ( +IRM.CREF.BUTTONEVENTFN 77025 . 79372)) (79929 88235 (\IRM.GET.REF 79939 . 81270) (\IRM.SMART.REF 81272 + . 83199) (\IRM.CHOOSE.REF 83201 . 84452) (\IRM.WILD.REF 84454 . 85709) (\IRM.WILDCARD 85711 . 86077) +(\IRM.WILD.MATCH 86079 . 87309) (\IRM.GET.HASHFILE 87311 . 87774) (\IRM.GET.KEYWORDS 87776 . 88233)) ( +88372 88528 (\IRM.AROUND-EXIT 88372 . 88528))))) STOP diff --git a/lispusers/HELPSYS.LCOM b/lispusers/HELPSYS.LCOM index d7b729ab68ca6b17b2b316768520d66937c62d75..8307d3e27d4f6840c07ff024eff872ac8e4b5059 100644 GIT binary patch delta 2104 zcmZuyNo*Ts6!wy|=`>|&tc1D?k2zF!sqNWk>>{-jdu&fSo^fZ!O@cxdw{~&BandwM zp|79>fWM1)$GilyFnlu&wrPQ%#*b9ub5Vv|i6_am z_}n3;XjQ$eX_t%z^dq=9b;CAXypjE5)tQh0gxKWz?F4y$OiKi2D~6vfnReN!xO%+` zp@9 z%?@?bHOl1fZfj~psp?*p0th5OF?V=C|A!Xnoi-Nd9k=AA$!8Ooy#Aw!Klh~Xj71{x zQ+p!#eU&-Y(N`wvaX<*K42e&DwmqOQR3uoQiKGOchb6s^*)9nna7y^Xhv5Z2FN15; zogv)7Yk8pY4A2K&&5v|>ReFM_hzMI@yNnQLyv5qAV*xJ<11KNsb1E#=&RVAD1J6-j zAuO(G;5BAF-!<(Ds2Wsgd6>m)O}8I=fJSPkhZ0iA8A%#Cb{InxLkv+02S~OO1wmAy zU@Z8CYwPHuph3a3t7r&&3Ofv))_^rF7I;a86gG8U?LSPcMz=$K0ELpqr0T!{Z2=Sa zA#!Pm=+Q_dx;BC+IPRtQPHO<&v(ZTP#*u(t4Pfo81pEN6fPkPW0(hNvx9hC8dmyV& z>^XK(_W@JtSy)J>50VVN+c0QJ*?P?Y45en2EMt*6C2&w2Xz(0ZnWF9)X$G4UBgFi$ z7gxINLN13<%E0DYYZor#Spv4Za(<(^v6W-{^=UR5R~4@R#!M+j59FHzRR?#VaU%wX zUJF7uY~NkPz`u-P;L9}7oAGzAM?MJx43^Fy?we9DAI6`|^1NyAvVpWR6iVX%8H75YiBfH_3Ga4SnQSD^Pj$1=SRAum(>o|V4;aVVL zid-D{{ye_o%+q{7ahK*o)`ODcL|`v;S9-1Xo7v9hYL|sP7UAaVdhSBEbD0H=$N$B~ zT5mJAa82)ay{%O$#)8U|zYZRcDGE7$C>c}ue)Ujt9I@g_`-LxpeUdfl-d|vwH;y1k z@6qZE5V%E=>PxTEZJ93Q!JSKIuwCeQ#Ykls{AlJe%`*0)KkF>GMupBk?9D-Fb&wVC z%tFC6Ji~9;lnOFVn_-hn3XtD!KNk}e^8HWK?ZGe^4QSBhV1$GyDh{O4d{>lz^CkX2 z_V8yHPA_?JN1ef%XK`@hTfK{GP}yj%cQB{<{?^X9@#t%0=bnDx(;(=e-F{%YV>=({ z!!ya=pH7NUc5Hu;0Zen~M$X+Y#`1js^ZUuY(Pi@OuOE_E9ywE@2up6mwsCf4(Ve2< LdHt)84ov(F&ie~_ delta 1696 zcmZuxU2NM_6i%9?O9NZc+O4SF&ygop4I`rJN-cwTGez*Y0{Qb zAtr=6At50ifawa}5HE;=Lk#0yN5KpL;p*rsXi0~4U}(q|;Zx$a+D;RoM)&pqed z?|kRy(Vvk!Pa~gB_Ch9AnZ244cp(FVpz@L`$=4T$*GVP`3GToxQKg(J<~ZQ;cEvGF zJypbCje~_H;EGk#gm(3GI?X|Cc5S`}|KmoIxnyF9+2>td^Yy|Zr6U0pQJ@e$8z&ja zDmhuEr7-Y$v+Sh}tDsLML3Lbx!mz7es(?Pwg|r_G5mk{_C53tDAOhVCKcRO!UO8sC zm2}zm{K10ZLW1^2yxys@ZaUtymjuf&!B66spzlV;27Ys@MO+GS zhRFdDWf&q!$jYrZPBg=kv#zo$= zJslxQdn6Gdx6NPB92(E_1f$6St6v~I4;8&&>eH<3F>hXdzR}1pH=DCdHBivfw(^<} z7%LLtxCTf(qBSf6g0gRkeBfkY0Ct-Y>ES`uMs3#zB1mmF3<1^%!RxADOl1*6W}oO( z(RM5NAl69W%(ZPlU3E=pcfsh-Wq_M&EG*UL-$~cknvIt@$nn6fHCKk`8uhn0P(++Q ztIJDk!&5i4M#H<>WO^LPBK_#}%V#oKoD0px+QKTNR$$i*1_#;15nK08_s1}I8M?)N z6|DS#K<}RGWBbLu2=SR~t3-~g7XXQ-;Hd%9n>n3QEI(}S*0a!_CFVn(~HkO UjuY%jzifE){Px#