Skip to content

Instantly share code, notes, and snippets.

View codeasone's full-sized avatar
🎯
Focusing

Mark Stuart codeasone

🎯
Focusing
  • By the seaside. Eastbourne, UK.
View GitHub Profile
(defun jump-to-hugsql ()
"Go to the SQL behind a HugSQL sqlvec var"
(interactive)
;; Remember where we are so we can get back with M-,
(xref-push-marker-stack)
(let* ((symbol-at-point-str (symbol-name (symbol-at-point)))
(sql-func-name (replace-regexp-in-string "-sqlvec$" "" symbol-at-point-str))
(current-file-without-src (substring (buffer-file-name) (length (concat (projectile-project-root) "src/"))))
(sql-file-name (replace-regexp-in-string "\\.clj$" ".sql" current-file-without-src))
(sql-file-path (concat (projectile-project-root) "resources/sql/" sql-file-name)))
@codeasone
codeasone / minimal-dot-emacs-to-assess-gptel.el
Created October 16, 2023 16:48
Minimal reproduction environment
(require 'package)
(setq package-archives '(("melpa" . "https://melpa.org/packages/")
("elpa" . "https://elpa.gnu.org/packages/")))
(setq package-archive-priorities '(("melpa" . 10) ("elpa" . 5)))
(use-package org-roam
:ensure t
:demand t
@codeasone
codeasone / .dir-locals.el
Created July 10, 2022 09:39
Some more shadow-cljs REPL guidance
((nil . ((clojure-directory-prefixes . ("\\`clj[scx]?\\."
"\\`bb\\."))
(cider-preferred-build-tool . clojure-cli)
(cider-clojure-cli-global-options . "-A:dev:test:backend:frontend")
(cider-default-cljs-repl . custom)
(cider-custom-cljs-repl-init-form . "(do (user/cljs-repl))")
(eval . (progn
(make-variable-buffer-local 'cider-jack-in-nrepl-middlewares)
(add-to-list 'cider-jack-in-nrepl-middlewares "shadow.cljs.devtools.server.nrepl/middleware"))))))
@codeasone
codeasone / clojure-require-ordering-via-pre-commit-hook.org
Last active November 11, 2020 14:52
Maintaining order of namespace :require forms via pre-commit hook
@codeasone
codeasone / enum.clj
Created January 15, 2019 15:10
Coercion of namespaced keywords to and from postgresql enumerated types
(ns clj-postgresql.enum
"Coerce Clojure keywords of the form :type/value to Postgres ENUM"
(:require [clj-postgresql.core :as pg]
[clojure.java.jdbc :as jdbc :refer [sql-value]]
[clojure.string :as s]
[clojure.test :refer :all])
(:import org.postgresql.util.PGobject))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Writing

Keybase proof

I hereby claim:

  • I am codeasone on github.
  • I am codeasone (https://keybase.io/codeasone) on keybase.
  • I have a public key ASDfNgKudEVXicZhh5N7EdJ84i64BYa0PEi1vLLQY_gcUAo

To claim this, I am signing this object:

@codeasone
codeasone / vizdeps-lein-281.org
Last active March 8, 2018 10:40
Issue with vizdeps and lein 2.8.1

I’m experiencing a persistent issue with vizdeps under:

➜  app lein --version
Leiningen 2.8.1 on Java 1.8.0_151 Java HotSpot(TM) 64-Bit Server VM

I’ve tried to isolate the problem for a minimal project (ymmv with this btw):

sudo rm -rf ./data
aws s3 rm "s3://vernemq-discovery/" --recursive
delete: s3://vernemq-discovery/172.26.0.2
delete: s3://vernemq-discovery/172.26.0.4
delete: s3://vernemq-discovery/172.26.0.3
docker-compose up
Creating vernemqdataloss_mqtt-c_1
Creating vernemqdataloss_mqtt-a_1
Creating vernemqdataloss_mqtt-b_1
Creating mqtt-broker