[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Fwd: shepherd.log - ntpd - what?

From: Jone
Subject: Fwd: shepherd.log - ntpd - what?
Date: Sat, 21 Jul 2018 16:51:08 +0000

---------- Forwarded message ----------
From: Jone <address@hidden>
Date: 2018-07-21 16:46 GMT+00:00
Subject: Re: shepherd.log - ntpd - what?
To: Pierre Neidhardt <address@hidden>

Ah, sorry, my mcron is brocken -> rottlog not work.

> Can you share your Guix system config

Yes, but it's long:

;; Version 04
 (srfi srfi-1)                ;; «(remove (lambda»
 (guix gexp)
 (gnu packages)
 (gnu packages bash)        ;; «extra-special-file "/bin/sh"»
 (gnu packages search)        ;; «#$package-name»
 (gnu packages linux)        ;; ???
 (gnu packages gnome)        ;; fix «colord: unbound variable»
 (gnu services mcron)        ;; <- manual
 (gnu system locale)
 (gnu system nss))
(use-service-modules networking desktop admin)
(use-package-modules base bootloaders ssh)

(define updatedb-job
  #~(job '(next-hour '(10))  ;; at 10AM every day
         (lambda ()
           (execl (string-append #$mlocate "/bin/updatedb")
                   "--require-visibility 0 -o /var/mlocatedb"
                   "--prunepaths=\"/tmp /var/tmp /var/cache /var/lock /var/run /var/spool\""
                   "--prunenames=\".cache .Cache cache Cache\"")))))
(define fstrim-job
  #~(job "10 10 * * 6"  ;; weekly, at 10:10
         "fstrim -a"))
(define store-config-service
  ;;; Store the current configuration with the generation.
  (simple-service 'store-my-config etc-service-type
                  `(("system-config.scm" ,(local-file (assoc-ref (current-source-location)
;; Main
  (host-name "guix")
  (timezone "Europe/Moscow")
  (locale "ru_RU.utf8")
  (locale-definitions (list (locale-definition (source "en_US")
                                               (name "en_US.utf8"))
                            (locale-definition (source "ru_RU")
                                               (name "ru_RU.utf8"))))
  (bootloader (bootloader-configuration
               (bootloader grub-bootloader)
               (target "/dev/sdb")        ;; <==================================== CHECK THIS!
                (list (menu-entry
                       (label "Old")
                       (linux "/boot/vmlinuz-4.14.9-calculate")
                       (linux-arguments '("root=/dev/sda3"))
  ;;; Nvidia nForce
  (initrd-modules (cons* "sata_nv"       
                         "pata_acpi" %base-initrd-modules))


  (file-systems (cons*
                   (device (file-system-label "my-root"))  ;; sdb2
                   (mount-point "/")
                   (type "ext4"))
                   (device (file-system-label "my-home"))  ;; sdb1
                   (mount-point "/home")
                   (type "ext4"))
                   (device (uuid "634a6369-c5a8-4f4c-b3e8-35fb92cf850e"))
                   (mount-point "/mnt/WD-HDD")
                   (type "ext4"))
                  (device (uuid "c36b9de3-2b00-4263-8844-9f2d72628d78"))
                  (mount-point "/mnt/oldhome")
                  (type "ext4"))
  (swap-devices '("/dev/disk/by-uuid/52be6bef-ff4c-4fec-b63f-608ee61a723d"))

  (users (cons* (user-account
                 (name "jone")
                 (comment "Jone")
                 (group "users")
                 (supplementary-groups '("wheel" "netdev" "audio" "video"))
                 (uid 1000)
                 (home-directory "/home/jone"))
                 (name "guest")
                 (comment "Guest")
                 (group "users")
                 (uid 1010)
                 (home-directory "/home/guest"))
  (groups (cons (user-group
                 (name "mlocate")
                 (system? #t))
  (sudoers-file (local-file "/etc/sudoers"))

 (let ((trash (map specification->package
                   '("zile" "wireless-tools"))))
   (append (map specification->package
                '("xfce" "slim" "gvfs" "xrandr" "unzip" "xclip"
                  "emacs" "w3m" "emacs-guix" "alsa-lib" "perl"
                  "moreutils" "mlocate" "tree" "file"
                  "autobuild" "autoconf" "autogen" "automake" "ccache" "cmake" "gcc-toolchain" "make"
                  ;;; and dependences - visibly!
                  "gnutls" "ncurses" "libx11" "gtk+" "imagemagick" "acl" "zlib" "dbus" "glibc-utf8-locales"
                  ;;; new/additional
                  "alsa-utils" "nss-certs"))
           (remove (lambda (pkg)
                        (memq pkg trash))
                   %base-packages))))  ;;  %base-packages selected here!

  (services (cons*
             (extra-special-file "/usr/bin/env"
                                 (file-append coreutils "/bin/env"))
             (extra-special-file "/bin/sh"
                                 (file-append bash "/bin/bash"))
             (mcron-service (list updatedb-job fstrim-job))  ;; mcron-service-type?
             (service rottlog-service-type (rottlog-configuration))
             (modify-services (remove (lambda (service)
                                        (eq? (service-value service) colord))  ;; not colord-service-type! [1]
                               config => (guix-configuration
                                          (inherit config)
                                          (substitute-urls (cons* ""
(name-service-switch %mdns-host-lookup-nss))
;; [1] See  guix/gnu/services/desktop.scm, «#:export» variables
;; rottlog-service-type, mcron

reply via email to

[Prev in Thread] Current Thread [Next in Thread]