Skip to content

Instantly share code, notes, and snippets.

@SevereOverfl0w
SevereOverfl0w / built.boot
Created June 3, 2016 21:13
Boot, Asciidoctor, Blogging, Spec
(set-env! :dependencies '[[adzerk/boot-test "1.1.0"]
[im.chit/hara.event "2.2.17"]
[im.chit/hara.time "2.2.17"]
[org.asciidoctor/asciidoctorj "1.5.4"]]
:source-paths #{"test" "src"})
(require '[adzerk.boot-test :refer :all])
(require '[boot.util :refer [dosh]])
(require '[clojure.java.io :as io])
(require '[hara.time :as t])

Keybase proof

I hereby claim:

  • I am severeoverfl0w on github.
  • I am severeoverfl0w (https://keybase.io/severeoverfl0w) on keybase.
  • I have a public key ASBEuNCN21tUfT5X9jCrZDrS_ATOvx6TsLt3rOWyNeGIogo

To claim this, I am signing this object:

(set-env! :target-path "target/dev"
:source-paths #{"sass" "src" "resources" "dev-cljs"}
:asset-paths #{"assets"}
:dependencies '[[adzerk/boot-cljs "1.7.48-5" :scope "test"]
[adzerk/boot-cljs-repl "0.3.0" :scope "test"]
[adzerk/boot-reload "0.4.0" :scope "test"]
[deraen/boot-less "0.5.0"]
[mathias/boot-sassc "0.1.5" :scope "test"]
[org.clojure/clojure "1.8.0"]
[org.clojure/tools.nrepl "0.2.12"]
(ns test.core)
(defn f
[n new-list item]
(let [last-item (or (last new-list) [])]
(if (>= (count last-item) n)
(concat new-list [[item]])
(concat (or (butlast new-list) [])
[(conj last-item item)]))))
reporter = require 'postcss-reporter'
lost = require 'lost'
bem_linter = require 'postcss-bem-linter'
bem = require 'postcss-bem'
doiuse = require 'doiuse'
autoprefixer = require 'autoprefixer'
js_pipeline = require 'js-pipeline'
css_pipeline = require 'css-pipeline'
module.exports =
@SevereOverfl0w
SevereOverfl0w / Vagrantfile
Created September 27, 2015 21:01
For my blog on Clojure/Docker/Vagrant
# -*- mode: ruby -*-
# vi: set ft=ruby :
# Vagrantfile API/syntax version. Don't touch unless you know what you're doing!
VAGRANTFILE_API_VERSION = "2"
Vagrant.configure(VAGRANTFILE_API_VERSION) do |config|
# All Vagrant configuration is done here. The most common configuration
# options are documented and commented below. For a complete reference,
# please see the online documentation at vagrantup.com.
FROM clojure
COPY . /usr/src/app
WORKDIR /usr/src/app
CMD ["lein", "ring", "server-headless"]
EXPOSE 3000
EXPOSE 34086
css_variables = require 'postcss-css-variables'
js_pipeline = require 'js-pipeline'
css_pipeline = require 'css-pipeline'
module.exports =
ignores: ['readme.md', '**/layout.*', '**/_*', '.gitignore', 'ship.*conf']
extensions: [
js_pipeline(files: 'assets/js/*.coffee'),
css_pipeline(files: 'assets/css/*.css')
(ns bans.db.permissions
(:require [bans.db :as db]
[clojure.java.jdbc :as j]
[honeysql.core :as sql]
[honeysql.helpers :refer :all]))
(def base (-> (select :*)
(from :permission)
(join :users [:= :permission.user_id :users.id]
:server [:= :permission.server_id :server.id])))
(def base (-> (select :*)
(from :permission)
(join :user [:= :permission.user_id :user.id]
:server [:= :permission.server_id :server.id])))