• I'm a fan! ;)

    Sep 20, 2020

    A graybeard has a new shirt:
    Some birthday present’s from my girlfriend. Thank you!

  • autofs service

    Jul 4, 2020

    Tip: to define an autofs service:

    ;; a stripped down version of autofs:
    (define-public mroh-autofs
      (package
        (inherit autofs)
        (name "mroh-autofs")
        (arguments
         `(,@(substitute-keyword-arguments
                 (package-arguments autofs)
               ((#:configure-flags cf)
                `(list "--enable-ignore-busy"
                       "--enable-sloppy-mount"
                       "--with-libtirpc")))))
        (inputs
         `(("e2fsprogs" ,e2fsprogs)
           ("libtirpc" ,libtirpc)
           ("nfs-utils" ,nfs-utils)
           ("util-linux" ,util-linux)))))
    
    (define (automount-shepherd-service config)
      (list (shepherd-service
             (provision '(automount))
             (documentation "Run the automount server.")
             (requirement '(networking))
             (start #~(make-forkexec-constructor
                       (list #$(file-append mroh-autofs "/sbin/automount") "-f")
                       #:log-file "/var/log/automount.log"))
             (stop #~(make-kill-destructor)))))
    
    (define automount-service-type
      (service-type
       (name 'automount)
       (description "Run the automount server.")
       (extensions
        (list (service-extension shepherd-root-service-type
                                 automount-shepherd-service)
              (service-extension rottlog-service-type
                                 (const
                                  (list (log-rotation
                                         (files (list "/var/log/automount.log"))))))
              (service-extension etc-service-type
                            (lambda (config)
                              `(("autofs.conf" ,(local-file "config/autofs.conf"))
                                ("auto.master" ,(local-file "config/auto.master")))))))
       (default-value '())))
  • newer kernel

    Jun 2, 2020

    Tip: to build an linux-5.6 kernel, you can do:

    (define linux-libre-5.6
      ((@@ (gnu packages linux) make-linux-libre*)
       (@@ (gnu packages linux) linux-libre-5.6-version)
       (@@ (gnu packages linux) linux-libre-5.6-source)
       '("x86_64-linux")))
    
    (define-public my-linux
      (package
       (inherit linux-libre-5.6)
       (name "my-linux")
       (native-inputs
        `(("kconfig" ,(local-file "kernel-5.6.config"))
          ,@(alist-delete "kconfig"
                          (package-native-inputs linux))))))
  • guix git and emacs workflow

    May 18, 2020

    I made a small presentation about a guix git and emacs workflow.

  • Manifest

    Apr 3, 2020

    with a simple manifest-remote.scm file like this:

    (use-modules
     (mroh guix packages))
    
    (specifications->manifest remote-packages)

    I install/deploy a complete (emacs centric) development enviroment for remote work.

    guix package -m manifest-remote.scm

    to start ipfs, this is a simple/stupid shepherd init file:

    ;; shepherd init file
    
    (register-services
     (make <service>
       #:provides '(ipfs)
       #:requires '()
       #:start (make-forkexec-constructor '("ipfs" "daemon"))
       #:stop (make-kill-destructor)))
    
    (action 'shepherd 'daemonize)
    
    (for-each start '())
  • love

    Mar 14, 2020

    I LOVE guix and especially its inclusive community! I think, I have seen a lot of free software communities over the years, but these guys are the best!

    I made a channel for guix (with a lot of chess stuff):
    to checkout/clone it:

    git clone https://www.rohleder.de/git/guix.git

    to add it as a guix channel, add this to ~/.config/guix/channels.scm

    (cons (channel
      (name 'mroh)
      (url "https://www.rohleder.de/git/guix.git")
      (introduction
       (make-channel-introduction
        "a273ec162cac62d1c2e38a455c26c38ea0675167"
        (openpgp-fingerprint
         "755E 2DE5 D0D5 85C5 2E78  2830 7C7A FFBE FEF2 CB25"))))
     %default-channels)