adam-james-v

Emacs Config

;;

This is a ‘minimum viable config’ built for the purpose of literate programming with Clojure / Clojurescript. It uses MELPA to download and install a few packages that I consider necessary for a good Clojure dev. experience, though that’s of course only my opinion. I use CIDER, a robust and popular REPL tool. It could arguably be substituted for inf-clojure, but I haven’t tried that myself.

This config does assume that you already have emacs installed and that you have at least a cursory understanding of how to navigate and use it. Or, at the very least know a few keywords to search as you try learn things. Emacs can be a daunting tool (I don’t even know most of it myself yet, honestly), but you can do the most critical things without too much difficulty and a bit of patience.

candera

A little Clojure configuration reader

This is a handy bit of code I've written more than once. I thought I'd throw it in here so I can refer back to it later. Basically, it lets you read a config file to produce a Clojure map. The config files themselves can contain one or more forms, each of which can be either a map or a list. Maps are simply merged. Lists correspond to invocations of extension points, which in turn produces a map, which is merged along with everything else.

An Example

Consider the following files:

names.edn

timmc

;; It all started here: http://clojure-log.n01se.net/date/2011-04-06.html#19:04

(#((% (+(*))) %) ;; call arg 1 with all args
 [;; data
  (+ (*)(*)(*)(*)(*)(*)(*))
  ;; main fn -- simulate 'if' with map lookup and closures
  #(({(+) (% (+(*)(*)))} ;; if zero return 'then' clause
     (% (+)) ;; dispatch on first arg
     (% (+(*)(*)(*)))) ;; call 'else' clause (n not found in map)
    %)

jasonm23

(deftheme bubbleberry "bubbleberry")

;; Based on the theme used for LightTable (see: http://www.chris-granger.com/images/lightable/main.png )

(custom-theme-set-variables
 'bubbleberry
 '(linum-format " %7i ")
 '(fringe-mode 5 nil (fringe))
 '(powerline-color1 "#3d3d68")
 '(powerline-color2 "#292945")

blacktaxi

(defmacro defconst [const-name const-val]
  `(def
     ~(with-meta const-name
       (assoc (meta const-name) :const true)) 
     ~const-val))

(defmacro defconsts [bindings]
  `(do
     ~@(map (fn [[const-name const-val]]
               `(defconst ~const-name ~const-val))

blacktaxi

; Ruby has an awesome feature -- string interpolation. Read about it on the internet.
; On the other hand, Clojure only has cumbersome Java string formatting, which can not be
; used without pain after you've tried Ruby.

; So here's this simple macro that basically allows you to do most things you could do
; with Ruby string interpolation in Clojure.

(ns eis.stuff
  (:require [clojure.string]))

alexander-yakushev

(ns tetris.core
  (:import (java.awt Color Dimension BorderLayout)
    (javax.swing JPanel JFrame JOptionPane JButton JLabel)
    (java.awt.event KeyListener))
  (:use clojure.contrib.import-static deflayout.core
        clojure.contrib.swing-utils)
  (:gen-class))

(import-static java.awt.event.KeyEvent VK_LEFT VK_RIGHT VK_DOWN VK_UP VK_SPACE)

swannodette

(set! *unchecked-math* true)

(defmacro iloop [[b t n] & body]
  `(loop [~@b]
     (when ~t
       ~@body
       (recur ~n))))

(defn count-primes [^long n]
  (let [c (inc n)

prasincs

(defn get-hash [type data]
(.digest (java.security.MessageDigest/getInstance type) (.getBytes data) ))

(defn sha1-hash [data]
 (get-hash "sha1" data))

(defn get-hash-str [data-bytes]
  (apply str 
	(map 
		#(.substring 

hiredman

(defn list-classes [bytes]
  (with-open [jar-is (JarInputStream. (java.io.ByteArrayInputStream. bytes))]
    (doall (map
            (fn [entry] (-> (.getName entry)
                            (.replaceAll "\\.class$" "")
                            (.replaceAll "/" ".")))
            (filter
             #(.endsWith (.getName %) ".class")
             (take-while identity (repeatedly #(.getNextEntry jar-is))))))))