github.com/Interlisp.medley
1
0
Fork 0
mirror of synced 2026-02-09 10:01:19 +00:00
Code Issues Projects Releases Wiki Activity

GITFNS prc menu is added to the screen instead of just popping up

Browse Source 
So the full set of available PRs (with their draft/approved status) remains visible.  You can poke from one to the other. May be useful when we go through the PRs in Monday meetings.  (Still doesn't bother with a menu at all if there is only one PR to work on.)

On this first pass, the menu is placed (but not attached) just under the current exec window, on the hope that this keeps it out of the way of the windows that are created during the comparison.

Try it, let me know how this feels, whether this is an improvement over the previous pop-up.
This commit is contained in:
rmkaplan
2024-05-03 11:11:01 -07:00
parent 9f0475936f
commit 6bc9aee7b9
2 changed files with 129 additions and 72 deletions
Download Patch File Download Diff File Expand all files Collapse all files

201
lispusers/GITFNS
View File

@@ -1,14 +1,13 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
(FILECREATED " 2-May-2024 13:01:27" {LU}GITFNS.;6 125122 (FILECREATED " 2-May-2024 23:35:36" {WMEDLEY}<lispusers>GITFNS.;511 129269
:EDIT-BY "mth" :EDIT-BY rmk
:CHANGES-TO (FNS GIT-BRANCH-EXISTS? GIT-GET-FILE GIT-CHECKOUT GIT-FILE-DATE GIT-PULL GIT-PUSH :CHANGES-TO (FNS GIT-PUSH GIT-PULL GIT-GET-FILE GIT-FILE-DATE GIT-BRANCH-DIFF GIT-COMMIT-DIFFS
GIT-COMMIT-DIFFS GIT-MAKE-BRANCH GIT-ADD-WORKTREE GIT-BRANCHES GIT-BRANCH-DIFF GIT-CHECKOUT GIT-MAKE-BRANCH GIT-BRANCHES GIT-BRANCH-EXISTS? GIT-ADD-WORKTREE)
)
:PREVIOUS-DATE "30-Apr-2024 14:30:11" {LU}GITFNS.;3) :PREVIOUS-DATE " 2-May-2024 22:57:39" {WMEDLEY}<lispusers>GITFNS.;510)
(PRETTYCOMPRINT GITFNSCOMS) (PRETTYCOMPRINT GITFNSCOMS)
@@ -18,7 +17,8 @@
(* ;; "Set up") (* ;; "Set up")
(FILES (SYSLOAD FROM LISPUSERS) (FILES (SYSLOAD FROM LISPUSERS)
COMPAREDIRECTORIES COMPARESOURCES COMPARETEXT PSEUDOHOSTS JSON UNIXUTILS) COMPAREDIRECTORIES COMPARESOURCES COMPARETEXT PSEUDOHOSTS JSON UNIXUTILS REGIONMANAGER
)
(* ;; "") (* ;; "")
@@ -39,7 +39,8 @@
(LOOPS) (LOOPS)
(TEST) (TEST)
(MAIKO] (MAIKO]
(GIT-PROJECTS NIL))) (GIT-PROJECTS NIL)
(GIT-PRC-MENUS NIL)))
(P (GIT-INIT)) (P (GIT-INIT))
(ADDVARS (AROUNDEXITFNS GIT-INIT)) (ADDVARS (AROUNDEXITFNS GIT-INIT))
@@ -82,8 +83,8 @@
(* ;; "Branches") (* ;; "Branches")
(FNS GIT-BRANCH-NUM GIT-CHECKOUT GIT-WHICH-BRANCH GIT-MAKE-BRANCH GIT-BRANCHES (FNS GIT-BRANCH-NUM GIT-CHECKOUT GIT-WHICH-BRANCH GIT-MAKE-BRANCH GIT-BRANCHES
GIT-BRANCH-EXISTS? GIT-PICK-BRANCH GIT-BRANCH-MENU GIT-PULL-REQUESTS GIT-BRANCH-EXISTS? GIT-PICK-BRANCH GIT-BRANCH-MENU GIT-BRANCH-WHENSELECTEDFN
GIT-SHORT-BRANCH-NAME GIT-LONG-NAME GIT-PRC-BRANCHES) GIT-PULL-REQUESTS GIT-SHORT-BRANCH-NAME GIT-LONG-NAME GIT-PRC-BRANCHES)
(* ;; "My branches") (* ;; "My branches")
@@ -121,7 +122,7 @@
(FILESLOAD (SYSLOAD FROM LISPUSERS) (FILESLOAD (SYSLOAD FROM LISPUSERS)
COMPAREDIRECTORIES COMPARESOURCES COMPARETEXT PSEUDOHOSTS JSON UNIXUTILS) COMPAREDIRECTORIES COMPARESOURCES COMPARETEXT PSEUDOHOSTS JSON UNIXUTILS REGIONMANAGER)
@@ -403,7 +404,7 @@
(TYPERECORD GIT-PROJECT (PROJECTNAME GITHOST WHOST EXCLUSIONS DEFAULTSUBDIRS CLONEPATH MAINBRANCH)) (TYPERECORD GIT-PROJECT (PROJECTNAME GITHOST WHOST EXCLUSIONS DEFAULTSUBDIRS CLONEPATH MAINBRANCH))
(RECORD PULLREQUEST (PRNUMBER PRDESCRIPTION PRNAME PRSTATUS)) (RECORD PULLREQUEST (PRNUMBER PRDESCRIPTION PRNAME PRSTATUS PRPROJECT))
) )
) )
@@ -419,6 +420,8 @@
(RPAQ? GIT-PROJECTS NIL) (RPAQ? GIT-PROJECTS NIL)
(RPAQ? GIT-PRC-MENUS NIL)
(GIT-INIT) (GIT-INIT)
(ADDTOVAR AROUNDEXITFNS GIT-INIT) (ADDTOVAR AROUNDEXITFNS GIT-INIT)
@@ -533,13 +536,13 @@
(DEFINEQ (DEFINEQ
(PRC-COMMAND (PRC-COMMAND
[LAMBDA (REMOTEBRANCH DRAFTS PROJECT) (* ; "Edited 30-Apr-2024 14:09 by rmk") [LAMBDA (REMOTEBRANCH DRAFTS PROJECT) (* ; "Edited 2-May-2024 11:44 by rmk")
(* ; "Edited 1-Apr-2024 20:24 by rmk") (* ; "Edited 1-Apr-2024 20:24 by rmk")
(* ; "Edited 28-Jul-2023 09:03 by rmk") (* ; "Edited 28-Jul-2023 09:03 by rmk")
(* ;; "DRAFTS can be DRAFT(S), NODRAFTS, or NIL. If DRAFTS, then only draft PR's are shown, of NODRAFTS then only nondrafts are shown. Anything else, both drafts and nondrafts are shown in the menu.") (* ;; "DRAFTS can be DRAFT(S), NODRAFTS, or NIL. If DRAFTS, then only draft PR's are shown, of NODRAFTS then only nondrafts are shown. Anything else, both drafts and nondrafts are shown in the menu.")
(LET (PRS PRMENU) (LET (PRS MENUWINDOW OLDMENUWINDOW)
(IF PROJECT (IF PROJECT
THEN (SETQ PROJECT (GIT-GET-PROJECT PROJECT)) THEN (SETQ PROJECT (GIT-GET-PROJECT PROJECT))
ELSEIF (GIT-GET-PROJECT REMOTEBRANCH NIL T) ELSEIF (GIT-GET-PROJECT REMOTEBRANCH NIL T)
@@ -548,6 +551,7 @@
ELSEIF (GIT-GET-PROJECT DRAFTS NIL T) ELSEIF (GIT-GET-PROJECT DRAFTS NIL T)
THEN (SETQ PROJECT DRAFTS) THEN (SETQ PROJECT DRAFTS)
(SETQ DRAFTS NIL)) (SETQ DRAFTS NIL))
(CL:UNLESS PROJECT (SETQ PROJECT GIT-DEFAULT-PROJECT))
(SELECTQ (U-CASE REMOTEBRANCH) (SELECTQ (U-CASE REMOTEBRANCH)
((DRAFT DRAFTS) ((DRAFT DRAFTS)
(SETQ REMOTEBRANCH NIL) (SETQ REMOTEBRANCH NIL)
@@ -563,25 +567,40 @@
(SETQ PRS (GIT-PULL-REQUESTS (NEQ 'NODRAFTS DRAFTS) (SETQ PRS (GIT-PULL-REQUESTS (NEQ 'NODRAFTS DRAFTS)
PROJECT)) PROJECT))
(CL:WHEN (AND REMOTEBRANCH (NEQ REMOTEBRANCH 'PinMenu)) (CL:WHEN (AND REMOTEBRANCH (NEQ REMOTEBRANCH 'PinMenu))
(for PR in PRS when (OR (STRPOS REMOTEBRANCH (fetch PRDESCRIPTION of PR)
NIL NIL NIL NIL FILEDIRCASEARRAY) (* ;; "Filter by the REMOTEBRANCH string")
(STRPOS REMOTEBRANCH (fetch PRNAME of PR)
NIL NIL NIL NIL FILEDIRCASEARRAY)) collect PR (SETQ PRS (for PR in PRS when (OR (STRPOS REMOTEBRANCH (fetch PRDESCRIPTION of PR)
finally (CL:WHEN $$VAL (SETQ PRS $$VAL)) NIL NIL NIL NIL FILEDIRCASEARRAY)
(SETQ REMOTEBRANCH NIL))) (STRPOS REMOTEBRANCH (fetch PRNAME of PR)
NIL NIL NIL NIL FILEDIRCASEARRAY)) collect
PR)))
(IF PRS (IF PRS
THEN (CL:UNLESS REMOTEBRANCH THEN (if (CDR PRS)
(SETQ PRS (GIT-PRC-BRANCHES DRAFTS PROJECT PRS)) then (SETQ MENUWINDOW (ADDMENU (GIT-BRANCH-MENU (GIT-PRC-BRANCHES DRAFTS
(SETQ PRMENU (GIT-BRANCH-MENU PRS (CONCAT (LENGTH PRS) PROJECT PRS)
" pull requests") (CONCAT (LENGTH PRS)
NIL)) " pull requests")
(SETQ REMOTEBRANCH (MENU PRMENU))) NIL PROJECT)
(if (EQ 'PinMenu REMOTEBRANCH) NIL NIL T))
then (ADDMENU (GIT-BRANCH-MENU PRS (CONCAT (LENGTH PRS)
" pull requests"))) (* ;; "Position the new menu just under the current TTY window, to keep it out of the way of the comparison windows. If we have menus open for other projects, those probably should be pushed down to make room for the new menu, and moved up when a higher menu is closed. An edge case that is not worth the effort. ")
elseif REMOTEBRANCH
then (GIT-PR-COMPARE REMOTEBRANCH PROJECT)) [MOVEW MENUWINDOW (RELCREATEPOSITION
ELSE "No open pull requests"]) '(TTY 0)
`(TTY 0 ,(IDIFFERENCE -2 (fetch HEIGHT
of (WINDOWREGION MENUWINDOW
]
(CL:WHEN [OPENWP (CDR (SETQ OLDMENUWINDOW (ASSOC PROJECT GIT-PRC-MENUS]
(CLOSEW (CDR OLDMENUWINDOW)))
(OPENW MENUWINDOW)
(RPLACD [OR OLDMENUWINDOW (CAR (PUSH GIT-PRC-MENUS (CONS PROJECT]
MENUWINDOW)
MENUWINDOW
else (GIT-PR-COMPARE (fetch PRNAME of (CAR PRS))
PROJECT))
ELSE (CONCAT "No open " (OR REMOTEBRANCH "")
" pull requests"])
) )
@@ -1374,7 +1393,8 @@
" branches"]) " branches"])
(GIT-BRANCH-MENU (GIT-BRANCH-MENU
[LAMBDA (BRANCHES TITLE PIN?) (* ; "Edited 6-Jul-2023 22:31 by rmk") [LAMBDA (BRANCHES TITLE PIN?) (* ; "Edited 1-May-2024 14:36 by rmk")
(* ; "Edited 6-Jul-2023 22:31 by rmk")
(* ; "Edited 30-Jun-2023 16:58 by rmk") (* ; "Edited 30-Jun-2023 16:58 by rmk")
(* ; "Edited 18-May-2022 13:44 by rmk") (* ; "Edited 18-May-2022 13:44 by rmk")
(CL:WHEN (SETQ BRANCHES (MKLIST BRANCHES)) (CL:WHEN (SETQ BRANCHES (MKLIST BRANCHES))
@@ -1384,10 +1404,35 @@
TITLE _ (OR TITLE (CONCAT (LENGTH BRANCHES) TITLE _ (OR TITLE (CONCAT (LENGTH BRANCHES)
" branches")) " branches"))
ITEMS _ BRANCHES ITEMS _ BRANCHES
MENUFONT _ DEFAULTFONT))]) MENUFONT _ DEFAULTFONT
WHENSELECTEDFN _ (FUNCTION GIT-BRANCH-WHENSELECTEDFN)))])
(GIT-BRANCH-WHENSELECTEDFN
[LAMBDA (ITEM) (* ; "Edited 1-May-2024 18:17 by rmk")
(* ; "CAR is git key, 4th is project")
(* ;; "This executes the comparison in the current TTY window, either by stuffing the command there or by evaluating there. There probably should be a check to make sure that the TTY is in fact an executive--if not, maybe this should be a no-op. Better than getting the comparison form in the middle of anther SEDIT or TEDIT.")
(* ;; "This could also execute in the mouse process, where the menu is clicked. But in that case a terminal window pops up with the header lines of the compare, and that seems a nuisance.")
(if T
then
(* ;; "The COPYINSERT causes the compare to run in the TTY process, by stuffing the characters in the input line. Somehow it executes even if the parens are not there, but that looks funny. But it also works if I stuff the parens on both sides.")
(BKSYSBUF '%()
[COPYINSERT `(GIT-PR-COMPARE ,(CADR ITEM)
',(CADR (CDDDR ITEM]
(BKSYSBUF '%))
else
(* ;; "This puts the print out after the next event number in the TTY window, unfortunately. We go to the default font so we don't get TTYIN's input bold for this.")
(PROCESS.EVAL (TTY.PROCESS)
`(RESETLST
[RESETSAVE (DSPFONT DEFAULTFONT T)
'(PROGN (DSPFONT OLDVALUE T])])
(GIT-PULL-REQUESTS (GIT-PULL-REQUESTS
[LAMBDA (INCLUDEDRAFTS PROJECT) (* ; "Edited 30-Apr-2024 14:29 by rmk") [LAMBDA (INCLUDEDRAFTS PROJECT) (* ; "Edited 1-May-2024 09:23 by rmk")
(* ; "Edited 8-Aug-2022 13:12 by rmk") (* ; "Edited 8-Aug-2022 13:12 by rmk")
(* ; "Edited 4-Aug-2022 19:01 by rmk") (* ; "Edited 4-Aug-2022 19:01 by rmk")
(* ; "Edited 17-Jul-2022 11:12 by rmk") (* ; "Edited 17-Jul-2022 11:12 by rmk")
@@ -1404,7 +1449,7 @@
(ERROR "UNRECOGNIZED PRC LIST FROM GIT" JPARSE)) (ERROR "UNRECOGNIZED PRC LIST FROM GIT" JPARSE))
EACHTIME [SETQ DRAFT (EQ 'true (JSON-GET JSOBJ 'isDraft] WHEN (OR INCLUDEDRAFTS EACHTIME [SETQ DRAFT (EQ 'true (JSON-GET JSOBJ 'isDraft] WHEN (OR INCLUDEDRAFTS
(NOT DRAFT)) (NOT DRAFT))
COLLECT [SETQ PR (CREATE PULLREQUEST COLLECT (SETQ PR (CREATE PULLREQUEST
PRNUMBER _ (JSON-GET JSOBJ 'number) PRNUMBER _ (JSON-GET JSOBJ 'number)
PRNAME _ (JSON-GET JSOBJ 'headRefName) PRNAME _ (JSON-GET JSOBJ 'headRefName)
PRDESCRIPTION _ (JSON-GET JSOBJ 'title) PRDESCRIPTION _ (JSON-GET JSOBJ 'title)
@@ -1413,7 +1458,8 @@
(CL:IF (STREQUAL "REVIEW_REQUIRED" (CL:IF (STREQUAL "REVIEW_REQUIRED"
(JSON-GET JSOBJ 'reviewDecision)) (JSON-GET JSOBJ 'reviewDecision))
" " " "
'A))] 'A))
PRPROJECT _ PROJECT))
(CL:WHEN (STRPOS ":" (fetch (PULLREQUEST PRNAME) of PR)) (CL:WHEN (STRPOS ":" (fetch (PULLREQUEST PRNAME) of PR))
(PRINTOUT T "Ignoring PR for forked repo %%%" #" (JSON-GET JSOBJ 'number) (PRINTOUT T "Ignoring PR for forked repo %%%" #" (JSON-GET JSOBJ 'number)
" " " "
@@ -1438,18 +1484,21 @@
(FIND B IN (GIT-BRANCHES WHERE PROJECT EXCLUDEMERGED) SUCHTHAT (STRPOS BRANCH B]) (FIND B IN (GIT-BRANCHES WHERE PROJECT EXCLUDEMERGED) SUCHTHAT (STRPOS BRANCH B])
(GIT-PRC-BRANCHES (GIT-PRC-BRANCHES
[LAMBDA (DRAFT PROJECT PRS) (* ; "Edited 30-Apr-2024 14:20 by rmk") [LAMBDA (DRAFT PROJECT PRS) (* ; "Edited 1-May-2024 21:06 by rmk")
(* ; "Edited 1-Apr-2024 17:09 by rmk") (* ; "Edited 1-Apr-2024 17:09 by rmk")
(* ; "Edited 8-Aug-2022 18:15 by rmk") (* ; "Edited 8-Aug-2022 18:15 by rmk")
(* ; "Edited 4-Aug-2022 18:55 by rmk") (* ; "Edited 4-Aug-2022 18:55 by rmk")
(* ; "Edited 9-Jul-2022 19:01 by rmk") (* ; "Edited 9-Jul-2022 19:01 by rmk")
(* ; "Edited 16-May-2022 19:44 by rmk") (* ; "Edited 16-May-2022 19:44 by rmk")
(* ;; "This converts each PR into a list of a form that can be used as a menu item. PROJECT is added at the end, beyond what is interpreted by the menu machinery. Maybe the 4th item should be the entire PR, with PROJECT inside it.")
(CL:UNLESS PRS (CL:UNLESS PRS
(SETQ PRS (GIT-PULL-REQUESTS T PROJECT))) (SETQ PRS (GIT-PULL-REQUESTS T PROJECT)))
(CL:WHEN PRS (CL:WHEN PRS
(LET ((RELATIONS (GIT-BRANCH-RELATIONS (FOR PR IN PRS COLLECT (GITORIGIN (CADDR PR))) (LET ((RELATIONS (GIT-BRANCH-RELATIONS (FOR PR IN PRS COLLECT (GITORIGIN (CADDR PR)))
NIL T PROJECT))) NIL T PROJECT)))
(SORT [FOR PR REL LABEL PRNAME STATUS (SUPERSETS _ (CAR RELATIONS)) (SORT (FOR PR REL LABEL PRNAME STATUS (SUPERSETS _ (CAR RELATIONS))
(EQUALS _ (CADR RELATIONS)) IN PRS (EQUALS _ (CADR RELATIONS)) IN PRS
EACHTIME (SETQ PRNAME (fetch PRNAME of PR)) EACHTIME (SETQ PRNAME (fetch PRNAME of PR))
(SETQ LABEL (CONCAT "#" (fetch (PULLREQUEST PRNUMBER) of PR) (SETQ LABEL (CONCAT "#" (fetch (PULLREQUEST PRNUMBER) of PR)
@@ -1463,11 +1512,12 @@
WHEN (SELECTQ DRAFT WHEN (SELECTQ DRAFT
(DRAFTS (EQ STATUS 'D)) (DRAFTS (EQ STATUS 'D))
(NODRAFTS (NEQ STATUS 'D)) (NODRAFTS (NEQ STATUS 'D))
T) COLLECT (LIST (CONCAT STATUS " " LABEL) T) COLLECT (LIST (CONCAT " " STATUS " " LABEL)
(GITORIGIN PRNAME) (GITORIGIN PRNAME)
(CONCAT " " STATUS " #" (FETCH PRNUMBER OF PR) (CONCAT " " STATUS " #" (FETCH PRNUMBER OF PR)
" " " "
(FETCH PRDESCRIPTION OF PR] (FETCH PRDESCRIPTION OF PR))
NIL PROJECT))
T)))]) T)))])
) )
@@ -1732,7 +1782,8 @@
(LIST DIR1 DIR2 MAPPINGS))]) (LIST DIR1 DIR2 MAPPINGS))])
(GIT-BRANCHES-COMPARE-DIRECTORIES (GIT-BRANCHES-COMPARE-DIRECTORIES
[LAMBDA (BRANCH1 BRANCH2 LOCAL PROJECT) (* ; "Edited 26-Sep-2023 22:40 by rmk") [LAMBDA (BRANCH1 BRANCH2 LOCAL PROJECT) (* ; "Edited 1-May-2024 14:58 by rmk")
(* ; "Edited 26-Sep-2023 22:40 by rmk")
(* ; "Edited 10-Jun-2023 17:28 by rmk") (* ; "Edited 10-Jun-2023 17:28 by rmk")
(* ; "Edited 12-Sep-2022 14:41 by rmk") (* ; "Edited 12-Sep-2022 14:41 by rmk")
(* ; "Edited 20-Jul-2022 21:18 by rmk") (* ; "Edited 20-Jul-2022 21:18 by rmk")
@@ -1757,7 +1808,11 @@
(CADR DIRS) (CADR DIRS)
'(> < ~= -* *-) '(> < ~= -* *-)
'*>*.* '*>*.*
(GIT-GET-PROJECT PROJECT 'EXCLUSIONS] (GIT-GET-PROJECT PROJECT 'EXCLUSIONS)
NIL NIL NIL NIL (LIST (PACKFILENAME 'HOST NIL 'BODY
(CAR DIRS))
(PACKFILENAME 'HOST NIL 'BODY
(CADR DIRS]
(* ;; "We know that both sides come from Unix/unversioned, even if they have been copied into versioned FROMGIT, so we make a pass to remove the misleading versions.") (* ;; "We know that both sides come from Unix/unversioned, even if they have been copied into versioned FROMGIT, so we make a pass to remove the misleading versions.")
@@ -1773,7 +1828,8 @@
(FETCH (CDINFO FULLNAME) (FETCH (CDINFO FULLNAME)
OF INFO1) OF INFO1)
FILEDIRCASEARRAY)))] FILEDIRCASEARRAY)))]
(CL:WHEN MAP (HELP MAP)) (CL:WHEN MAP
(HELP 'MAP MAP))
(CL:WHEN INFO1 (CL:WHEN INFO1
(CHANGE (FETCH (CDINFO FULLNAME) OF INFO1) (CHANGE (FETCH (CDINFO FULLNAME) OF INFO1)
(SLASHIT (PACKFILENAME.STRING 'VERSION NIL (SLASHIT (PACKFILENAME.STRING 'VERSION NIL
@@ -2312,32 +2368,33 @@
(PUTPROPS GITFNS FILETYPE :TCOMPL) (PUTPROPS GITFNS FILETYPE :TCOMPL)
(DECLARE%: DONTCOPY (DECLARE%: DONTCOPY
(FILEMAP (NIL (4228 20807 (GIT-CLONEP 4238 . 5566) (GIT-INIT 5568 . 6198) (GIT-MAKE-PROJECT 6200 . (FILEMAP (NIL (4348 20927 (GIT-CLONEP 4358 . 5686) (GIT-INIT 5688 . 6318) (GIT-MAKE-PROJECT 6320 .
13865) (GIT-GET-PROJECT 13867 . 15792) (GIT-PUT-PROJECT-FIELD 15794 . 17435) (GIT-PROJECT-PATH 17437 13985) (GIT-GET-PROJECT 13987 . 15912) (GIT-PUT-PROJECT-FIELD 15914 . 17555) (GIT-PROJECT-PATH 17557
. 18481) (FIND-ANCESTOR-DIRECTORY 18483 . 18832) (GIT-FIND-CLONE 18834 . 19915) (GIT-MAINBRANCH 19917 . 18601) (FIND-ANCESTOR-DIRECTORY 18603 . 18952) (GIT-FIND-CLONE 18954 . 20035) (GIT-MAINBRANCH 20037
. 20312) (GIT-MAINBRANCH? 20314 . 20805)) (26215 28997 (PRC-COMMAND 26225 . 28995)) (29053 31841 ( . 20432) (GIT-MAINBRANCH? 20434 . 20925)) (26376 30458 (PRC-COMMAND 26386 . 30456)) (30514 33302 (
ALLSUBDIRS 29063 . 30349) (MEDLEYSUBDIRS 30351 . 31044) (GITSUBDIRS 31046 . 31839)) (31842 36632 ( ALLSUBDIRS 30524 . 31810) (MEDLEYSUBDIRS 31812 . 32505) (GITSUBDIRS 32507 . 33300)) (33303 38093 (
TOGIT 31852 . 33258) (FROMGIT 33260 . 34241) (GIT-DELETE-FILE 34243 . 35089) (MYMEDLEY-DELETE-FILES TOGIT 33313 . 34719) (FROMGIT 34721 . 35702) (GIT-DELETE-FILE 35704 . 36550) (MYMEDLEY-DELETE-FILES
35091 . 36630)) (36633 39636 (MYMEDLEYSUBDIR 36643 . 37099) (GITSUBDIR 37101 . 37544) (STRIPDIR 37546 36552 . 38091)) (38094 41097 (MYMEDLEYSUBDIR 38104 . 38560) (GITSUBDIR 38562 . 39005) (STRIPDIR 39007
. 37917) (STRIPHOST 37919 . 38159) (STRIPNAME 38161 . 38914) (STRIPWHERE 38916 . 39634)) (39637 41539 . 39378) (STRIPHOST 39380 . 39620) (STRIPNAME 39622 . 40375) (STRIPWHERE 40377 . 41095)) (41098 43000
(GFILE4MFILE 39647 . 40010) (MFILE4GFILE 40012 . 40581) (GIT-REPO-FILENAME 40583 . 41537)) (41588 (GFILE4MFILE 41108 . 41471) (MFILE4GFILE 41473 . 42042) (GIT-REPO-FILENAME 42044 . 42998)) (43049
51839 (GIT-COMMIT 41598 . 42424) (GIT-PUSH 42426 . 43186) (GIT-PULL 43188 . 43940) (GIT-APPROVAL 43942 53300 (GIT-COMMIT 43059 . 43885) (GIT-PUSH 43887 . 44647) (GIT-PULL 44649 . 45401) (GIT-APPROVAL 45403
. 44291) (GIT-GET-FILE 44293 . 46315) (GIT-FILE-EXISTS? 46317 . 46591) (GIT-REMOTE-UPDATE 46593 . . 45752) (GIT-GET-FILE 45754 . 47776) (GIT-FILE-EXISTS? 47778 . 48052) (GIT-REMOTE-UPDATE 48054 .
47317) (GIT-REMOTE-ADD 47319 . 47626) (GIT-FILE-DATE 47628 . 48675) (GIT-FILE-HISTORY 48677 . 50611) ( 48778) (GIT-REMOTE-ADD 48780 . 49087) (GIT-FILE-DATE 49089 . 50136) (GIT-FILE-HISTORY 50138 . 52072) (
GIT-PRINT-FILE-HISTORY 50613 . 51663) (GIT-FETCH 51665 . 51837)) (51869 62642 (GIT-BRANCH-DIFF 51879 GIT-PRINT-FILE-HISTORY 52074 . 53124) (GIT-FETCH 53126 . 53298)) (53330 64103 (GIT-BRANCH-DIFF 53340
. 58279) (GIT-COMMIT-DIFFS 58281 . 58954) (GIT-BRANCH-RELATIONS 58956 . 62640)) (62687 77220 ( . 59740) (GIT-COMMIT-DIFFS 59742 . 60415) (GIT-BRANCH-RELATIONS 60417 . 64101)) (64148 80865 (
GIT-BRANCH-NUM 62697 . 63270) (GIT-CHECKOUT 63272 . 64447) (GIT-WHICH-BRANCH 64449 . 64747) ( GIT-BRANCH-NUM 64158 . 64731) (GIT-CHECKOUT 64733 . 65908) (GIT-WHICH-BRANCH 65910 . 66208) (
GIT-MAKE-BRANCH 64749 . 67078) (GIT-BRANCHES 67080 . 69570) (GIT-BRANCH-EXISTS? 69572 . 70443) ( GIT-MAKE-BRANCH 66210 . 68539) (GIT-BRANCHES 68541 . 71031) (GIT-BRANCH-EXISTS? 71033 . 71904) (
GIT-PICK-BRANCH 70445 . 70935) (GIT-BRANCH-MENU 70937 . 71640) (GIT-PULL-REQUESTS 71642 . 74194) ( GIT-PICK-BRANCH 71906 . 72396) (GIT-BRANCH-MENU 72398 . 73279) (GIT-BRANCH-WHENSELECTEDFN 73281 .
GIT-SHORT-BRANCH-NAME 74196 . 74487) (GIT-LONG-NAME 74489 . 74806) (GIT-PRC-BRANCHES 74808 . 77218)) ( 74916) (GIT-PULL-REQUESTS 74918 . 77527) (GIT-SHORT-BRANCH-NAME 77529 . 77820) (GIT-LONG-NAME 77822 .
77250 80585 (GIT-MY-CURRENT-BRANCH 77260 . 77630) (GIT-MY-BRANCHP 77632 . 78137) (GIT-MY-NEXT-BRANCH 78139) (GIT-PRC-BRANCHES 78141 . 80863)) (80895 84230 (GIT-MY-CURRENT-BRANCH 80905 . 81275) (
78139 . 78633) (GIT-MY-BRANCHES 78635 . 80583)) (80631 84706 (GIT-ADD-WORKTREE 80641 . 82248) ( GIT-MY-BRANCHP 81277 . 81782) (GIT-MY-NEXT-BRANCH 81784 . 82278) (GIT-MY-BRANCHES 82280 . 84228)) (
GIT-REMOVE-WORKTREE 82250 . 83180) (GIT-LIST-WORKTREES 83182 . 83986) (WORKTREEDIR 83988 . 84704)) ( 84276 88351 (GIT-ADD-WORKTREE 84286 . 85893) (GIT-REMOVE-WORKTREE 85895 . 86825) (GIT-LIST-WORKTREES
84754 116956 (GIT-GET-DIFFERENT-FILES 84764 . 91188) (GIT-BRANCHES-COMPARE-DIRECTORIES 91190 . 97541) 86827 . 87631) (WORKTREEDIR 87633 . 88349)) (88399 121103 (GIT-GET-DIFFERENT-FILES 88409 . 94833) (
(GIT-WORKING-COMPARE-DIRECTORIES 97543 . 102939) (GIT-COMPARE-WORKTREE 102941 . 106919) ( GIT-BRANCHES-COMPARE-DIRECTORIES 94835 . 101688) (GIT-WORKING-COMPARE-DIRECTORIES 101690 . 107086) (
GITCDOBJBUTTONFN 106921 . 111411) (GIT-CD-LABELFN 111413 . 112495) (GIT-CD-MENUFN 112497 . 114937) ( GIT-COMPARE-WORKTREE 107088 . 111066) (GITCDOBJBUTTONFN 111068 . 115558) (GIT-CD-LABELFN 115560 .
GIT-WORKING-COMPARE-FILES 114939 . 115559) (GIT-BRANCHES-COMPARE-FILES 115561 . 116725) ( 116642) (GIT-CD-MENUFN 116644 . 119084) (GIT-WORKING-COMPARE-FILES 119086 . 119706) (
GIT-PR-COMPARE 116727 . 116954)) (117026 125055 (CDGITDIR 117036 . 117723) (GIT-COMMAND 117725 . GIT-BRANCHES-COMPARE-FILES 119708 . 120872) (GIT-PR-COMPARE 120874 . 121101)) (121173 129202 (CDGITDIR
119283) (GITORIGIN 119285 . 119982) (GIT-INITIALS 119984 . 120288) (GIT-COMMAND-TO-FILE 120290 . 121183 . 121870) (GIT-COMMAND 121872 . 123430) (GITORIGIN 123432 . 124129) (GIT-INITIALS 124131 .
123779) (GIT-RESULT-TO-LINES 123781 . 124388) (STRIPLOCAL 124390 . 125053))))) 124435) (GIT-COMMAND-TO-FILE 124437 . 127926) (GIT-RESULT-TO-LINES 127928 . 128535) (STRIPLOCAL 128537
. 129200)))))
STOP STOP

BIN
lispusers/GITFNS.LCOM
View File

Binary file not shown.