Skip to content

Instantly share code, notes, and snippets.

@mtnygard
mtnygard / Emacs_config.org
Created June 6, 2024 16:22
My literate Emacs config, as of June 2024. This is meant to be self-describing so future-me understands what the heck past-me was thinking.

Emacs in Org Configuration

This is a file in org-mode. It contains a mix (a tangle) of explanatory text and source blocks. The source blocks aren’t used directly here, but calling the following function will emit the file

The `header-args` property on line 2 defines where to write the “tangled” output file. The header args are injected into every code block. (Though they can be overridden per block by just specifying a

@mtnygard
mtnygard / Github_Issues_in_Org.md
Created November 16, 2021 21:14
GitHub Issues as org-agenda TODOs w/ links & searchable/filterable labels.

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

;; 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 July 24, 2021 18:38
Find arm mirrors of Ubuntu
#!/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
{: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 July 18, 2020 15:08
Get gcloud instances in default project as /etc/hosts format
gcloud compute instances list --format "table[no-heading](networkInterfaces[0].accessConfigs[0].natIP, name)"
@mtnygard
mtnygard / scratch.clj
Created July 5, 2020 20:28
Convert leiningen style deps vector into deps.edn map
(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"]
@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 December 3, 2019 17:02 — forked from smileham/Export to Markdown.ajs
Export an ArchiMate diagram to Markdown format.
/*
* 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 July 16, 2019 20:16
Build Pedestal response maps for every standard HTTP status code.
(defn response
([status body]
{:status status
:headers {}
:body body}))
(defmacro http-status [code sym]
`(def ~sym (partial response ~code)))
(defmacro http-statuses [& pairs]