clojure (add-watch) не сообщается, когда изменения сделаны в буфере обмена

Question

Я пишу небольшой инструмент в clojure и хочу знать, когда в буфере обмена произошли изменения. Вот упрощенная версия того, что происходит.

(:import java.awt.Toolkit) 

(:import (java.awt.datatransfer Clipboard 
           ClipboardOwner 
           Transferable 
           StringSelection 
           DataFlavor 
           FlavorListener)) 

(defn get-clipboard [] (. (Toolkit/getDefaultToolkit) 
        (getSystemClipboard))) 

(defn get-content [] 
    (.getContents (get-clipboard) nil)) 


(def content (agent (get-content))) 


(defn watch [key f] 
(add-watch content key f)) 

(defn -main [] 
    (while (not= content "banana-man") 
    (watch :watcher 
      (fn [key agent old-state new-state] 
      (prn "-- agent Changed --") 
      (prn "key" key) 
      (prn "atom" agent) 
      (prn "old-state" old-state) 
      (prn "new-state" new-state))))) 

Я добавил в цикл while, чтобы немедленно отключить основную функцию.

Это выполняется без каких-либо ошибок, но не сообщает о внесении изменений в буфер обмена или прекращении цикла while при копировании bannan-man в буфер обмена. Я боролся с этим в течение нескольких недель, и я уверен, что я пропустил что-то простое. Если у кого-нибудь есть совет, я бы очень признателен!

Answer 1

Для начала контент является агентом, поэтому он никогда не будет равен строке. Вы должны обработать агент, используя @, чтобы сделать это сравнение.

Цикл while не нужен для предотвращения выхода. Если вы используете пул потоков агентов, Clojure не будет закрыт, пока вы явно не запустите shutdown-agents. Но мы будем нуждаться в нем для управления обновлениями вашего агента.

content не будет изменен после вашего первоначального назначения, если вы явно не отправите ему функцию обновления с помощью send или send-off. Не позволяйте названию вводить вас в заблуждение, агенты не являются автономными и не являются запланированными или повторяющимися задачами. Попробуйте что-то вроде этого:

(defn -main [] 
    (watch :watcher 
      (fn [key agent old-state new-state] 
      (prn "-- agent Changed --") 
      (prn "key" key) 
      (prn "atom" agent) 
      (prn "old-state" old-state) 
      (prn "new-state" new-state))) 
    (while (not= @content "banana-man") 
    (send-off content (fn [& _] (get-content))) 
    (Thread/sleep 250)) 
    (shutdown-agents))