Re: Lisp Live buffer

[Emanuel Berg <incal@dataswamp.org>]

And here is a little non-interactive demo ...

Now the live buffer is the next step, the "view" part.

Ideas?

;;; -*- lexical-binding: t -*-
;;
;; this file:
;;   https://dataswamp.org/~incal/emacs-blank/mvc/model-ttt.el

(require 'model)

(defun ttt-board (&optional side blank)
  (or side (setq side 3))
  (or blank (setq blank "_"))
  (make-world 2 side blank) )

(let*((side    3)
      (blank   "_")
      (brd     (ttt-board side blank))
      (players '#1=("x" "o" . #1#) ))

  (defun ttt-set (x y)
    (interactive "nx: \nny: ")
    (let ((pos (list x y)))
      (when (string= blank (world-get brd pos))
        (world-set brd pos (pop players)) )))

  (declare-function ttt-set nil)

  (defun ttt-test-game ()
    (ttt-set 1 1)
    (ttt-set 0 0)
    (ttt-set 2 0)
    (ttt-set 0 2)
    (ttt-set 0 1)
    (ttt-set 2 1)
    (ttt-set 1 2)
    (ttt-set 1 0)
    (ttt-set 2 2)
    brd)

  (declare-function ttt-test-game nil) )

;; (ttt-test-game)
;; ( ("o" "x" "o")
;;   ("o" "x" "x")
;;   ("x" "o" "x") )

-- 
underground experts united
https://dataswamp.org/~incal