Update .gitignore

author: Case Duckworth 2024-01-17 00:23:37 -0600
committer: Case Duckworth 2024-01-17 00:23:37 -0600
commit: 48877209efe7dabbeb20b9677d372ac2452fa73e (patch)
tree: e5094ca275925d66560028fa20dc403865c3eddf /acdwm.scm
parent: initial commit (diff)
download: acdwm-48877209efe7dabbeb20b9677d372ac2452fa73e.tar.gz
acdwm-48877209efe7dabbeb20b9677d372ac2452fa73e.zip
1 files changed, 0 insertions, 110 deletions
diff --git a/acdwm.scm b/acdwm.scm
deleted file mode 100755
index fdd8395..0000000
--- a/acdwm.scm
+++ /dev/null

@@ -1,110 +0,0 @@
-#!/bin/sh
-#| -*- scheme -*-
-exec csi -ss "$0" "$@"                  ; acdwm
-based on tinywm: https://github.com/mackstann/tinywm/
-|#
-(import (chicken bitwise)
-        (chicken process-context)
-        (srfi 1)
-        matchable
-        xlib)
-(define TRUE 1)
-(define FALSE 0)
-(define dpy (make-parameter #f))
-(define screen (make-parameter #f))
-(define root (make-parameter #f))
-(define (grab-keys)
-  (xgrabkey (dpy)
-            (char->integer (xkeysymtokeycode (dpy) (xstringtokeysym "F1")))
-            MOD1MASK
-            (root)
-            TRUE
-            GRABMODEASYNC
-            GRABMODEASYNC)
-  (xgrabbutton (dpy)
-               1
-               MOD1MASK
-               (root)
-               TRUE
-               (bitwise-ior BUTTONPRESSMASK
-                            BUTTONRELEASEMASK
-                            POINTERMOTIONMASK)
-               GRABMODEASYNC
-               GRABMODEASYNC
-               NONE
-               NONE)
-  (xgrabbutton (dpy)
-               3
-               MOD1MASK
-               (root)
-               TRUE
-               (bitwise-ior BUTTONPRESSMASK
-                            BUTTONRELEASEMASK
-                            POINTERMOTIONMASK)
-               GRABMODEASYNC
-               GRABMODEASYNC
-               NONE
-               NONE))
-(define (handle-events)
-  (let ((event (make-xevent))
-        (start (make-xbuttonevent))
-        (attrs (make-xwindowattributes)))
-    (set-xbuttonevent-subwindow! start NONE)
-    (let loop ()
-      (xnextevent (dpy) event)
-      (cond
-       ((and (= KEYPRESS (xevent-type event))
-             (not (= NONE (xevent-xkey-subwindow event))))
-        (xraisewindow (dpy) (xevent-xkey-subwindow event)))
-       ((and (= BUTTONPRESS (xevent-type event))
-             (not (= NONE (xevent-xbutton-subwindow event))))
-        (print "button!")
-        (xgetwindowattributes (dpy) (xevent-xbutton-subwindow event) attrs)
-        (set-xbuttonevent-x_root! start (xevent-xbutton-x_root event))
-        (set-xbuttonevent-y_root! start (xevent-xbutton-y_root event))
-        (set-xbuttonevent-button! start (xevent-xbutton-button event))
-        (set-xbuttonevent-subwindow! start (xevent-xbutton-subwindow event)))
-       ((and (= MOTIONNOTIFY (xevent-type event))
-             (not (= NONE (xbuttonevent-subwindow start))))
-        (let ((xdiff (- (xevent-xbutton-x_root event)
-                        (xbuttonevent-x_root start)))
-              (ydiff (- (xevent-xbutton-y_root event)
-                        (xbuttonevent-y_root start)))
-              (button (xbuttonevent-button start)))
-          (xmoveresizewindow (dpy)
-                             (xbuttonevent-subwindow start)
-                             (+ (xwindowattributes-x attrs)
-                                (if (= button 1) xdiff 0))
-                             (+ (xwindowattributes-y attrs)
-                                (if (= button 1) ydiff 0))
-                             (max 1 (+ (xwindowattributes-width attrs)
-                                       (if (= button 3) xdiff 0)))
-                             (max 1 (+ (xwindowattributes-height attrs)
-                                       (if (= button 3) ydiff 0))))))
-       ((= BUTTONRELEASE (xevent-type event))
-        (print "buttonrelease!")
-        (set-xbuttonevent-subwindow! start NONE)))
-      ;; Annnd go around again
-      (loop))))
-(define (main args)
-  (parameterize ((dpy (xopendisplay #f)))
-    (assert (dpy))
-    (parameterize ((screen (xdefaultscreen (dpy))))
-      (parameterize ((root (xrootwindow (dpy) (screen))))
-        (grab-keys)
-        (handle-events)))))
-(cond-expand
-  ((or chicken-script compiling)
-   (main (command-line-arguments)))
-  (else))
author	Case Duckworth	2024-01-17 00:23:37 -0600
committer	Case Duckworth	2024-01-17 00:23:37 -0600
commit	48877209efe7dabbeb20b9677d372ac2452fa73e (patch)
tree	e5094ca275925d66560028fa20dc403865c3eddf /acdwm.scm
parent	initial commit (diff)
download	acdwm-48877209efe7dabbeb20b9677d372ac2452fa73e.tar.gz acdwm-48877209efe7dabbeb20b9677d372ac2452fa73e.zip

diff --git a/acdwm.scm b/acdwm.scm deleted file mode 100755 index fdd8395..0000000 --- a/acdwm.scm +++ /dev/null
@@ -1,110 +0,0 @@
1	#!/bin/sh
2	#\| -- scheme --
3	exec csi -ss "$0" "$@" ; acdwm
4	based on tinywm: https://github.com/mackstann/tinywm/
5	\|#
6
7	(import (chicken bitwise)
8	(chicken process-context)
9	(srfi 1)
10	matchable
11	xlib)
12
13	(define TRUE 1)
14	(define FALSE 0)
15
16	(define dpy (make-parameter #f))
17	(define screen (make-parameter #f))
18	(define root (make-parameter #f))
19
20	(define (grab-keys)
21	(xgrabkey (dpy)
22	(char->integer (xkeysymtokeycode (dpy) (xstringtokeysym "F1")))
23	MOD1MASK
24	(root)
25	TRUE
26	GRABMODEASYNC
27	GRABMODEASYNC)
28	(xgrabbutton (dpy)
29	1
30	MOD1MASK
31	(root)
32	TRUE
33	(bitwise-ior BUTTONPRESSMASK
34	BUTTONRELEASEMASK
35	POINTERMOTIONMASK)
36	GRABMODEASYNC
37	GRABMODEASYNC
38	NONE
39	NONE)
40	(xgrabbutton (dpy)
41	3
42	MOD1MASK
43	(root)
44	TRUE
45	(bitwise-ior BUTTONPRESSMASK
46	BUTTONRELEASEMASK
47	POINTERMOTIONMASK)
48	GRABMODEASYNC
49	GRABMODEASYNC
50	NONE
51	NONE))
52
53	(define (handle-events)
54	(let ((event (make-xevent))
55	(start (make-xbuttonevent))
56	(attrs (make-xwindowattributes)))
57	(set-xbuttonevent-subwindow! start NONE)
58	(let loop ()
59	(xnextevent (dpy) event)
60	(cond
61	((and (= KEYPRESS (xevent-type event))
62	(not (= NONE (xevent-xkey-subwindow event))))
63	(xraisewindow (dpy) (xevent-xkey-subwindow event)))
64
65	((and (= BUTTONPRESS (xevent-type event))
66	(not (= NONE (xevent-xbutton-subwindow event))))
67	(print "button!")
68	(xgetwindowattributes (dpy) (xevent-xbutton-subwindow event) attrs)
69	(set-xbuttonevent-x_root! start (xevent-xbutton-x_root event))
70	(set-xbuttonevent-y_root! start (xevent-xbutton-y_root event))
71	(set-xbuttonevent-button! start (xevent-xbutton-button event))
72	(set-xbuttonevent-subwindow! start (xevent-xbutton-subwindow event)))
73
74	((and (= MOTIONNOTIFY (xevent-type event))
75	(not (= NONE (xbuttonevent-subwindow start))))
76	(let ((xdiff (- (xevent-xbutton-x_root event)
77	(xbuttonevent-x_root start)))
78	(ydiff (- (xevent-xbutton-y_root event)
79	(xbuttonevent-y_root start)))
80	(button (xbuttonevent-button start)))
81	(xmoveresizewindow (dpy)
82	(xbuttonevent-subwindow start)
83	(+ (xwindowattributes-x attrs)
84	(if (= button 1) xdiff 0))
85	(+ (xwindowattributes-y attrs)
86	(if (= button 1) ydiff 0))
87	(max 1 (+ (xwindowattributes-width attrs)
88	(if (= button 3) xdiff 0)))
89	(max 1 (+ (xwindowattributes-height attrs)
90	(if (= button 3) ydiff 0))))))
91
92	((= BUTTONRELEASE (xevent-type event))
93	(print "buttonrelease!")
94	(set-xbuttonevent-subwindow! start NONE)))
95
96	;; Annnd go around again
97	(loop))))
98
99	(define (main args)
100	(parameterize ((dpy (xopendisplay #f)))
101	(assert (dpy))
102	(parameterize ((screen (xdefaultscreen (dpy))))
103	(parameterize ((root (xrootwindow (dpy) (screen))))
104	(grab-keys)
105	(handle-events)))))
106
107	(cond-expand
108	((or chicken-script compiling)
109	(main (command-line-arguments)))
110	(else))