Miroirs/guile-swayer
1
0
Fork 0
mirror of https://github.com/ebeem/guile-swayer.git synced 2024-11-16 07:47:32 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

move socket connects into functions

Browse source
This commit is contained in:
mrh 2024-08-03 10:19:25 -04:00
parent 55dcd11555
commit 56d5dc7a56
2 changed files with 11 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
examples/playground/example.scm
View file

@ -1,4 +1,4 @@
#!/usr/bin/guile
#!/usr/bin/env guile
!#
;; assuming your are running from a path relative to swaypic & modules
@ -25,14 +25,15 @@
(ice-9 pretty-print)
(swayipc))
(SWAY-CONNECT-SOCKTES!)
;; get focused workspace from a list of workspaces
(define (focused-workspace-name workspaces)
(cond
((null? workspaces) #f)
((equal? #t (sway-workspace-focused (car workspaces)))
(sway-workspace-name (car workspaces)))
(else (focused-workspace-name (cdr workspaces)))))
((null? workspaces) #f)
((equal? #t (sway-workspace-focused (car workspaces)))
(sway-workspace-name (car workspaces)))
(else (focused-workspace-name (cdr workspaces)))))
(format #t "output record from function #sway-get-workspaces:\n ~a\n"
(sway-get-workspaces))

7
swayipc/connection.scm
View file

@ -38,6 +38,7 @@
SWAY-SOCKET-PATH
SWAY-COMMAND-SOCKET
SWAY-CONNECT-SOCKETS!
SWAY-LISTENER-SOCKET
SWAY-LISTENER-THREAD
SWAY-MSG-MAGIC
@ -96,12 +97,14 @@
;; sway listen socket, this is used to listen to subscribed events
;; from sway via IPC.
(define SWAY-LISTENER-SOCKET (socket AF_UNIX SOCK_STREAM 0))
(connect SWAY-LISTENER-SOCKET (make-socket-address AF_UNIX SWAY-SOCKET-PATH))
;; sway command socket, this is used to send commands and queries
;; to sway via IPC.
(define SWAY-COMMAND-SOCKET (socket AF_UNIX SOCK_STREAM 0))
(connect SWAY-COMMAND-SOCKET (make-socket-address AF_UNIX SWAY-SOCKET-PATH))
(define (SWAY-CONNECT-SOCKETS!)
(connect SWAY-LISTENER-SOCKET (make-socket-address AF_UNIX SWAY-SOCKET-PATH))
(connect SWAY-COMMAND-SOCKET (make-socket-address AF_UNIX SWAY-SOCKET-PATH)))
;; Hashtable of mutexes for synchronization, keeps each socket separate.
;; This is important to lock sockets while reading/writing.