makefile-targets and some other meta info functions added

This commit is contained in:
2026-08-18 02:15:33 +02:00
parent a21f4a4a39
commit 635d2d40d1
13 changed files with 538 additions and 251 deletions
+18 -18
View File
@@ -2,14 +2,14 @@
(require "main.rkt")
(makefile racket-makefile
(default-target all)
(phony all commit push status pull clean package doc showdoc refresh)
(makefile 'racket-makefile
(default-target 'all)
(phony 'all 'commit 'push 'status 'pull 'clean 'package 'doc 'showdoc 'refresh)
(target all
(target 'all
(displayln "use (make 'clean), (make 'package), or (make 'commit)"))
(target commit
(target 'commit
(let ([st (git 'status)])
(displayln st)
(when (> (length st) 0)
@@ -17,10 +17,10 @@
(git 'commit)
(git 'push))))
(target push
(target 'push
(git 'push))
(target status
(target 'status
(displayln "git status:")
(for-each
(λ (e)
@@ -28,10 +28,10 @@
(format "~a\t:\t~a (remote ~a)" (caddr e) (cadr e) (car e))))
(git 'status)))
(target pull
(target 'pull
(git 'pull))
(target clean
(target 'clean
(for-each (λ (f) (displayln f) (rm-f f))
(list-files "." #px"([.]bak|~)$" #:recursive #t))
@@ -40,15 +40,15 @@
(for-each (λ (f) (displayln f) (rm-f f))
(list-files "scrbl" #px"[.](css|js|html)$")))
(target version
(target 'version
(displayln (format "Next version: ~a" (git 'next-version))))
(target package
(deps clean)
(target 'package
(deps 'clean)
(zip-package))
(target zip
(deps package))
(target 'zip
(deps 'package))
(target "docs/racket-makefile.html"
(deps "scrbl/racket-makefile.scrbl")
@@ -56,15 +56,15 @@
(make-directory "docs"))
(raco '(scribble --html +m --dest "docs" scrbl/racket-makefile.scrbl)))
(target doc
(target 'doc
(deps "docs/racket-makefile.html")
(displayln "Documentation built"))
(target showdoc
(deps doc)
(target 'showdoc
(deps 'doc)
(send-url/file "docs/racket-makefile.html"))
(target refresh
(target 'refresh
(displayln "Refreshing makefile")
(refresh-makefile)
(displayln "done.")))