robert.hooke;或如何将元数据附加到Clojure中的函数

Question

我正在使用Clojure库来尝试向我的应用程序中的任何函数添加行为。

这里就是我想要做：

(require '[robert.hooke :as hook]) 

(defn new-behavior 
    [f & args] 
    (let [id "test"] 
    (println "The new behavior is to output the ID defined at the hook level: " id) 
    (apply f args))) 

(defn add-behavior! 
    [id task-var] 
    (hook/add-hook task-var new-behavior)) 

然后我想补充一个行为是这样的：

(defn foo [] (println "foo test")) 

(add-behavior! "foo-id" #'foo) 

我想做些什么能在这里做的就是以某种方式改变在add-behavior!函数中的vartask-var函数的元数据，然后从new-behavior函数访问新的元数据。我希望能够做这样的事情（注意，这不是明显的工作）：

(defn new-behavior 
    [f & args] 
    (let [id (::behavior-id (meta f))] 
    (println "The new behavior is to output the ID defined at the hook level: " id) 
    (apply f args))) 

(defn add-behavior! 
    [id task-var] 
    (alter-meta! task-var assoc-in [::behavior-id] id) 
    (hook/add-hook task-var new-behavior)) 

(defn foo [] (println "foo test")) 

(add-behavior! "foo-id" #'foo) 

目前的方法是不行的，因为在add-behavior!它改变了var什么的元数据我我正在访问的new-behavior是函数的元数据，它是nil。

所以，这导致了两个问题：

1. 我怎么能访问关联到new-behavior的function的var的元数据？
2. 或者，我如何更改add-behavior中的var的function的元数据？

Answer 1

通过partial向var new-behavior提供var是否可以接受？

(defn new-behavior 
    [the-var f & args] 
    (let [id (::behavior-id (meta the-var))] 
    (println "The new behavior is to output the ID defined at the hook level: " id) 
    (apply f args))) 

(defn add-behavior! 
    [id task-var] 
    (alter-meta! task-var assoc-in [::behavior-id] id) 
    (hook/add-hook task-var (partial new-behavior task-var))) 

(defn foo [] (println "foo test")) 

(add-behavior! "foo-id" #'foo) 

不知道更多关于您试图解决的问题，很难判断这里是否有更好的设计。