blob: 57b243488045f18f17abe80bd99dd5526084e0a6 (
about) (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
|
;; 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")))))
|
