Paste number 356052: my config.scm

Paste number 356052: my config.scm
Pasted by: jondua
When:2 years, 8 months ago
Share:Tweet this! | http://paste.lisp.org/+7MQC
Channel:None
Paste contents:
Raw Source | XML | Display As
;; This is the config that I am using as of July 30, 2017

(use-modules (gnu) (gnu system nss))
;; module used in dvorak-layout function
(use-modules (ice-9 rdelim))
(use-service-modules desktop
                     ;; networking is needed for dhcp-client-service
                     ;; networking
                     ssh
                     mcron
                     web
                     xorg ;;dealing with slim
                     cups
                     admin
                     databases
                     mail
                     vpn
                     dict
                     )
(use-package-modules bootloaders admin certs gnome base
                     idutils emacs
                     aspell
                     wm
                     gnuzilla
                     fonts
                     mail
                     guile
                     gnupg
                     xorg)

(define updatedb-job
  ;; Run 'updatedb' at 3AM every day.
  #~(job '(next-hour '(3))
         (lambda ()
           (execl  (string-append #$findutils "/bin/updatedb")
                   "updatedb"
                   "--prunepaths=/tmp /var/tmp /gnu/store"))))

(define garbage-collector-job
  ;;collect garbage
  #~(job "5 0 * * *"
         "guix gc"))

(define dvorak-layout
  ;; a hacky way to get X to use dvorak
  (call-with-input-file "/etc/X11/xorg.conf.d/10-dvorak-layout.conf" read-string))


(operating-system
 (host-name "GuixSD")
 (timezone "America/Indianapolis")
 (locale "en_US.utf8")

 ;;(kernel-arguments
 ;; I can specify kernel arguments here.
 ;;I had specified nomodeset, because that was the only way to boot guixSD from a usb.
 ;;But guixSD boots just fine wants it's installed.  And nomodeset, makes the display look awful!
 ;; '("nomodeset"
 ;; ))

 (swap-devices '("/dev/sda3"))
 ;; Assuming /dev/sdX is the target hard disk, and "my-root" is
 ;; the label of the target root file system.
 (bootloader (grub-configuration
              (grub grub-efi)
              (device "/dev/sda1")
              (menu-entries
               (list
                (menu-entry
                 (label "Parabola")
                 (linux "(hd0,gpt1)/vmlinuz-linux")
                 (linux-arguments '("root=/dev/sda2 ro"))
                 (initrd "(hd0,gpt1)/initramfs-linux.img"))))))

 (file-systems (cons* (file-system
                       (device "my-root")
                       (title 'label)
                       (mount-point "/")
                       (type "ext4"))
                      (file-system
                       (mount-point "/home")
                       (device "/dev/sda4")
                       (type "ext4"))
                      (file-system
                       (device "/dev/sda1")
                       (mount-point "/boot/efi")
                       (type "vfat"))
                      %base-file-systems))

 ;; This is where user accounts are specified.  The "root"
 ;; account is implicit, and is initially created with the
 ;; empty password.
 (users (cons* (user-account
                (name "joshua")
                (comment "joshua")
                (uid 1000)
                (group "users")

                ;; Adding the account to the "wheel" group
                ;; makes it a sudoer.  Adding it to "audio"
                ;; and "video" allows the user to play sound
                ;; and access the webcam.
                (supplementary-groups '("wheel"
                                        "audio" "video" "netdev" "users"
                                        ))
                (home-directory "/home/joshua"))

               ;;creating a user account wes, in case I cannot log into joshua
               (user-account
                (name "wes")
                (comment "wes")
                (uid 2025)
                (group "users")
                (home-directory "/home/wes")
                (supplementary-groups '("wheel" "netdev" "audio" "users"
                                        "video" )))
               %base-user-accounts))

 (groups (cons* (user-group
                 (name "users")
                 (id 2000))
                %base-groups))


 ;; Globally-installed packages.
 (packages (cons*
            aspell aspell-dict-en
            gvfs nss-certs tcpdump
            emacs

            awesome
            icecat
            setxkbmap

            ;; fonts
            font-awesome
            font-hack
            font-dejavu
            font-ubuntu
            font-tex-gyre

            gnupg

            %base-packages))

 ;; Add services to the baseline: a DHCP client and
 ;; an SSH server.
 (services (cons* (gnome-desktop-service)
                  (service rottlog-service-type)
                  (mcron-service (list garbage-collector-job
                                       updatedb-job))
                  ;;  the services above work
                  (dovecot-service
                   #:config
                   (dovecot-configuration
                    (mail-location "maildir:~/.mail")))
                  ;;(openvpn-client-service)
                  (dicod-service)
                  ;; running a mysql server crashes GuixSD
                  (mysql-service)
                  (nginx-service #:server-list
                                 (list (nginx-server-configuration
                                        (root "/home/joshua/programming2/html/")
                                        (index (list "index.php" "index.html"))
                                        (https-port #f)
                                        )))
                  ;; here's how I can specify the nginx conf file
                  ;; (nginx-service #:config-file "/etc/nginx/nginx.conf")

                  (console-keymap-service "dvorak")
                  ;; (dhcp-client-service)
                  ;; this is a hacky way to get a dvorak layout on X
                  ;; (modify-services %desktop-services
                  ;;                  (slim-service-type
                  ;;                   config => (slim-configuration
                  ;;                              (inherit config)
                  ;;                              (startx (xorg-start-command
                  ;;                                       #:configuration-file
                  ;;                                       (xorg-configuration-file
                  ;;                                        #:extra-config
                  ;;                                        (list (dvorak-layout))))))))
                  (service cups-service-type)
                  ;;(service openssh-service-type
                  ;;         (openssh-configuration
                  ;;           (port-number 2222)))
                  %desktop-services))

 (name-service-switch %mdns-host-lookup-nss))

This paste has no annotations.

Colorize as:
Show Line Numbers

Lisppaste pastes can be made by anyone at any time. Imagine a fearsomely comprehensive disclaimer of liability. Now fear, comprehensively.