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>
11 f73497bb 2008-02-01 rsc typedef struct Rectangle Rectangle;
12 f73497bb 2008-02-01 rsc struct Rectangle
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)
22 f73497bb 2008-02-01 rsc typedef struct Win Win;
30 4241cae2 2020-01-15 crossd char *idstr;
32 f73497bb 2008-02-01 rsc char *instance;
34 f73497bb 2008-02-01 rsc char *iconname;
37 f73497bb 2008-02-01 rsc Display *dpy;
43 f73497bb 2008-02-01 rsc void getinfo(void);
44 f73497bb 2008-02-01 rsc void listwindows(void);
45 ad8d5423 2008-02-01 rsc int parsewinsize(char*, Rectangle*, int*, int*, int*);
46 f73497bb 2008-02-01 rsc void shove(char*, char*);
51 ad8d5423 2008-02-01 rsc fprint(2, "usage: xshove [window rectangle]\n");
52 f73497bb 2008-02-01 rsc exits("usage");
56 f73497bb 2008-02-01 rsc main(int argc, char **argv)
63 f73497bb 2008-02-01 rsc screen = atoi(EARGF(usage()));
70 f73497bb 2008-02-01 rsc dpy = XOpenDisplay("");
71 f73497bb 2008-02-01 rsc if(dpy == nil)
72 f73497bb 2008-02-01 rsc sysfatal("open display: %r");
74 f73497bb 2008-02-01 rsc root = RootWindow(dpy, screen);
77 f73497bb 2008-02-01 rsc if(argc == 0){
78 f73497bb 2008-02-01 rsc listwindows();
81 f73497bb 2008-02-01 rsc if(argc != 2)
83 f73497bb 2008-02-01 rsc shove(argv[0], argv[1]);
88 f73497bb 2008-02-01 rsc getproperty(Window w, Atom a)
93 f73497bb 2008-02-01 rsc ulong n, dummy;
97 fa325e9b 2020-01-10 cross XGetWindowProperty(dpy, w, a, 0, 100L, 0,
98 f73497bb 2008-02-01 rsc AnyPropertyType, &type, &fmt,
99 f73497bb 2008-02-01 rsc &n, &dummy, &p);
100 f73497bb 2008-02-01 rsc if(p == nil || *p == 0)
102 f73497bb 2008-02-01 rsc return strdup((char*)p);
106 f73497bb 2008-02-01 rsc findname(Window w)
110 f73497bb 2008-02-01 rsc Window dw1, dw2, *xwin;
112 f73497bb 2008-02-01 rsc if(getproperty(w, XA_WM_NAME))
114 f73497bb 2008-02-01 rsc if(!XQueryTree(dpy, w, &dw1, &dw2, &xwin, &nxwin))
116 f73497bb 2008-02-01 rsc for(i=0; i<nxwin; i++)
117 f73497bb 2008-02-01 rsc if((w = findname(xwin[i])) != 0)
123 f73497bb 2008-02-01 rsc getinfo(void)
127 f73497bb 2008-02-01 rsc Window dw1, dw2, *xwin;
128 f73497bb 2008-02-01 rsc XClassHint class;
129 f73497bb 2008-02-01 rsc XWindowAttributes attr;
131 f73497bb 2008-02-01 rsc if(!XQueryTree(dpy, root, &dw1, &dw2, &xwin, &nxwin))
133 f73497bb 2008-02-01 rsc w = mallocz(nxwin*sizeof w[0], 1);
135 f73497bb 2008-02-01 rsc sysfatal("malloc: %r");
137 f73497bb 2008-02-01 rsc Win *ww = w;
138 f73497bb 2008-02-01 rsc for(i=0; i<nxwin; i++){
139 f73497bb 2008-02-01 rsc memset(&attr, 0, sizeof attr);
140 f73497bb 2008-02-01 rsc xwin[i] = findname(xwin[i]);
141 f73497bb 2008-02-01 rsc if(xwin[i] == 0)
143 f73497bb 2008-02-01 rsc XGetWindowAttributes(dpy, xwin[i], &attr);
144 f73497bb 2008-02-01 rsc if(attr.width <= 0 || attr.override_redirect || attr.map_state != IsViewable)
146 f73497bb 2008-02-01 rsc ww->xw = xwin[i];
147 4241cae2 2020-01-15 crossd char idstr[9];
148 4241cae2 2020-01-15 crossd snprint(idstr, sizeof(idstr), "%08x", (uint)ww->xw);
149 4241cae2 2020-01-15 crossd ww->idstr = strdup(idstr);
150 f73497bb 2008-02-01 rsc ww->x = attr.x;
151 f73497bb 2008-02-01 rsc ww->y = attr.y;
152 f73497bb 2008-02-01 rsc ww->dx = attr.width;
153 f73497bb 2008-02-01 rsc ww->dy = attr.height;
154 f73497bb 2008-02-01 rsc XTranslateCoordinates(dpy, ww->xw, root, 0, 0, &ww->x, &ww->y, &dw1);
155 f73497bb 2008-02-01 rsc if(XGetClassHint(dpy, ww->xw, &class)){
156 f73497bb 2008-02-01 rsc ww->class = strdup(class.res_class);
157 f73497bb 2008-02-01 rsc ww->instance = strdup(class.res_name);
159 f73497bb 2008-02-01 rsc ww->iconname = getproperty(ww->xw, XA_WM_ICON_NAME);
160 f73497bb 2008-02-01 rsc ww->name = getproperty(ww->xw, XA_WM_NAME);
163 f73497bb 2008-02-01 rsc nw = ww - w;
167 f73497bb 2008-02-01 rsc listwindows(void)
171 f73497bb 2008-02-01 rsc for(i=0; i<nw; i++){
172 f73497bb 2008-02-01 rsc Win *ww = &w[i];
173 f73497bb 2008-02-01 rsc char rect[50];
174 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);
175 f73497bb 2008-02-01 rsc print("%08x %-20s %-10s %s\n",
176 fa325e9b 2020-01-10 cross (uint)ww->xw,
178 f73497bb 2008-02-01 rsc ww->instance,
184 f73497bb 2008-02-01 rsc shove(char *name, char *geom)
187 ad8d5423 2008-02-01 rsc int isdelta, havemin, havesize;
188 ad8d5423 2008-02-01 rsc int old, new;
189 f73497bb 2008-02-01 rsc Rectangle r;
191 ad8d5423 2008-02-01 rsc if(parsewinsize(geom, &r, &isdelta, &havemin, &havesize) < 0)
192 f73497bb 2008-02-01 rsc sysfatal("bad window spec: %s", name);
196 ad8d5423 2008-02-01 rsc if(isdelta){
198 ad8d5423 2008-02-01 rsc new = isdelta;
200 f73497bb 2008-02-01 rsc for(i=0; i<nw; i++){
201 f73497bb 2008-02-01 rsc Win *ww = &w[i];
202 f73497bb 2008-02-01 rsc if(ww->instance && strstr(ww->instance, name)
203 4241cae2 2020-01-15 crossd || ww->class && strstr(ww->class, name)
204 4241cae2 2020-01-15 crossd || ww->idstr && strstr(ww->idstr, name)){
205 f73497bb 2008-02-01 rsc int value_mask;
206 f73497bb 2008-02-01 rsc XWindowChanges e;
208 f73497bb 2008-02-01 rsc memset(&e, 0, sizeof e);
209 f73497bb 2008-02-01 rsc if(havemin){
210 ad8d5423 2008-02-01 rsc e.x = old*ww->x + new*r.min.x;
211 ad8d5423 2008-02-01 rsc e.y = old*ww->y + new*r.min.y;
213 ad8d5423 2008-02-01 rsc e.x = ww->x;
214 ad8d5423 2008-02-01 rsc e.y = ww->y;
216 ad8d5423 2008-02-01 rsc if(havesize){
217 ad8d5423 2008-02-01 rsc e.width = old*ww->dx + new*Dx(r);
218 ad8d5423 2008-02-01 rsc e.height = old*ww->dy + new*Dy(r);
220 ad8d5423 2008-02-01 rsc e.width = ww->dx;
221 ad8d5423 2008-02-01 rsc e.height = ww->dy;
223 ad8d5423 2008-02-01 rsc value_mask = CWX | CWY | CWWidth | CWHeight;
224 f73497bb 2008-02-01 rsc XConfigureWindow(dpy, ww->xw, value_mask, &e);
225 f73497bb 2008-02-01 rsc XFlush(dpy);
231 ad8d5423 2008-02-01 rsc parsewinsize(char *s, Rectangle *r, int *isdelta, int *havemin, int *havesize)
233 f73497bb 2008-02-01 rsc char c, *os;
234 f73497bb 2008-02-01 rsc int i, j, k, l;
237 ad8d5423 2008-02-01 rsc if(*s == '-'){
239 ad8d5423 2008-02-01 rsc *isdelta = -1;
240 ad8d5423 2008-02-01 rsc }else if(*s == '+'){
242 ad8d5423 2008-02-01 rsc *isdelta = 1;
244 ad8d5423 2008-02-01 rsc *isdelta = 0;
245 f73497bb 2008-02-01 rsc *havemin = 0;
246 ad8d5423 2008-02-01 rsc *havesize = 0;
247 f73497bb 2008-02-01 rsc memset(r, 0, sizeof *r);
248 f73497bb 2008-02-01 rsc if(!isdigit((uchar)*s))
250 f73497bb 2008-02-01 rsc i = strtol(s, &s, 0);
251 f73497bb 2008-02-01 rsc if(*s == 'x'){
253 f73497bb 2008-02-01 rsc if(!isdigit((uchar)*s))
255 f73497bb 2008-02-01 rsc j = strtol(s, &s, 0);
256 f73497bb 2008-02-01 rsc r->max.x = i;
257 f73497bb 2008-02-01 rsc r->max.y = j;
258 ad8d5423 2008-02-01 rsc *havesize = 1;
261 f73497bb 2008-02-01 rsc if(*s != '@')
265 f73497bb 2008-02-01 rsc if(!isdigit((uchar)*s))
267 f73497bb 2008-02-01 rsc i = strtol(s, &s, 0);
268 f73497bb 2008-02-01 rsc if(*s != ',' && *s != ' ')
271 f73497bb 2008-02-01 rsc if(!isdigit((uchar)*s))
273 f73497bb 2008-02-01 rsc j = strtol(s, &s, 0);
276 f73497bb 2008-02-01 rsc r->min.x += i;
277 f73497bb 2008-02-01 rsc r->max.x += i;
278 f73497bb 2008-02-01 rsc r->min.y += j;
279 f73497bb 2008-02-01 rsc r->max.y += j;
280 ad8d5423 2008-02-01 rsc *havesize = 1;
281 f73497bb 2008-02-01 rsc *havemin = 1;
286 f73497bb 2008-02-01 rsc if(c != ' ' && c != ',')
289 f73497bb 2008-02-01 rsc if(!isdigit((uchar)*s))
291 f73497bb 2008-02-01 rsc j = strtol(s, &s, 0);
292 ad8d5423 2008-02-01 rsc if(*s == 0){
293 ad8d5423 2008-02-01 rsc r->min.x = i;
294 ad8d5423 2008-02-01 rsc r->min.y = j;
295 ad8d5423 2008-02-01 rsc *havemin = 1;
301 f73497bb 2008-02-01 rsc if(!isdigit((uchar)*s))
303 f73497bb 2008-02-01 rsc k = strtol(s, &s, 0);
307 f73497bb 2008-02-01 rsc if(!isdigit((uchar)*s))
309 f73497bb 2008-02-01 rsc l = strtol(s, &s, 0);
312 f73497bb 2008-02-01 rsc r->min.x = i;
313 f73497bb 2008-02-01 rsc r->min.y = j;
314 f73497bb 2008-02-01 rsc r->max.x = k;
315 f73497bb 2008-02-01 rsc r->max.y = l;
316 f73497bb 2008-02-01 rsc *havemin = 1;
317 ad8d5423 2008-02-01 rsc *havesize = 1;
321 f73497bb 2008-02-01 rsc werrstr("bad syntax in window size '%s'", os);