github.com/Interlisp.medley
1
0
Fork 0
mirror of synced 2026-04-29 05:16:11 +00:00
Code Issues Projects Releases Wiki Activity

Lispusers packages: MODERNIZE, THINFILES TEDIT-PF-SEE (new)

Browse Source 
MODERNIZE interacts better with TEDIT split windows, THINFILES works better on filenames, not just extensions.  TEDIT-PF is new: provides commands tpf and ts for doing PFCOPYBYTES or SEE to scrollable read-only TEDIT windows, also functions for remembering and reusing the regions of windows of particular types.
This commit is contained in:
rmkaplan
2021-10-12 16:49:35 -07:00
parent e222743f74
commit 32461da7eb
7 changed files with 292 additions and 123 deletions
Download Patch File Download Diff File Expand all files Collapse all files

67
lispusers/THINFILES
View File

@@ -1,11 +1,12 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
(FILECREATED "18-Aug-2021 20:46:55" 
{DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>THINFILES.;5 8653
changes to%: (FNS FB.THINCOMMAND)
(FILECREATED " 9-Oct-2021 00:35:17" 
{DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>THINFILES.;11 8621
previous date%: " 8-Aug-2021 15:05:08"
{DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>THINFILES.;4)
changes to%: (FNS FB.THINP)
previous date%: " 7-Oct-2021 12:40:24"
{DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>THINFILES.;8)
(* ; "
@@ -14,16 +15,16 @@ Copyright (c) 1987-1989, 1992, 2021 by Xerox Corporation.
(PRETTYCOMPRINT THINFILESCOMS)
(RPAQQ THINFILESCOMS [(DECLARE%: EVAL@COMPILE DONTCOPY (FILES (LOADCOMP)
FILEBROWSER))
(FNS FB.THINCOMMAND FB.THINP)
(INITVARS [THINEXTENSIONS (UNION *COMPILED-EXTENSIONS*
'(SYSOUT DCOM DATABASE LCOM DFASL MCOM
MFASL DRIBBLE]
(THINNAMES NIL))
(APPENDVARS (FB.MENU.ITEMS (Thin FB.THINCOMMAND
(RPAQQ THINFILESCOMS
[(DECLARE%: EVAL@COMPILE DONTCOPY (FILES (LOADCOMP)
FILEBROWSER))
(FNS FB.THINCOMMAND FB.THINP)
(INITVARS [THINEXTENSIONS (UNION *COMPILED-EXTENSIONS*
'(SYSOUT DCOM DATABASE LCOM DFASL MCOM MFASL DRIBBLE]
(THINNAMES NIL))
(APPENDVARS (FB.MENU.ITEMS (Thin FB.THINCOMMAND
"Delvers non-source files and removes all but the last source file of each day."
])
])
(DECLARE%: EVAL@COMPILE DONTCOPY
(FILESLOAD (LOADCOMP)
@@ -116,29 +117,33 @@ Copyright (c) 1987-1989, 1992, 2021 by Xerox Corporation.
(FB.PROMPTWPRINT FBROWSER T "Done, " NDELETED " files marked for deletion."])
(FB.THINP
[LAMBDA (FILENAME AGE DELTATIMESTAMP OLDESTVERSION? ONEDAY)
(* ; "Edited 8-Aug-2021 15:05 by rmk:")
[LAMBDA (FILENAME AGE DELTATIMESTAMP OLDESTVERSION? ONEDAY)
(* ; "Edited 9-Oct-2021 00:35 by rmk:")
(SETQ FILENAME (U-CASE FILENAME))
(COND
((FMEMB (U-CASE (FILENAMEFIELD FILENAME 'EXTENSION))
THINEXTENSIONS) (* ;
 "always delver files that can be reconstructed from the source.")
T)
((AND THINNAMES (EQMEMB (U-CASE (FILENAMEFIELD FILENAME 'NAME))
THINNAMES))
T)
(OLDESTVERSION? (* ;
 "don't delete the oldest version of source files.")
[(OR (EQMEMB (FILENAMEFIELD FILENAME 'EXTENSION)
THINEXTENSIONS)
(FIND TN (FN _ (FILENAMEFIELD FILENAME 'NAME))
(FE _ (FILENAMEFIELD FILENAME 'EXTENSION)) INSIDE THINNAMES
SUCHTHAT
(* ;; "Separate extractions because period for null extension is confusing")
(AND (EQ FN (FILENAMEFIELD TN 'NAME))
(EQ FE (FILENAMEFIELD TN 'EXTENSION]
(OLDESTVERSION? (* ;
 "don't delete the oldest version of source files.")
NIL)
((ILESSP AGE ONEDAY) (* ;
 "don't delete anything written within 24 hours.")
((ILESSP AGE ONEDAY) (* ;
 "don't delete anything written within 24 hours.")
NIL)
((ILESSP (ITIMES DELTATIMESTAMP 3)
ONEDAY) (* ;
 "delete anything that occurs on the same day as something else (except for the first day)")
ONEDAY) (* ;
 "delete anything that occurs on the same day as something else (except for the first day)")
T)
((ILESSP DELTATIMESTAMP (IQUOTIENT AGE 30))
(* ;; "after one month, delete things that are within a day of each other, after two months, within two days, etc.")
(* ;; "after one month, delete things that are within a day of each other, after two months, within two days, etc.")
T])
)
@@ -153,5 +158,5 @@ Copyright (c) 1987-1989, 1992, 2021 by Xerox Corporation.
))
(PUTPROPS THINFILES COPYRIGHT ("Xerox Corporation" 1987 1988 1989 1992 2021))
(DECLARE%: DONTCOPY
(FILEMAP (NIL (1297 8184 (FB.THINCOMMAND 1307 . 6808) (FB.THINP 6810 . 8182)))))
(FILEMAP (NIL (1106 8152 (FB.THINCOMMAND 1116 . 6617) (FB.THINP 6619 . 8150)))))
STOP