dgoeke

(defn exec-cancellable
  [cmd cancel]
  (let [proc (sh/proc "sh" "-c" cmd)
        exit (go (sh/exit-code proc))
        [result ch] (alts!! [cancel exit])]
    (go (if (= ch cancel)
          (do
            (sh/destroy proc)
            :cancelled)
          (if (zero? result) :success :failure)))))

dgoeke

Keybase proof

I hereby claim:

• I am dgoeke on github.
• I am dgoeke (https://keybase.io/dgoeke) on keybase.
• I have a public key ASB8POM88ps-TjRABEkKicFWTOWVtecLbZH82mRsG_Lh4go

To claim this, I am signing this object:

dgoeke

#!/usr/bin/env sh

get_user() {
  URL="https://api.github.com/users/$1"
  RESULT=$(curl -s "$URL")
  ID=$(echo "$RESULT" | sed -En 's/.*"id": ([0-9]+).*/\1/p')
  NAME=$(echo "$RESULT" | sed -En 's/.*"name": "(.*)".*/\1/p')

  echo "Co-authored-by: $NAME <[email protected]>"
}

dgoeke

{ config, pkgs, ... }:

{
  home = {
    username = "dg";
    homeDirectory = "/home/dg";
    stateVersion = "21.03";
    sessionPath = [
      "/home/dg/.emacs.d/bin/"
    ];