github.com/Interlisp.medley
1
0
Fork 0
mirror of synced 2026-01-26 20:31:53 +00:00
Code Issues Projects Releases Wiki Activity

update PICK to remove old comment. PICK is still just a hack, incomplete (#2247)

Browse Source
This commit is contained in:
Larry Masinter
2025-08-11 11:56:48 -07:00
committed by GitHub
parent 305c419b1d
commit e8c5ba90f3
2 changed files with 26 additions and 25 deletions
Download Patch File Download Diff File Expand all files Collapse all files

51
lispusers/PICK
View File

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

BIN
lispusers/PICK.LCOM
View File

Binary file not shown.