From e8c5ba90f363181ce4a75e6a9fc4eb0bfb599ac3 Mon Sep 17 00:00:00 2001
From: Larry Masinter <lmm@acm.org>
Date: Mon, 11 Aug 2025 11:56:48 -0700
Subject: [PATCH] update PICK to remove old comment. PICK is still just a hack,
 incomplete (#2247)

---
 lispusers/PICK      |  51 ++++++++++++++++++++++----------------------
 lispusers/PICK.LCOM | Bin 2009 -> 2243 bytes
 2 files changed, 26 insertions(+), 25 deletions(-)

diff --git a/lispusers/PICK b/lispusers/PICK
index cb3afd62..10a57459 100644
--- a/lispusers/PICK
+++ b/lispusers/PICK
@@ -1,11 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED "11-Aug-2022 17:53:58" {DSK}<home>larry>medley>lispusers>PICK.;3
 4261   
+
(FILECREATED " 9-Aug-2025 09:20:03" {DSK}<home>larry>il>medley>lispusers>PICK.;2
 4413   
 
-      :CHANGES-TO (VARS PICKCOMS)
-                  (FNS PICK)
+      :EDIT-BY "lmm"
 
-      :PREVIOUS-DATE "10-Aug-2022 16:57:49" {DSK}<home>larry>medley>lispusers>PICK.;1)
+      :CHANGES-TO (FNS PICK)
+
+      :PREVIOUS-DATE "11-Aug-2022 17:53:58" {DSK}<home>larry>il>medley>lispusers>PICK.;1)
 
 
 (PRETTYCOMPRINT PICKCOMS)
