1 405b6660 2022-02-22 op # lib
 2 405b6660 2022-02-22 op 
 3 405b6660 2022-02-22 op This are some common stuff that needs to be shared between panel
 4 405b6660 2022-02-22 op and event-gen.
 5 405b6660 2022-02-22 op 
 6 405b6660 2022-02-22 op 	fn hc { herbstclient $* }
 7 405b6660 2022-02-22 op 
 8 405b6660 2022-02-22 op 	if (~ $"monitor '')
 9 405b6660 2022-02-22 op 		monitor=0
10 405b6660 2022-02-22 op 
11 405b6660 2022-02-22 op 	geometry=`{hc monitor_rect $"monitor}
12 405b6660 2022-02-22 op 	if (test -z $"geometry) {
13 405b6660 2022-02-22 op 		echo invalid monitor $monitor
14 405b6660 2022-02-22 op 		exit 1
15 405b6660 2022-02-22 op 	}
16 405b6660 2022-02-22 op 
17 405b6660 2022-02-22 op 	x=$geometry(1)
18 405b6660 2022-02-22 op 	y=$geometry(2)
19 405b6660 2022-02-22 op 	panel_width=$geometry(3)
20 405b6660 2022-02-22 op 	panel_height=16
21 405b6660 2022-02-22 op 
22 405b6660 2022-02-22 op 	font='-*-fixed-medium-*-*-*-12-*-*-*-*-*-*-*'
23 405b6660 2022-02-22 op 
24 405b6660 2022-02-22 op 	fn omit-alpha {
25 405b6660 2022-02-22 op 		sed 's,^\(\#[0-9a-f]\{6\}\)[0-9a-f]\{2\}$,\1,'
26 405b6660 2022-02-22 op 	}
27 405b6660 2022-02-22 op 
28 405b6660 2022-02-22 op 	# extract colors from hlwm and omit alpha-value
29 405b6660 2022-02-22 op 	bgcolor=`{hc get frame_border_normal_color | omit-alpha}
30 405b6660 2022-02-22 op 	selbg=`{hc get window_border_active_color | omit-alpha}
31 405b6660 2022-02-22 op 	selfg='#101010'