mẫu để thực hiện hoàn tác/làm lại trong clojure

Question

Có mẫu thiết lập nào để triển khai chức năng hoàn tác/làm lại trong clojure hoặc trong fp nói chung không?

Trong ngôn ngữ OO, tôi sẽ đi với mẫu lệnh nhưng vì đó là tất cả về trạng thái, tôi tự hỏi nếu nó là thành ngữ làm nó trong clojure.

Có thư viện nào có thể trợ giúp không?

Answer 1

Giống như với nhiều mẫu thiết kế, bạn có thể triển khai mẫu này làm chức năng trong clojure. Nó phụ thuộc một chút vào cách bạn đại diện cho nhà nước trong chương trình của bạn (refs, nguyên tử, đại lý) thông qua quá trình này là rất giống nhau.

Bạn có thể chỉ cần thêm chức năng xem vào trạng thái của bạn tác nhân/ref/atom thêm trạng thái vào danh sách hoàn tác mỗi khi có bản cập nhật. sau đó chức năng hoàn tác của bạn chỉ hiển thị trong danh sách hoàn tác. Điều này có tác dụng tốt đẹp khi thêm bản sao của bạn vào danh sách hoàn tác, cho phép làm lại cũng như

Ấn tượng đầu tiên của tôi là ref s có thể là công cụ chính xác vì bạn sẽ có thể khôi phục tất cả theo cách phối hợp , trừ khi tất nhiên bạn có thể giảm bớt các chương trình của bạn xuống một danh tính duy nhất (theo ý nghĩa của từ Clojure) thì bạn sẽ không cần cập nhật phối hợp và một tác nhân sẽ làm việc.

Answer 2

Ok tôi đã làm cho nó làm việc như Arthur Ulfeldt gợi ý:

(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)]))) 

Nhưng những gì tôi vẫn không hoàn toàn hiểu là tại sao. Kể từ khi hoàn tác! và làm lại! chức năng cập nhật các nguyên tử đang được theo dõi, không nên người xem phản ứng với điều đó và do đó mess up stack lệnh bằng cách đặt giá trị undone trở lại vào nó?