pestctrl/emacs-config
1
0
Fork 0
mirror of https://github.com/pestctrl/emacs-config.git synced 2026-02-16 16:24:18 +00:00
Code Issues Projects Releases Packages Wiki Activity

Able to set and get transparency

Browse source
This commit is contained in:
Benson Chu 2019-06-22 20:39:52 -05:00
parent 16d32695ca
commit 7687325476
1 changed files with 20 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

32
test.org
View file

@ -25,7 +25,7 @@
;; called init function xcb:ewmh:init
;; found opacity is cardinal atom through xprop
;; example c call: https://github.com/ehntoo/unagi/blob/master/plugins/opacity.c, line 71
;; example c call: https://github.com/ehntoo/unagi/blob/master/plugins/opacity.c#L71
;; True example: https://github.com/polybar/polybar/blob/ca4426a9620f4db05a0117282fbed3a32a14ec92/src/x11/ewmh.cpp#L168
;; reading from transset
@ -40,19 +40,21 @@
(if (= depth 4)
nil
(cons (% int 256)
(thunk (/ depth 256)
(thunk (/ int 256)
(1+ depth))))))
(thunk int 0)))
(defun my/char-array-to-int (arr)
(let ((iter (1- (length arr)))
(sum 0))
(while (>= iter 0)
(setf sum (+ (* 256 sum) (aref arr iter)))
(decf iter))
sum))
(let ((window-id 48234499))
(xcb:+request exwm--connection
(make-instance
xcb:ChangeProperty
:mode xcb:PropMode:Replace :window window-id
:property xcb:Atom:_NET_WM_WINDOW_OPACITY :type xcb:Atom:CARDINAL
:format 32 :data-len 1 :data (0 0 0 255)))
(xcb:flush exwm--connection))
(let ((window-id 46137347))
(my/set-transparency window-id 0.5)
(my/char-array-to-int (slot-value (my/get-transparency window-id) 'value)))
(defun my/set-transparency (window-id value)
"`value` should be an float between 0 and and 1,"
@ -61,10 +63,16 @@
xcb:ChangeProperty
:mode xcb:PropMode:Replace :window window-id
:property xcb:Atom:_NET_WM_WINDOW_OPACITY :type xcb:Atom:CARDINAL
:format 32 :data-len 1 :data (my/int-to-char-array (round (* 4294967295 0.1)))))
:format 32 :data-len 1 :data (my/int-to-char-array (round (* 4294967295 value)))))
(xcb:flush exwm--connection))
(defun my/get-transparency (window-id))
(defun my/get-transparency (window-id)
(xcb:+request-unchecked+reply exwm--connection
(make-instance
xcb:GetProperty
:delete 0 :window window-id
:property xcb:Atom:_NET_WM_WINDOW_OPACITY :type xcb:Atom:CARDINAL
:long-offset 0 :long-length 1)))
(defun my/increase-transparency (window-id))