GITFNS: Middle-clicking the prc menu brings up the web page (#2077)
Middle-clicking the prc menu brings up the web page
This commit is contained in:
rmkaplan
GitHub
@@ -1,12 +1,12 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
|
||||
(FILECREATED "29-Jan-2025 19:20:27" {WMEDLEY}<lispusers>GITFNS.;535 133255
|
||||
(FILECREATED "21-Mar-2025 19:07:34" {WMEDLEY}<lispusers>GITFNS.;536 133643
|
||||
|
||||
:EDIT-BY rmk
|
||||
|
||||
:CHANGES-TO (FNS PRC-COMMAND)
|
||||
:CHANGES-TO (FNS GIT-BRANCH-WHENSELECTEDFN)
|
||||
|
||||
:PREVIOUS-DATE "12-Jun-2024 23:02:26" {WMEDLEY}<lispusers>GITFNS.;531)
|
||||
:PREVIOUS-DATE "29-Jan-2025 19:20:27" {WMEDLEY}<lispusers>GITFNS.;535)
|
||||
|
||||
|
||||
(PRETTYCOMPRINT GITFNSCOMS)
|
||||
@@ -1431,7 +1431,8 @@
|
||||
WHENSELECTEDFN _ (FUNCTION GIT-BRANCH-WHENSELECTEDFN)))])
|
||||
|
||||
(GIT-BRANCH-WHENSELECTEDFN
|
||||
[LAMBDA (ITEM) (* ; "Edited 11-May-2024 11:05 by rmk")
|
||||
[LAMBDA (ITEM MENU BUTTON) (* ; "Edited 21-Mar-2025 19:07 by rmk")
|
||||
(* ; "Edited 11-May-2024 11:05 by rmk")
|
||||
(* ; "Edited 1-May-2024 18:17 by rmk")
|
||||
(* ; "CAR is git key, 4th is project")
|
||||
|
||||
@@ -1450,10 +1451,13 @@
|
||||
|
||||
(* ;; "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)
|
||||
',(fetch PRPROJECT of PR]
|
||||
(BKSYSBUF '%))
|
||||
(if (EQ BUTTON 'MIDDLE)
|
||||
then (ShellOpen (CONCAT "https://github.com/Interlisp/medley/pull/"
|
||||
(fetch (PULLREQUEST PRNUMBER) of PR)))
|
||||
else (BKSYSBUF '%()
|
||||
[COPYINSERT `(GIT-PR-COMPARE ,(CADR ITEM)
|
||||
',(fetch PRPROJECT of PR]
|
||||
(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.")
|
||||
|
||||
@@ -2425,33 +2429,33 @@
|
||||
|
||||
(PUTPROPS GITFNS FILETYPE :TCOMPL)
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (4181 20760 (GIT-CLONEP 4191 . 5519) (GIT-INIT 5521 . 6151) (GIT-MAKE-PROJECT 6153 .
|
||||
13818) (GIT-GET-PROJECT 13820 . 15745) (GIT-PUT-PROJECT-FIELD 15747 . 17388) (GIT-PROJECT-PATH 17390
|
||||
. 18434) (FIND-ANCESTOR-DIRECTORY 18436 . 18785) (GIT-FIND-CLONE 18787 . 19868) (GIT-MAINBRANCH 19870
|
||||
. 20265) (GIT-MAINBRANCH? 20267 . 20758)) (26223 31152 (PRC-COMMAND 26233 . 31150)) (31208 33996 (
|
||||
ALLSUBDIRS 31218 . 32504) (MEDLEYSUBDIRS 32506 . 33199) (GITSUBDIRS 33201 . 33994)) (33997 38787 (
|
||||
TOGIT 34007 . 35413) (FROMGIT 35415 . 36396) (GIT-DELETE-FILE 36398 . 37244) (MYMEDLEY-DELETE-FILES
|
||||
37246 . 38785)) (38788 41791 (MYMEDLEYSUBDIR 38798 . 39254) (GITSUBDIR 39256 . 39699) (STRIPDIR 39701
|
||||
. 40072) (STRIPHOST 40074 . 40314) (STRIPNAME 40316 . 41069) (STRIPWHERE 41071 . 41789)) (41792 43694
|
||||
(GFILE4MFILE 41802 . 42165) (MFILE4GFILE 42167 . 42736) (GIT-REPO-FILENAME 42738 . 43692)) (43743
|
||||
54105 (GIT-COMMIT 43753 . 44579) (GIT-PUSH 44581 . 45341) (GIT-PULL 45343 . 46095) (GIT-APPROVAL 46097
|
||||
. 46446) (GIT-GET-FILE 46448 . 48470) (GIT-FILE-EXISTS? 48472 . 48746) (GIT-REMOTE-UPDATE 48748 .
|
||||
49583) (GIT-REMOTE-ADD 49585 . 49892) (GIT-FILE-DATE 49894 . 50941) (GIT-FILE-HISTORY 50943 . 52877) (
|
||||
GIT-PRINT-FILE-HISTORY 52879 . 53929) (GIT-FETCH 53931 . 54103)) (54135 65255 (GIT-BRANCH-DIFF 54145
|
||||
. 60892) (GIT-COMMIT-DIFFS 60894 . 61567) (GIT-BRANCH-RELATIONS 61569 . 65253)) (65300 84312 (
|
||||
GIT-BRANCH-NUM 65310 . 65883) (GIT-CHECKOUT 65885 . 67171) (GIT-WHICH-BRANCH 67173 . 67580) (
|
||||
GIT-MAKE-BRANCH 67582 . 70161) (GIT-BRANCHES 70163 . 72758) (GIT-BRANCH-EXISTS? 72760 . 73631) (
|
||||
GIT-PICK-BRANCH 73633 . 74123) (GIT-BRANCH-MENU 74125 . 75006) (GIT-BRANCH-WHENSELECTEDFN 75008 .
|
||||
77173) (GIT-PULL-REQUESTS 77175 . 80693) (GIT-SHORT-BRANCH-NAME 80695 . 80986) (GIT-LONG-NAME 80988 .
|
||||
81305) (GIT-PRC-BRANCHES 81307 . 84310)) (84342 87790 (GIT-MY-CURRENT-BRANCH 84352 . 84722) (
|
||||
GIT-MY-BRANCHP 84724 . 85342) (GIT-MY-NEXT-BRANCH 85344 . 85838) (GIT-MY-BRANCHES 85840 . 87788)) (
|
||||
87836 91911 (GIT-ADD-WORKTREE 87846 . 89453) (GIT-REMOVE-WORKTREE 89455 . 90385) (GIT-LIST-WORKTREES
|
||||
90387 . 91191) (WORKTREEDIR 91193 . 91909)) (91959 125093 (GIT-GET-DIFFERENT-FILES 91969 . 98393) (
|
||||
GIT-BRANCHES-COMPARE-DIRECTORIES 98395 . 105626) (GIT-WORKING-COMPARE-DIRECTORIES 105628 . 111076) (
|
||||
GIT-COMPARE-WORKTREE 111078 . 115056) (GITCDOBJBUTTONFN 115058 . 119548) (GIT-CD-LABELFN 119550 .
|
||||
120632) (GIT-CD-MENUFN 120634 . 123074) (GIT-WORKING-COMPARE-FILES 123076 . 123696) (
|
||||
GIT-BRANCHES-COMPARE-FILES 123698 . 124862) (GIT-PR-COMPARE 124864 . 125091)) (125163 133188 (CDGITDIR
|
||||
125173 . 125860) (GIT-COMMAND 125862 . 127420) (GITORIGIN 127422 . 128119) (GIT-INITIALS 128121 .
|
||||
128425) (GIT-COMMAND-TO-FILE 128427 . 131912) (GIT-RESULT-TO-LINES 131914 . 132521) (STRIPLOCAL 132523
|
||||
. 133186)))))
|
||||
(FILEMAP (NIL (4195 20774 (GIT-CLONEP 4205 . 5533) (GIT-INIT 5535 . 6165) (GIT-MAKE-PROJECT 6167 .
|
||||
13832) (GIT-GET-PROJECT 13834 . 15759) (GIT-PUT-PROJECT-FIELD 15761 . 17402) (GIT-PROJECT-PATH 17404
|
||||
. 18448) (FIND-ANCESTOR-DIRECTORY 18450 . 18799) (GIT-FIND-CLONE 18801 . 19882) (GIT-MAINBRANCH 19884
|
||||
. 20279) (GIT-MAINBRANCH? 20281 . 20772)) (26237 31166 (PRC-COMMAND 26247 . 31164)) (31222 34010 (
|
||||
ALLSUBDIRS 31232 . 32518) (MEDLEYSUBDIRS 32520 . 33213) (GITSUBDIRS 33215 . 34008)) (34011 38801 (
|
||||
TOGIT 34021 . 35427) (FROMGIT 35429 . 36410) (GIT-DELETE-FILE 36412 . 37258) (MYMEDLEY-DELETE-FILES
|
||||
37260 . 38799)) (38802 41805 (MYMEDLEYSUBDIR 38812 . 39268) (GITSUBDIR 39270 . 39713) (STRIPDIR 39715
|
||||
. 40086) (STRIPHOST 40088 . 40328) (STRIPNAME 40330 . 41083) (STRIPWHERE 41085 . 41803)) (41806 43708
|
||||
(GFILE4MFILE 41816 . 42179) (MFILE4GFILE 42181 . 42750) (GIT-REPO-FILENAME 42752 . 43706)) (43757
|
||||
54119 (GIT-COMMIT 43767 . 44593) (GIT-PUSH 44595 . 45355) (GIT-PULL 45357 . 46109) (GIT-APPROVAL 46111
|
||||
. 46460) (GIT-GET-FILE 46462 . 48484) (GIT-FILE-EXISTS? 48486 . 48760) (GIT-REMOTE-UPDATE 48762 .
|
||||
49597) (GIT-REMOTE-ADD 49599 . 49906) (GIT-FILE-DATE 49908 . 50955) (GIT-FILE-HISTORY 50957 . 52891) (
|
||||
GIT-PRINT-FILE-HISTORY 52893 . 53943) (GIT-FETCH 53945 . 54117)) (54149 65269 (GIT-BRANCH-DIFF 54159
|
||||
. 60906) (GIT-COMMIT-DIFFS 60908 . 61581) (GIT-BRANCH-RELATIONS 61583 . 65267)) (65314 84700 (
|
||||
GIT-BRANCH-NUM 65324 . 65897) (GIT-CHECKOUT 65899 . 67185) (GIT-WHICH-BRANCH 67187 . 67594) (
|
||||
GIT-MAKE-BRANCH 67596 . 70175) (GIT-BRANCHES 70177 . 72772) (GIT-BRANCH-EXISTS? 72774 . 73645) (
|
||||
GIT-PICK-BRANCH 73647 . 74137) (GIT-BRANCH-MENU 74139 . 75020) (GIT-BRANCH-WHENSELECTEDFN 75022 .
|
||||
77561) (GIT-PULL-REQUESTS 77563 . 81081) (GIT-SHORT-BRANCH-NAME 81083 . 81374) (GIT-LONG-NAME 81376 .
|
||||
81693) (GIT-PRC-BRANCHES 81695 . 84698)) (84730 88178 (GIT-MY-CURRENT-BRANCH 84740 . 85110) (
|
||||
GIT-MY-BRANCHP 85112 . 85730) (GIT-MY-NEXT-BRANCH 85732 . 86226) (GIT-MY-BRANCHES 86228 . 88176)) (
|
||||
88224 92299 (GIT-ADD-WORKTREE 88234 . 89841) (GIT-REMOVE-WORKTREE 89843 . 90773) (GIT-LIST-WORKTREES
|
||||
90775 . 91579) (WORKTREEDIR 91581 . 92297)) (92347 125481 (GIT-GET-DIFFERENT-FILES 92357 . 98781) (
|
||||
GIT-BRANCHES-COMPARE-DIRECTORIES 98783 . 106014) (GIT-WORKING-COMPARE-DIRECTORIES 106016 . 111464) (
|
||||
GIT-COMPARE-WORKTREE 111466 . 115444) (GITCDOBJBUTTONFN 115446 . 119936) (GIT-CD-LABELFN 119938 .
|
||||
121020) (GIT-CD-MENUFN 121022 . 123462) (GIT-WORKING-COMPARE-FILES 123464 . 124084) (
|
||||
GIT-BRANCHES-COMPARE-FILES 124086 . 125250) (GIT-PR-COMPARE 125252 . 125479)) (125551 133576 (CDGITDIR
|
||||
125561 . 126248) (GIT-COMMAND 126250 . 127808) (GITORIGIN 127810 . 128507) (GIT-INITIALS 128509 .
|
||||
128813) (GIT-COMMAND-TO-FILE 128815 . 132300) (GIT-RESULT-TO-LINES 132302 . 132909) (STRIPLOCAL 132911
|
||||
. 133574)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
Binary file not shown.
Reference in New Issue
Block a user