whamtet

(defn modal-scroll [width & contents]
  [:div#modal {:class "fixed left-0 top-0 w-full h-full
  z-10"
               :style {:background-color "rgba(0,0,0,0.4)"}
               :_ "on click if target.id === 'modal' add .hidden"}
   [:div {:class (str "mx-auto border rounded-lg bg-white overflow-y-auto overflow-x-clip " width)
          :style {:max-height "94vh"
                  :margin-top "3vh"
                  :margin-bottom "3vh"}}
    contents]])

whamtet

(def cors-headers
  {"Access-Control-Allow-Origin" "*"
   "Access-Control-Allow-Methods" "POST, GET, OPTIONS, DELETE"
   "Access-Control-Allow-Headers" "*"})

(defn wrap-cors [handler]
  (fn [req]
    (if (-> req :request-method (= :options))
      {:status 200
       :headers cors-headers

whamtet

(defmacro format-js [s]
  `(-> ~s
    ~@(for [[to-replace replacement] (re-seq #"\{([^\}]+)}" s)]
       `(string/replace-first ~to-replace ~(read-string replacement)))))

whamtet

(ns scripts.simplify-svg
    (:require
      [clojure.string :as string])
    (:import
      java.text.DecimalFormat))

(defn- map-rest [f [x & rest]]
  (conj
   (map f rest)
   x))

whamtet

(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

#!/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

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

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

(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

(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))