This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(ns screenshots | |
(:require ["playwright" :as pw] | |
[promesa.core :as p])) | |
; NOTE: you'll need to npm install `nbb` and `playwright` | |
(defn wait-for-network-idle [page] | |
(p/do | |
(.waitForLoadState page "networkidle") | |
(p/delay 100))) ;; Add 100ms delay |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(ns promises | |
{:clj-kondo/config '{:lint-as {promsea.core/let clojure.core/let | |
promesa.core/doseq clojure.core/doseq | |
promesa.core/loop clojure.core/loop | |
promesa.core/recur clojure.core/recur}}} | |
(:require [promesa.core :as p])) | |
(def panel-choices [1 2 3 4 5]) | |
; simple test function returns a promise with doubled input |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/bin/bash | |
# Bash hash-map which works in Bash 3. | |
# WARNING: this code is useless and you should not use it. See the comments. | |
# Hashing function from Adam Katz: https://stackoverflow.com/a/12945518 | |
ht() { | |
local h=0 i | |
for (( i=0; i < ${#1}; i++ )); do | |
let "h=( (h<<5) - h ) + $(printf %d \'${1:$i:1})" |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
from sys import argv | |
f = open(argv[1], "rb").read() | |
i = f.index(bytearray("CNAM", "utf8")) | |
for n in range(3): | |
x = f[i+n*20+8:i+n*20+28].decode("utf8") | |
print(n, x) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/bin/sh | |
# Count the lines of source code checked into your repository | |
# Requires the `cloc` command as a dependency. | |
# You can pass extra arguments to cloc like this: | |
# git cloc --exclude-dir=build --exclude-ext=js | |
git ls-tree -r `git branch | grep '^*' | colrm 1 2` --name-only | sed 's/.*/"&"/' | xargs cloc "$@" |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
<!doctype html> | |
<html lang="en-us"> | |
<head> | |
<title>Fat font drop shadow.</title> | |
<meta charset="utf-8"> | |
<meta name="viewport" content="width=device-width, initial-scale=1"> | |
<meta name="mobile-web-app-capable" content="yes"> | |
<meta name="description" content="Pure CSS fat outline letters with hard drop shadow."> | |
<style> | |
@import url('https://fonts.googleapis.com/css2?family=Sigmar+One&display=swap'); |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(ns update-deps | |
(:require | |
["fs" :as fs] | |
[clojure.edn :as edn] | |
[clojure.pprint :refer [pprint]])) | |
(let [package (js/require "../package.json") | |
js-deps (js->clj (aget package "dependencies")) | |
deps (edn/read-string (fs/readFileSync "src/deps.cljs" "utf8")) | |
deps-updated (assoc deps :npm-deps js-deps)] |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/usr/bin/env python | |
# You'll need to have `xrectsel` and `byzanz-record` installed | |
from __future__ import print_function | |
import re | |
import sys | |
import subprocess | |
if len(sys.argv) == 1: |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
# get makefile's own path | |
mkfile_path := $(abspath $(lastword $(MAKEFILE_LIST))) | |
mkfile_dir := $(dir $(mkfile_path)) | |
# add virtualenv in folder "virtualenv" to the path | |
export PATH := $(mkfile_dir)/virtualenv/bin:$(PATH) | |
export VIRTUAL_ENV=$(mkfile_dir)/virtualenv | |
example: something.py | |
python something.py # <- this will be called with virtualenv activated |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
; *** Test harness | |
; Note: works in Hy 0.11.1 - needs to be upgraded for recent Hy | |
(defn print-expression [expr] | |
(+ "(" (.join " " (list-comp (cond [(= (type x) HyExpression) (print-expression x)] | |
[(= (type x) HyString) (+ "\"" x "\"")] | |
[True (str x)]) [x expr])) ")")) | |
(defmacro test-case [expr] | |
(quasiquote (do |
NewerOlder