kristianlm

KLUv/QSIxOILrBEVLmdpdC8AMDc1NTE3NTAAMTM2MTAxNDY3NjQAMDEwMDU3ACA1AHVzdGFyICAA
a2xtYnJhbmNoZXMvMDU0MjYyNTYxNjQ1aG9vazIwM2FwcGx5cGF0Y2gtbXNnLnNhbXBsZTczNjUz
IDAjIS9iaW4vc2gKIwojIEFuIGV4ICBzY3JpcHQgdG8gY2sgdGhlIGNvbW1pdCBsb2cgbWVzc2Fn
ZSB0YWtlbiBieSBmcm9tIGEtbWFpbC5UaGhvdWxkd2l0aCBub24temVybyB0dXMgYWZ0ZXIgaXNz
dWluZ3JvcHJpYXRlaWYgYW50c29wLiBsbG93ZWRlZGZpbG5hYmxlaXMsIHJtIiIuCgouIC1zaC1z
ZXR1cAo9IiQodi1wYXJzZSAtLSkiCnRlc3QgLXggIiQiICYmZWMkezErIiRAIn0KOgoxNjQ0NjIu
Q2J5ICIib25lIGFyZ3VtZW50LG9mdGhhdCBoYXNVbmJlYWRkIGEgU2lnbmVkLW9mZi1saW5Eb2kg
YmFkIGlkZWFnZW5lcmFsLCBidXByZWUtbW9yZSB0U09CPXZHSVRfQVVUSE9SX0lERU5UIHwgcy1u
ICdzL15cKC4qPlwpLiokLzogXDEvcCcpZyAtcXMgIl4kIjEiIHx8IGVjaD4+CmMgZHVwbGllcyIi
ID0oJ14nCgkgc29ydHVuaXEgLWNlICcvXlsgCV0qMS9kJyl7Cgk+JjIgRAkxCn0KZnNtb25pdG9y

kristianlm

#include <stdio.h>
#include <stdint.h>
#include <stdlib.h>
#include <unistd.h>
#include <string.h>
#include <errno.h>
#include <sys/mman.h>

int main(int argc, char *argv[]) {
  unsigned int pagesize;

kristianlm

// prescaler timings:
// 0=16ms, 1=32ms,2=64ms,3=128ms,4=250ms,5=500ms
// 6=1 sec,7=2 sec, 8=4 sec, 9= 8sec
void watchdog_init(uint8_t prescaler) {
  MCUSR &= ~(1<<WDRF); // <-- reset wdt
  WDTCSR |= (1<<WDCE) | (1<<WDE);  // <-- start timed sequence
  WDTCSR  = (1<<WDCE) | (1<<WDIE) |
    ((prescaler>>3) & 1)<<WDP3 |
    ((prescaler>>2) & 1)<<WDP2 |

kristianlm

;;; trying to implement avro binary encoding
;;; as described here:
;;;   https://avro.apache.org/docs/current/spec.html#map_encoding
;;;
(import chicken.string chicken.bitwise chicken.io chicken.port
        (only chicken.memory.representation number-of-bytes)
        (only chicken.random random-bytes)
        zstd medea matchable test)

(define (debug . args)

kristianlm

/gamepad-train-main
/gamepad-train
/gamepad-train.build.sh
/gamepad-train.install.sh
/gamepad-train.link

kristianlm

a

kristianlm

(define-public i3status-rust-no-kdeconnect
  (package
   (inherit i3status-rust)
   (name "i3status-rust-no-kdeconnect")
   (arguments
    (substitute-keyword-arguments (package-arguments i3status-rust)
                                  ((#:phases old-phases)
                                   #~(modify-phases #$old-phases
                                                    (replace 'wrap-i3status
                                                             (lambda* (#:key outputs inputs #:allow-other-keys)

kristianlm

(use-modules (gnu)
	     (gnu packages shells)
	     (gnu packages ssh)
             (gnu services pm)
             ((gnu services cups) #:select (cups-service-type cups-configuration))
             (gnu packages cups)
             (gnu services sound)
             (gnu packages wm)
             (gnu services virtualization)
             ((gnu packages gnustep) #:select (windowmaker))

kristianlm

;;; I named this "hetzner", but the only VPS-specific feature is 
;;; probably the virtio_scsi initrd module addition.
;;;
;;;
;;; OBS: change id_ed25519.pub below to id_rsa.pub unless you've used my favorite key algorithm:
;;;
;;;     ssh-keygen -t ed25519
;;;
(use-modules (gnu)
             (gnu packages ssh))

kristianlm

;; I find it hard to read the Guix Manual and figure out how to make a custom shepherd service
;; that just keeps a process running. I came up with this and though it was a keeper:

(operating-system 
 …
 (service (service-type
             (name 'tmuxkirc')
             (extensions
              (list (service-extension
                     shepherd-root-service-type