bmaddy

{:linters {:mount/defstate {:level :warning}}
 :hooks {:analyze-call {mount.core/defstate hooks.defstate/defstate}}}

bmaddy

{:deps
 {org.clojure/clojure {:mvn/version "1.10.0-RC5"}
  #_#_org.clojure/spec.alpha {:mvn/version "0.2.176"}
  #_#_org.clojure/test.check {:mvn/version "0.10.0-alpha3"}
  org.clojure/core.cache {:mvn/version "0.7.1"}
  org.clojure/core.memoize {:mvn/version "0.7.1"}
  }}

bmaddy

clj -R:nrepl -m nrepl.cmdline --middleware "[cider.piggieback/wrap-cljs-repl]"

in Emacs, cider-connect

user> (require '[oops.core :refer [oset!]])
nil
user> (oset! (js-obj) :mood "a happy camper")
IllegalStateException Can't change/establish root binding of: *cljs-warnings* with set  clojure.lang.Var.set (Var.java:223)

bmaddy

(ns gadget
  (:require [datomic.api :as d]
            [clojure.pprint :refer [pprint pp]]
            [clojure.inspector :as i :refer [inspect-tree]])
  (:import (javax.swing.tree TreeModel)
           (javax.swing JTree JScrollPane JFrame)))

(defn rev-attrs
  "Finds reverse relationships for a datomic.query.EntityMap"
  [e]

bmaddy

A Clojure version of "the most beautiful program ever written"

Moved to a real repo, here: https://github.com/bmaddy/beautiful-interpreter

bmaddy

Moved to https://github.com/bmaddy/csd-vpn/blob/master/csd-responder-exec.sh

bmaddy

#!/usr/bin/env bash
# Reset routing table on OSX

# display current routing table
echo "********** BEFORE ****************************************"
netstat -rn
echo "**********************************************************"

for i in {0..4}; do
  sudo route -n flush # several times

bmaddy

PATH
  remote: .
  specs:
    tufts_models (0.0.1)
      active-fedora (~> 7.0)
      carrierwave
      chronic
      hydra-core
      hydra-editor
      hydra-role-management

bmaddy

# Start the app with EXPLAIN_PARTIALS=true to show locations of view partials
if Rails.env.development? and ENV['EXPLAIN_PARTIALS']
  module ActionView
    class PartialRenderer
      def render_with_explanation(*args)
        rendered = render_without_explanation(*args).to_s
        # Note: We haven't figured out how to get a path when @template is nil.
        start_explanation = "\n<!-- START PARTIAL #{@template.inspect} -->\n"
        end_explanation = "\n<!-- END PARTIAL #{@template.inspect} -->\n"
        start_explanation.html_safe + rendered + end_explanation.html_safe

bmaddy

attribute :subject,  [Lenses.get_predicate(RDF::DC11.subject), Lenses.literals_to_strings, Lenses.select(only_foos)]
attribute :subject2, [Lenses.get_predicate(RDF::DC11.subject), Lenses.literals_to_strings, Lenses.select(only_bars)]

def select(test)
  Lens[
    get: lambda do |source_values|
      raise unless source_values.is_a?(Set)
      source_values.select{|v| test(v)}
    end,
    put: lambda do |source_values, new_values|