diff options
Diffstat (limited to 'foo.scm')
| -rw-r--r-- | foo.scm | 59 |
1 files changed, 49 insertions, 10 deletions
@@ -8,11 +8,18 @@ #:use-module (guix gexp) #:use-module (gnu packages xorg) #:use-module (gnu packages lisp) - #:use-module (gnu packages base) + #: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 - printenv)) + run-emacs + run-emacsclient + run-conkeror + run-icecat)) (define %display ":1") (define %resolution "1024x768") @@ -29,19 +36,12 @@ (define run-xterm (process (name "run-xterm") - (package-inputs (list xterm)) + (package-inputs (list xterm font-misc-misc)) (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") @@ -52,3 +52,42 @@ (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"))))) |