@@ -27,14 +28,15 @@
 (DEFINEQ
 
 (PICK

-  [LAMBDA (TYPE CHOICES)
                                     (* ; "Edited 11-Aug-2022 17:15 by lmm")


+  [LAMBDA (TYPE CHOICES)
                                     (* ; "Edited  8-Aug-2025 09:06 by lmm")


+                                                             (* ; "Edited 11-Aug-2022 17:15 by lmm")


                                                              (* ; "Edited 10-Aug-2022 16:57 by lmm")

     (SELECTQ (MKATOM (U-CASE (MKSTRING TYPE)))
         (ONEOF                                               (* ; 
 
                                          "PICK ONEOF A1 A2 A3 ... - just choose from choices listed")

                [CAR (NTH CHOICES (RAND 1 (LENGTH CHOICES])
         (NIL                                                 (* ; 
-
                                                         "pick -- choose an issue, a file, a project")

+
                                       "PICK (with no parameters) choose an issue, a file, a project")

              [PICK
 (PICK
 'ONEOF '(FILE ISSUE PROJECT])
         (ISSUE                                               (* ; 
 
                       "pick issue [number] -- display an issue; if none given, choose one at random")

@@ -46,14 +48,9 @@
                      (TITLE))
                     (for
 S in
 (GIT-COMMAND (CL:FORMAT NIL "gh issue view -R interlisp/medley ~d" 
                                                   ISSUE)) do
 (CL:FORMAT STR "~a~&" S)
-                       finally
 
-
-                             (* ;; 
-
             "this TEDIT call is wrong -- it takes the keyboard and the promptwindow prompt is wrong")

-
-                             [TEDIT STR NIL NIL `(READONLY T TITLE ,(SETQ TITLE (CL:FORMAT NIL 
-                                                                                       "Issue #~d" 
-                                                                                       ISSUE] 
+                       finally
 [TEDIT STR NIL NIL `(READONLY T TITLE ,(SETQ TITLE
+                                                                       (CL:FORMAT NIL "Issue #~d" 
+                                                                              ISSUE] 
 
                              (* ;; "if there are comments (or always) show comments too -- the -w switch doesn't work online -- no browser")

 
@@ -65,23 +62,27 @@
         (DIR 
              (* ;; "pick a directory to choose files from")

 
-             (PICK
 'ONEOF '(LISPUSERS LIBRARY DOCTOOLS SOURCES INTERNAL)))
+             [LIST 'DIRECTORY "Examine directory"
+                   (PICK
 'ONEOF '(CLOS CLTL2 FONTS GREETFILES LISPUSERS LIBRARY DOCTOOLS DOCS SOURCES
+                                       INTERNAL])
         (FILE 
               (* ;; " pick a file from a (randomly chosen) directory")

 
-              [LIST 'FILE (PICK
 'ONEOF (DIRECTORY (OR (MEDLEYDIR (OR (CAR CHOICES)
-                                                                     (PICK
 'DIR))
-                                                             NIL T)
-                                                      (FETCH
 (GIT-PROJECT CLONEPATH)
-                                                         OF
 (CDR (ASSOC (CAR CHOICES)
-                                                                        GIT-PROJECTS])
+              [LIST 'FILE "Examine file"
+                    (PICK
 'ONEOF (DIRECTORY (OR (MEDLEYDIR [OR (CAR CHOICES)
+                                                               (CL:THIRD (PICK
 'DIR]
+                                                       NIL T)
+                                                (FETCH
 (GIT-PROJECT CLONEPATH)
+                                                   OF
 (CDR (ASSOC (CAR CHOICES)
+                                                                  GIT-PROJECTS])
         (PROJECT 
                  (* ;; "pick PROJECT will choose some repo to work on")

 
-                 [PICK
 'ONEOF (PICK
 'ONEOF (LIST (MAPCAR GIT-PROJECTS #'CAR)
-                                                 '(CLOS ROOMS ONLINE WEBSITE COMMUNITY ENVOS])
-        (HELP TYPE "Unknown type"])
+                 [LIST 'PROJECT "Examine the fiiles associated with the GITFNS project"
+                       (PICK
 'ONEOF (PICK
 'ONEOF (LIST (MAPCAR GIT-PROJECTS #'CAR)
+                                                       '(CLOS ROOMS ONLINE WEBSITE COMMUNITY ENVOS])
+        (HELP TYPE "Unknown type to pick from"])
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (735 4238 (PICK 745 . 4236)))))
+  (FILEMAP (NIL (729 4390 (PICK 739 . 4388)))))
 STOP
diff --git a/lispusers/PICK.LCOM b/lispusers/PICK.LCOM
index 7ef1f4ea21f8e15c34ddba42200a5035763f23c9..f34db9120df5613419513992a04daf6d9677b67b 100644
GIT binary patch
delta 894
zcmZuvzi!h&7;jRFM3xq*L&?I2yCj1v`|gr7Ru$pem(;CmTRsPrfgx(##?*-;Csm0M
z<Oz_7%meTYAQlD$;t`k_*co{Q&L+qmdc)~=_x--__x=01`ThRer`ymJ)vF5;NvH-=
zQ$dm<;pOFSF$kA$b{?QAlmw{d6d5U4Qfl(@%cF(rI1FwY_xAP#81!fU;1(}gktCs7
zs<aK0YA#hhs)KNwx&SYAcJk_A7>)c^*pK6RD+pU7e-QffRv1htS5rTpww&erjRORP
z$QTr=8=iRB10fuZ1Sl!mk!p1)6FnO$ZHs|pXeU)r9G5;Z>@E{^E}uYQXS;NZ7B4*c
zRR{~;lH=m<Be+=OCrYmzmD1<1TrO`7vd=#sI=L}JYT?sn2JWTQVzH16*LSzeTPymr
zoSwW}?=13wk29(4y|q>$qz*^abbw$fs{#lgR9X(;1_I4gSnu@EHpO<=(mcbq0AqP&
zM|IE*mujBv_5e$DIHkHtd;AYjv;L2SYB&W+`_7L=y#bo)0<JZ|wy50(Oq$@h_Aw8^
zF%P@Ks41tB0qvs|6Y*Tq!2+t26(IP(4dWYmAfA5eD|2Db@VJXi8o>8KPhM|`0#^~b
z<I8b$J%-tQ;=?S0NpN-v=W)a*OXNoKbwga>8Uca6=#PRirwn~K4}#F2LVr4q&Vp<M
zuY=hzGj$9vU4cm)J@?OMLJ3f#kvpGrKLHTghl*y}jCa&Cc`df(G3dCIdTCh<OoKUH
zM%@%0x(6!nsBZJl+9pc@17>$!jS~&aqpqczRjz~gbDcpDbM+{m3m+fe{apA9V;19U

delta 582
zcmZuuPiqrF6wkJ{l0~qJT8jv;8-(PrVP|G{vK^$jPA1K^o1M73QF3fah|)HZQjt<U
zdGXj~zJcGMiU_>~@k5ATKs@>h)ZI0Q7CMJF@4erjH-Em}_;LN@*)4=j@72h}7RG=Y
z%%Kdq>24)Wmsdy)bmIc<FhZDZr(aiJw0c1R=fQftZopvsa5%VJMU9$XZTW%Vk?<1H
zgp1bMXu=%Vfa7Mo_4eWO$^LMCZ~NfjC_TAbAz)*Qfbq5$Ziv`SBvhYzQ4D(5=UZHM
z;+lG|-G5-6y9;GbgV}4B8mgb#p7ue-bHC`FQ7K!KJnYO(cS_Ug>0f<NG=G0wFZLpM
z+UILUQqHOB-F&6IG-EwcXY(7QLVfyY@~H6AbJkL+Y9j~QBIp8HqmUmKh)sY8Ebez6
z%fM{)LZ0|C1cJy6w_IrYk>H7p`hZ;*I-(hfe%8w>q~2WlzDZo*UIc_#AVVQrK(gQK
zMshP#0dCOT05EOLP)sr8FAvzUX9*$yG4*AkeH&R|^v1j6$?Gv39=#kIKwMX?E}9EC
en^aZP#d|kn*^9V{!4DG=g<eq8Kb5bZY5xG}6qD5e