| (defun mpv-play-url (url &rest args) | |
| "" | |
| (interactive) | |
| (start-process "mpv" nil "mpv" url)) | |
| (setq browse-url-browser-function | |
| (quote | |
| (("youtu\\.?be" . mpv-play-url) | |
| ("." . eww-browse-url)))) |
| #!/usr/bin/env bash | |
| USERNAME="$1" | |
| PASS="$2" | |
| for f in *.ovpn | |
| do | |
| name=`basename -s .ovpn $f`; | |
| nmcli connection import type openvpn file $f | |
| nmcli connection modify "${name}" +vpn.data connection-type=password-tls |
| (defn lines-reducible | |
| [f] | |
| (let [fr (java.io.FileReader. f) | |
| br (java.io.BufferedReader. fr)] | |
| (reify clojure.lang.IReduceInit | |
| (reduce [_ rf init] | |
| (loop [init init] | |
| (let [line (java.io.BufferedReader/.readLine br)] | |
| (if (nil? line) | |
| init |
| ;; Baseline | |
| (defn encrypt-if-direct-message [content tags] | |
| (if (re-find #"^D \#\[\d+\]" content) | |
| (let [reference-digits (re-find #"\d+" content) | |
| reference-index (Integer/parseInt reference-digits) | |
| p-tag (get tags reference-index)] | |
| (if (nil? p-tag) | |
| [content 1] | |
| (let [recipient-key (hex-string->num (second p-tag)) |
| (ns ytdl | |
| (:require | |
| [babashka.fs :as fs] | |
| [babashka.process :refer [process]] | |
| [cheshire.core :as json] | |
| [clojure.core.async :as async] | |
| [clojure.edn :as edn] | |
| [clojure.java.io :as io] | |
| [clojure.tools.cli :refer [parse-opts]] | |
| [clojure.string :as str])) |
| {:paths ["src" "resources"] | |
| :deps {org.clojure/clojure {:mvn/version "1.11.1"} | |
| metosin/reitit {:mvn/version "0.6.0"} | |
| info.sunng/ring-jetty9-adapter {:mvn/version "0.30.0"} | |
| http-kit/http-kit {:mvn/version "2.7.0"}} | |
| :aliases | |
| {:dev {:jvm-opts ["--enable-preview"]} | |
| :run {:exec-fn server/go | |
| :exec-args {}}}} |
Simple experiment to test the effects of different techniques and options on application start up time
The goal of CDS is to reduce the startup time of the JVM by loading from a pre-processed archive of Java classes and JVM metadata that is used during the initialization process. https://dev.java/learn/jvm/cds-appcds/
| (require 'lsp) | |
| (defcustom-lsp lsp-unison-lsp-port 5757 | |
| "The port of a running UCM language server. You can overwride thise by setting the UNISON_LSP_PORT environment variable when running UCM." | |
| :type 'number | |
| :group 'lsp-unison | |
| :package-version '(lsp-mode . "8.0.1") | |
| :lsp-path "unison.lspPort") | |
| (defcustom-lsp lsp-unison-trace-server "off" |
| (defn qualify-definitions | |
| [d prefix] | |
| (let [p (str prefix ".") | |
| p' (str "#/definitions/" p)] | |
| (into | |
| {} | |
| (map (fn [[k v]] | |
| [(str p k) | |
| (walk/postwalk | |
| (fn [o] |
| (ns build | |
| (:refer-clojure :exclude [test]) | |
| (:require | |
| [clojure.tools.build.api :as b] | |
| [org.corfield.build :as bb])) | |
| (def version (format "0.0.%s" (b/git-count-revs nil))) | |
| (def class-dir "target/classes") |