camsaul

(ns my-coins-project.core)

;; Return all the different ways you can make change for a given amount of cents. 
;; Basic idea is to start with number of pennies and then successively apply `apply-coin` for each coin in order from
;; largest to smallest. `apply-coin` will take a lazy seq of existing combinations and return a new lazy seq that includes
;; a new combination with each possible quantity of the coin in question for each existing combination.
;;
;;  (apply-coin [:quarter 25] [{:penny 60}])
;;  ;; -> [{:quarter 0, :penny 60}, {:quarter 1, :penny 35}, {:quarter 2, :penny 10}]
;;

camsaul

(ns metabase.server 
  (:require [ring.adapter.jetty :as ring-jetty])
  (:import org.eclipse.jetty.server.Server 
           org.eclipse.jetty.server.handler.AbstractHandler))

(defn- ^AbstractHandler async-default [handler]
  (#'ring-jetty/async-proxy-handler handler 0))

(defn- create-server
  ^Server [handler options]

camsaul

(defn changeset->sql [^Liquibase liquibase, ^String changelog-file, ^String author, ^String id]
  (let [database              (.getDatabase liquibase)
        sql-generator-factory (liquibase.sqlgenerator.SqlGeneratorFactory/getInstance)]
    (for [change    (-> liquibase
                        .getDatabaseChangeLog
                        (.getChangeSet changelog-file author id)
                        .getChanges)
          statement (.generateStatements change database)
          sql       (.generateSql sql-generator-factory statement database)]
      (.toSql sql))))

camsaul

#! /usr/bin/env bash

find -E frontend src test -type f -regex '^.*(js|jsx|clj|css)$' -exec cat {} \; | sed '/^\s*$/d' | wc -l

camsaul

Generate the POM file:

mvn install:install-file \ 
  -Dfile=RedshiftJDBC42-no-awssdk-1.2.12.1017.jar \
  -DgroupId=com.amazon.redshift -DartifactId=redshift-jdbc42-no-awssdk \
  -Dpackaging=jar \
  -Dversion=1.2.12.1017 \
  -DgeneratePom=true

camsaul

(ns addr
  (:require [cheshire.core :as json]
            [clj-http.client :as http]
            [clojure.java
             [io :as io]
             [jdbc :as jdbc]]
            [clojure.pprint :as pprint]
            [metabase.db :as mdb]
            [metabase.util.schema :as su]
            [schema.core :as s]))

camsaul

camsaul

(def ^:private ^:dynamic *require-chain* nil)

(defonce new-require
  (let [orig-require (var-get #'clojure.core/require)]
    (orig-require 'clojure.pprint)
    (fn [& args]
      (binding [*require-chain* (conj (vec *require-chain*) (ns-name *ns*))]
        (let [require-chain-description (apply str (interpose " -> " *require-chain*))]
          (println "\nin" require-chain-description)
          ((resolve 'clojure.pprint/pprint) (cons 'require args))

camsaul

#!/bin/bash
curl ifconfig.me

camsaul

llccc::;,,''.....''''',,,,,,,,,,,,,,,,;;;,;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;::::::::::::::::::::
ccccccc::;;,''...'''''',,,,,,,,,,,,,,,,,,,,,;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;:::::::::::::::::::
;::cccccc:::;;,''''''''',,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;::::::::::::::::
',,;::cccccc:::;;,,'''''',,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;:::::::::::::::
..'',,;::::ccc::::;;,,'''',,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,;;;;;;;;;;;;:::::::::::::;;;;;;;::::::::::::::::
....''',,;;::::::::;;;,,,,,,,,,,,,,,,,,,,,,,,,'',,,'''',,,,;;;;:::::::::::;;;;;;;;;;;;;;;:::::::::::::::::::::::::::::::
'''''''''',,;;::::;;;;,,,,,,,,,,,,,,,,,,,,'''',,;cloodxxkkkkkkkkkkkkkkkxxxxdool:,'........''',,;;:::::::::::::::::::::::
''''''''''''',,;;;;;;,,,,,,,,,,,,,,,,,,,;clodkO0KKXK0OkxdddooooooooooooookKXKK00Okxoc;'..........',;::::::::::::::::::::
'''''''''''''''',,,,,,,,,,,,,,,,,,:codxO0KXXXXK0Okdollll