---
layout: ../Site.layout.js
---
# Common Lisp Hurkle Interface Manager

<img src="../emacshurkle.png">

I got a few from notes from gamedev-of-the-ages [mdhughes](https://mdhughes.tech) about my common lisp class fulfilling Bob Albrecht's Hurkle. So so far I made a common lisp ASDF system, with a package following [my own ASDF introduction](/programming/completely-reasonable-common-lisp-asdf-system-with-eev-demo), with my [common lisp object system class whose methods span Hurkle](../itching-for-hurkles). This article add the McCLIM GUI packages ('actual game') to the aforesaid.

([git link](https://codeberg.org/tfw/hurkle))

As `mdh` says, the interface was basically just a debug interface:

```
CL-USER> (asdf:load-system :hurkle/class)
T
CL-USER> (use-package :hurkle/class)
T
CL-USER> (make-instance 'game-grid :rows 6)
#<GAME-GRID {1003C52283}>
CL-USER> (defparameter *g* *)
*G*
CL-USER> (look-board *g*)
 0  ?  ?  ?  ?  ?  ?  ?  ?  ?  ?
 1  ?  ?  ?  ?  ?  ?  ?  ?  ?  ?
 2  ?  ?  ?  ?  ?  ?  ?  ?  ?  ?
 3  ?  ?  ?  ?  ?  ?  ?  ?  ?  ?
 4  ?  ?  ?  ?  ?  ?  ?  ?  ?  ?
 5  ?  ?  ?  ?  ?  ?  ?  ?  ?  ?
 +  0  1  2  3  4  5  6  7  8  9
NIL
..

CL-USER> (investigate *g* 3 0)
 0  ?  ?  ?  ?  ?  ?  ?  ?  ?  ?
 1  ?  ?  ? SE  ?  ?  ?  ?  ?  ?
 2  ?  ?  ?  ?  ?  ?  ?  ?  ?  ?
 3  E  E  ?  E  ?  ?  E  ?  ?  ?
 4  ?  ?  ?  ?  ?  ?  ?  ?  ?  ?
 5  ?  ?  ?  ?  ?  ?  ?  ?  ?  ?
 +  0  1  2  3  4  5  6  7  8  9
NIL
CL-USER> (investigate *g* 3 7)
 0  ?  ?  ?  ?  ?  ?  ?  ?  ?  ?
 1  ?  ?  ? SE  ?  ?  ?  ?  ?  ?
 2  ?  ?  ?  ?  ?  ?  ?  ?  ?  ?
 3  E  E  ?  E  ?  ?  E SE  ?  ?
 4  ?  ?  ?  ?  ?  ?  ?  ?  ?  ?
 5  ?  ?  ?  ?  ?  ?  ?  ?  ?  ?
 +  0  1  2  3  4  5  6  7  8  9you ran out of time!
NIL
```
Real talk: I got east and west mixed up in my head while playing above. This is the primary difficulty I have experienced Hurkling.

The next step today is to declaratively generate a common lisp interface manager GUI using [jackdaniel](https://turtleware.eu)'s [McCLIM](https://codeberg.org/McCLIM/McCLIM/) implementation of the spec. Aside, CLIM is the modern successor to the lisp machine dynamic-windows engineering and experiments.

## Add the package-inferred file=package mixing the hurkle class and CLIM into it

```
 (eepitch-sbcl)
(with-open-file (*standard-output*
                #p"~/common-lisp/hurkle/frame.lisp"
                :direction :output
                :if-exists :supersede
                :if-does-not-exist :create)
 (format t "
#|
\ (eepitch-sbcl)
\ (eepitch-kill)
\ (eepitch-sbcl)
|#
(uiop:define-package :hurkle/frame
   (:mix :hurkle/class :clim :clim-lisp :cl)
 (:export #:hurkle-frame
          #:define-hurkle-frame-command
          #:display-hurkles))

(in-package :hurkle/frame)
"))
```

# McCommon Lisp Interface Manager Hurkle Frame

```
;;; #P"~/common-lisp/hurkle/frame.lisp" ; continued


(define-application-frame hurkle-frame
   (game-grid standard-application-frame)
 ()
 (:pane :application
  :display-function 'display-hurkles
  :incremental-redisplay t))

(defmethod display-hurkles
   ((obj hurkle-frame)
    pane)
 (with-slots
       (grid)
     obj
   (formatting-table
       ()
     (loop :initially (terpri)
       :with count := 0
       :for row :in grid :do
         (formatting-row
           ()
           (loop
             :initially
                (formatting-cell () (princ count))
                (incf count)
             :for col :in row :do
               (updating-output
                   (pane)
                 (formatting-cell
                     (pane)
                   (present col)))))
           :finally
              (formatting-row ()
                (loop
                  :initially
                     (formatting-cell () (princ "."))
                  :for x
                    :below (length (car grid))
                  :do (formatting-cell () (princ x))))))))
```

Trying it:

```
(asdf:load-system :hurkle/frame)
(use-package :hurkle/frame)
(find-application-frame 'hurkle-frame)
```

(Before I added numbers:)

<img src="../first-blush.png">

Looks like we're in business (trivially so).

Note I had to add the export `#:grid` to our `:hurkle/class` (pull your git or w/e).

## Hurkle common lisp interface manager commands

We add a new package in our game directory for commands because it must happen logically-after we defined `hurkle-frame` so we can use `define-hurkle-frame-command`

```
(with-open-file (*standard-output*
                #P"~/common-lisp/hurkle/commands.lisp"
                :direction :output
                :if-exists :supersede
                :if-does-not-exist :create)
 (format t "
#|
\ (eepitch-sbcl)
\ (eepitch-kill)
\ (eepitch-sbcl)
|#
(uiop:define-package :hurkle/commands
   (:mix :hurkle/frame
         :hurkle/class
         :clim :clim-lisp :cl)
 (:export #:com-investigate))

(in-package :hurkle/commands)
"))
```

and its source:

### Investigate

```
(define-hurkle-frame-command
   (com-investigate :menu t)
   ()
 (let ((frame *application-frame*))
   (let ((position
           (accepting-values
               (t :own-window t)
             (reverse
              (list
               (accept 'integer :prompt "Col=x")
               (accept 'integer :prompt "Row=y"))))))
     (apply 'investigate frame (append position '(:stream nil))))))
```



### Quick note about those clim forms

(besides, the default text entry being too big for my case)

- Enter -> (Next form)
- alt enter -> Submit form

Hmm, maybe try slime or a raw repl rather than `eepitch-sbcl`. Still,

# Useage

(Observing that I am too tired right now)

```
 (eepitch-sbcl)
(asdf:load-system :mcclim)
(in-package :clim-user)
(asdf:load-system :hurkle/commands)
(use-package :hurkle/class)
(use-package :hurkle/frame)
(use-package :hurkle/commands)
(find-application-frame 'hurkle-frame)
```

<img src="../gui.png">

# Conclusion

I got kinda morally exhausted during the changes from *frame works* to *rows and columns are numbered* (not because of you/Hurkles, just the weight of the world on my shoulders). Calling it here.

I went back and added a `stream` keyword to `hurkle/class.lisp` so that McCLIM doesn't guess I am trying to get it to display this text `investigate` is producing.

Further notes, if you please!

I think the final installment of this triumverate will be the-frame-as-a-published-game on itch actually, then the `parenscript` `kittenification` will be another thing. I dunno, what do you think? The McCLIM is a straightforward and orthogonal extension to the CLOS class, right?

# Fin.

See you in [the Mastodon thread](https://gamerplus.org/@screwlisp/114611664134145784). No pressure but I already [told Sacha of emacsconf that we will unleash emacs smallweb kittens](https://gamerplus.org/@screwlisp/114606155202539991).

I am actively trying to help share lisp knowledge and useage! Please share this in any and every manner that occurs to you, and prod me to provide improvements at your leisure.

You are viewing proxied material from gopher.someodd.zip. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.