simon-brooke

(ns migrate
  "
   ## Leiningen to deps.edn migration tool
   
   I'm as yet unpersuaded of the merits of `deps.edn` vis-a-vis leiningen. 
   Leiningen puts all the metadata about your project and how to build it
   in one place in a clear, well understood and easily-extensible format.
   The `deps.edn` format intentionally does not.

   Worse, `clojure.cli` uses a subtly but significantly different algorithm

simon-brooke

(defn bargraph
  "Quick'n'dirty bargraph from these `freqs`, the output from the function
   `clojure.core/frequencies`."
  [freqs]
  (let [u (/ (apply max (vals freqs)) 20)
        p (/ (apply +' (vals freqs)) 100)]
    (join "\n"
          (map #(format "%7d : %s (%d %%)" 
                        % 
                        (apply str (take (/ (freqs %) u) (repeat "#"))) 

simon-brooke

#!/bin/awk -f

BEGIN {
  FS=","; 
  OFS=", ";
  print("delete from covid;");
}
NR > 1 {
  $1 = gensub( /(.*)/, "'\\1'", 1, $1);
  $7 = gensub( /(.*)/, "'\\1'", 1, $7);

simon-brooke

(ns walkmap.tag
  "Code for tagging, untagging, and finding tags on objects. Note the use of
  the namespaced keyword, `:walkmap.tag/tags`, denoted in this file `::tags`.
  This is in an attempt to avoid name clashes with other uses of this key."
  (:require [clojure.set :refer [difference union]]))

(defn tagged?
  "True if this `object` is tagged with each of these `tags`."
  [object & tags]
  (if

simon-brooke

#!/bin/bash

# Set the timestamp of the JPEG files which are specified as arguments to the current
# date, if its timestamp is zero.
#
# Background: My Olympus E20p, which I like and still use, is so old that it has no 
# clock, and doesn't timestamp photographs. In order that Shotwell should file them
# properly, I like them timestamped.
#
# Weirdly, although the timestamp appears in the EXIF as it comes off the camera as

simon-brooke

(ns url-query.query
  (:require [clojure.string :as cs]))

;; I wrote this function for a wee side project and ended up not using it - but it is quite a useful function.
;; Freeware, not copyrighted, no warranty. Use at your own risk.

(defn get-query-part-as-map
  "Returns the query part of the current document URL as a keyword-string map."
  []
  (let [query-nvs (map #(cs/split % "=") (cs/split (subs js/window.location.search 1) "&"))]

simon-brooke

(def NIL (symbol "NIL"))

(deftype ConsCell [CAR CDR]
  clojure.lang.ISeq
  (cons [this x] (ConsCell. x this))  
  (first [this] (.CAR this))
  ;; next and more must return ISeq:
  ;; https://github.com/clojure/clojure/blob/master/src/jvm/clojure/lang/ISeq.java
  (more [this] (if
                 (= (.CDR this) NIL)

simon-brooke

This is a list of domains currently on the email blocklist of the Virtual Steamie; I'll try to keep it up to date.

• bacrko.fun
• beioxaf.xyz
• ceponla.eu
• cerjoxa.pres
• cerjoxa.press
• dedanka.top
• hoalqur.top
• irewal.asia

simon-brooke

This is a list of domains currently blocked by the Virtual Steamie; I'll try to keep it up to date.

It's our policy to block domains from which we receive spam. If administrators clean up their act and moderate their own local spammers, then they ought to be allowed off this list, but of course we won't know because we wont see their posts. If you feel that your instance is on this list unfairly, let me know.

• api.m.to)
• artoot.xyz)
• beyblade.m.to)
• boss.taxi)
• chicken.m.to)
• cmx.im)

simon-brooke

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

(defn string-equal-ignore-whitespace?
  "if `a` and `b` are both strings, ignore whitespace changes when comparing them;
  othewise just check for ordinary equality. Return true if `a` and `b` are identical
  modulo whitespace changes. Written because I didn't want unit tests to fail just 
  because of emitted whitespace changes"
  [a b]
  (if
  (and