1 f73497bb 2008-02-01 rsc #include <u.h>
  2 f73497bb 2008-02-01 rsc #include <X11/X.h>
  3 f73497bb 2008-02-01 rsc #include <X11/Xatom.h>
  4 f73497bb 2008-02-01 rsc #include <X11/Xlib.h>
  5 f73497bb 2008-02-01 rsc #include <X11/Xutil.h>
  6 f73497bb 2008-02-01 rsc #include <libc.h>
  7 f73497bb 2008-02-01 rsc #include <ctype.h>
  8 f73497bb 2008-02-01 rsc 
  9 f73497bb 2008-02-01 rsc AUTOLIB(X11);
 10 f73497bb 2008-02-01 rsc 
 11 f73497bb 2008-02-01 rsc typedef struct Rectangle Rectangle;
 12 f73497bb 2008-02-01 rsc struct Rectangle
 13 f73497bb 2008-02-01 rsc {
 14 f73497bb 2008-02-01 rsc 	struct {
 15 f73497bb 2008-02-01 rsc 		int x;
 16 f73497bb 2008-02-01 rsc 		int y;
 17 f73497bb 2008-02-01 rsc 	} min, max;
 18 f73497bb 2008-02-01 rsc };
 19 f73497bb 2008-02-01 rsc #define Dx(r) ((r).max.x - (r).min.x)
 20 f73497bb 2008-02-01 rsc #define Dy(r) ((r).max.y - (r).min.y)
 21 f73497bb 2008-02-01 rsc 
 22 f73497bb 2008-02-01 rsc typedef struct Win Win;
 23 f73497bb 2008-02-01 rsc struct Win
 24 f73497bb 2008-02-01 rsc {
 25 f73497bb 2008-02-01 rsc 	Window xw;
 26 f73497bb 2008-02-01 rsc 	int x;
 27 f73497bb 2008-02-01 rsc 	int y;
 28 f73497bb 2008-02-01 rsc 	int dx;
 29 f73497bb 2008-02-01 rsc 	int dy;
 30 f73497bb 2008-02-01 rsc 	char *class;
 31 f73497bb 2008-02-01 rsc 	char *instance;
 32 f73497bb 2008-02-01 rsc 	char *name;
 33 f73497bb 2008-02-01 rsc 	char *iconname;
 34 f73497bb 2008-02-01 rsc };
 35 f73497bb 2008-02-01 rsc 
 36 f73497bb 2008-02-01 rsc Display *dpy;
 37 f73497bb 2008-02-01 rsc Window root;
 38 f73497bb 2008-02-01 rsc 
 39 f73497bb 2008-02-01 rsc Win *w;
 40 f73497bb 2008-02-01 rsc int nw;
 41 f73497bb 2008-02-01 rsc 
 42 f73497bb 2008-02-01 rsc void getinfo(void);
 43 f73497bb 2008-02-01 rsc void listwindows(void);
 44 ad8d5423 2008-02-01 rsc int parsewinsize(char*, Rectangle*, int*, int*, int*);
 45 f73497bb 2008-02-01 rsc void shove(char*, char*);
 46 f73497bb 2008-02-01 rsc 
 47 f73497bb 2008-02-01 rsc void
 48 f73497bb 2008-02-01 rsc usage(void)
 49 f73497bb 2008-02-01 rsc {
 50 ad8d5423 2008-02-01 rsc 	fprint(2, "usage: xshove [window rectangle]\n");
 51 f73497bb 2008-02-01 rsc 	exits("usage");
 52 f73497bb 2008-02-01 rsc }
 53 f73497bb 2008-02-01 rsc 
 54 f73497bb 2008-02-01 rsc void
 55 f73497bb 2008-02-01 rsc main(int argc, char **argv)
 56 f73497bb 2008-02-01 rsc {
 57 f73497bb 2008-02-01 rsc 	int screen;
 58 f73497bb 2008-02-01 rsc 	
 59 f73497bb 2008-02-01 rsc 	screen = 0;
 60 f73497bb 2008-02-01 rsc 	ARGBEGIN{
 61 f73497bb 2008-02-01 rsc 	case 's':
 62 f73497bb 2008-02-01 rsc 		screen = atoi(EARGF(usage()));
 63 f73497bb 2008-02-01 rsc 		break;
 64 f73497bb 2008-02-01 rsc 	default:
 65 f73497bb 2008-02-01 rsc 		usage();
 66 f73497bb 2008-02-01 rsc 		break;
 67 f73497bb 2008-02-01 rsc 	}ARGEND
 68 f73497bb 2008-02-01 rsc 	
 69 f73497bb 2008-02-01 rsc 	dpy = XOpenDisplay("");
 70 f73497bb 2008-02-01 rsc 	if(dpy == nil)
 71 f73497bb 2008-02-01 rsc 		sysfatal("open display: %r");
 72 f73497bb 2008-02-01 rsc 
 73 f73497bb 2008-02-01 rsc 	root = RootWindow(dpy, screen);
 74 f73497bb 2008-02-01 rsc 	getinfo();
 75 f73497bb 2008-02-01 rsc 
 76 f73497bb 2008-02-01 rsc 	if(argc == 0){
 77 f73497bb 2008-02-01 rsc 		listwindows();
 78 f73497bb 2008-02-01 rsc 		exits(0);
 79 f73497bb 2008-02-01 rsc 	}
 80 f73497bb 2008-02-01 rsc 	if(argc != 2)
 81 f73497bb 2008-02-01 rsc 		usage();
 82 f73497bb 2008-02-01 rsc 	shove(argv[0], argv[1]);
 83 f73497bb 2008-02-01 rsc 	exits(0);
 84 f73497bb 2008-02-01 rsc }
 85 f73497bb 2008-02-01 rsc 
 86 f73497bb 2008-02-01 rsc char*
 87 f73497bb 2008-02-01 rsc getproperty(Window w, Atom a)
 88 f73497bb 2008-02-01 rsc {
 89 f73497bb 2008-02-01 rsc 	uchar *p;
 90 f73497bb 2008-02-01 rsc 	int fmt;
 91 f73497bb 2008-02-01 rsc 	Atom type;
 92 f73497bb 2008-02-01 rsc 	ulong n, dummy;
 93 f73497bb 2008-02-01 rsc 
 94 f73497bb 2008-02-01 rsc 	n = 100;
 95 f73497bb 2008-02-01 rsc 	p = nil;
 96 f73497bb 2008-02-01 rsc 	XGetWindowProperty(dpy, w, a, 0, 100L, 0, 
 97 f73497bb 2008-02-01 rsc 		AnyPropertyType, &type, &fmt,
 98 f73497bb 2008-02-01 rsc 		&n, &dummy, &p);
 99 f73497bb 2008-02-01 rsc 	if(p == nil || *p == 0)
100 f73497bb 2008-02-01 rsc 		return nil;
101 f73497bb 2008-02-01 rsc 	return strdup((char*)p);
102 f73497bb 2008-02-01 rsc }
103 f73497bb 2008-02-01 rsc 
104 f73497bb 2008-02-01 rsc Window
105 f73497bb 2008-02-01 rsc findname(Window w)
106 f73497bb 2008-02-01 rsc {
107 f73497bb 2008-02-01 rsc 	int i;
108 f73497bb 2008-02-01 rsc 	uint nxwin;
109 f73497bb 2008-02-01 rsc 	Window dw1, dw2, *xwin;
110 f73497bb 2008-02-01 rsc 
111 f73497bb 2008-02-01 rsc 	if(getproperty(w, XA_WM_NAME))
112 f73497bb 2008-02-01 rsc 		return w;
113 f73497bb 2008-02-01 rsc 	if(!XQueryTree(dpy, w, &dw1, &dw2, &xwin, &nxwin))
114 f73497bb 2008-02-01 rsc 		return 0;
115 f73497bb 2008-02-01 rsc 	for(i=0; i<nxwin; i++)
116 f73497bb 2008-02-01 rsc 		if((w = findname(xwin[i])) != 0)
117 f73497bb 2008-02-01 rsc 			return w;
118 f73497bb 2008-02-01 rsc 	return 0;
119 f73497bb 2008-02-01 rsc }
120 f73497bb 2008-02-01 rsc 
121 f73497bb 2008-02-01 rsc void
122 f73497bb 2008-02-01 rsc getinfo(void)
123 f73497bb 2008-02-01 rsc {
124 f73497bb 2008-02-01 rsc 	int i;
125 f73497bb 2008-02-01 rsc 	uint nxwin;
126 f73497bb 2008-02-01 rsc 	Window dw1, dw2, *xwin;
127 f73497bb 2008-02-01 rsc 	XClassHint class;
128 f73497bb 2008-02-01 rsc 	XWindowAttributes attr;
129 f73497bb 2008-02-01 rsc 
130 f73497bb 2008-02-01 rsc 	if(!XQueryTree(dpy, root, &dw1, &dw2, &xwin, &nxwin))
131 f73497bb 2008-02-01 rsc 		return;
132 f73497bb 2008-02-01 rsc 	w = mallocz(nxwin*sizeof w[0], 1);
133 f73497bb 2008-02-01 rsc 	if(w == 0)
134 f73497bb 2008-02-01 rsc 		sysfatal("malloc: %r");
135 f73497bb 2008-02-01 rsc 	
136 f73497bb 2008-02-01 rsc 	Win *ww = w;
137 f73497bb 2008-02-01 rsc 	for(i=0; i<nxwin; i++){
138 f73497bb 2008-02-01 rsc 		memset(&attr, 0, sizeof attr);
139 f73497bb 2008-02-01 rsc 		xwin[i] = findname(xwin[i]);
140 f73497bb 2008-02-01 rsc 		if(xwin[i] == 0)
141 f73497bb 2008-02-01 rsc 			continue;
142 f73497bb 2008-02-01 rsc 		XGetWindowAttributes(dpy, xwin[i], &attr);
143 f73497bb 2008-02-01 rsc 		if(attr.width <= 0 || attr.override_redirect || attr.map_state != IsViewable)
144 f73497bb 2008-02-01 rsc 			continue;
145 f73497bb 2008-02-01 rsc 		ww->xw = xwin[i];
146 f73497bb 2008-02-01 rsc 		ww->x = attr.x;
147 f73497bb 2008-02-01 rsc 		ww->y = attr.y;
148 f73497bb 2008-02-01 rsc 		ww->dx = attr.width;
149 f73497bb 2008-02-01 rsc 		ww->dy = attr.height;
150 f73497bb 2008-02-01 rsc 		XTranslateCoordinates(dpy, ww->xw, root, 0, 0, &ww->x, &ww->y, &dw1);
151 f73497bb 2008-02-01 rsc 		if(XGetClassHint(dpy, ww->xw, &class)){
152 f73497bb 2008-02-01 rsc 			ww->class = strdup(class.res_class);
153 f73497bb 2008-02-01 rsc 			ww->instance = strdup(class.res_name);
154 f73497bb 2008-02-01 rsc 		}
155 f73497bb 2008-02-01 rsc 		ww->iconname = getproperty(ww->xw, XA_WM_ICON_NAME);
156 f73497bb 2008-02-01 rsc 		ww->name = getproperty(ww->xw, XA_WM_NAME);
157 f73497bb 2008-02-01 rsc 		ww++;
158 f73497bb 2008-02-01 rsc 	}
159 f73497bb 2008-02-01 rsc 	nw = ww - w;
160 f73497bb 2008-02-01 rsc }		
161 f73497bb 2008-02-01 rsc 
162 f73497bb 2008-02-01 rsc void
163 f73497bb 2008-02-01 rsc listwindows(void)
164 f73497bb 2008-02-01 rsc {
165 f73497bb 2008-02-01 rsc 	int i;
166 f73497bb 2008-02-01 rsc 
167 f73497bb 2008-02-01 rsc 	for(i=0; i<nw; i++){
168 f73497bb 2008-02-01 rsc 		Win *ww = &w[i];
169 f73497bb 2008-02-01 rsc 		char rect[50];
170 f73497bb 2008-02-01 rsc 		snprint(rect, sizeof rect, "%d,%d,%d,%d", ww->x, ww->y, ww->x+ww->dx, ww->y+ww->dy);
171 f73497bb 2008-02-01 rsc 		print("%08x %-20s %-10s %s\n",
172 f73497bb 2008-02-01 rsc 			(uint)ww->xw, 
173 f73497bb 2008-02-01 rsc 			rect,
174 f73497bb 2008-02-01 rsc 			ww->instance,
175 f73497bb 2008-02-01 rsc 			ww->class);
176 f73497bb 2008-02-01 rsc 	}
177 f73497bb 2008-02-01 rsc }
178 f73497bb 2008-02-01 rsc 
179 f73497bb 2008-02-01 rsc void
180 f73497bb 2008-02-01 rsc shove(char *name, char *geom)
181 f73497bb 2008-02-01 rsc {
182 f73497bb 2008-02-01 rsc 	int i;
183 ad8d5423 2008-02-01 rsc 	int isdelta, havemin, havesize;
184 ad8d5423 2008-02-01 rsc 	int old, new;
185 f73497bb 2008-02-01 rsc 	Rectangle r;
186 f73497bb 2008-02-01 rsc 
187 ad8d5423 2008-02-01 rsc 	if(parsewinsize(geom, &r, &isdelta, &havemin, &havesize) < 0)
188 f73497bb 2008-02-01 rsc 		sysfatal("bad window spec: %s", name);
189 f73497bb 2008-02-01 rsc 
190 ad8d5423 2008-02-01 rsc 	old = 0;
191 ad8d5423 2008-02-01 rsc 	new = 1;
192 ad8d5423 2008-02-01 rsc 	if(isdelta){
193 ad8d5423 2008-02-01 rsc 		old = 1;
194 ad8d5423 2008-02-01 rsc 		new = isdelta;
195 ad8d5423 2008-02-01 rsc 	}
196 f73497bb 2008-02-01 rsc 	for(i=0; i<nw; i++){
197 f73497bb 2008-02-01 rsc 		Win *ww = &w[i];
198 f73497bb 2008-02-01 rsc 		if(ww->instance && strstr(ww->instance, name)
199 f73497bb 2008-02-01 rsc 		   || ww->class && strstr(ww->class, name)){
200 f73497bb 2008-02-01 rsc 			int value_mask;
201 f73497bb 2008-02-01 rsc 			XWindowChanges e;
202 f73497bb 2008-02-01 rsc 
203 f73497bb 2008-02-01 rsc 			memset(&e, 0, sizeof e);
204 f73497bb 2008-02-01 rsc 			if(havemin){
205 ad8d5423 2008-02-01 rsc 				e.x = old*ww->x + new*r.min.x;
206 ad8d5423 2008-02-01 rsc 				e.y = old*ww->y + new*r.min.y;
207 ad8d5423 2008-02-01 rsc 			}else{
208 ad8d5423 2008-02-01 rsc 				e.x = ww->x;
209 ad8d5423 2008-02-01 rsc 				e.y = ww->y;
210 f73497bb 2008-02-01 rsc 			}
211 ad8d5423 2008-02-01 rsc 			if(havesize){
212 ad8d5423 2008-02-01 rsc 				e.width = old*ww->dx + new*Dx(r);
213 ad8d5423 2008-02-01 rsc 				e.height = old*ww->dy + new*Dy(r);
214 ad8d5423 2008-02-01 rsc 			}else{
215 ad8d5423 2008-02-01 rsc 				e.width = ww->dx;
216 ad8d5423 2008-02-01 rsc 				e.height = ww->dy;
217 ad8d5423 2008-02-01 rsc 			}
218 ad8d5423 2008-02-01 rsc 			value_mask = CWX | CWY | CWWidth | CWHeight;
219 f73497bb 2008-02-01 rsc 			XConfigureWindow(dpy, ww->xw, value_mask, &e);
220 f73497bb 2008-02-01 rsc 			XFlush(dpy);
221 f73497bb 2008-02-01 rsc 		}
222 f73497bb 2008-02-01 rsc 	}
223 f73497bb 2008-02-01 rsc }
224 f73497bb 2008-02-01 rsc 
225 f73497bb 2008-02-01 rsc int
226 ad8d5423 2008-02-01 rsc parsewinsize(char *s, Rectangle *r, int *isdelta, int *havemin, int *havesize)
227 f73497bb 2008-02-01 rsc {
228 f73497bb 2008-02-01 rsc 	char c, *os;
229 f73497bb 2008-02-01 rsc 	int i, j, k, l;
230 f73497bb 2008-02-01 rsc 
231 f73497bb 2008-02-01 rsc 	os = s;
232 ad8d5423 2008-02-01 rsc 	if(*s == '-'){
233 ad8d5423 2008-02-01 rsc 		s++;
234 ad8d5423 2008-02-01 rsc 		*isdelta = -1;
235 ad8d5423 2008-02-01 rsc 	}else if(*s == '+'){
236 ad8d5423 2008-02-01 rsc 		s++;
237 ad8d5423 2008-02-01 rsc 		*isdelta = 1;
238 ad8d5423 2008-02-01 rsc 	}else
239 ad8d5423 2008-02-01 rsc 		*isdelta = 0;
240 f73497bb 2008-02-01 rsc 	*havemin = 0;
241 ad8d5423 2008-02-01 rsc 	*havesize = 0;
242 f73497bb 2008-02-01 rsc 	memset(r, 0, sizeof *r);
243 f73497bb 2008-02-01 rsc 	if(!isdigit((uchar)*s))
244 f73497bb 2008-02-01 rsc 		goto oops;
245 f73497bb 2008-02-01 rsc 	i = strtol(s, &s, 0);
246 f73497bb 2008-02-01 rsc 	if(*s == 'x'){
247 f73497bb 2008-02-01 rsc 		s++;
248 f73497bb 2008-02-01 rsc 		if(!isdigit((uchar)*s))
249 f73497bb 2008-02-01 rsc 			goto oops;
250 f73497bb 2008-02-01 rsc 		j = strtol(s, &s, 0);
251 f73497bb 2008-02-01 rsc 		r->max.x = i;
252 f73497bb 2008-02-01 rsc 		r->max.y = j;
253 ad8d5423 2008-02-01 rsc 		*havesize = 1;
254 f73497bb 2008-02-01 rsc 		if(*s == 0)
255 f73497bb 2008-02-01 rsc 			return 0;
256 f73497bb 2008-02-01 rsc 		if(*s != '@')
257 f73497bb 2008-02-01 rsc 			goto oops;
258 f73497bb 2008-02-01 rsc 
259 f73497bb 2008-02-01 rsc 		s++;
260 f73497bb 2008-02-01 rsc 		if(!isdigit((uchar)*s))
261 f73497bb 2008-02-01 rsc 			goto oops;
262 f73497bb 2008-02-01 rsc 		i = strtol(s, &s, 0);
263 f73497bb 2008-02-01 rsc 		if(*s != ',' && *s != ' ')
264 f73497bb 2008-02-01 rsc 			goto oops;
265 f73497bb 2008-02-01 rsc 		s++;
266 f73497bb 2008-02-01 rsc 		if(!isdigit((uchar)*s))
267 f73497bb 2008-02-01 rsc 			goto oops;
268 f73497bb 2008-02-01 rsc 		j = strtol(s, &s, 0);
269 f73497bb 2008-02-01 rsc 		if(*s != 0)
270 f73497bb 2008-02-01 rsc 			goto oops;
271 f73497bb 2008-02-01 rsc 		r->min.x += i;
272 f73497bb 2008-02-01 rsc 		r->max.x += i;
273 f73497bb 2008-02-01 rsc 		r->min.y += j;
274 f73497bb 2008-02-01 rsc 		r->max.y += j;
275 ad8d5423 2008-02-01 rsc 		*havesize = 1;
276 f73497bb 2008-02-01 rsc 		*havemin = 1;
277 f73497bb 2008-02-01 rsc 		return 0;
278 f73497bb 2008-02-01 rsc 	}
279 f73497bb 2008-02-01 rsc 
280 f73497bb 2008-02-01 rsc 	c = *s;
281 f73497bb 2008-02-01 rsc 	if(c != ' ' && c != ',')
282 f73497bb 2008-02-01 rsc 		goto oops;
283 f73497bb 2008-02-01 rsc 	s++;
284 f73497bb 2008-02-01 rsc 	if(!isdigit((uchar)*s))
285 f73497bb 2008-02-01 rsc 		goto oops;
286 f73497bb 2008-02-01 rsc 	j = strtol(s, &s, 0);
287 ad8d5423 2008-02-01 rsc 	if(*s == 0){
288 ad8d5423 2008-02-01 rsc 		r->min.x = i;
289 ad8d5423 2008-02-01 rsc 		r->min.y = j;
290 ad8d5423 2008-02-01 rsc 		*havemin = 1;
291 ad8d5423 2008-02-01 rsc 		return 0;
292 ad8d5423 2008-02-01 rsc 	}
293 f73497bb 2008-02-01 rsc 	if(*s != c)
294 f73497bb 2008-02-01 rsc 		goto oops;
295 f73497bb 2008-02-01 rsc 	s++;
296 f73497bb 2008-02-01 rsc 	if(!isdigit((uchar)*s))
297 f73497bb 2008-02-01 rsc 		goto oops;
298 f73497bb 2008-02-01 rsc 	k = strtol(s, &s, 0);
299 f73497bb 2008-02-01 rsc 	if(*s != c)
300 f73497bb 2008-02-01 rsc 		goto oops;
301 f73497bb 2008-02-01 rsc 	s++;
302 f73497bb 2008-02-01 rsc 	if(!isdigit((uchar)*s))
303 f73497bb 2008-02-01 rsc 		goto oops;
304 f73497bb 2008-02-01 rsc 	l = strtol(s, &s, 0);
305 f73497bb 2008-02-01 rsc 	if(*s != 0)
306 f73497bb 2008-02-01 rsc 		goto oops;
307 f73497bb 2008-02-01 rsc 	r->min.x = i;
308 f73497bb 2008-02-01 rsc 	r->min.y = j;
309 f73497bb 2008-02-01 rsc 	r->max.x = k;
310 f73497bb 2008-02-01 rsc 	r->max.y = l;
311 f73497bb 2008-02-01 rsc 	*havemin = 1;
312 ad8d5423 2008-02-01 rsc 	*havesize = 1;
313 f73497bb 2008-02-01 rsc 	return 0;
314 f73497bb 2008-02-01 rsc 
315 f73497bb 2008-02-01 rsc oops:
316 f73497bb 2008-02-01 rsc 	werrstr("bad syntax in window size '%s'", os);
317 f73497bb 2008-02-01 rsc 	return -1;
318 f73497bb 2008-02-01 rsc }