;; 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 conkeror)
  #:use-module (gnu packages gnuzilla)
  #:use-module (gnu packages fonts)
  #:use-module (gnu packages fontutils)
  #:use-module (wigust packages emacs)
  #:export (run-xephyr
            run-xterm
            run-stumpwm
            run-emacs
            run-emacsclient
            run-conkeror
            run-icecat))

(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 font-misc-misc))
   (procedure
    #~(begin
        (setenv "DISPLAY" #$%display)
        (system* #$(file-append xterm "/bin/xterm"))))))

(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)))))

(define run-emacs
  (process
   (name "run-emacs")
   (package-inputs (list emacs-athena font-dejavu fontconfig))
   (procedure
    #~(begin
        (setenv "DISPLAY" #$%display)
        (system* #$(file-append emacs-athena "/bin/emacs")
                 "--font" "DejaVu Sans Mono-18")))))

(define run-emacsclient
  (process
   (name "run-emacsclient")
   (package-inputs (list emacs-athena))
   (procedure
    #~(begin
        (setenv "DISPLAY" #$%display)
        (system* #$(file-append emacs-athena "/bin/emacsclient")
                 "-c" ".")))))

(define run-icecat
  (process
   (name "run-icecat")
   (package-inputs (list icecat))
   (procedure
    #~(begin
        (setenv "DISPLAY" #$%display)
        (system* #$(file-append icecat "/bin/icecat"))))))

(define run-conkeror
  (process
   (name "run-conkeror")
   (package-inputs (list conkeror))
   (procedure
    #~(begin
        (setenv "DISPLAY" #$%display)
        (system* #$(file-append conkeror "/bin/conkeror")
                 "--new-instance")))))