diff options
| -rw-r--r-- | .stumpwm.d/init.lisp | 3 | ||||
| -rw-r--r-- | foo.scm | 54 |
2 files changed, 57 insertions, 0 deletions
diff --git a/.stumpwm.d/init.lisp b/.stumpwm.d/init.lisp new file mode 100644 index 0000000..cf46ae5 --- /dev/null +++ b/.stumpwm.d/init.lisp @@ -0,0 +1,3 @@ +(in-package :stumpwm) + +(set-prefix-key (kbd "C-r")) @@ -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))))) |