View inspect.cljc
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
;; Custom inspection tool! | |
;; ======================= | |
(defn appendv | |
[coll & args] | |
(apply conj (vec coll) args)) | |
(def *inspections* (atom {})) |
View search-tree?.clj
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(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)) |
View core.cljs
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(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 {})) |
View configuration.nix
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
{ 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 |
View c768-2-proposal.tex
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
\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} |
View number-theory.clj
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(ns adamdavislee.math.number-theory | |
"This port closely mimics the naming conventions and coding style of the racket source code. | |
However it does not: | |
Define inline versions of mod+, mod*, etcetera. | |
TODO: | |
Add pre/post conditions and assertions with type checking etc. | |
Improve docstrings. | |
Finish marking internal functions as private. | |
Use internal memoization for some of the functions which racket uses manual bit manipulation for." | |
(:require [clojure.test |
View roman-numeral.clj
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(with-test | |
(defn roman-numeral | |
[input] | |
(loop [input input, acc 0, ] | |
(if (empty? input) | |
acc | |
(let [convert {"I" 1, "V" 5, "X" 10, "L" 50, "C" 100, "D" 500, "M" 1000, } | |
curr-num (convert (subs input 0 1)) | |
op (if (and (not= 1 (count input)) | |
(< curr-num |
View index.html
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
<canvas></canvas> |
View main.clj
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(ns adamdavislee.mpd.main | |
(:require [neko.activity | |
:refer [defactivity set-content-view!]] | |
[neko.debug :refer [*a]] | |
[neko.notify | |
:refer [toast fire notification]] | |
[neko.resource :as res] | |
[neko.context | |
:refer [get-service]] | |
[neko.threading :refer [on-ui]] |
View dump-1481063240121.cljs
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
cljs.user=> (def foo (atom 2)) | |
#'cljs.user/foo | |
cljs.user=> 1 | |
1 |
NewerOlder