| (ns snapkitty.lisp.mcp.server | |
| "MCP server entry point" | |
| (:require ["@modelcontextprotocol/sdk/server/mcp.js" :refer [McpServer]] | |
| ["@modelcontextprotocol/sdk/server/stdio.js" :refer [StdioServerTransport]] | |
| [promesa.core :as p] | |
| [snapkitty.lisp.mcp.config :as config] | |
| [snapkitty.lisp.mcp.tools :as tools] | |
| [snapkitty.lisp.mcp.util :as util] | |
| [snapkitty.lisp.knowledge.qdrant :as qdrant] | |
| [snapkitty.lisp.native :as native])) | |
| (defn start! [] | |
| "Start MCP server on stdio transport" | |
| (let [cfg (config/load-config) | |
| mcp-server (McpServer. (clj->js {:name "snapkitty-lisp" | |
| :version "1.0.0"}))] | |
| (util/log "[snapkitty-lisp] Loading configuration...") | |
| (util/log "[snapkitty-lisp] Qdrant URL:" (:qdrant-url cfg)) | |
| (util/log "[snapkitty-lisp] Collection:" (:collection-name cfg)) | |
| (p/let [_ (qdrant/ensure-collection! cfg)] | |
| (util/log "[snapkitty-lisp] Collection ready") | |
| ; Load native ASM library | |
| (p/let [_ (native/load-native-library! "./native/build/Release/skclisp_native.node")] | |
| (util/log "[snapkitty-lisp] Native ASM library loaded") | |
| (tools/register-tools! mcp-server cfg) | |
| (util/log "[snapkitty-lisp] Tools registered") | |
| (let [transport (StdioServerTransport.)] | |
| (p/let [_ (.connect mcp-server transport)] | |
| (util/log "[snapkitty-lisp] MCP server ready on stdio")))))))) | |
| ;; Node.js entry point | |
| (set! (.-default js/module.exports) start!) | |