This repository was archived by the owner on Jun 27, 2025. It is now read-only.
File tree Expand file tree Collapse file tree 2 files changed +11
-8
lines changed Expand file tree Collapse file tree 2 files changed +11
-8
lines changed Original file line number Diff line number Diff line change 1
1
services :
2
2
mcp_docker :
3
- image : mcp/docker:0.0.2
3
+ image : mcp/docker:0.0.3
4
4
ports :
5
5
- 8811:8811
6
6
volumes :
Original file line number Diff line number Diff line change 16
16
[{:keys [register] :as opts}]
17
17
(->> register
18
18
(map (fn [{:keys [cached-path ref-string]}]
19
- (let [m (prompts/get-prompts (assoc opts :prompts cached-path))]
20
- [(or (-> m :metadata :name ) ref-string) m])))
19
+ (try
20
+ (let [m (prompts/get-prompts (assoc opts :prompts cached-path))]
21
+ [(or (-> m :metadata :name ) ref-string) m])
22
+ (catch Throwable t
23
+ (logger/error (format " error loading %s: %s" ref-string t))))))
21
24
(into {})))
22
25
23
- (defn- extract-resources
26
+ (defn- extract-resources
24
27
" extract resource map from a prompt"
25
28
[m]
26
29
(->> (vals m)
33
36
{:text (-> entry :default :text )}))]))
34
37
(into {})))
35
38
36
- (defn- add-static-prompts
39
+ (defn- add-static-prompts
37
40
[db m]
38
41
(-> db
39
42
(update :mcp.prompts/registry (fnil merge {}) m)
91
94
(constantly (or (:mcp.prompts/static db) {})))))))
92
95
(logger/info " resources are " (:mcp.prompts/resources @db*)))
93
96
94
- (defn update-prompt
97
+ (defn update-prompt
95
98
" update the db with new markdown prompt content being dynamically registered"
96
99
[opts s content]
97
100
(let [m (prompts/get-prompts
98
101
(assoc opts :prompt-content content))]
99
- (swap! db* (fn [db]
100
- (-> db
102
+ (swap! db* (fn [db]
103
+ (-> db
101
104
(update-in [:mcp.prompts/registry s] (constantly m))
102
105
(update-in [:mcp.prompts/static s] (constantly m))
103
106
(update [:mcp.prompts/resources ] (fnil merge {}) (extract-resources m)))))))
You can’t perform that action at this time.
0 commit comments