Removed rash integration again and backported raco call.

2026-08-17 21:40:48 +02:00
parent 26a0e780c5
commit a21f4a4a39
15 changed files with 716 additions and 1287 deletions
@@ -1,60 +1,70 @@
-#lang racket
+#lang racket/base

 (require "main.rkt")

-(target all
-        (displayln "use (make clean) or (make package) or (make commit/push")
-        )
+(makefile racket-makefile
+  (default-target all)
+  (phony all commit push status pull clean package doc showdoc refresh)

-(target commit
-        (let ((st (git 'status)))
-          (displayln st)
-          (when (> (length st) 0)
-            (git 'add '-A)
-            (git 'commit)
-            (git 'push))))
+  (target all
+    (displayln "use (make 'clean), (make 'package), or (make 'commit)"))

-(target push
-        (git 'push))
+  (target commit
+    (let ([st (git 'status)])
+      (displayln st)
+      (when (> (length st) 0)
+        (git 'add '-A)
+        (git 'commit)
+        (git 'push))))

-(target status
-        (displayln "git status:")
-        (for-each (λ (e)
-                    (displayln
-                     (format "~a: ~a (remote ~a)" (caddr e) (cadr e) (car e))))
-                  (git 'status))
-        )
+  (target push
+    (git 'push))

-(target pull
-        (git 'pull))
+  (target status
+    (displayln "git status:")
+    (for-each
+     (λ (e)
+       (displayln
+        (format "~a\t:\t~a (remote ~a)" (caddr e) (cadr e) (car e))))
+     (git 'status)))

-(target clean
-        (for-each (λ (f) (displayln f) (rm-f f)) (list-files "." #px"([.]bak|~)$" #:recursive #t))
-        (for-each (λ (d) (displayln d) (rm-rf d)) (list-dirs "." #px"(compiled|doc|docs)$" #:recursive #t))
-        (for-each (λ (f) (displayln f) (rm-f f)) (list-files "scrbl" #px"[.](css|js|html)$"))
-        )
+  (target pull
+    (git 'pull))

-(target package
-        (deps clean)
-        (zip-package))
+  (target clean
+          
+    (for-each (λ (f) (displayln f) (rm-f f))
+              (list-files "." #px"([.]bak|~)$" #:recursive #t))
+    (for-each (λ (d) (displayln d) (rm-rf d))
+              (list-dirs "." #px"(compiled|doc|docs)$" #:recursive #t))
+    (for-each (λ (f) (displayln f) (rm-f f))
+              (list-files "scrbl" #px"[.](css|js|html)$")))

-(target "docs/racket-makefile.html"
-        (deps "scrbl/racket-makefile.scrbl")
-        (unless (directory-exists? "docs")
-          (make-directory "docs"))
-        (raco '(scribble --html +m --dest "docs" scrbl/racket-makefile.scrbl)))
+  (target version
+          (displayln (format "Next version: ~a" (git 'next-version))))

-(target doc
-        (deps "docs/racket-makefile.html")
-        (displayln "Documentation built")
-        )
+  (target package
+    (deps clean)
+    (zip-package))

-(target showdoc
-        (deps doc)
-        (send-url/file "docs/racket-makefile.html"))
+  (target zip
+          (deps package))

-(target refresh
-        (displayln "Refreshing makefile")
-        (refresh-makefile)
-        (displayln "done.")
-        )
+  (target "docs/racket-makefile.html"
+    (deps "scrbl/racket-makefile.scrbl")
+    (unless (directory-exists? "docs")
+      (make-directory "docs"))
+    (raco '(scribble --html +m --dest "docs" scrbl/racket-makefile.scrbl)))
+
+  (target doc
+    (deps "docs/racket-makefile.html")
+    (displayln "Documentation built"))
+
+  (target showdoc
+    (deps doc)
+    (send-url/file "docs/racket-makefile.html"))
+
+  (target refresh
+    (displayln "Refreshing makefile")
+    (refresh-makefile)
+    (displayln "done.")))