Paste number 325471: file-system-/run/systemd

Index of paste annotations: 1

Paste number 325471: file-system-/run/systemd
Pasted by: janneke@gnu.org
When:5 years, 2 months ago
Share:Tweet this! | http://paste.lisp.org/+6Z4V
Channel:None
Paste contents:
Raw Source | XML | Display As
(use-modules (gnu))
(use-service-modules
 base
 databases
 desktop
 networking
 rottlog
 ssh)

(use-package-modules
 admin
 certs
 databases
 emacs
 fonts
 games
 gnome
 guile
 guile-wm
 linux
 version-control
 vpn
 xorg)

(use-modules
 (janneke))

(use-package-modules admin)
(use-service-modules mcron)

(define rottlog-job
  #~(job '(next-hour '(5))
         (lambda ()
           (system (string-append  #$rottlog "/sbin/rottlog")))))

(define updatedb-job
  ;; Run 'updatedb' at 3AM every day.  Here we write the
  ;; job's action as a Scheme procedure.
  #~(job '(next-hour '(3))
         (lambda ()
           (execl (string-append #$findutils "/bin/updatedb")
                  "updatedb"
                  "--prunepaths=/tmp /var/tmp /gnu/store"))))

(define dundal
  (operating-system
    (host-name "dundal")
    (timezone "Europe/Amsterdam")
    (locale "en_US.UTF-8")

    (bootloader
     (grub-configuration
      ;;(device "/dev/sdb") ;; // a or b?
      (device "/dev/nvme0n1") ;; // a or b?
      ;;(device "/dev/sda") ;; // a or b?
      ;; Here is my hack (grub-configuration appends bzImage to `linux')
      ;; to add a custom entry for debian on /dev/sda3 to the Grub menu
      ;; On Debian, do:
      ;;   sudo mkdir -p /boot/latest
      ;;   sudo ln -s $(ls -t /boot/vmlinuz*|head -1) /boot/latest/bzImage
      ;;   sudo ln -s $(ls -t /boot/initrd*|head -1) /boot/latest/initrd
      (menu-entries
       (list
        (menu-entry
         (label "debian")
         (linux "(hd0,msdos2)/boot/latest")
         (linux-arguments '("root=debian"))
         (initrd "(hd0,msdos2)/boot/latest/initrd"))
        ))))

    ;;<civodul> maybe "rfkill unblock [phy]0"?
    ;; target GuixSD root file system
    (file-systems
     (cons* (file-system (device "guix")
                         (title 'label)
                         (mount-point "/")
                         (type "ext4"))
            %base-file-systems
            ))

    (groups
     (cons* (user-group (name "janneke"))
            %base-groups))

    (users
     (cons* (user-account
             (name "janneke")
             (group "janneke")
             (password (crypt "********" "xx"))
             (uid 1000)
             (supplementary-groups '(
                                     "wheel"
                                     "netdev"
                                     "audio"
                                     "video"
                                     "lp"
                                     "kvm"
                                     ))
             (home-directory "/home/janneke"))
            %base-user-accounts))


    (packages
     (cons*
      bluez
      emacs
      font-cantarell
      font-dejavu
      font-ubuntu
      gnome
      gnome-bluetooth
      gnome-shell
      gnome-tweak-tool
      guile-wm
      laby
      nss-certs
      openvpn
      postgresql
      setxkbmap
      rottlog
      wpa-supplicant
      xinput
      xf86-input-synaptics
      %base-packages))

    (services
     (cons*
      ;; (bluetooth-service)
      ;; (console-keymap-service "dvorak")
      ;; ;; TODO: package dvorak-control
      ;; (gnome-desktop-service)
      ;; ;;(dhcp-client-service)
      ;; ;;(network-manager-service)
      ;; (lsh-service #:port-number 2222
      ;;              #:allow-empty-passwords? #t
      ;;              #:root-login? #t)
      ;; (postgresql-service)
      ;; (mcron-service (list rottlog-job
      ;;                      updatedb-job))
      ;; (rottlog-service)
      %desktop-services
      ;;%base-services
      ))))
dundal

Annotations for this paste:

Annotation number 1: twice
Pasted by: janneke@gnu.org
When:5 years, 2 months ago
Share:Tweet this! | http://paste.lisp.org/+6Z4V/1
Paste contents:
Raw Source | Display As
(use-modules (gnu))
(use-service-modules base desktop)

(operating-system
  (host-name "error")
  (timezone "Europe/Amsterdam")
  (locale "en_US.UTF-8")

  (bootloader
   (grub-configuration
    (device "/dev/nvme0n1")
    ;; Here is my hack (grub-configuration appends bzImage to `linux')
    ;; to add a custom entry for debian on /dev/sda3 to the Grub menu
    ;; On Debian, do:
    ;;   sudo mkdir -p /boot/latest
    ;;   sudo ln -s $(ls -t /boot/vmlinuz*|head -1) /boot/latest/bzImage
    ;;   sudo ln -s $(ls -t /boot/initrd*|head -1) /boot/latest/initrd
    (menu-entries
     (list
      (menu-entry
       (label "debian")
       (linux "(hd0,msdos2)/boot/latest")
       (linux-arguments '("root=debian"))
       (initrd "(hd0,msdos2)/boot/latest/initrd"))
      ))))

  (file-systems
   (cons* (file-system (device "guix")
                       (title 'label)
                       (mount-point "/")
                       (type "ext4"))
          %base-file-systems
          ))

  (services %desktop-services)
  ;; (services %base-services) ;; fine
  )

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.