hugoduncan

;;; org-babel-clojure.el --- org-babel functions for clojure evaluation

;; Copyright (C) 2009 Joel Boehland

;; Author: Joel Boehland
;; Keywords: literate programming, reproducible research
;; Homepage: http://orgmode.org
;; Version: 0.01

;;; License:

hugoduncan

(autoload 'whitespace-mode "whitespace" "Toggle whitespace visualization." t)
(autoload 'whitespace-toggle-options "whitespace"
  "Toggle local `whitespace-mode' options." t)


(setq whitespace-line-column 80
      whitespace-style '(trailing
			 lines
                         empty
                         tabs

hugoduncan

(pallet.core/defnode my-node {})
(pallet.core/lift 
  {my-node (pallet.compute/make-unmanaged-node "tag" "184.106.227.79")}
  :phase (pallet.resource/phase
           (pallet.resource.exec-script/exec-script
             (ls /))))

hugoduncan

cat yum.repos.d/CentOS-Base.repo
# CentOS-Base.repo
#
# The mirror system uses the connecting IP address of the client and the
# update status of each mirror to pick mirrors that are updated to and
# geographically close to the client.  You should use this for CentOS updates
# unless you are manually picking other mirrors.
#
# If the mirrorlist= does not work for you, as a fall back you can try the 
# remarked out baseurl= line instead.

hugoduncan

(ns pallet.compute.node-list-compute-service
  "A jclouds compute service using a node list"
  (:import org.jclouds.compute.ComputeService))

(defrecord NodeListComputeService
    [node-list]
    org.jclouds.compute.ComputeService
    (listNodes [_] node-list)
    (getNodeMetadata
     [_ id]

hugoduncan

(ns pallet.compute.vmfest
  "A vmfest provider"
  (:require
   [pallet.compute :as compute]
   [pallet.compute.jvm :as jvm]
   [pallet.compute.implementation :as implementation]
   [clojure.contrib.condition :as condition]
   [clojure.string :as string]
   [vmfest.core :as vmfest]))

hugoduncan

(ns pallet.compute.jclouds-ssh-test
  (:require
   [clojure.contrib.logging :as logging])
  (:import
   [org.jclouds.ssh SshClient ExecResponse]
   org.jclouds.io.Payload
   org.jclouds.net.IPSocket))


(defn instantiate [impl-class & args]

hugoduncan

(ns pallet.compute.vmfest
  "A vmfest provider"
  (:require
   [pallet.compute :as compute]
   [pallet.compute.jvm :as jvm]
   [pallet.compute.implementation :as implementation]
   [clojure.contrib.condition :as condition]
   [clojure.string :as string]
   [vmfest.virtualbox.vbox :as vbox]
   [vmfest.machine :as machine])

hugoduncan

(ns vmfest.virtualbox.vbox
  (:use vmfest.machine
        clojure.contrib.logging
        [vmfest.util :as util])
  (:import [com.sun.xml.ws.commons.virtualbox_3_2
            IWebsessionManager
            IVirtualBox
            ISession
            IWebsessionManager
            IMachine]))

hugoduncan

(pallet.resource/deflocal attach-volume
 (attach-volume*
  [request]
  (jclouds-compute/with-compute-service [(:compute request)]
    (volume/attach-volume :us-east-1 "INSTANCE" VOLUME_ID "/dev/sdh"))
  request))