hiredman

(defrecord Pair [car cdr])

(defprotocol Check
  (check [instr env]))

(defrecord Machine [s e c d])

(defn secd [machine]
  (if (seq (:c machine))
    (let [m ((first (:c machine))

hiredman

(def E
  #{#{:a :b}
    #{:c :d}
    #{:e :f}})

(defn equal [& args]
  (boolean
   (seq (for [e E
              :when (every? #(contains? e %) args)]

hiredman

(require '[aleph.http :as http])

(def main-server
  (http/start-server
   (constantly {:status 200 :body "yo"})
   {:host "localhost"
    :port 3467}))

(def proxy-server
  (http/start-server

hiredman

- name: Jenkins
  hosts: all
  roles:
    - java
    - docker
    - jenkins
    - archiva
    - nginx
    - s3cmd
    - pullrequest

hiredman

;;
;; Thus spake the master programmer:
;;   "Though a program be but three lines long, someday it will have to be
;;   maintained."
;; 
;;
;; [01:30] <uhelp> lexxan: Since Mon May  2 17:22:46 2005,
;;                 there have been 0 modifications and 0 questions.
;;                 I have been awake for 7 minutes and 36 seconds
;;                 this session, and currently reference 19

hiredman

(import '(org.xlightweb.client HttpClient)
        '(java.net URL URLEncoder)
        '(javax.net.ssl SSLContext)
        '(java.util Date)
        '(org.xlightweb PostRequest GetRequest))


(def base-url "https://www.google.com/notebook/")

(def params  {"service" "notebook"

hiredman

refs/heads/master^@44bf79070b689ae3e96adbcae4c3c97abaf59ac4
refs/heads/master^@44bf79070b689ae3e96adbcae4c3c97abaf59ac4
refs/heads/master^@44bf79070b689ae3e96adbcae4c3c97abaf59ac4
refs/heads/master^@44bf79070b689ae3e96adbcae4c3c97abaf59ac4
bzr: ERROR: exceptions.TypeError: 'Tree' object is not iterable

Traceback (most recent call last):
  File "/usr/local/lib/python2.5/site-packages/bzrlib/commands.py", line 893, in run_bzr_catch_errors
    return run_bzr(argv)
  File "/usr/local/lib/python2.5/site-packages/bzrlib/commands.py", line 839, in run_bzr

hiredman

(def svn-command "svn -v --xml --limit 5 log  https://clojure.svn.sourceforge.net/svnroot/clojure")

(defn svn-summaries
      "takes output of clojure.xml/parse on svn's xml log, returns
      a vector of [rev-number commit-message]"
      [tag-map]
      (map (fn [x]
               [(.parseInt Integer (:revision (:attrs x)))
                (first
                  (:content

hiredman

(ns hiredman.xmpp
    (:import (org.jivesoftware.smack XMPPConnection ConnectionConfiguration
                                     RosterListener PrivacyListManager
                                     PacketListener)
             (org.jivesoftware.smack.packet Presence Presence$Type)
             (org.jivesoftware.smack.filter PacketFilter)))

(defstruct xmpp :connection :chats)

(defn connect [jid pass]

hiredman

(ns hiredman.beans)

(defn -it [& _]
       [[] (ref {})])

(defn setter [tis nam tat]
      (dosync
        (commute (.state tis)
                 assoc nam tat)))