stjet/ming-flashcards
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

handle message working, mutation of self working, draw not working

Browse Source
This commit is contained in:
stjet
2025-04-14 05:42:19 +00:00
parent ca44373013
commit 0b7b2baa3e
3 changed files with 195 additions and 58 deletions
Download Patch File Download Diff File Expand all files Collapse all files

88
ipc.scm
View File

@@ -1,47 +1,49 @@
(load "utils.scm")
;since it will be the wm talking to us, invalid inputs won't happen
(define listen (lambda (handle-message draw title resizable subtype ideal-dimensions)
(display (let* (
[_input (get-line (current-input-port))]
[parts (split-string _input #\space 2)]
[command (car parts)]
[rest (if (= (length parts) 2)
(car (cdr parts))
"" ;if this is the case `rest` won't be used
)]
) (cond;
[
(string=? command "handle_message")
(symbol->string (car (handle-message ""))) ;doesn't handle clipboard copy request yet... or parse the message, for that matter
]
;draw
[
(string=? command "draw")
(draw "") ;placeholder, doesn't parse theme info or serialise
]
[
(string=? command "title")
(title)
]
[
(string=? command "resizable")
(s-bool->string (resizable))
]
[
(string=? command "subtype")
subtype
]
[
(string=? command "ideal_dimensions")
;placeholder
(s-list->string (ideal-dimensions (s-string->list rest)))
]
[
else
"invalid"
]
)))
(newline)
(listen handle-message draw title resizable subtype ideal-dimensions)
(define listen (lambda (window handle-message draw title resizable subtype ideal-dimensions)
(let (
[pair (let* (
[_input (get-line (current-input-port))]
[parts (split-string _input #\space 2)]
[command (car parts)]
[rest (if (= (length parts) 2)
(car (cdr parts))
"" ;if this is the case `rest` won't be used
)]
) (cond
[
(string=? command "handle_message")
(let ([resp (handle-message window (split-string rest #\/ -1))])
(cons (car resp) (join-string (cdr resp) "/"))
)
]
;draw
[
(string=? command "draw")
(cons window (join-string (draw window (s-string->theme-info rest)) "\x1D;"))
]
[
(string=? command "title")
(cons window (title))
]
[
(string=? command "resizable")
(cons window (s-bool->string (resizable)))
]
[
(string=? command "subtype")
(cons window subtype)
]
[
(string=? command "ideal_dimensions")
(cons window (s-list->string (ideal-dimensions (s-string->list rest))))
]
[
else
(cons window "invalid")
]
))]
) (display (cdr pair)) (newline) (listen (car pair) handle-message draw title resizable subtype ideal-dimensions)
)
))