kurtharriger

;; autosave
(defun full-auto-save ()
  (interactive)
  (save-excursion
    (dolist (buf (buffer-list))
      (set-buffer buf)
      (if (and (buffer-file-name) (buffer-modified-p))
          (basic-save-buffer)))))
(add-hook 'auto-save-hook 'full-auto-save)

kurtharriger

(require '[net.cgrand.enlive-html :as html])
(defn render [e] (apply str (html/emit* e)))
(defn strip-classes 
  "Remove class attribute from all elements"
  [file]
  (->
   (html/html-resource file)
   (html/at  [(html/attr? :class)] (html/remove-attr :class))
   (render)))

kurtharriger

// For clojurescript autorecompile: https://gist.github.com/johnbintz/9498860
module.exports = function(grunt) {
 
  // Load Grunt tasks declared in the package.json file
  require('matchdep').filterDev('grunt-*').forEach(grunt.loadNpmTasks);
 
  // Configure Grunt 
  grunt.initConfig({
 
    // grunt-express will serve the files from the folders listed in `bases`

kurtharriger

#!/bin/bash

DNAME=$(basename $(pwd))
if [ -n "$1" ]; then
   NAME="$1"
   if [ "$NAME" != "$DNAME" -a  -d ~/projects/"$NAME" ]; then
       cd ~/projects/"$NAME"
   fi
else
    NAME=$(basename $(pwd))

kurtharriger

(defn with-local-redefs-fn
  [a-var its-new-value func]
  (cast clojure.lang.IFn @a-var)
  (alter-meta! a-var
               (fn [m]
                 (if (::scope-count m)
                   (update-in m [::scope-count] inc)
                   (assoc m
                     ::scope-count 1
                     ::thread-local-var (doto (clojure.lang.Var/create @a-var)

kurtharriger

(require 'clojure.main)

(defn file-repl [filename]
  (let [log (java.io.FileWriter. filename)
        logout (fn [#^java.io.Writer out]
                 (proxy [java.io.Writer] []
                   (write 
                     ([x]
                       (.write log x)
                       (.write out x))

kurtharriger

(use '(incanter core processing))

;; simple interactive Processing example taken from processingjs.org website:
;; http://processingjs.org/source/basic-example/processingjs_basic-example.html

;; set up variable references to use in the sketch object
(let [radius (ref 50.0)
      X (ref nil)
      Y (ref nil)

kurtharriger

(require 'moz)

;;; Usage
;; Run M-x moz-reload-mode to switch moz-reload on/off in the
;; current buffer.
;; When active, every change in the buffer triggers Firefox
;; to reload its current page.

(define-minor-mode moz-reload-mode
  "Moz Reload Minor Mode"

kurtharriger

#!/bin/bash

PASTEL='{
    "Ansi 0 Color" =         {
        "Blue Component" = 0.3097887;
        "Green Component" = 0.3097887;
        "Red Component" = 0.3097887;
    };
    "Ansi 1 Color" =         {
        "Blue Component" = 0.3764706;

kurtharriger

#! /bin/bash

set -e 
trap "exit 1;" INT TERM EXIT

# exec > >(tee $0.log)
# exec 2>&1

[ -z "$CRX_URL" ] && CRX_URL=http://localhost:4502 
[ -z "$CRX_CREDENTIALS" ] && CRX_CREDENTIALS=admin:admin