From acc08e0dd7951dfdc9632ad58cc372c8ef820449 Mon Sep 17 00:00:00 2001 From: rmkaplan <69548581+rmkaplan@users.noreply.github.com> Date: Mon, 28 Feb 2022 21:30:26 -0800 Subject: [PATCH] Rmk23 Minor updates for COMPAREDIRECTORIES, GITFNS, REGIONMANAGER (#710) * REGIONMANAGER: TTY as a reference window * GITFNS: Fix GITFNS.TEDIT, add DRAFTS as a prc parameter so the menu shows the draft pr's for comparison * COMPAREDIRECTORIES: only show differences in text-compares Don't bother showing the unchanged chunks. --- lispusers/COMPAREDIRECTORIES | 66 ++++++++++++------------ lispusers/COMPAREDIRECTORIES.LCOM | Bin 40030 -> 40066 bytes lispusers/GITFNS | 83 ++++++++++++++++++------------ lispusers/GITFNS.LCOM | Bin 31135 -> 31350 bytes lispusers/GITFNS.TEDIT | Bin 12524 -> 12830 bytes lispusers/REGIONMANAGER | 53 +++++++++++++------ lispusers/REGIONMANAGER.LCOM | Bin 8691 -> 9115 bytes lispusers/REGIONMANAGER.TEDIT | 20 ++++--- 8 files changed, 134 insertions(+), 88 deletions(-) diff --git a/lispusers/COMPAREDIRECTORIES b/lispusers/COMPAREDIRECTORIES index abd0eba0..4fc0dd6c 100644 --- a/lispusers/COMPAREDIRECTORIES +++ b/lispusers/COMPAREDIRECTORIES @@ -1,12 +1,12 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED "25-Feb-2022 21:30:55"  -{DSK}kaplan>Local>medley3.5>my-medley>lispusers>COMPAREDIRECTORIES.;209 124231 +(FILECREATED "27-Feb-2022 12:47:42"  +{DSK}kaplan>Local>medley3.5>my-medley>lispusers>COMPAREDIRECTORIES.;211 124421 - :CHANGES-TO (FNS CDFILES) + :CHANGES-TO (FNS CD-MENUFN) - :PREVIOUS-DATE "24-Feb-2022 21:13:32" -{DSK}kaplan>Local>medley3.5>my-medley>lispusers>COMPAREDIRECTORIES.;208) + :PREVIOUS-DATE "25-Feb-2022 21:30:55" +{DSK}kaplan>Local>medley3.5>my-medley>lispusers>COMPAREDIRECTORIES.;209) (* ; " @@ -1883,7 +1883,7 @@ Copyright (c) 1985-1988, 1990, 1994, 1998, 2018, 2020-2021 by Venue & Xerox Corp (CD-MENUFN [LAMBDA (TBITEM MENUITEM CDBROWSER KEY) - (* ;; "Edited 23-Feb-2022 22:27 by rmk: FILELABELFN, if provided, can be used to calculate abbreviated labels for the file, for example, to strip off any long common prefixes.") + (* ;; "Edited 27-Feb-2022 12:47 by rmk: FILELABELFN, if provided, can be used to calculate abbreviated labels for the file, for example, to strip off any long common prefixes.") (* ;; "The FILELABELFN, if provided, can be used to calculate abbreviated labels for the file, for example, to strip off any long common prefixes.") @@ -1920,12 +1920,14 @@ Copyright (c) 1985-1988, 1990, 1994, 1998, 2018, 2020-2021 by Venue & Xerox Corp (* ;;  "Works for TEDIT, but doesn't detect image object differences") - (COMPARETEXT FILE1 FILE2 'LINE - (RELCREATEPOSITION `(,WINDOW 0.5) - (IPLUS (FETCH (REGION BOTTOM) - OF (WINDOWPROP WINDOW 'REGION)) - 20)) - (LIST LABEL1 LABEL2))) + (LET ((COMPARETEXT.ALLCHUNKS)) + (DECLARE (SPECVARS COMPARETEXT.ALLCHUNKS)) + (COMPARETEXT FILE1 FILE2 'LINE + (RELCREATEPOSITION `(,WINDOW 0.5) + (IPLUS (FETCH (REGION BOTTOM) + OF (WINDOWPROP WINDOW 'REGION)) + 20)) + (LIST LABEL1 LABEL2)))) (PROGN (FLASHWINDOW T) (PRIN3 "Unable to compare, showing both" T) (EXAMINEFILES FILE1 FILE2 LABEL1 LABEL2 @@ -2106,24 +2108,24 @@ Copyright (c) 1985-1988, 1990, 1994, 1998, 2018, 2020-2021 by Venue & Xerox Corp (PUTPROPS COMPAREDIRECTORIES COPYRIGHT ("Venue & Xerox Corporation" 1985 1986 1987 1988 1990 1994 1998 2018 2020 2021)) (DECLARE%: DONTCOPY - (FILEMAP (NIL (2597 22158 (COMPAREDIRECTORIES 2607 . 7834) (COMPAREDIRECTORIES.INFOS 7836 . 10598) ( -COMPAREDIRECTORIES.CANDIDATES 10600 . 13985) (CDENTRIES.SELECT 13987 . 18762) ( -COMPAREDIRECTORIES.INFOS.TYPE 18764 . 19392) (MATCHNAME 19394 . 20074) (CD.INSURECDVALUE 20076 . 21690 -) (CD.UPDATEWIDTHS 21692 . 22156)) (22159 32408 (CDFILES 22169 . 28502) (CDFILES.MATCH 28504 . 30129) -(CDFILES.PATS 30131 . 32406)) (32409 47494 (CDPRINT 32419 . 34764) (CDPRINT.HEADER 34766 . 35663) ( -CDPRINT.LINE 35665 . 38221) (CDPRINT.MAXWIDTHS 38223 . 42338) (CDPRINT.COLHEADERS 42340 . 42978) ( -CDPRINT.COLUMNS 42980 . 46859) (CDTEDIT 46861 . 47492)) (47495 55864 (CDMAP 47505 . 48937) (CDENTRY -48939 . 49248) (CDSUBSET 49250 . 50689) (CDMERGE 50691 . 54545) (CDMERGE.COMMON 54547 . 55862)) (55865 - 63403 (BINCOMP 55875 . 60164) (EOLTYPE 60166 . 62728) (EOLTYPE.SHOW 62730 . 63401)) (63931 77138 ( -FIND-UNCOMPILED-FILES 63941 . 67584) (FIND-UNSOURCED-FILES 67586 . 70395) (FIND-SOURCE-FILES 70397 . -72101) (FIND-COMPILED-FILES 72103 . 74181) (FIND-UNLOADED-FILES 74183 . 74927) (FIND-LOADED-FILES -74929 . 75483) (FIND-MULTICOMPILED-FILES 75485 . 77136)) (77139 85341 (CREATED-AS 77149 . 81946) ( -SOURCE-FOR-COMPILED-P 81948 . 84646) (COMPILE-SOURCE-DATE-DIFF 84648 . 85339)) (85342 95648 ( -FIX-DIRECTORY-DATES 85352 . 88345) (FIX-EQUIV-DATES 88347 . 89872) (COPY-COMPARED-FILES 89874 . 91695) - (COPY-MISSING-FILES 91697 . 93854) (COMPILED-ON-SAME-SOURCE 93856 . 95646)) (95842 103188 (CDBROWSER -95852 . 99779) (CDBROWSER.STRINGS 99781 . 103186)) (103350 105086 (CD.TABLEITEM 103360 . 103580) ( -CD.TABLEITEM.PRINTFN 103582 . 103781) (CD.TABLEITEM.COPYFN 103783 . 104841) ( -CDTABLEBROWSER.HEADING.REPAINTFN 104843 . 105084)) (105087 123647 (CDTABLEBROWSER.WHENSELECTEDFN -105097 . 105565) (CD.COMMANDSELECTEDFN 105567 . 110555) (CD-MENUFN 110557 . 116732) (CDBROWSER-COPY -116734 . 120105) (CDBROWSER-DELETE-FILE 120107 . 123126) (CD-SWAPDIRS 123128 . 123645))))) + (FILEMAP (NIL (2599 22160 (COMPAREDIRECTORIES 2609 . 7836) (COMPAREDIRECTORIES.INFOS 7838 . 10600) ( +COMPAREDIRECTORIES.CANDIDATES 10602 . 13987) (CDENTRIES.SELECT 13989 . 18764) ( +COMPAREDIRECTORIES.INFOS.TYPE 18766 . 19394) (MATCHNAME 19396 . 20076) (CD.INSURECDVALUE 20078 . 21692 +) (CD.UPDATEWIDTHS 21694 . 22158)) (22161 32410 (CDFILES 22171 . 28504) (CDFILES.MATCH 28506 . 30131) +(CDFILES.PATS 30133 . 32408)) (32411 47496 (CDPRINT 32421 . 34766) (CDPRINT.HEADER 34768 . 35665) ( +CDPRINT.LINE 35667 . 38223) (CDPRINT.MAXWIDTHS 38225 . 42340) (CDPRINT.COLHEADERS 42342 . 42980) ( +CDPRINT.COLUMNS 42982 . 46861) (CDTEDIT 46863 . 47494)) (47497 55866 (CDMAP 47507 . 48939) (CDENTRY +48941 . 49250) (CDSUBSET 49252 . 50691) (CDMERGE 50693 . 54547) (CDMERGE.COMMON 54549 . 55864)) (55867 + 63405 (BINCOMP 55877 . 60166) (EOLTYPE 60168 . 62730) (EOLTYPE.SHOW 62732 . 63403)) (63933 77140 ( +FIND-UNCOMPILED-FILES 63943 . 67586) (FIND-UNSOURCED-FILES 67588 . 70397) (FIND-SOURCE-FILES 70399 . +72103) (FIND-COMPILED-FILES 72105 . 74183) (FIND-UNLOADED-FILES 74185 . 74929) (FIND-LOADED-FILES +74931 . 75485) (FIND-MULTICOMPILED-FILES 75487 . 77138)) (77141 85343 (CREATED-AS 77151 . 81948) ( +SOURCE-FOR-COMPILED-P 81950 . 84648) (COMPILE-SOURCE-DATE-DIFF 84650 . 85341)) (85344 95650 ( +FIX-DIRECTORY-DATES 85354 . 88347) (FIX-EQUIV-DATES 88349 . 89874) (COPY-COMPARED-FILES 89876 . 91697) + (COPY-MISSING-FILES 91699 . 93856) (COMPILED-ON-SAME-SOURCE 93858 . 95648)) (95844 103190 (CDBROWSER +95854 . 99781) (CDBROWSER.STRINGS 99783 . 103188)) (103352 105088 (CD.TABLEITEM 103362 . 103582) ( +CD.TABLEITEM.PRINTFN 103584 . 103783) (CD.TABLEITEM.COPYFN 103785 . 104843) ( +CDTABLEBROWSER.HEADING.REPAINTFN 104845 . 105086)) (105089 123837 (CDTABLEBROWSER.WHENSELECTEDFN +105099 . 105567) (CD.COMMANDSELECTEDFN 105569 . 110557) (CD-MENUFN 110559 . 116922) (CDBROWSER-COPY +116924 . 120295) (CDBROWSER-DELETE-FILE 120297 . 123316) (CD-SWAPDIRS 123318 . 123835))))) STOP diff --git a/lispusers/COMPAREDIRECTORIES.LCOM b/lispusers/COMPAREDIRECTORIES.LCOM index da14e6c2ce59e61b8b25aafbbd55eb4eb4b62a81..8289e613aef194dccbe67be6c68e869b06d94abe 100644 GIT binary patch delta 1832 zcmaKt&u<$=6vtzyEvl7PB~3|`BKl;o6dyL)nVp&4HKE0|*Rf%6jee5Z(4&U|O~ z_aBq{KP5k3zphFpe?y`&r9fzosX0cUe)Rr;kSwGrKXX!=Q?wi<=@e}2_#gHjY_~gp z6a3xnosTm)C={hN!>W}mXm=r9s+lH?XD=@=r=j^lA2VJ=73pkhsZ=qIf@9=8qX;+B z^aYIt_Y*cJ1RG_H637+Gd27{hCC`SXlI5n(y2wJV>KOHkU2~-(5`$7=>)1%v2MYuW z_F6UX7@o22E$2fMXG-Q>^DH*z_+bD$;M zVD})C9yRxGjR$|9wy(StqFWKK7MvU`B)s7CKZ0B1!S&$Q<6E!(U+v)b!D7&V{PayH z>a!d_u1zheg2S3!HyRbM3@X>4VA}5JpA2r(~v~aHN7=y$6CK>zqjzV65lYDwYwd#RVbD;235sW5-yn*cNb2!2OEl z)*S32QWsY!pvo(r4=i2ht-Oy=jnippc~02F~IV2rFVWmr=|>VyZcj)_H3hX0TB)JAXnQ3h59Xs06>VM8;P;HmYaqpy(({#3(4d+g1yGH}04nQX zqV$329Bi*_I6yEtQZ^73%i$FZ1Yah+a`Ai=fuQ8VA_UJ#{N^-}4;K)$BrkK2R2jcJ z9PjpYcrqTgyUpH1*zD~<8ko+ape!)KgYORKrWxhIXNNatwAh|P&FbiQV>SguD8bF6*Jnr=MJUgLDvsYdnw$Lxh)cm& delta 1889 zcmaJ?OK%%h6pl?>z$8$Th=#!8$d#pdG1c7HJe&yR*yDI4*W=8LlT@ODgiI0($BvAp zwo)XEnhGf^s*zy9juo&XiIAv-lx^9vKotuX{DSVgfHSWqaU#69_xjxPedl@4JbaS= z``7f>Yg0n1cpDOxDFsRjOfCrV__L2ovYv-5(M~UkQs8=l&};@adfunq-Mv=Z+XV0a zUhnf<0ZQeHSu-4Hbs$@5)@ndB|E<(JH!q>kv-!+ipk1e^T2OAe2)^pirt7 z>q~|sxfaY->P{wM&O@PL8!M*ObfhxEAWQkFcj!7{1?JyPHPW)?FTXK;d^f!~@Sl7! zKOnGb*2~r^RDeQYm*9zoC;Sf_YQ;sP76?Uj45SLUcN#_>(l1ii#;z38>C`V*im8qC zW_JvKnPB;5`SoBsdHecUadSI3KL7qOC7sx~PCB?utOR0#@}v5R?d-VC5FEjNzlNND zh79eeAv#=^LzUTO|Hp^#Wj={%k7j%_oH7s7iJjxA_~wU1gP?(P1R*mTNwue+h3>k| zo!QxmtAU^Xt>KOLZO3hPuHNsYf4ju``cO~V{&&ONeB#hczTJPHwI*H-Xm&zh-H?4e z5FDloiHApPCyxJOn0qb3`|HE0#R$6(U z5_&Kr)@;y-|HoI-fPrl;Rk3X-hyAkG_WB+aalA<%?1LHO9q<7h<5kZ zdmergK&Tw%TGuJ!B)2iSqw=JwerC6$!F_b*upOn^t-Uv zYjyglKv8@F#&j0JGQbpm8IEDvvsS150JKcMhf}{{wvl)2#pi diff --git a/lispusers/GITFNS b/lispusers/GITFNS index f32b82e9..69d229f2 100644 --- a/lispusers/GITFNS +++ b/lispusers/GITFNS @@ -1,11 +1,11 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED "26-Feb-2022 12:26:02" {DSK}kaplan>Local>medley3.5>my-medley>lispusers>GITFNS.;102 70973 +(FILECREATED "28-Feb-2022 13:29:00" {DSK}kaplan>Local>medley3.5>my-medley>lispusers>GITFNS.;105 71756 - :CHANGES-TO (FNS GIT-REPO-FILENAME) + :CHANGES-TO (COMMANDS prc) - :PREVIOUS-DATE "26-Feb-2022 11:58:56" -{DSK}kaplan>Local>medley3.5>my-medley>lispusers>GITFNS.;101) + :PREVIOUS-DATE "28-Feb-2022 12:39:42" +{DSK}kaplan>Local>medley3.5>my-medley>lispusers>GITFNS.;103) (PRETTYCOMPRINT GITFNSCOMS) @@ -24,7 +24,9 @@ 'HOST 'UNIX) T)) - (MYMEDLEYDIR (UNSLASHIT (PACKFILENAME 'BODY (OR (UNIX-GETENV "MYMEDLEYDIR") + (MYMEDLEYDIR (UNSLASHIT (PACKFILENAME 'BODY (OR (AND (BOUNDP 'MYMEDLEYDIR) + MYMEDLEYDIR) + (UNIX-GETENV "MYMEDLEYDIR") MEDLEYDIR) 'HOST 'DSK) @@ -117,7 +119,9 @@ 'UNIX) T)) -(RPAQ? MYMEDLEYDIR (UNSLASHIT (PACKFILENAME 'BODY (OR (UNIX-GETENV "MYMEDLEYDIR") +(RPAQ? MYMEDLEYDIR (UNSLASHIT (PACKFILENAME 'BODY (OR (AND (BOUNDP 'MYMEDLEYDIR) + MYMEDLEYDIR) + (UNIX-GETENV "MYMEDLEYDIR") MEDLEYDIR) 'HOST 'DSK) @@ -184,19 +188,30 @@ (GIT-COMPARE-BRANCHES BRANCH1 BRANCH2 LOCAL)) -(DEFCOMMAND prc (REMOTEBRANCH) +(DEFCOMMAND prc (REMOTEBRANCH DRAFTS) (* ;; "Compares REMOTEBRANCH against origin/master, for pull-request assessment") - (IF REMOTEBRANCH - THEN (GIT-COMPARE-BRANCHES REMOTEBRANCH 'origin/master NIL) - ELSE (LET [(PRITEMS (FOR PR IN (GIT-PULL-REQUESTS T) COLLECT (LIST (CADDR PR) - (CADDR PR) - (CONCAT " " (CADR PR) - " #" - (CAR PR] - (GIT-COMPARE-BRANCHES (PICK-BRANCH (OR PRITEMS 'REMOTE) - "Pull requests") + (LET ((RB REMOTEBRANCH) + (DR DRAFTS)) + (CL:WHEN (MEMB (U-CASE RB) + '(DRAFT DRAFTS)) + (SETQ RB NIL) + (SETQ DR T)) + (IF RB + THEN (GIT-COMPARE-BRANCHES RB 'origin/master) + ELSE (GIT-COMPARE-BRANCHES (PICK-BRANCH + (OR [FOR PR IN (GIT-PULL-REQUESTS T DR) + COLLECT (LIST (CL:IF (MEMB 'DRAFT PR) + (CONCAT (CADDR PR) + " (draft)") + (CADDR PR)) + (CADDR PR) + (CONCAT " " (CADR PR) + " #" + (CAR PR] + 'REMOTE) + "Pull requests") 'origin/master NIL)))) (DEFCOMMAND cob (BRANCH) @@ -1388,22 +1403,22 @@ (ERROR "INITIALS is not set"]) ) (DECLARE%: DONTCOPY - (FILEMAP (NIL (4364 5210 (GIT-CLONEP 4374 . 5208)) (7068 9104 (ALLSUBDIRS 7078 . 8302) (MEDLEYSUBDIRS -8304 . 8743) (GITSUBDIRS 8745 . 9102)) (9105 14579 (TOGIT 9115 . 11263) (FROMGIT 11265 . 12243) ( -GIT-DELETE-FILE 12245 . 13139) (MYMEDLEY-DELETE-FILES 13141 . 14577)) (14580 16729 (MYMEDLEYSUBDIR -14590 . 15036) (GITSUBDIR 15038 . 15361) (STRIPDIR 15363 . 15734) (STRIPHOST 15736 . 15972) (STRIPNAME - 15974 . 16727)) (16730 18258 (GFILE4MFILE 16740 . 16986) (MFILE4GFILE 16988 . 17330) ( -GIT-REPO-FILENAME 17332 . 18256)) (18307 28711 (GIT-COMMIT 18317 . 18895) (GIT-PUSH 18897 . 19453) ( -GIT-PULL 19455 . 19861) (GIT-BRANCH-DIFF 19863 . 23715) (GIT-APPROVAL 23717 . 23918) (GIT-GET-FILE -23920 . 26123) (GIT-FILE-EXISTS? 26125 . 26849) (GIT-REMOTE-UPDATE 26851 . 27893) (GIT-REMOTE-ADD -27895 . 28202) (GIT-FILE-DATE 28204 . 28709)) (28756 34375 (GIT-CHECKOUT 28766 . 29007) ( -GIT-WHICH-BRANCH 29009 . 29593) (GIT-MAKE-BRANCH 29595 . 31086) (GIT-BRANCHES 31088 . 32066) ( -GIT-BRANCH-EXISTS? 32068 . 33129) (PICK-BRANCH 33131 . 33475) (GIT-PULL-REQUESTS 33477 . 34373)) ( -34405 37110 (GIT-MY-CURRENT-BRANCH 34415 . 34588) (GIT-MY-BRANCHP 34590 . 35509) (GIT-MY-NEXT-BRANCH -35511 . 35952) (GIT-MY-BRANCHES 35954 . 37108)) (37156 40926 (GIT-ADD-WORKTREE 37166 . 38926) ( -GIT-REMOVE-WORKTREE 38928 . 39506) (GIT-LIST-WORKTREES 39508 . 40312) (WORKTREEDIR 40314 . 40924)) ( -40974 67428 (GIT-GET-DIFFERENT-FILES 40984 . 46074) (GIT-COMPARE-BRANCHES 46076 . 51568) ( -GIT-COMPARE-WITH-MYMEDLEY 51570 . 55290) (GIT-COMPARE-WORKTREE 55292 . 58769) (GITCDOBJBUTTONFN 58771 - . 63775) (GIT-CD-LABELFN 63777 . 64859) (GIT-CD-MENUFN 64861 . 67426)) (67498 70950 (CDGITDIR 67508 - . 68088) (GIT-COMMAND 68090 . 70063) (GITORIGIN 70065 . 70642) (GIT-INITIALS 70644 . 70948))))) + (FILEMAP (NIL (4679 5525 (GIT-CLONEP 4689 . 5523)) (7851 9887 (ALLSUBDIRS 7861 . 9085) (MEDLEYSUBDIRS +9087 . 9526) (GITSUBDIRS 9528 . 9885)) (9888 15362 (TOGIT 9898 . 12046) (FROMGIT 12048 . 13026) ( +GIT-DELETE-FILE 13028 . 13922) (MYMEDLEY-DELETE-FILES 13924 . 15360)) (15363 17512 (MYMEDLEYSUBDIR +15373 . 15819) (GITSUBDIR 15821 . 16144) (STRIPDIR 16146 . 16517) (STRIPHOST 16519 . 16755) (STRIPNAME + 16757 . 17510)) (17513 19041 (GFILE4MFILE 17523 . 17769) (MFILE4GFILE 17771 . 18113) ( +GIT-REPO-FILENAME 18115 . 19039)) (19090 29494 (GIT-COMMIT 19100 . 19678) (GIT-PUSH 19680 . 20236) ( +GIT-PULL 20238 . 20644) (GIT-BRANCH-DIFF 20646 . 24498) (GIT-APPROVAL 24500 . 24701) (GIT-GET-FILE +24703 . 26906) (GIT-FILE-EXISTS? 26908 . 27632) (GIT-REMOTE-UPDATE 27634 . 28676) (GIT-REMOTE-ADD +28678 . 28985) (GIT-FILE-DATE 28987 . 29492)) (29539 35158 (GIT-CHECKOUT 29549 . 29790) ( +GIT-WHICH-BRANCH 29792 . 30376) (GIT-MAKE-BRANCH 30378 . 31869) (GIT-BRANCHES 31871 . 32849) ( +GIT-BRANCH-EXISTS? 32851 . 33912) (PICK-BRANCH 33914 . 34258) (GIT-PULL-REQUESTS 34260 . 35156)) ( +35188 37893 (GIT-MY-CURRENT-BRANCH 35198 . 35371) (GIT-MY-BRANCHP 35373 . 36292) (GIT-MY-NEXT-BRANCH +36294 . 36735) (GIT-MY-BRANCHES 36737 . 37891)) (37939 41709 (GIT-ADD-WORKTREE 37949 . 39709) ( +GIT-REMOVE-WORKTREE 39711 . 40289) (GIT-LIST-WORKTREES 40291 . 41095) (WORKTREEDIR 41097 . 41707)) ( +41757 68211 (GIT-GET-DIFFERENT-FILES 41767 . 46857) (GIT-COMPARE-BRANCHES 46859 . 52351) ( +GIT-COMPARE-WITH-MYMEDLEY 52353 . 56073) (GIT-COMPARE-WORKTREE 56075 . 59552) (GITCDOBJBUTTONFN 59554 + . 64558) (GIT-CD-LABELFN 64560 . 65642) (GIT-CD-MENUFN 65644 . 68209)) (68281 71733 (CDGITDIR 68291 + . 68871) (GIT-COMMAND 68873 . 70846) (GITORIGIN 70848 . 71425) (GIT-INITIALS 71427 . 71731))))) STOP diff --git a/lispusers/GITFNS.LCOM b/lispusers/GITFNS.LCOM index 993452f524e7671e61a53a439dc8d2d1aeea8fb4..acc4bab0bc518b737f41c93746a2323016776f35 100644 GIT binary patch delta 887 zcmah`zfTlV5YB2r+(-;65Deht8sCyE2YVvkQkcDc@3;;7<8F8FkjkJUY`ELKUjaHu z?5reHT3FcGnX4>JwAH_XUM)pqnMbT^4~F zdcaK2aSWFS&}=_YKrj2EW_i^>AAdqQ^PM3mvX(_xsTB-bpk7RRhO56 zRjMBKIBSmJwpinquPA3S87Jyle7`-62b~LeuRbZs_^NYlSOI3aR#-Fq02scg>r_9g z-$1=PgW1L?WxN6Sta}k#4gInVYzCH=Ad{iKeuQrtoIp}MiPLduN5s71>b z0fCEd0QfjA5%xnojh|zaA~l)9mE;aZPm=5SvLAg)0Oe*Lv)VYWH7{Y*G{)tA`?3|P z2IuOk=dXmm5PP8!V zVDG54CH?=3rz@pLJ-K4Z=RRx$kuQ$o67yfZdU z>3}F{N1IWcZLD{?8*Ks$I}q5|8ONWyBm1oA`B3)3a>>#3uH~w2tG=jIMGyuM(tHI> z&$fk0TiI4XFG;6)1L4PF`&tzuA}yxpnnnsEi&Aa{GQb|T*B^Biaz*}ACoJ}M=W%S0 OjmU6TCiJ|$vh*8gCHwCH delta 679 zcmZutJ#W)c6qWfX$OxnYX;D?mB@)3#GD!?gi91xrer^no?L5B(CLl;rv4~?Qjzmxg z#K2B;cRKO|GO+*?3%>vf_AX3(NJtDkw<#(g%hS=j=bU@)`TkYd`XW5PeX62Zo%@Pf zQdKCcnp)9H>i8iO)bZQPv+FifDDgeTvK`{;bu#`|`=0=P!Dy%=tdy!NS3omry1PyS zg?S)ZZUFz-$e{U@v}~^#D5lN`lwVRBn0nCZmLKw@-}6;!_JOaoc!oN5T=DJ;Gy*NB{4q|UpxJPJMqd(Yi(I*vl~q|qb+ w3xLUBc#cC1E^_REzXq=*li;h-)x$FHK*ae`;mFhwKaZr@zqgB%!ed|f1w^&QjsO4v diff --git a/lispusers/GITFNS.TEDIT b/lispusers/GITFNS.TEDIT index ee4bc136b4f42b3ab4066baf8273be7780d8e40c..7410f3ac22580b0b53d312c25e2bbdfc8e5b690f 100644 GIT binary patch delta 980 zcmah`%}d-s6raT1^=n&NWvQWvvs=0*?x1P@{hVo@lx;=vwz2%C`x(#(=%6>Y)) z!2yr%wa4OKqzCCuPd)BY`~wO-w*~2Yv+Qn?mNp^Do8QO#y_tNoPn}Q2kzsRf>)HCY z)h>?w(%(?Ju}h=3oQg)|3g7mqVyPR_Mj-ZFhdT^;Uy0svze)F9&!eti_nHo;PGIjw z^ySuUNbQjBbD-cW8ekB9+Zb<+88j5lpw8!`fJ00-%@cLolg7hoBj61Yx{(MDs9AdM zM)U=DJbqBJ+MUA1z408W5xBG~l9#P=rF~NVsA)O5YA$J6`O2J>c`Gl!nnrRpmI2Q& z8newx6@ zTuDjF=)|b5|50UK!76wFzps4Q!G;RKhN>y9F5ywDEEb4tV$lzUx-aQ%A~n_utEfy9 zjf2cX*4@NR68^$gYJctxG;64f=T0Y$Pv*~#{%U-hHcljrut*LJz$z*bO*482nfMgF zlhXDGkn2%{Cx$j`&izX1RWdP)EQ delta 745 zcmbQ2@+NVEBFE&%JO-O1I8HNdZswlDCHMb7gMyNKW{HAtYD!LOr4o=^oL^d$oT^Y# zl$yFZPi&t6BkSfw^_7f_tdqGl%_bkwRG2(VQ+DzRO&K69Da6dcz`zc~46Go6fr){6 z@;^-rpfXE8CLo^=B*+FLfKrS=QU}CD761t{uz(1t3a}*5SjHfb7}#u(%;Xj=6CIFZ zum)rkEJ5l(q96+qW>0>ib&Zj6@@{PusvX zs?h;mqY#QlAP1xk#V7V40c?gbT|-w2501MG3<3~SfDU5<8|OXQPX9L}?__U-OzAXq zjlv)SP;jtM{%9Zvj1B=qOFnB9Rg*J-LW!tC2Mk3mPNN6`IdDh3MVEml9YraIcU8Lp DjcZJ% diff --git a/lispusers/REGIONMANAGER b/lispusers/REGIONMANAGER index 5d9ceba3..0e05334e 100644 --- a/lispusers/REGIONMANAGER +++ b/lispusers/REGIONMANAGER @@ -1,12 +1,12 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED "28-Jan-2022 23:52:21"  -{DSK}kaplan>Local>medley3.5>my-medley>lispusers>REGIONMANAGER.;113 36064 +(FILECREATED "27-Feb-2022 08:48:09"  +{DSK}kaplan>Local>medley3.5>my-medley>lispusers>REGIONMANAGER.;116 37561 - :CHANGES-TO (FNS CLOSEWITH MOVEWITH MOVEWITH.DOIT CLOSEWITH.DOIT) + :CHANGES-TO (FNS \RELCREATEREGION.REF \RELCREATEREGION.SIZE) - :PREVIOUS-DATE "28-Jan-2022 16:55:38" -{DSK}kaplan>Local>medley3.5>my-medley>lispusers>REGIONMANAGER.;108) + :PREVIOUS-DATE "28-Jan-2022 23:52:21" +{DSK}kaplan>Local>medley3.5>my-medley>lispusers>REGIONMANAGER.;113) (PRETTYCOMPRINT REGIONMANAGERCOMS) @@ -397,7 +397,8 @@ (DEFINEQ (\RELCREATEREGION.REF - [LAMBDA (REF WHICH) (* ; "Edited 23-Jan-2022 20:20 by rmk") + [LAMBDA (REF WHICH) (* ; "Edited 27-Feb-2022 08:43 by rmk") + (* ; "Edited 23-Jan-2022 20:20 by rmk") (* ; "Edited 2-Jan-2022 11:01 by rmk") (* ;; "REF can be NIL, an absolute screen position, the atom SCREEN, or a list of (anchor fraction adjustment) where anchor can be a region, window, or the atom SCREEN, fraction can be a number or atoms LEFT/RIGHT/BOTTOM/TOP as apropriate.") @@ -418,6 +419,12 @@ (* ;; "LEFT and BOTTOM are 0") 0 + ELSEIF (EQ REF 'TTY) + THEN (CL:IF (EQ WHICH 'X) + (FETCH (REGION LEFT) OF (WINDOWPROP (WFROMDS T) + 'REGION)) + (FETCH (REGION BOTTOM) OF (WINDOWPROP (WFROMDS T) + 'REGION))) ELSEIF [AND (LISTP REF) (SETQ ANCHOR (OR (REGIONP (CAR REF)) (AND (WINDOWP (CAR REF)) @@ -425,7 +432,11 @@ 'REGION)) (AND (EQ (CAR REF) 'SCREEN) - 'SCREEN] + 'SCREEN) + (AND (EQ (CAR REF) + 'TTY) + (WINDOWPROP (WFROMDS T) + 'REGION] THEN (SETQ SPEC (CDR REF)) [IF (EQ WHICH 'X) THEN (IF (EQ ANCHOR 'SCREEN) @@ -453,7 +464,8 @@ ELSE (\ILLEGAL.ARG REF]) (\RELCREATEREGION.SIZE - [LAMBDA (PARAM WHICH) (* ; "Edited 2-Jan-2022 11:00 by rmk") + [LAMBDA (PARAM WHICH) (* ; "Edited 27-Feb-2022 08:40 by rmk") + (* ; "Edited 2-Jan-2022 11:00 by rmk") (* ; "Edited 30-Dec-2021 17:51 by rmk") (* ;; @@ -470,10 +482,15 @@ ELSEIF (LISTP PARAM) THEN (IF (SETQ ANCHOR (OR (REGIONP (CAR PARAM)) (AND (WINDOWP (CAR PARAM)) - (WINDOWREGION (CAR PARAM))) + (WINDOWPROP (CAR PARAM) + 'REGION)) (AND (EQ (CAR PARAM) 'SCREEN) 'SCREEN) + (AND (EQ (CAR PARAM) + 'TTY) + (WINDOWPROP (WFROMDS T) + 'REGION)) (\ILLEGAL.ARG PARAM))) THEN [SETQ VAL (CL:IF (EQ WHICH 'X) (CL:IF (EQ ANCHOR 'SCREEN) @@ -493,6 +510,12 @@ THEN (CL:IF (EQ WHICH 'X) SCREENWIDTH SCREENHEIGHT) + ELSEIF (EQ PARAM 'TTY) + THEN (CL:IF (EQ WHICH 'X) + (FETCH (REGION WIDTH) OF (WINDOWREGION (WFROMDS T) + 'REGION)) + (FETCH (REGION HEIGHT) OF (WINDOWREGION (WFROMDS T) + 'REGION))) ELSE (\ILLEGAL.ARG PARAM]) ) @@ -660,10 +683,10 @@ ) ) (DECLARE%: DONTCOPY - (FILEMAP (NIL (1677 3864 (SET-TYPED-REGIONS 1687 . 3862)) (3865 10866 (RM-CREATEW 3875 . 6382) ( -RM-CLOSEW 6384 . 7785) (RM-GETREGION 7787 . 10373) (CLOSE-TYPED-W 10375 . 10864)) (11782 19261 ( -RELCREATEREGION 11792 . 16415) (RELGETREGION 16417 . 19024) (RELCREATEPOSITION 19026 . 19259)) (19262 -24564 (\RELCREATEREGION.REF 19272 . 22304) (\RELCREATEREGION.SIZE 22306 . 24562)) (24617 33959 ( -RM-ATTACHWINDOW 24627 . 33957)) (33960 35694 (CLOSEWITH 33970 . 34497) (CLOSEWITH.DOIT 34499 . 34779) -(MOVEWITH 34781 . 35304) (MOVEWITH.DOIT 35306 . 35692))))) + (FILEMAP (NIL (1672 3859 (SET-TYPED-REGIONS 1682 . 3857)) (3860 10861 (RM-CREATEW 3870 . 6377) ( +RM-CLOSEW 6379 . 7780) (RM-GETREGION 7782 . 10368) (CLOSE-TYPED-W 10370 . 10859)) (11777 19256 ( +RELCREATEREGION 11787 . 16410) (RELGETREGION 16412 . 19019) (RELCREATEPOSITION 19021 . 19254)) (19257 +26061 (\RELCREATEREGION.REF 19267 . 23018) (\RELCREATEREGION.SIZE 23020 . 26059)) (26114 35456 ( +RM-ATTACHWINDOW 26124 . 35454)) (35457 37191 (CLOSEWITH 35467 . 35994) (CLOSEWITH.DOIT 35996 . 36276) +(MOVEWITH 36278 . 36801) (MOVEWITH.DOIT 36803 . 37189))))) STOP diff --git a/lispusers/REGIONMANAGER.LCOM b/lispusers/REGIONMANAGER.LCOM index c5ca9f11a5ddbf2037828407b0510c6a426137a9..f6dd79e8f33be064cfadcba6492dcb0c8ac8d72d 100644 GIT binary patch delta 1196 zcmZvbUu)A)7{;3vh8A?)#&jUemwMA}tmM3D{*@`IP0|LlWF#r==0KDV9fF7zZ&dmP zys+j%P}qf^z-{h&;N9-L@z&2E2wr>guQhFRk(~3q?|E`^eoy{1J~!WYm!wVO;L#>> zh``CUs$Aog;nVvo;u@4t7}pSMyj(*v{B=EezPdcvcXg}b>UCdt^``0A70=w$;qV!h zjJ9RL|4S>CN(p)oUmoyRhClfWC-B#nlr{sAtcebwfnAqy$dG!3clFYx&XUuk~ z&pS2PC=Lfa5n$i6EWKH`Ds{IBs0iRXZCe8(h9%o;yL!j8HK#)r4myVGY-=76Cfu$Qh5G8Hzn3~_B^HDdE32bzM2n2k87f6*)eF!h4L;A&Ch&zH;3vU(} zIiJh13mmKVc=&M4RD%2>F^&=_+B6h01?6S}CCmHlk{Uc%><@ZLDunYS7AMzYc9C8P z6T;FkOlwq(l2Oc+c}|&xsw8M)D1b5*5|ZH|$J}Ufm;P1JagVATrg`A2SyzIgkO>GG z+fvGzVz9iV4wPyV3qWZ+j1CzEF5-YyoB+&=i4Y@1R45ZfE@edM2V^2aq%mYMbqg1l ZX#j*VW=fp$CkcOUR8WM|A4|8c{sS)v8A|{F delta 774 zcmZvaO^ee|6oxYy@S~tkXA}n)dMGYhq~(4jw@KWjliYj^ncR}3wxFAliij{9T^0t^ zA7Blr=+1vIjI$G5yK<*H!G9o#dvBYh8Z?`Ga^7>^%ljm6{h!YB$(GUG-9P9OLBJ&<{_yrT?LdpLnnq1aH|O6jkDW-Qd>m#0?1@`N@!$Yj-YAOT@10(+*MjN(<9pM8 zyfkDXt<`C?y)fcV!Uq|5^DFAz04PID1Iq~pvCq?PCZO%bDK!3bX?1(g6=4Ref#qx7 zP_LfB%+hs>8aYyTRb(8`)X6zj`IUdUK+*cUBjtm=c2<$k$@Q{$Q=Xqroiy#W`wQ*I z`_s!af3orFkZ1(%gi*x(LDU;0J`jm55u@0JzAlwG9VHS-?20k4J`~jubORFZhaw)z z!~`+O#1OE_U`J$`*aO^WkV*w*|w)8gqI(e5T51U z)+1-hY(r@;!q;eE38A2YQNJ!3w4_mh$mbXBL#)?R6J(Z+B9{CqWfpAGDh$?1eFJN& bpqN%}C6g5+iH9wG5UzX*$K% .5 -1) results in a WIDTH that is one point smaller than half the width of window's region. Fraction and adjustment default to 1 and 0 respectively. -region/window/SCREEN: equivalent to (region/window/SCREEN 1 0). +list of the form (anchor fraction adjustment), where anchor is a region, window, or an atom SCREEN or TTY. The corres-ponding dimension of the anchor is mutiplied by fraction and adjustment is added to the result. For example, specifying ( .5 -1) results in a WIDTH that is one point smaller than half the width of window's region. Fraction and adjustment default to 1 and 0 respectively. +region/window/SCREEN/TTY: equivalent to (region/window/SCREEN/TTY 1 0). CORNERX can be LEFT, RIGHT, or NIL=LEFT, CORNERY can be BOTTOM, TOP, or NIL=BOTTOM. If LEFT/TOP are specified, for example, the region will be splayed down and to the right of the reference point. If RIGHT/BOTTOM, then up and to the left. The reference-point arguments REFX and REFY are interpreted as follows: NIL: LASTMOUSEX/LASTMOUSEY natural number: an absolute screen coordinate -(anchor fraction adjustment) or just region/window/SCREEN: the quantity determined relative to the size of anchor (as above) is added to the anchors left/bottom produce the REFX/REFY coordinate. In this case, fractions specified as LEFT/BOTTOM/NIL are interpreted as 0 and RIGHT/TOP are interpreted as 1. For example, a specification ( .4 -2) for REFY will produce a coordinate 2 points below the level that is 40% of the distance between the bottom and top of the window's region. +(anchor fraction adjustment) or just region/window/SCREEN/TTY: the quantity determined relative to the size of anchor (as above) is added to the anchors left/bottom produce the REFX/REFY coordinate. In this case, fractions specified as LEFT/BOTTOM/NIL are interpreted as 0 and RIGHT/TOP are interpreted as 1. For example, a specification ( .4 -2) for REFY will produce a coordinate 2 points below the level that is 40% of the distance between the bottom and top of the window's region. For convenience, if REFX is a position and REFY is NIL, then the XCOORD and YCOORD of REFX are taken as absolute values for REFX and REFY. Also for convenience, if WIDTH is a potentially a list of RELCREATEREGION arguments, then the elements of that list are spread out in a recursive call. @@ -43,6 +43,7 @@ Also for convenience, if WIDTH is a potentially a list of RELCREATEREGION argume Calls GETREGION with an initial ghost region as created by RELCREATEREGION. CORNERX and CORNERY determine the ghost region's fixed corner, and the cursor starts at the region's diagonally opposite corner. If MINSIZE is true, then WIDTH and HEIGHT are taken as the minimum sizes of the region, except for adjustments that may be needed to ensure that all corners of the ghost region are initially visible on the screen. (RELCREATEPOSITION REFX REFY) [Function] Creates a position with X and Y coordinates specified by REFX and REFY references as above. + Constellation regions Applications are often set up as a constellation of windows, a central or primary window surrounded by some number of satellites for menus, headers, prompts, and secondary outputs. The main panel of a file browser, for example, displays the list of files, but above it are carefully arranged windows for the column headers, summary information, and prompts, and off to the side is the menu of file browser commands. FILEBROWSER interprets the screen region that the user sweeps out for a new browser as the region for the whole constellation,the smallest region that will enclose the central window and all of its satellites. Similarly, the screen region given to TEDIT and SEDIT is divided between the prompt window and the central editing window, again so that the whole constellation (a pair in these cases) fit within the provided region. Each of these applications is constructed by anticipating the subregions that the satellite windows will occupy after they are attached, decreasing the constellation region by their estimated (using WIDTHIFWINDOW HEIGHTIFWINDOW) or actual sizes, and then using remainder as the region for the central window. @@ -87,16 +88,21 @@ TIMESROMAN$TERMINALMODERN MODERN  A  &Mm -JS- - +JS-f= +3E +" + + j  -/3t2C ƒ +/3 +t2C ƒ  " O  =  , l¬ . 9 +  ™¤ Ç S @@ -105,4 +111,4 @@ TIMESROMAN$TERMINALMODERN MODERN ™ '—  -2(µ*"+( *M.s[zº \ No newline at end of file +2(µ*"+( *M.„izº \ No newline at end of file