Skip to content

Commit

Permalink
hatis.core: small fixes
Browse files Browse the repository at this point in the history
  • Loading branch information
shegeley committed Jan 6, 2025
1 parent c0e5296 commit 2361040
Showing 1 changed file with 4 additions and 4 deletions.
8 changes: 4 additions & 4 deletions src/hatis/core.lisp
Original file line number Diff line number Diff line change
Expand Up @@ -51,7 +51,7 @@

(defun handle-interface-event*
(interface event &key (channel *channel*))
"Handle wayland's interface event accoding to the handle-interface-event method and send result to the channel"
"Handle wayland's interface event according to the handle-interface-event method and send result to the channel"
(destructuring-bind (event-name &rest event-args) event
(let ((r (apply (handle-interface-event interface event-name) event-args)))
(send channel r))))
Expand Down Expand Up @@ -84,12 +84,12 @@
(im (state-ref 'zwp-input-method-v2))
(seat (state-ref 'wl-seat))
(im* (if im im (zwp-input-method-manager-v2.get-input-method imm seat))))
(process-interface im*)))
im*))

(defun run ()
(with-open-display (display)
(process-interface display)
(get-input-method)
(process-interface display) ;; <- this will "catch" all the interfaces into *state* hashtable + put event-listeners on them
(process-interface (get-input-method)) ;; <- this will 'catch' via input-method-manager-v2.get-input-method. need to be evoked once *state* if fully filled
(loop (wl-display-dispatch-event display))))

;; (pexec () (loop (format t "~a~%" (recv *channel*))))
Expand Down

0 comments on commit 2361040

Please sign in to comment.