man tedit and man sketch (#2468)

man tedit and man sketch bring up desktop windows with relevant pdf documentation files

lispusers/HELPSYS

@@ -1,12 +1,13 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED " 5-May-2025 22:04:32" {WMEDLEY}<lispusers>HELPSYS.;15
 87966  
+
(FILECREATED "27-Jan-2026 13:21:10" {WMEDLEY}<lispusers>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}<lispusers>HELPSYS.;12)
+      :PREVIOUS-DATE " 5-May-2025 22:04:32" {WMEDLEY}<lispusers>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