Clojure：如何从长代理语句中提取代理方法代码？

Question

我有一个 Clojure proxy 语句，该语句变得庞大且混乱，因此我决定尝试将 beginDrag 方法重新定义的代码从 proxy 语句，如下所示：

(defn enhanced-start-drag
  ""
  [pie]
  (let [pobj   (. pie getPickedNode)
    pobj-coll (seq (.. pie getInputManager
               getKeyboardFocus getSelection))]
    (println pobj)
    (println pobj-coll)
    (println "----------")
    (proxy-super startDrag pie)))  ; THIS IS LINE 94 (SEE ERROR MSG)



(defn custom-selection-event-handler [marqueeParent selectableParent]
  (proxy [PSelectionEventHandler]  [marqueeParent selectableParent]
    (decorateSelectedNode [node]
              (let [stroke-color (Color/red)]
                (.setStrokePaint node stroke-color)))
    (undecorateSelectedNode [node]
                (let [stroke-color (Color/black)]
                  (.setStrokePaint node stroke-color)))
    (startDrag [pie]    ; pie is a PInputEvent
           (enhanced-start-drag pie))
    (endStandardSelection [pie]     ; pie is a PInputEvent
              (let [pobj   (.getPickedNode pie)
                slip   (. pobj getAttribute "slip")
                ]
                (swap! *last-slip-clicked*
                   (fn [x] slip))))))

我收到以下编译错误：

cd /Users/gw/tech/clojurestuff/cljprojects/infwb/src/infwb/
1 compiler notes:

Unknown location:
  error: java.lang.Exception: Unable to resolve symbol: this in this context

core.clj:94:5:
  error: java.lang.Exception: Unable to resolve symbol: this in this context 
    (core.clj:94)

Compilation failed.

一旦将 enhanced-start-drag 的正文恢复到 proxy 语句的正文中，一切正常。

我的问题：有没有办法将混乱的细节移到单独的函数中以提高代码的可读性？

感谢您的所有想法和解决方案。

---

更新，2011 年 10 月 27 日：请参阅下面的评论。 Arthur Ulfeldt 尖锐地指出问题是捕获的引用，Dave Ray 也正确地指出，您所要做的就是将 this 作为参数添加到 enhanced-start-drag 然后 proxy-super 将正常工作。当我进行以下两项更改（对 enhanced-start-drag 的 body 没有任何更改）时，我的代码再次工作：

  (defn enhanced-start-drag
    ""
    [pie this]

顺便说

  (startDrag [pie]  ; IN THE PROXY STMT IN custom-selection-event-handler
   (enhanced-start-drag pie this))

一句，我的项目使用 Dave Ray 的用于获取 Java Swing UI 的 seesaw 项目。 seesaw 很棒，它的文档字符串和示例代码也很棒（比大多数商业软件要好得多）。我强烈推荐它！谢谢你，戴夫！

Answer 1

您已被符号捕获< /a>。在这种情况下，这是故意的，但您需要保持警惕。从 proxy-super 的文档来看，

Use to call a superclass method in the body of a proxy method. 
Note, expansion captures 'this`

代理正在创建一个调用函数的类，当调用进入 enhanced-start-drag 时 this 的值code> 不是 proxy-super 期望的地方，

您可能需要将 this 作为另一个参数传递到enhanced-start-drag，然后调用 (.saved-this ...)而不是使用代理超级。

---