Skip to content

Instantly share code, notes, and snippets.

@mtnygard
mtnygard / Github_Issues_in_Org.md
Created Nov 16, 2021
GitHub Issues as org-agenda TODOs w/ links & searchable/filterable labels.
View Github_Issues_in_Org.md

GitHub Issues as org-agenda TODOs w/ links & searchable/filterable labels

gh issue list --limit 10000 --json number,title,url,labels \
    | jq -r '.[]|"** TODO [["+.url+"]["+(.number|tostring)+"]] "+.title+" "+":"+(.labels|map(.name)|join(":"))+":"' \
    | sed 's|::||g'

Credit to @dysinger

View thing.clj
;; A Working Thing (singleton)
(defsc Thing [this {:thing/keys [label contents] :as props}]
{:query [:thing/label :thing/contents]
:ident (fn [_] [:component/id :thing])
:initial-state (fn [{:keys [label contents]}]
{:thing/label label :thing/contents contents})}
(div :.ui.container.segment
(h3 (str "Thing " label))
(dom/input {:value contents
@mtnygard
mtnygard / find_mirrors.sh
Created Jul 24, 2021
Find arm mirrors of Ubuntu
View find_mirrors.sh
#!/bin/bash
# URL of the Launchpad mirror list
MIRROR_LIST=https://launchpad.net/ubuntu/+archivemirrors
# Set to the architecture you're looking for (e.g., amd64, i386, arm64, armhf, armel, powerpc, ...).
# See https://wiki.ubuntu.com/UbuntuDevelopment/PackageArchive#Architectures
ARCH=$1
# Set to the Ubuntu distribution you need (e.g., precise, saucy, trusty, ...)
# See https://wiki.ubuntu.com/DevelopmentCodeNames
View clojure-17151214060258308065.edn
{:clojure.main/message
"Execution error (NoSuchFileException) at sun.nio.fs.UnixException/translateToIOException (UnixException.java:92).\n/root/.gitlibs/libs/org.clojure/spec-alpha2/2f84e3a37cab76d44c58785ff4481597429bc1d3/${project.basedir}/src/main/java\n",
:clojure.main/triage
{:clojure.error/class java.nio.file.NoSuchFileException,
:clojure.error/line 92,
:clojure.error/cause
"/root/.gitlibs/libs/org.clojure/spec-alpha2/2f84e3a37cab76d44c58785ff4481597429bc1d3/${project.basedir}/src/main/java",
:clojure.error/symbol
sun.nio.fs.UnixException/translateToIOException,
:clojure.error/source "UnixException.java",
@mtnygard
mtnygard / gcloud-instances-hosts.sh
Last active Jul 18, 2020
Get gcloud instances in default project as /etc/hosts format
View gcloud-instances-hosts.sh
gcloud compute instances list --format "table[no-heading](networkInterfaces[0].accessConfigs[0].natIP, name)"
@mtnygard
mtnygard / scratch.clj
Created Jul 5, 2020
Convert leiningen style deps vector into deps.edn map
View scratch.clj
(defn lein-deps->deps-map [deps-vector]
(reduce merge {}
(for [d deps-vector
:let [[prj mvn-version & _] d]]
{prj {:mvn/version mvn-version}})))
(def d '[[org.clojure/clojure "1.9.0-alpha13"]
[org.clojure/core.async "0.2.391"]
View install_win_apps.bat
@echo off
winget install Dropbox.Dropbox
winget install Canonical.Ubuntu
winget install Axosoft.GitKraken
winget install Docker.DockerDesktop
winget install 7zip.7zip
winget install Git.Git
winget install GitExtensionsTeam.GitExtensions
winget install Google.Chrome
winget install Microsoft.PowerToys
@mtnygard
mtnygard / Export to Markdown.ajs
Created Dec 3, 2019 — forked from smileham/Export to Markdown.ajs
Export an ArchiMate diagram to Markdown format.
View Export to Markdown.ajs
/*
* Export View to Markdown
*
* Requires jArchi - https://www.archimatetool.com/blog/2018/07/02/jarchi/
*
* Markdown - https://www.markdownguide.org/
*
* Version 2: Updated to support Diagram Groups
* Version 2.1: Add check for Selected View
* Version 2.2: Change to regex, added date of export
@mtnygard
mtnygard / responses.clj
Last active Jul 16, 2019
Build Pedestal response maps for every standard HTTP status code.
View responses.clj
(defn response
([status body]
{:status status
:headers {}
:body body}))
(defmacro http-status [code sym]
`(def ~sym (partial response ~code)))
(defmacro http-statuses [& pairs]
@mtnygard
mtnygard / multimethod_selector.clj
Created Aug 23, 2018
A clojure.spec.gen.alpha generator that picks a multimethod implementation from the known set.
View multimethod_selector.clj
(defn multimethod-selector
"Returns a generator that picks one dispatch value from the known
dispatch values of a multimethod. Defers the lookup of dispatch
values until sampling time, so any defmethods evaluated after the
generator is created may still be selected."
[s]
#(sgen/bind
(sgen/int)
(fn [i]
(let [ms (keys (methods s))]