Update sequentialthinking

Author: slimslenderslacks

functions/sequentialthinking/Dockerfile

@@ -0,0 +1,33 @@
+
+# syntax = docker/dockerfile:1.4
+FROM nixos/nix:2.21.1@sha256:3f6c77ee4d2c82e472e64e6cd7087241dc391421a0b42c22e6849c586d5398d9 AS builder
+
+WORKDIR /tmp/build
+RUN mkdir /tmp/nix-store-closure
+
+# ignore SC2046 because the output of nix-store -qR will never have spaces - this is safe here
+# hadolint ignore=SC2046
+RUN --mount=type=cache,target=/nix,from=nixos/nix:2.21.1,source=/nix \
+    --mount=type=cache,target=/root/.cache \
+    --mount=type=bind,target=/tmp/build \
+    <<EOF
+  nix \
+    --extra-experimental-features "nix-command flakes" \
+    --option filter-syscalls false \
+    --extra-trusted-substituters "https://cache.iog.io" \
+    --extra-trusted-public-keys "hydra.iohk.io:f/Ea+s+dFdN+3Y/G+FDgSq+a5NEWhJGzdjvKNGv0/EQ=" \
+    --show-trace \
+    --log-format raw \
+    build . --out-link /tmp/output/result
+  cp -R $(nix-store -qR /tmp/output/result) /tmp/nix-store-closure
+EOF
+
+FROM babashka/babashka:latest@sha256:9e0381fc4c78ee6ff12fd8836352cf343afba289aceb77e36129d92f30a92cc7
+
+WORKDIR /app
+
+COPY --from=builder /tmp/nix-store-closure /nix/store
+COPY --from=builder /tmp/output/ /app/
+
+ENTRYPOINT ["/app/result/bin/entrypoint"]
+CMD ["--help"]

functions/sequentialthinking/bb.edn

@@ -0,0 +1 @@
+{:paths ["."]}

functions/sequentialthinking/flake.lock

@@ -0,0 +1,46 @@
+{
+  description = "{{tool}}";
+
+  inputs = {
+    nixpkgs.url = "github:NixOS/nixpkgs/nixos-23.11";
+    flake-utils.url = "github:numtide/flake-utils";
+  };
+
+  outputs = { self, nixpkgs, flake-utils, ...}@inputs:
+
+    flake-utils.lib.eachDefaultSystem
+      (system:
+        let
+          pkgs = import nixpkgs {
+            inherit system;
+          };
+
+        in rec
+        {
+          packages = rec {
+
+            # this derivation just contains the init.clj script
+            scripts = pkgs.stdenv.mkDerivation {
+              name = "scripts";
+              src = ./.;
+              installPhase = ''
+                mkdir $out
+                cp *.clj $out
+                cp bb.edn $out
+              '';
+            };
+
+            run-entrypoint = pkgs.writeShellScriptBin "entrypoint" ''
+              export SSL_CERT_FILE=${pkgs.cacert}/etc/ssl/certs/ca-bundle.crt
+              cd ${scripts}
+              /usr/local/bin/bb init.clj "$@"
+            '';
+
+            default = pkgs.buildEnv {
+              name = "bb";
+              paths = [ run-entrypoint ];
+            };
+          };
+        });
+}
+

functions/sequentialthinking/flake.nix

@@ -1,5 +1,6 @@
-(ns init 
+(ns init
   (:require
+   [cheshire.core :as json]
    [clojure.spec.alpha :as s]))
 
 ;; validate initial thought
@@ -12,4 +13,42 @@
 (s/def ::thoughtNumber number?)
 (s/def ::totalThoughts number?)
 (s/def ::nextThoughtNeeded boolean?)
-(s/def ::thought-data (s/keys :req-un [::thought ::thoughtNumber ::totalThoughts ::nextThoughtNeeded]))
+
+(s/def ::isRevision boolean?)
+(s/def ::revisesThought number?)
+(s/def ::branchFromThought number?)
+(s/def ::branchId string?)
+(s/def ::needsMoreThoughts boolean?)
+(s/def ::thought-data (s/keys :req-un [::thought ::thoughtNumber ::totalThoughts ::nextThoughtNeeded]
+                              :opt-un [::isRevision ::revisesThought ::branchFromThought ::branchId ::needsMoreThoughts]))
+
+(defn process-thought
+  [m]
+  (if (not (s/valid? ::thought-data m))
+    (throw (ex-info "Invalid thought data" (s/explain-data ::thought-data m)))
+    (let  [thought-history (json/parse-string (slurp "thought-history.json") keyword)
+           branches (json/parse-string (slurp "branches.json") keyword)]
+      (spit "/sequentialthinking/thought-history.json"
+            (json/generate-string
+              (conj thought-history (cond-> m
+                                      (> (:thoughtNumber m) (:totalThoughts m)) (assoc :totalThoughts (:thoughtNumber m))))))
+      (when (= (:branchFromThought m) (:branchId m)) 
+        (spit "/sequentialthinking/branches.json"
+              (json/generate-string
+                (update branches (:branchId m) (fnil conj []) m))))
+      (-> m
+          (select-keys [:thoughtNumber :totalThoughts :nextThoughtNeeded])
+          (assoc :branches (keys branches))
+          (assoc :thoughtHistoryLength (count thought-history))))))
+
+(defn -main [& args]
+  (try
+    (-> (json/parse-string (first args))
+        (process-thought)
+        (json/generate-string)
+        (println)) 
+    (catch Throwable t
+      (println (.getMessage t))
+      (System/exit 1))))
+
+(apply -main *command-line-args*)

functions/sequentialthinking/init.clj

@@ -0,0 +1,22 @@
+
+```sh
+docker build -t vonwig/sequential-thinking:latest .
+```
+
+```sh
+docker run -it --rm \
+           -v mcp-sequentialthinking:/sequentialthinking \
+           vonwig/sequential-thinking:latest \
+           '{"entities": [{"name": "me"}]}'
+```
+
+```sh
+docker buildx build \
+    --builder hydrobuild \
+    --platform linux/amd64,linux/arm64 \
+    --tag vonwig/sequentialthinking:latest \
+    --file Dockerfile \
+    --push .
+docker pull vonwig/sequentialthinking:latest
+```
+

functions/sequentialthinking/runbook.md

@@ -97,7 +97,7 @@ tools:
         - thoughtNumber
         - totalThoughts
     container:
-      image: vonwig/sequential-thinking:latest
+      image: vonwig/sequentialthinking:latest
       volumes: 
         - "mcp-sequentialthinking:/sequentialthinking"
 ---