<
aboutsummaryrefslogtreecommitdiff
path: root/doc/images/shepherd-graph.dot
blob: 06b028701b413509a62a181ffd022d8e7960bec8 (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
digraph "Guix shepherd-service" {
  "user-file-systems" [label = "user-file-systems", shape = box, fontname = "dejavu sans"];
  "user-processes" -> "user-file-systems" [color = cyan3];
  "user-processes" [label = "user-processes", shape = box, fontname = "dejavu sans"];
  "nscd" -> "user-processes" [color = magenta];
  "guix-daemon" -> "user-processes" [color = blue];
  "urandom-seed" -> "user-processes" [color = dimgrey];
  "syslogd" -> "user-processes" [color = darkgoldenrod];
  "term-tty6" -> "user-processes" [color = magenta];
  "term-tty5" -> "user-processes" [color = red];
  "term-tty4" -> "user-processes" [color = darkgoldenrod];
  "term-tty3" -> "user-processes" [color = dimgrey];
  "term-tty2" -> "user-processes" [color = darkviolet];
  "term-tty1" -> "user-processes" [color = peachpuff4];
  "networking" -> "user-processes" [color = dimgrey];
  "nscd" [label = "nscd", shape = box, fontname = "dejavu sans"];
  "guix-daemon" [label = "guix-daemon", shape = box, fontname = "dejavu sans"];
  "urandom-seed" [label = "urandom-seed", shape = box, fontname = "dejavu sans"];
  "syslogd" [label = "syslogd", shape = box, fontname = "dejavu sans"];
  "ssh-daemon" -> "syslogd" [color = darkgoldenrod];
  "ssh-daemon" [label = "ssh-daemon", shape = box, fontname = "dejavu sans"];
  "term-tty6" [label = "term-tty6", shape = box, fontname = "dejavu sans"];
  "console-font-tty6" -> "term-tty6" [color = darkgoldenrod];
  "console-font-tty6" [label = "console-font-tty6", shape = box, fontname = "dejavu sans"];
  "term-tty5" [label = "term-tty5", shape = box, fontname = "dejavu sans"];
  "console-font-tty5" -> "term-tty5" [color = dimgrey];
  "console-font-tty5" [label = "console-font-tty5", shape = box, fontname = "dejavu sans"];
  "term-tty4" [label = "term-tty4", shape = box, fontname = "dejavu sans"];
  "console-font-tty4" -> "term-tty4" [color = darkviolet];
  "console-font-tty4" [label = "console-font-tty4", shape = box, fontname = "dejavu sans"];
  "term-tty3" [label = "term-tty3", shape = box, fontname = "dejavu sans"];
  "console-font-tty3" -> "term-tty3" [color = peachpuff4];
  "console-font-tty3" [label = "console-font-tty3", shape = box, fontname = "dejavu sans"];
  "term-tty2" [label = "term-tty2", shape = box, fontname = "dejavu sans"];
  "console-font-tty2" -> "term-tty2" [color = darkseagreen];
  "console-font-tty2" [label = "console-font-tty2", shape = box, fontname = "dejavu sans"];
  "term-tty1" [label = "term-tty1", shape = box, fontname = "dejavu sans"];
  "console-font-tty1" -> "term-tty1" [color = cyan3];
  "console-font-tty1" [label = "console-font-tty1", shape = box, fontname = "dejavu sans"];
  "networking" [label = "networking", shape = box, fontname = "dejavu sans"];
  "ssh-daemon" -> "networking" [color = darkgoldenrod];
  "root-file-system" [label = "root-file-system", shape = box, fontname = "dejavu sans"];
  "file-system-/dev/pts" -> "root-file-system" [color = peachpuff4];
  "file-system-/dev/shm" -> "root-file-system" [color = darkgoldenrod];
  "file-system-/gnu/store" -> "root-file-system" [color = blue];
  "user-processes" -> "root-file-system" [color = cyan3];
  "udev" -> "root-file-system" [color = darkseagreen];
  "file-system-/dev/pts" [label = "file-system-/dev/pts", shape = box, fontname = "dejavu sans"];
  "user-processes" -> "file-system-/dev/pts" [color = cyan3];
  "file-system-/dev/shm" [label = "file-system-/dev/shm", shape = box, fontname = "dejavu sans"];
  "user-processes" -> "file-system-/dev/shm" [color = cyan3];
  "file-system-/gnu/store" [label = "file-system-/gnu/store", shape = box, fontname = "dejavu sans"];
  "user-processes" -> "file-system-/gnu/store" [color = cyan3];
  "udev" [label = "udev", shape = box, fontname = "dejavu sans"];
  "term-tty6" -> "udev" [color = magenta];
  "term-tty5" -> "udev" [color = red];
  "term-tty4" -> "udev" [color = darkgoldenrod];
  "term-tty3" -> "udev" [color = dimgrey];
  "term-tty2" -> "udev" [color = darkviolet];
  "term-tty1" -> "udev" [color = peachpuff4];
  "networking" -> "udev" [color = dimgrey];
  "host-name" [label = "host-name", shape = box, fontname = "dejavu sans"];
  "term-tty6" -> "host-name" [color = magenta];
  "term-tty5" -> "host-name" [color = red];
  "term-tty4" -> "host-name" [color = darkgoldenrod];
  "term-tty3" -> "host-name" [color = dimgrey];
  "term-tty2" -> "host-name" [color = darkviolet];
  "term-tty1" -> "host-name" [color = peachpuff4];
  "loopback" [label = "loopback", shape = box, fontname = "dejavu sans"];

}
(sort-variants (add-empty-variant variants)) (lambda (variant) (if variant (gettext (x11-keymap-variant-description variant) "xkeyboard-config") ;; Text to opt for no variant at all: (gettext (x11-keymap-layout-description layout) "xkeyboard-config"))))))))))) (define (format-result layout variant) (let ((layout (x11-keymap-layout-name layout)) (variant (and=> variant (lambda (variant) (gettext (x11-keymap-variant-name variant) "xkeyboard-config"))))) (toggleable-latin-layout layout variant))) (let* ((result (run-installer-steps #:steps keymap-steps)) (layout (result-step result 'layout)) (variant (result-step result 'variant))) (and layout (format-result layout variant)))) (define (keyboard-layout->configuration keymap) "Return the operating system configuration snippet to install KEYMAP." (match keymap ((name #f "grp:alt_shift_toggle") `((keyboard-layout (keyboard-layout ,name #:options '("grp:alt_shift_toggle"))))) ((name #f _) `((keyboard-layout (keyboard-layout ,name)))) ((name variant "grp:alt_shift_toggle") `((keyboard-layout (keyboard-layout ,name ,variant #:options '("grp:alt_shift_toggle"))))) ((name variant _) `((keyboard-layout (keyboard-layout ,name ,variant))))))