ifesdjeen

In order to setup leiningen with pgp, you have to create a ~/.lein/credentials.clj file and put following contents into it:

{
  #"https:\/\/your.nexus.server.address\/" {:username "your_username" :password "supersecret"}
}

After that you can run lein deploy.

ifesdjeen

(defn repeatedly*
  "Like `repeatedly` but faster and returns given collection type."
  [coll n f]
  (if-not (instance? clojure.lang.IEditableCollection coll)
    (loop [v coll idx 0]
      (if (>= idx n)
        v
        (recur (conj v (f)) (inc idx))))
    (loop [v (transient coll) idx 0]
      (if (>= idx n)

ifesdjeen

(defn vec-contains?
  [vec value]
  (not (nil? (some #(= value %) vec))))


(vec-contains? ["a" "b" "c"] "a") ;; true
(vec-contains? ["a" "b" "c"] "e") ;; false

ifesdjeen

setwd("~/analytics/")
kp = read.csv("grouped_keys_combined")
colnames(kp) = c("Day", "Minute", "Strokes")
attach(kp)

parseTimestamp <- function(ts) as.POSIXct((ts + 120*60*1000) / 1000, origin="1970-01-01", tz="CEST")
kp$DayParsed <- parseTimestamp(kp$Day)
head(kp$DayParsed)

library("ggplot2")

ifesdjeen

(defn- apply-to-values [m f]
  "Applies function f to all values in map m"
  (into {} (for [[k v] m]
            [k (f v)])))

ifesdjeen

(defmulti even-odd 
  (fn [i] 
    (if (= 0 (mod i 2))
      :even
      :odd)))

(defmethod even-odd :even
  [i]
  (println "Even " i))

ifesdjeen

(defmacro with-temp-file
  [f-sym & body]
  `(let [prefix# (.toString (UUID/randomUUID))
         postfix# (.toString (UUID/randomUUID))
         ~f-sym (java.io.File/createTempFile prefix# postfix#)]
     (try
       (do ~@body)
       (finally
         (.delete ~f-sym)))))

ifesdjeen

(require '[clojure.reflect :as r])
(use '[clojure.pprint :only [print-table]])
 
(print-table (:members (r/reflect"foo")))

ifesdjeen

;; Declare a function
(defn fun1 [] (println 1))

;; And a hash that would capture that function
(def h {:key fun1})
;; => {:key #<user$fun1 user$fun1@5e540696>}
 
;; Now, check out the value of the key
(:key h)
;; => #<user$fun1 user$fun1@5e540696>

ifesdjeen

#import <Cocoa/Cocoa.h>

static id monitorKeyDown;

@interface AppDelegate : NSObject <NSApplicationDelegate>

@property (assign) IBOutlet NSWindow *window;

@end