API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Apr 10th, 2019
272
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Scheme 9.24 KB | None | 0 0
raw download clone embed print report
  1. ;; wed/system/pc.scm:208:63: Wrong type to apply: #<<keyboard-layout> name: "us" variant: "dvp" model: #f options: ()>
  2. (define-module (wed system pc)
  3.   #:use-module (wed packages linux-custom)
  4.   #:use-module (srfi srfi-1)
  5.   #:use-module (gnu)
  6.   #:use-module (gnu system nss)
  7.   #:use-module (gnu system keyboard)
  8.   #:use-module (gnu system locale)
  9.   #:use-module (gnu services audio)
  10.   #:use-module (gnu services sddm)
  11.   #:use-module (gnu services xorg)
  12.   #:use-module (gnu services desktop)
  13.   #:use-module (gnu services networking)
  14.   #:use-module (gnu services ssh)
  15.   #:use-module (gnu services dbus)
  16.   #:use-module (gnu services avahi)
  17.   #:use-module (gnu services sound))
  18. (use-package-modules libusb python guile xorg)
  19.  
  20. (define %base-services
  21.   (modify-services %base-services
  22.     (udev-service-type config =>
  23.                        (udev-configuration
  24.             (inherit config)
  25.             (udev wed-eudev)))
  26.     ;; (guix-service-type config =>
  27.     ;;                   (guix-configuration
  28.     ;;                    (inherit config)
  29.     ;;                    (use-substitutes? #f)
  30.     ;;                    ;(extra-options '("--gc-keep-derivations"))
  31.     ;;          ))
  32.     ))
  33.  
  34. (define %base-packages
  35.   (lset-difference eq? %base-packages
  36.            (map specification->package
  37.             '("nano" "zile" "iw" "wireless-tools"
  38.               "info-reader" "isc-dhcp" "bash-completion"))))
  39.  
  40. (operating-system
  41.  (host-name "ur.mom.lol")
  42.  (timezone "Europe/London")
  43.  (locale-definitions `(,(locale-definition
  44.              (name "en_GB.UTF-8")
  45.              (source "en_GB")
  46.              (charset "UTF-8"))))
  47.  (locale "en_GB.utf8")
  48.  
  49.  (initrd-modules '("ahci" "usbhid"))
  50.  (firmware '())
  51.  (kernel-arguments '("iommu=soft,rootflags=compress=lzo,autodefrag"))
  52.  (skeletons '())
  53.  
  54.  (bootloader (bootloader-configuration
  55.           (bootloader grub-efi-bootloader)
  56.           (target "/boot/efi")
  57.           (timeout 2)))
  58.  (file-systems (cons* (file-system
  59.                (device (file-system-label "root"))
  60.                (mount-point "/")
  61.                        (options "compress=lzo,autodefrag")
  62.                (type "btrfs"))
  63.               %base-file-systems))
  64.  (swap-devices '("/dev/sda2"))
  65.  (keyboard-layout (keyboard-layout "us" "dvp"))
  66.  
  67.  (users (cons (user-account
  68.            (name "wednesday")
  69.            (group "users")
  70.            (supplementary-groups '("wheel" "audio" "video" "netdev"))
  71.            (home-directory "/home/wednesday"))
  72.           %base-user-accounts))
  73.  
  74.  (name-service-switch %mdns-host-lookup-nss) ;; look into
  75.  (packages (append (map specification->package
  76.             (append
  77.              ;; misc
  78.              '("nss-certs" "emacs" "glibc-utf8-locales" "git" "python" "guile-colorized")
  79.              ;; x
  80.              '("emacs-exwm" "font-dejavu" "xmodmap" "xrandr")))
  81.            %base-packages))
  82.  (services (append
  83.         ;; net
  84.         `(,(service ntp-service-type)
  85.           ,(static-networking-service "enp3s0" "192.168.0.20"
  86.                       #:gateway "192.168.0.1"
  87.                       #:name-servers '("1.1.1.1" "8.8.8.8" "4.4.4.4"))
  88.           ,(service openssh-service-type
  89.             (openssh-configuration
  90.              (permit-root-login 'without-password)
  91.              (password-authentication? #f)
  92.              (use-pam? #f)
  93.              (port-number 2222))))
  94.         ;; dbus
  95.         `(,(service avahi-service-type
  96.             (avahi-configuration (host-name #f)
  97.                          (publish? #t)
  98.                          (ipv4? #t)
  99.                          (ipv6? #f)
  100.                          (wide-area? #f)
  101.                          (domains-to-browse '())))
  102.           ,(accountsservice-service)
  103.           ,(service polkit-service-type)
  104.           ,(dbus-service))
  105.         ;; x
  106.         `(;; ,(service slim-service-type
  107. ;;              (slim-configuration
  108. ;;               (auto-login? #f)
  109. ;;               (default-user "wednesday")
  110. ;;               (auto-login-session "exwm.desktop")
  111. ;;               (xorg-configuration (xorg-configuration
  112. ;;                            (modules (list xf86-video-nouveau xf86-input-evdev))
  113. ;;                        (drivers '("nouveau"))
  114. ;;                        (resolutions '((1920 1080) (1440 900)))
  115. ;;                        (extra-config '("Section \"InputClass\"
  116. ;;     Identifier      \"evdev keyboard catchall\"
  117. ;;     MatchIsKeyboard \"on\"
  118. ;;     Option          \"AutoRepeat\" \"250 10\"
  119. ;; EndSection\n"
  120. ;;                                "Section \"InputClass\"
  121. ;;     Identifier      \"evdev mouse pointer catchall\"
  122. ;;     MatchIsPointer  \"yes\"
  123. ;;     Option          \"AccelerationProfile\" \"-1\"
  124. ;;     Option          \"AccelerationScheme\" \"none\"
  125. ;;     Option          \"AccelSpeed\" \"-1\"
  126. ;;     #Option          \"AccelerationProfile\" \"7\"
  127. ;;     #Option          \"AdaptiveDeceleration\" \"10\"
  128. ;;     #Option          \"AccelerationProfileAveraging\" \"false\"
  129. ;; EndSection\n"
  130. ;;                                "Section \"Screen\"
  131. ;;     Identifier      \"screen-nouveau\"
  132. ;;     Option         \"metamodes\" \"VGA-0: 1920x1080_75.00 +0+0 {ForceCompositionPipeline=on, ForceFullCompositionPipeline=on}, DVI-D-0: 1440x900 +1920+56 {ForceCompositionPipeline=on, ForceFullCompositionPipeline=on}\"
  133. ;;     Option          \"HWCursor\" \"on\"
  134. ;;     Option          \"AccelMethod\" \"exa\"
  135. ;;     Option          \"NoAccel\" \"off\"
  136. ;;     Option          \"ShadowFB\" \"off\"
  137. ;;     Option          \"WrappedFB\" \"off\"
  138. ;;     Option          \"GLXVBlank\" \"off\"
  139. ;;     Option          \"ZaphodHeads\" \"VGA-1,DVI-D-1\"
  140. ;;     Option          \"PageFlip\" \"on\"
  141. ;;     Option          \"SwapLimit\" \"3\"
  142. ;;     Option          \"DRI\" \"3\"
  143. ;;     SubSection      \"Display\"
  144. ;;         Depth       24
  145. ;;     EndSubSection
  146. ;; EndSection\n"
  147. ;;                                "Section \"Monitor\"
  148. ;;     Identifier      \"VGA-1\"
  149. ;; Modeline \"1920x1080_75.00\" 220.64 1920 2056 2264 2608 1080 1081 1084 1128 -HSync +Vsync
  150. ;; EndSection\n"
  151. ;;                                "Section \"Monitor\"
  152. ;;     Identifier      \"DVI-D-1\"
  153. ;;     Option          \"RightOf\" \"VGA-1\"
  154. ;; EndSection\n"))
  155. ;;                            (keyboard-layout (keyboard-layout "us" "dvp"
  156. ;;                                          #:options
  157. ;;                                          '("ctrl:swap_lalt_lctl"
  158. ;;                                            "caps:swapescape"
  159. ;;                                            "keypad:pointerkeys"
  160. ;;                                            "terminate:ctrl_alt_bksp")))))))
  161.           ,(sddm-service (sddm-configuration
  162.                       (auto-login-user "wednesday")
  163.                       (auto-login-session "exwm.desktop")
  164.                       (relogin? #t)
  165.                   (xorg-configuration (xorg-configuration
  166.                               (modules (list xf86-video-nouveau xf86-input-evdev))
  167.                           (drivers '("nouveau"))
  168.                           (resolutions '((1920 1080) (1440 900)))
  169.                           (extra-config '("Section \"InputClass\"
  170.    Identifier      \"evdev keyboard catchall\"
  171.    MatchIsKeyboard \"on\"
  172.    Option          \"AutoRepeat\" \"250 10\"
  173. EndSection\n"
  174.                                   "Section \"InputClass\"
  175.    Identifier      \"evdev mouse pointer catchall\"
  176.    MatchIsPointer  \"yes\"
  177.    Option          \"AccelerationProfile\" \"-1\"
  178.    Option          \"AccelerationScheme\" \"none\"
  179.    Option          \"AccelSpeed\" \"-1\"
  180.    #Option          \"AccelerationProfile\" \"7\"
  181.    #Option          \"AdaptiveDeceleration\" \"10\"
  182.    #Option          \"AccelerationProfileAveraging\" \"false\"
  183. EndSection\n"
  184.                                   "Section \"Screen\"
  185.    Identifier      \"screen-nouveau\"
  186.    Option         \"metamodes\" \"VGA-0: 1920x1080_75.00 +0+0 {ForceCompositionPipeline=on, ForceFullCompositionPipeline=on}, DVI-D-0: 1440x900 +1920+56 {ForceCompositionPipeline=on, ForceFullCompositionPipeline=on}\"
  187.    Option          \"HWCursor\" \"on\"
  188.    Option          \"AccelMethod\" \"exa\"
  189.    Option          \"NoAccel\" \"off\"
  190.    Option          \"ShadowFB\" \"off\"
  191.    Option          \"WrappedFB\" \"off\"
  192.    Option          \"GLXVBlank\" \"off\"
  193.    Option          \"ZaphodHeads\" \"VGA-1,DVI-D-1\"
  194.    Option          \"PageFlip\" \"on\"
  195.    Option          \"SwapLimit\" \"3\"
  196.    Option          \"DRI\" \"3\"
  197.    SubSection      \"Display\"
  198.        Depth       24
  199.    EndSubSection
  200. EndSection\n"
  201.                                   "Section \"Monitor\"
  202.    Identifier      \"VGA-1\"
  203. Modeline \"1920x1080_75.00\" 220.64 1920 2056 2264 2608 1080 1081 1084 1128 -HSync +Vsync
  204. EndSection\n"
  205.                                   "Section \"Monitor\"
  206.    Identifier      \"DVI-D-1\"
  207.    Option          \"RightOf\" \"VGA-1\"
  208. EndSection\n"))
  209.                               (keyboard-layout (keyboard-layout "us" "dvp"
  210.                                             #:options
  211.                                             '("ctrl:swap_lalt_lctl"
  212.                                               "caps:swapescape"
  213.                                               "keypad:pointerkeys"
  214.                                               "terminate:ctrl_alt_bksp")))))))
  215.           ,x11-socket-directory-service)
  216.  
  217.         ;; misc
  218.         `(,(extra-special-file "/usr/bin/env"
  219.                    (file-append coreutils "/bin/env"))
  220.           ,(extra-special-file "/usr/local/bin/guile"
  221.                    (file-append guile-2.2 "/bin/guile"))
  222.           ,(extra-special-file "/usr/local/bin/python"
  223.                    (file-append python "/bin/python3.7"))
  224.           ,(simple-service 'mtp udev-service-type (list libmtp))
  225.           ,(service alsa-service-type)
  226.           ,(console-keymap-service "dvorak")
  227.           ,(service mpd-service-type
  228.             (mpd-configuration
  229.              (user "wednesday")
  230.              (music-dir "/home/wednesday/Music/")
  231.              (playlist-dir "/home/wednesday/.config/mpd/playlists")
  232.                          (db-file "/home/wednesday/.config/mpd/db")
  233.                          (state-file "/home/wednesday/.config/mpd/state")
  234.                          (sticker-file "/home/wednesday/.config/mpd/sticker.sql")
  235.                          (port "6600")
  236.                          (address "localhost"))))
  237.         %base-services)))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!