This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
;;; 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: |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(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 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(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 /)))) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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. |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(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] |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(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])) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(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] |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(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]) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(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])) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(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)) |