clojureでの元に戻す/やり直しを実装するためのパターン

Question

clojureまたはfpで元に戻す/やり直しの機能を実装するための確立されたパターンはありますか？

OO言語では私はコマンドパターンを使用しますが、それはすべての状態についてですが、それはクロージャーでそれを行うことは慣用的なのだろうかと思います。

ライブラリがありますか？

Answer 1

多くのデザインパターンと同様に、これをクロージャーの関数として実装できます。それはあなたのプログラム（refs、atom、agents）の状態をどのように表現するかはプロセスによって非常に似ています。

単純にウォッチャー機能を状態に追加する agent/ref/atomは、更新があるたびに状態を元に戻すリストに追加します。あなたの元に戻す機能は、元に戻すリストでそれを見ているだけです。これにより、元に戻すリストに追加してやり直しができるという効果があります。

私の最初の印象はrefです。これは正しい方法です。すべてを調整して復元することができるからですもちろん、プログラムの状態を単一のアイデンティティー（Clojureの意味で）に減らすことができない限り、コーディネートされた更新は必要なく、エージェントが機能します。

Answer 2

[OK]を私はアーサーUlfeldtが提案のようにそれが仕事作っ：

(defn cmd-stack [state-ref] 
    (let [stack (atom ['() '()])] 
    (add-watch state-ref :cmdhistory 
      (fn [key ref old new] 
      (let [redo-stack '() 
        undo-stack (conj (second @stack) old)] 
      (reset! stack [redo-stack undo-stack])))) 
    stack)) 

(defn can-redo? [stack] 
    (not (empty? (first @stack)))) 

(defn can-undo? [stack] 
    (not (empty? (second @stack)))) 

(defn undo! [stack state-ref] 
    (let [redo-stack (first @stack) 
     undo-stack (second @stack) 
     current-state @state-ref 
     last-state (first undo-stack)] 
    (assert (can-undo? stack) "cannot undo") 
    (reset! state-ref last-state) 
    (reset! stack [(conj redo-stack current-state) (drop 1 undo-stack)]))) 

(defn redo! [stack state-ref] 
    (let [redo-stack (first @stack) 
     undo-stack (second @stack) 
     current-state @state-ref 
     last-state (first redo-stack)] 
    (assert (can-redo? stack) "cannot redo") 
    (reset! state-ref last-state) 
    (reset! stack [(drop 1 redo-stack) (conj undo-stack current-state)]))) 

しかし、私はまだ非常に理解していないことは理由です。以来、元に戻す！やり直し！ウォッチャーがそれに反応してアンドゥ値を元に戻してコマンドスタックを壊してはならないはずです。