Alexander Solovyov piranha

## dataset_hating_map.clj
;;; it's a map that hates if you try to get the key `:dataset` from it. NOCOMMIT
(declare ->DatasetHatingMap)

(defn- check-for-dataset-key [k]
  (when (= k :dataset)
      (throw (ex-info ":dataset is deprecated, use :type instead!" {}))))

(p/def-map-type DatasetHatingMap [m]
  (get [_this k default-value]
    (check-for-dataset-key k)

## Dockerfile
FROM alpine:3.11.3

RUN apk update && apk add curl ca-certificates unzip && rm -rf /var/cache/apk/*

RUN curl -L 'https://github.com/babashka/babashka/releases/download/v0.2.10/babashka-0.2.10-linux-static-amd64.zip' -o /tmp/bb.zip && \
  unzip /tmp/bb.zip && \
  mv bb /usr/bin/bb && \
  chmod +x /usr/bin/bb

RUN mkdir -p /app

## samizdat-shell-help.bash
#!/bin/bash
###
### my-script — does one thing well
###
### Usage:
###   my-script <input> <output>
###
### Options:
###   <input>   Input file to read.
###   <output>  Output file to write. Use '-' for stdout.

## contrib-test.md

      
              1 file
            
          
              0 forks
            
          
              1 comment
            
          
              1 star
            
          
                dustingetz
                / contrib-test.md
            
            
              Last active
              April 10, 2020 14:41
            
          
    I am tired of black box magic test frameworks with long command line incantations and opaque source code that soaks up weeks of attention to understand, so I really want something lightweight like this to become popular. I don't yet know the gap between this and production test functionality, and don't have much attention to spend on this, what are your ideas?
I especially love Brandon Bloom's idea of (defmacro tests [body]) which can erase the tests at compile time depending on build target. Does this mean we can finally co-locate our tests with our functions, like Rich comment blocks?
(ns contrib.test
  (:gen-class)
  (:require
    [clojure.spec.alpha :as s]
    [taoensso.timbre :refer [warn error info]]))

  
## with-local-redefs.clj
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Commentary                                                            ;;
;;                                                                       ;;
;; The goal for writing this started with the idea to have tests run in  ;;
;; parallel using the leiningen plugin eftest                            ;;
;; https://github.com/weavejester/eftest.                                ;;
;;                                                                       ;;
;; With tests using with-redefs, it was not possible to run them in      ;;
;; parallel if they were changing the root binding of the same           ;;
;; vars. Here, we are binding the root of the var to one function that   ;;

## smartparens-cheatsheet.md

      
              1 file
            
          
              5 forks
            
          
              1 comment
            
          
              59 stars
            
          
                pvik
                / smartparens-cheatsheet.md
            
            
              Last active
              March 17, 2024 03:29
            
              
                A Cheatsheet for Emacs Smarparens example configuration
              
          
    An animated cheatsheet for smartparens using the example configuration specified here by the smartparens author. Inspired by this tutorial for paredit.
Traversal


  C-M-f  sp-forward-sexp 
  C-M-b  sp-backward-sexp 
  

## mini-promise.cljc

(defn create-function-call [param expr]
  "Create an sexp for calling expr with a first argument provided by a promise.
  If expr is a list (already in form suitable for a function call), insert the first argument at second position,
  otherwise turn expr into a function call expression, unless the function is an fn, which is simply returned.

  println -> (fn [param] (println param))

  (* 2)   -> (fn [param] (* param 2))


## introduction-to-parser-combinators.md

      
              1 file
            
          
              15 forks
            
          
              10 comments
            
          
              159 stars
            
          
                yelouafi
                / introduction-to-parser-combinators.md
            
            
              Last active
              April 24, 2024 04:30
            
          
    In this tutorial we're going to build a set of parser combinators.
What is a parser combinator?

We'll answer the above question in 2 steps.

What is a parser?
and, what is a parser combinator?

So first question: What is parser?

  
## asynchronous-sentry-js-error-tracking.html
<!doctype html>
<html lang="en">
<head>
  <meta charset="utf-8">

  <title>Asynchronous Sentry JavaScript Error Tracking</title>

  <!-- putting your CSS near the top is always a good idea -->
  <link rel="stylesheet" href="/app.css"></link>

## 01. Download Locations for FFmpeg.md

      
              5 files
            
          
              8 forks
            
          
              1 comment
            
          
              21 stars
            
          
                AbsoluteDestiny
                / 01. Download Locations for FFmpeg.md
            
            
              Last active
              March 16, 2023 12:54
            
              
                Some FFMpeg commands I need to remember for converting footage for video editing. http://bit.ly/vidsnippets
              
          
    Where to get FFMpeg

Windows

https://ffmpeg.zeranoe.com/builds/
OSX

https://evermeet.cx/ffmpeg/
	;;; it's a map that hates if you try to get the key `:dataset` from it. NOCOMMIT
	(declare ->DatasetHatingMap)

	(defn- check-for-dataset-key [k]
	(when (= k :dataset)
	(throw (ex-info ":dataset is deprecated, use :type instead!" {}))))

	(p/def-map-type DatasetHatingMap [m]
	(get [_this k default-value]
	(check-for-dataset-key k)
	FROM alpine:3.11.3

	RUN apk update && apk add curl ca-certificates unzip && rm -rf /var/cache/apk/*

	RUN curl -L 'https://github.com/babashka/babashka/releases/download/v0.2.10/babashka-0.2.10-linux-static-amd64.zip' -o /tmp/bb.zip && \
	unzip /tmp/bb.zip && \
	mv bb /usr/bin/bb && \
	chmod +x /usr/bin/bb

	RUN mkdir -p /app
	#!/bin/bash
	###
	### my-script — does one thing well
	###
	### Usage:
	### my-script <input> <output>
	###
	### Options:
	### <input> Input file to read.
	### <output> Output file to write. Use '-' for stdout.
	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	;; Commentary ;;
	;; ;;
	;; The goal for writing this started with the idea to have tests run in ;;
	;; parallel using the leiningen plugin eftest ;;
	;; https://github.com/weavejester/eftest. ;;
	;; ;;
	;; With tests using with-redefs, it was not possible to run them in ;;
	;; parallel if they were changing the root binding of the same ;;
	;; vars. Here, we are binding the root of the var to one function that ;;

	(defn create-function-call [param expr]
	"Create an sexp for calling expr with a first argument provided by a promise.
	If expr is a list (already in form suitable for a function call), insert the first argument at second position,
	otherwise turn expr into a function call expression, unless the function is an fn, which is simply returned.

	println -> (fn [param] (println param))

	(* 2) -> (fn [param] (* param 2))
	<!doctype html>
	<html lang="en">
	<head>
	<meta charset="utf-8">

	<title>Asynchronous Sentry JavaScript Error Tracking</title>

	<!-- putting your CSS near the top is always a good idea -->
	<link rel="stylesheet" href="/app.css"></link>