initial commitHEADmaster

1 files changed, 64 insertions, 0 deletions

diff --git a/kenku b/kenku
new file mode 100755
index 0000000..45b1f9c
--- /dev/null
+++ b/kenku
@@ -0,0 +1,64 @@
+#!/run/current-system/profile/bin/guile \
+-L .
+!#
+;; kenku --- crawl and reproduce github actions
+;; Copyright © 2026 bdunahu <bdunahu@operationnull.com>
+;;
+;; This program is free software: you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+;;
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+;;
+;; You should have received a copy of the GNU General Public License
+;; along with this program.  If not, see <https://www.gnu.org/licenses/>.
+
+(use-modules (ice-9 match)
+             ((src poll-repos) #:prefix poll:)
+             ((src crawl-actions-wrapper) #:prefix get-act:)
+             ((src crawl-newest-commits) #:prefix new-commit:)
+             ((src crawl-type-wrapper) #:prefix get-type:)
+             ((src crawl-lockfiles) #:prefix get-lock:)
+             ((src build-actions) #:prefix build:))
+
+(define (main . args)
+  (match args
+    (("poll" . args)
+     (poll:poll-repos))
+    (("crawl" . args)
+     (get-act:crawl-actions))
+    (("commits" . args)
+     (new-commit:crawl-commits))
+    (("types" . args)
+     (get-type:crawl-types))
+    (("lock" . args)
+     (get-lock:crawl-lockfiles))
+    (("build" . args)
+     (build:build-actions))
+    (anything
+     (format (current-error-port)
+             "Usage: kenku <command>
+
+Commands:
+  poll
+      write a bunch of github repos to cache
+  crawl
+      write the referenced workflows from each polled repo
+  commits
+      get the newest commits of each referenced action
+  types
+      get the types of the newest referenced actions
+  lock
+      get the package manager used by each node action
+  build
+      build all npm actions in a container~%"))))
+
+(apply main (cdr (command-line)))
+
+;; Local Variables:
+;; mode: scheme
+;; End: