Coverage report: /home/runner/work/geb/geb/src/gui/common-abstractions.lisp

Kind	Covered	All	%
expression	2	41	4.9
branch	0	2	0.0

Key

Not instrumented

Conditionalized out

Executed

Not executed

Both branches taken

One branch taken

Neither branch taken

1

(in-package :geb-gui)

2

3

(defmacro center-column-cell ((stream &rest args &key &allow-other-keys)

4

&body x)

5

`(formatting-column (,stream ,@args)

6

(formatting-cell (,stream :align-x :center :align-y :center)

7

,@x)))

8

9

(defun present-object (object stream)

10

(present object (presentation-type-of object) :stream stream))

11

12

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

13

;; Counter API

14

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

15

16

(defgeneric counter (object))

17

18

(defvar *alphabet*

19

(map 'string #'code-char (alexandria:iota (- 91 65) :start 65)))

20

21

(serapeum:-> gen-name (t) string)

22

(defun gen-name (view)

23

(let ((count (counter view)))

24

(incf (counter view))

25

(if (>= count (length *alphabet*))

26

(format nil "A~A" (- count (length *alphabet*)))

27

(string (char *alphabet* count)))))