steshaw

Various configuration/data-templating languages:

• Jsonnet: https://jsonnet.org/
• UCL: https://github.com/vstakhov/libucl
• Nix: https://nixos.wiki/wiki/Nix_Expression_Language
• Coil: https://code.google.com/archive/p/coil/
• Pystachio: https://github.com/wickman/pystachio
• Cue: https://github.com/cuelang/cue
• GCL: Paper http://alexandria.tue.nl/extra1/afstversl/wsk-i/bokharouss2008.pdf
• UCG (a descendant of GCL) https://github.com/zaphar/ucg

steshaw

#!/usr/bin/env bash

set -euo pipefail

base_image='registry.gitlab.haskell.org/ghc/ci-images/x86_64-linux-deb10'
tag='9e4c540d9e4972a36291dfdf81f079f37d748890'
image="${base_image}:${tag}"

docker run -it --rm \
    --volume /nix:/nix \

steshaw

{-# language DataKinds #-}
{-# language DuplicateRecordFields #-}
{-# language OverloadedRecordDot #-}

import GHC.Records

data Person = Person
  { name :: String
  , pet :: Pet
  , partner :: Maybe Person

steshaw

steshaw

#!/usr/bin/env stack
{- stack
  --resolver nightly-2022-01-10
  script
  --package base
  --package http-conduit
  --package http-types
  --package bytestring
-}

steshaw

fn main() {
    let a = 42;
    let b = "hi";
    println!("{a:?} and {b:?}");
}

steshaw

#!/usr/bin/env bash

set -euo pipefail

go() {
  substituter='https://cache.nixos.org/'
  substituter='https://cache.ngi0.nixos.org/'

  store_path='/nix/store/39sy7704dswxk1sgr8sgwfm7p4cp23a4-vim-8.2.4186'
  store_path='/nix/store/apxk3sz6qb219w263rslm96jcsq5i4pq-git-2.34.1'

steshaw

-- See https://travis.athougies.net/posts/2017-04-26-close-the-world.html

{-# OPTIONS_GHC -fprint-explicit-foralls #-}

{-# LANGUAGE TypeApplications #-}

import Data.Maybe
import Data.Typeable

data Dyn where

steshaw

function sleep(ms) { 
  return new Promise(resolve => setTimeout(resolve, ms)); 
}
async function deleteLiked() {
  var menus = $('body').getElementsByClassName("dropdown-trigger")
  for (var i = 0; i < menus.length; i++) {
    if (i >= 2) {
      var menu = menus[i];
      menu.children[0].click();
      const timeout = setTimeout(() => {

steshaw

#!/usr/bin/env bash

set -euo pipefail

# Explanation of strange Perlness:
#
#   * -0400 means that we slurp the whole file rather than operating on a
#     line-by-line basis.
#   * /gms means global, multiline, '.' can match '\n' (probably not needed in
#     this case).