GITFNS: Fix CDGITDIR for < >, interpret C(opy) (#726)
This commit is contained in:
rmkaplan
GitHub
@@ -1,11 +1,11 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
|
||||
(FILECREATED "28-Feb-2022 13:29:00" {DSK}<Users>kaplan>Local>medley3.5>my-medley>lispusers>GITFNS.;105 71756
|
||||
(FILECREATED " 5-Mar-2022 19:52:30" {DSK}<Users>kaplan>Local>medley3.5>my-medley>lispusers>GITFNS.;108 71762
|
||||
|
||||
:CHANGES-TO (COMMANDS prc)
|
||||
:CHANGES-TO (FNS CDGITDIR)
|
||||
|
||||
:PREVIOUS-DATE "28-Feb-2022 12:39:42"
|
||||
{DSK}<Users>kaplan>Local>medley3.5>my-medley>lispusers>GITFNS.;103)
|
||||
:PREVIOUS-DATE " 5-Mar-2022 12:08:34"
|
||||
{DSK}<Users>kaplan>Local>medley3.5>my-medley>lispusers>GITFNS.;107)
|
||||
|
||||
|
||||
(PRETTYCOMPRINT GITFNSCOMS)
|
||||
@@ -241,19 +241,18 @@
|
||||
[LAMBDA (HOST1 HOST2)
|
||||
|
||||
(* ;;
|
||||
"Edited 25-Feb-2022 21:57 by rmk: the union of the subdirectories that exist under all the hosts")
|
||||
"Edited 5-Mar-2022 09:42 by rmk: the union of the subdirectories that exist under all the hosts")
|
||||
|
||||
(* ;; "Returns the union of the subdirectories that exist under all the hosts")
|
||||
|
||||
(LET ((HOSTS (MKLIST HOST1))
|
||||
(FILING.ENUMERATION.DEPTH 1)
|
||||
VAL)
|
||||
(DECLARE (SPECVARS FILING.ENUMERATION.DEPTH))
|
||||
(CL:WHEN HOST2 (PUSHNEW HOSTS HOST2))
|
||||
(CL:UNLESS HOSTS
|
||||
(SETQ HOSTS (LIST MYMEDLEYHOST GITMEDLEYHOST)))
|
||||
(SORT (FOR H VAL IN HOSTS
|
||||
JOIN (FOR F IN (FILDIR (PACKFILENAME 'HOST H 'BODY '*)) WHEN (DIRECTORYNAMEP F)
|
||||
JOIN (FOR F IN (FILDIR (PACKFILENAME 'HOST H 'BODY '*)
|
||||
1) WHEN (DIRECTORYNAMEP F)
|
||||
UNLESS (OR [EQ (CHARCODE %.)
|
||||
(CHCON1 (SETQ D (FILENAMEFIELD F 'DIRECTORY]
|
||||
(THEREIS SKIP IN GIT-IGNORE-DIRECTORIES
|
||||
@@ -482,7 +481,7 @@
|
||||
(GIT-BRANCH-DIFF
|
||||
[LAMBDA (BRANCH1 BRANCH2)
|
||||
|
||||
(* ;; "Edited 23-Feb-2022 17:45 by rmk: returns an ALIST that classifies how the files in BRANCH1 and BRANCH2 differ (changed, renamed, added, deleted, copied).")
|
||||
(* ;; "Edited 28-Feb-2022 22:27 by rmk: returns an ALIST that classifies how the files in BRANCH1 and BRANCH2 differ (changed, renamed, added, deleted, copied).")
|
||||
|
||||
(* ;; "This returns an ALIST that classifies how the files in BRANCH1 and BRANCH2 differ (changed, renamed, added, deleted, copied).")
|
||||
|
||||
@@ -514,8 +513,7 @@
|
||||
(M (CL:IF (SETQ POS (STRPOS " " L))
|
||||
(PUSH CHANGED (SUBSTRING L (ADD1 POS)))
|
||||
(ERROR "CHANGED NOT RECOGNIZED" L)))
|
||||
(C (HELP "COPY NOT UNDERSTOOD" L)
|
||||
(IF (SETQ POS (STRPOS " " L))
|
||||
(C (IF (SETQ POS (STRPOS " " L))
|
||||
THEN [PUSH COPIED (LIST [SUBSTRING L (ADD1 POS)
|
||||
(SUB1 (SETQ POS (STRPOS " " L (ADD1 POS]
|
||||
(SUBSTRING L (ADD1 POS]
|
||||
@@ -1337,14 +1335,15 @@
|
||||
(DEFINEQ
|
||||
|
||||
(CDGITDIR
|
||||
[LAMBDA (GITCLONE) (* ; "Edited 5-Feb-2022 11:35 by rmk")
|
||||
[LAMBDA (GITCLONE) (* ; "Edited 5-Mar-2022 19:48 by rmk")
|
||||
(* ; "Edited 5-Feb-2022 11:35 by rmk")
|
||||
(* ; "Edited 18-Jan-2022 15:37 by rmk")
|
||||
(* ; "Edited 16-Nov-2021 10:16 by rmk:")
|
||||
(* ; "Edited 2-Nov-2021 21:12 by rmk:")
|
||||
|
||||
(* ;; "Strips off {UNIX}")
|
||||
|
||||
(CONCAT "cd " (STRIPHOST (TRUEFILENAME (GIT-CLONEP GITCLONE)))
|
||||
(CONCAT "cd " [SLASHIT (STRIPHOST (TRUEFILENAME (GIT-CLONEP GITCLONE]
|
||||
" ; "])
|
||||
|
||||
(GIT-COMMAND
|
||||
@@ -1403,22 +1402,22 @@
|
||||
(ERROR "INITIALS is not set"])
|
||||
)
|
||||
(DECLARE%: DONTCOPY
|
||||
(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)))))
|
||||
(FILEMAP (NIL (4679 5525 (GIT-CLONEP 4689 . 5523)) (7851 9831 (ALLSUBDIRS 7861 . 9029) (MEDLEYSUBDIRS
|
||||
9031 . 9470) (GITSUBDIRS 9472 . 9829)) (9832 15306 (TOGIT 9842 . 11990) (FROMGIT 11992 . 12970) (
|
||||
GIT-DELETE-FILE 12972 . 13866) (MYMEDLEY-DELETE-FILES 13868 . 15304)) (15307 17456 (MYMEDLEYSUBDIR
|
||||
15317 . 15763) (GITSUBDIR 15765 . 16088) (STRIPDIR 16090 . 16461) (STRIPHOST 16463 . 16699) (STRIPNAME
|
||||
16701 . 17454)) (17457 18985 (GFILE4MFILE 17467 . 17713) (MFILE4GFILE 17715 . 18057) (
|
||||
GIT-REPO-FILENAME 18059 . 18983)) (19034 29384 (GIT-COMMIT 19044 . 19622) (GIT-PUSH 19624 . 20180) (
|
||||
GIT-PULL 20182 . 20588) (GIT-BRANCH-DIFF 20590 . 24388) (GIT-APPROVAL 24390 . 24591) (GIT-GET-FILE
|
||||
24593 . 26796) (GIT-FILE-EXISTS? 26798 . 27522) (GIT-REMOTE-UPDATE 27524 . 28566) (GIT-REMOTE-ADD
|
||||
28568 . 28875) (GIT-FILE-DATE 28877 . 29382)) (29429 35048 (GIT-CHECKOUT 29439 . 29680) (
|
||||
GIT-WHICH-BRANCH 29682 . 30266) (GIT-MAKE-BRANCH 30268 . 31759) (GIT-BRANCHES 31761 . 32739) (
|
||||
GIT-BRANCH-EXISTS? 32741 . 33802) (PICK-BRANCH 33804 . 34148) (GIT-PULL-REQUESTS 34150 . 35046)) (
|
||||
35078 37783 (GIT-MY-CURRENT-BRANCH 35088 . 35261) (GIT-MY-BRANCHP 35263 . 36182) (GIT-MY-NEXT-BRANCH
|
||||
36184 . 36625) (GIT-MY-BRANCHES 36627 . 37781)) (37829 41599 (GIT-ADD-WORKTREE 37839 . 39599) (
|
||||
GIT-REMOVE-WORKTREE 39601 . 40179) (GIT-LIST-WORKTREES 40181 . 40985) (WORKTREEDIR 40987 . 41597)) (
|
||||
41647 68101 (GIT-GET-DIFFERENT-FILES 41657 . 46747) (GIT-COMPARE-BRANCHES 46749 . 52241) (
|
||||
GIT-COMPARE-WITH-MYMEDLEY 52243 . 55963) (GIT-COMPARE-WORKTREE 55965 . 59442) (GITCDOBJBUTTONFN 59444
|
||||
. 64448) (GIT-CD-LABELFN 64450 . 65532) (GIT-CD-MENUFN 65534 . 68099)) (68171 71739 (CDGITDIR 68181
|
||||
. 68877) (GIT-COMMAND 68879 . 70852) (GITORIGIN 70854 . 71431) (GIT-INITIALS 71433 . 71737)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
Reference in New Issue
Block a user