(bind-func make_window_transparent
(lambda (win32dow)
(let ((rect (CreateRectRgn 0 0 -1 -1))
;(style (GetWindowLongA win32dow GWL_STYLE))
(bb (DWM_BLURBEHIND (+ DWM_BB_ENABLE DWM_BB_BLURREGION) #t rect #t)))
;; (set! style (bitwise-and style (bitwise-not WS_OVERLAPPED)))
;; (set! style (bitwise-or style WS_POPUP))
;; (SetWindowLongA win32dow GWL_STYLE style)
(DwmEnableBlurBehindWindow win32dow bb)
(println "make window transparent:" win32dow)
void)))