adamdavislee

\documentclass[man, biblatex]{apa7}
\usepackage{hyperref}
\hypersetup{pdfborderstyle={/S/U/W 1},
  linktocpage}
\DeclareLanguageMapping{american}{american-apa}
\usepackage{csquotes}
\usepackage{listings}
\usepackage{graphicx}
\usepackage{soul}
\usepackage{setspace}

adamdavislee

{ config, pkgs, ... }:

{
  system.stateVersion = "21.05"; # don't modify this if system is updated
  imports = [ ./hardware-configuration.nix ]; # some sort of auto-generated fstabby thing :-)
  boot.kernelPackages = pkgs.linuxPackages_5_4; # Most recent supported kernel that still has working touch and sound.
  boot.loader.systemd-boot.enable = true; # use the systemd EFI boot loader
  boot.loader.efi.canTouchEfiVariables = true; # set automatically during install
  networking.hostName = "ecdicius"; # define your hostname
  networking.wireless.enable = true;  # enables wireless support via wpa_supplicant

adamdavislee

(ns adamdavislee.c964.core
    (:require [rum.core :as rum]
              [garden.core :refer [css]]
              [clojure.string :as str]
              [clojure.edn :refer [read-string]]))
               

(enable-console-print!)

(defonce ratom (atom {}))

adamdavislee

(do (defn search-tree?* [tree]
      (if (coll? tree)
        (let [[root-node left-node right-node] (concat tree (cycle [nil]))]
          (fn [] (and (->> [left-node root-node right-node]
                           (map #(if (coll? %) (first %) %))
                           (filter identity)
                           (apply <))
                      (search-tree?* left-node)
                      (search-tree?* right-node))))
        true))

adamdavislee

;; Custom inspection tool!
;; =======================

(defn appendv
  [coll & args]
  (apply conj (vec coll) args))


(def *inspections* (atom {}))