luv

Workshop wiki

status-bar.lisp

mcclim/status-bar.lisp

system luvcraft/lobby/mcclim · 15 definitions · on GitHub

Luvcraft's attachment and semantic fields for the shared status line.

in-package#:mcluv
defmethodluvcraft:luvcraft-overlay-stage
declare
ignoreoverlay
:hud
defmethodstatus-bar-application-name
declare
ignoresession

luvcraft

defmethodstatus-bar-lobby-client
luvcraft:luvcraft-session-lobby-clientsession
defmethodstatus-bar-channels-for
declare
ignoresession
append
call-next-method
'
:chunks
defmethodstatus-bar-channel-value
channel
eql:chunks
declare
ignorechannelbar
hash-table-count
luvcraft:luvcraft-session-chunk-productssession
defmethodluvcraft:refresh-luvcraft-overlay
let
bar
widget-overlay-frameoverlay
width
luv:canvas-width
luvcraft:luvcraft-session-canvassession
overlay
defmethodluvcraft:encode-luvcraft-overlay
sessionpasssurface-texture
declare
ignorepass
let*
bar
widget-overlay-frameoverlay
canvas
luvcraft:luvcraft-session-canvassession
logical-extent
list
luv:canvas-widthcanvas
luv:canvas-heightcanvas
prepare-direct-widget-overlayoverlaysessionsurface-texture
status-bar-screen-statebarlogical-extent
overlay
defmethodluvcraft:luvcraft-focus-score
declare
ignoreoverlaysession
nil
defmethodluvcraft:handle-luvcraft-overlay-event

Leave the read-only status line transparent to ordinary game input.

declare
ignoreoverlaysessioncanvasevent
nil
defmethodluvcraft:luvcraft-overlay-focus-insets
declare
ignoreoverlaysession
values0.0+status-bar-height+0.00.0
defunfind-luvcraft-status-bar
session
find-if
lambda
overlay
luvcraft:luvcraft-session-overlayssession
defun%open-luvcraft-status-bar
session
or
let
barnil
overlaynil
transferred-pnil
completed-pnil
unwind-protect
let*
canvas
luvcraft:luvcraft-session-canvassession
created-bar
setfbar
make-embedded-status-barsessioncanvas
luvcraft:luvcraft-session-contextsession
luvcraft:luvcraft-session-devicesession
luv:canvas-widthcanvas
:title"luvcraft status"
mirror
setfoverlay
make-instance'luvcraft-status-bar-overlay:sessionsession:framecreated-bar:mirrormirror
mirror-compositormirror
overlay
setftransferred-pt
setfcompleted-pt
overlay
unlesscompleted-p
when
andoverlay
memberoverlay
luvcraft:luvcraft-session-overlayssession
:test#'eq
ignore-errors

ADD owns rejection cleanup once ownership was transferred.

when
andbar
nottransferred-p
ignore-errors
defunopen-luvcraft-status-bar
session

Attach session's shared top status line exactly once at a frame boundary.

luv:request-canvas-frame
luvcraft:luvcraft-session-canvassession
lambda
timestamp
declare
ignoretimestamp
defmethodluvcraft:attach-luvcraft-hud:after

The detailed lobby remains an explicitly opened tool. Its radio is already live, so the compact line can represent the same semantic state.