Matthew Molloy whamtet

I am a human.

whamtet / email-edit.clj

Created March 10, 2024 04:49

	(ns email-edit.core
	(:import
	java.util.Base64))

	(def encoder (Base64/getMimeEncoder))
	(def decoder (Base64/getMimeDecoder))

	(defn decode [^String s]
	(String. (.decode decoder s)))
	(defn encode [^String s]

whamtet / slct.clj

Created July 25, 2023 00:25

	#!/usr/bin/env bb -i

	;; Usage:
	;; Install babashka at https://github.com/babashka/babashka
	;; put this script on PATH and make it executable
	;; copy logs to the clipboard
	;; to filter SimpleAsyncTaskExecutor-3 run
	;; pbpaste \| slct.clj 3

	(require '[clojure.string :as string])

whamtet / MouseMover.java

Last active June 23, 2023 06:27

	import java.awt.*;
	import java.time.LocalDateTime;

	public class MouseMover {
	public static final int PAUSE = 20000;

	public static void main(String... args) throws Exception {

	int limit = args.length == 0 ? 24 : Integer.parseInt(args[0]);
	System.out.println("Time limit: " + limit);

whamtet / clipboard.clj

Created November 2, 2022 08:12 — forked from exupero/clipboard.clj

Clojure code to interact with the system clipboard

	(ns test.core
	(:import [java.awt.datatransfer DataFlavor StringSelection Transferable]))

	(defn clipboard []
	(.getSystemClipboard (java.awt.Toolkit/getDefaultToolkit)))

	(defn slurp-clipboard []
	(.getTransferData (.getContents (clipboard) nil) (DataFlavor/allHtmlFlavor)))

	(def html-flavors

whamtet / sqlite.sql

Created October 17, 2022 23:41

whamtet / yt-ensure-video.js

Created September 23, 2022 08:07

setInterval(() => document.body.querySelector('.video-button').click(), 1000);

whamtet / challenge.clj

Last active October 26, 2022 10:04

	(ns test.encoder
	(:require
	[clojure.string :as string]))

	(def alphabet "ABCDEFGHIJKLMNOPQRSTUVWXYZ")
	(def alphabet? (set alphabet))

	(def a->i (zipmap alphabet (range 1 27)))
	(def i->a (zipmap (range 1 27) alphabet))

whamtet / repl.js

Created July 12, 2022 04:53

	var net = require('net');

	const evalToBuffer = d => {
	try {
	const result = eval(d.toString());
	return Buffer.from(result + '\n', "utf-8");
	} catch (e) {
	return Buffer.from(e + '\n', "utf-8");
	}
	};

whamtet / SocketServer.java

Last active June 5, 2023 04:09

	IFn loadString = clojure.java.api.Clojure.var("clojure.core", "load-string");
	loadString.invoke("(require '[clojure.core.server :as s]) (defonce _ (s/start-server {:port 7000 :name \"hi\" :accept 'clojure.core.server/repl}))");

	// rlwrap telnet localhost 7000

	// also

	public static void bind(String k, Object v) {
	String src = String.format("(in-ns 'user) #(def %s %%)", k);
	((IFn) loadString.invoke(src)).invoke(v);

whamtet / video.html

Created May 4, 2022 03:46

	<!DOCTYPE html>
	<html lang="en">
	<head>
	<meta charset="UTF-8">
	<title>Video</title>
	</head>
	<body>
	<video autoplay controls loop>
	<source src="video.mp4" type="video/mp4">
	Your browser does not support the video tag.