1 files changed, 54 insertions, 0 deletions
diff --git a/foo.scm b/foo.scm
new file mode 100644
index 0000000..10f97b2
--- /dev/null
+++ b/foo.scm
@@ -0,0 +1,54 @@
+;; GWL for Stumpwm.
+;; See <https://github.com/stumpwm/stumpwm/wiki/Debugging-reproducible-crashing-bugs-or-when-crash-StumpWM-is-likely-to-Crash>.
+;; Copyright © , 2018 Oleg Pykhalov <go.wigust@gmail.com>
+;; Released under the GNU GPLv3 or any later version.
+
+(define-module (foo)
+  #:use-module (guix processes)
+  #:use-module (guix gexp)
+  #:use-module (gnu packages xorg)
+  #:use-module (gnu packages lisp)
+  #:use-module (gnu packages base)
+  #:export (run-xephyr
+            run-xterm
+            run-stumpwm
+            printenv))
+
+(define %display ":1")
+(define %resolution "1024x768")
+(define %home (getcwd))
+
+(define run-xephyr
+  (process
+   (name "run-xephyr")
+   (package-inputs (list xorg-server))
+   (procedure
+    #~(system* #$(file-append xorg-server "/bin/Xephyr")
+               "-screen" #$%resolution "-br" #$%display))))
+
+(define run-xterm
+  (process
+   (name "run-xterm")
+   (package-inputs (list xterm))
+   (procedure
+    #~(begin
+        (setenv "DISPLAY" #$%display)
+        (system* #$(file-append xterm "/bin/xterm"))))))
+
+(define printenv
+  (process
+   (name "printenv")
+   (package-inputs (list coreutils))
+   (procedure
+    #~(system* #$(file-append coreutils "/bin/printenv")))))
+
+(define run-stumpwm
+  (process
+   (name "run-stumpwm")
+   (package-inputs (list sbcl-stumpwm xdpyinfo))
+   (procedure
+    #~(begin
+        (setenv "DISPLAY" #$%display)
+        (setenv "HOME" #$%home)
+        (system* #$(file-append sbcl-stumpwm "/bin/stumpwm")
+                 #$%display)))))