.scm for scheme syntax

2026-09-02 23:18:57 +02:00
parent b257e195f9
commit 5ff106ac14
3 changed files with 45 additions and 40 deletions
@@ -1,39 +0,0 @@
-#lang racket/base
-
-(require racket-makefile)
-
-(define test-install #f)
-
-(makefile 'skill
-   (target 'all
-       (displayln "Use (make 'install)"))
-
-   (target 'install
-       (let ((home (find-system-path 'home-dir)))
-          (when (eq? home #f)
-               (error "No home directory?, cannot find place of .codex"))
-          (let* ((pwd (current-directory))
-                 (skilld (build-path home ".codex" "skills"))
-                 (racket-skilld (build-path skilld "racket-skill"))
-                 (js-skilld (build-path skilld "javascript-skill"))
-                 (cp (lambda (to-dir file) 
-                       (let ((from (build-path pwd file))
-                              (to   (build-path to-dir "SKILL.md")))
-                          (unless (directory-exists? to-dir)
-                             (make-directory to-dir))
-                          (displayln (format "cp ~a -> ~a" from to))
-                         (unless test-install
-                           (copy-file from to #:exists-ok? #t)))))
-                 )
-            (cp racket-skilld "racket-skill.md")
-            (cp js-skilld "javascript-skill.md")
-            )))
-
-
-   (target 'test-install
-           (set! test-install #t)
-           (make 'install)
-           (set! test-install #f))
-           
-   )
-       
@@ -0,0 +1,44 @@
+#lang racket/base
+
+(require racket-makefile
+         racket/file)
+
+(define test-install #f)
+
+(makefile 'skill
+   (target 'all
+       (displayln "Use (make 'install)"))
+
+   (target 'install
+       (let ((home (find-system-path 'home-dir)))
+          (when (eq? home #f)
+               (error "No home directory?, cannot find place of .codex"))
+	  (for-each (lambda (subdir)
+             (let* ((pwd (current-directory))
+                    (skilld (build-path home subdir)) ;".codex" "skills"))
+                    (racket-skilld (build-path skilld "racket-skill"))
+                    (js-skilld (build-path skilld "javascript-skill"))
+                    (cp (lambda (to-dir file) 
+                          (let ((from (build-path pwd file))
+                                 (to   (build-path to-dir "SKILL.md")))
+                             (unless (directory-exists? to-dir)
+                                (make-directory* to-dir))
+                             (displayln (format "cp ~a -> ~a" from to))
+                            (unless test-install
+                              (copy-file from to #:exists-ok? #t)))))
+                    )
+               (cp racket-skilld "racket-skill.md")
+               (cp js-skilld "javascript-skill.md")
+              ))
+              (list (build-path ".codex" "skills")
+                    (build-path ".copilot" "skills")))
+            ))
+
+
+   (target 'test-install
+           (set! test-install #t)
+           (make 'install)
+           (set! test-install #f))
+           
+   )
+       
@@ -1,2 +1,2 @@
 #!/bin/bash
-racket -e "(enter! \"Makefile.mk\") (make 'install)"
+racket -e "(enter! \"Makefile.scm\") (make 'install)"