almost

var fs = require('fs'), path = require('path');

// Load all exported objects into a single module.
fs.readdirSync(__dirname).forEach(function (filename) {
  var fullpath = path.join(__dirname, filename), resource,
      module;
  
  if (fullpath !== __filename && 'js' === fullpath.split('.').pop() && '.' !== fullpath[0]) {
    module = require(fullpath);
    exports[filename.split('.')[0]] = module;

almost

(ns hello-app.core
  (:use compojure.core)
  (:require [compojure.route :as route]
            [compojure.handler :as handler]))

(defroutes main-routes
  (GET "/" [] "<h1>Hello World Wide Web!</h1>")
  (route/resources "/")
  (route/not-found "Page not found"))

almost

(ns almost.core)

(defn hello [] "WORLD")

almost

> lein deps 
Downloading: org/clojure/clojure/1.2.0-RC1/clojure-1.2.0-RC1.pom from repository central at http://repo1.maven.org/maven2
Unable to locate resource in repository
[INFO] Unable to find resource 'org.clojure:clojure:pom:1.2.0-RC1' in repository central (http://repo1.maven.org/maven2)
Downloading: org/clojure/clojure/1.2.0-RC1/clojure-1.2.0-RC1.pom from repository clojars at http://clojars.org/repo/
Unable to locate resource in repository
[INFO] Unable to find resource 'org.clojure:clojure:pom:1.2.0-RC1' in repository clojars (http://clojars.org/repo/)
Downloading: org/clojure/clojure-contrib/1.2.0-RC1/clojure-contrib-1.2.0-RC1.pom from repository central at http://repo1.maven.org/maven2
Unable to locate resource in repository
[INFO] Unable to find resource 'org.clojure:clojure-contrib:pom:1.2.0-RC1' in repository central (http://repo1.maven.org/maven2)

almost

(defmacro setf (&rest args)
  "Set each PLACE to the value of its VAL.
This is a generalized version of `setq'; the PLACEs may be symbolic
references such as (car x) or (aref x i), as well as plain symbols.
For example, (setf (cadar x) y) is equivalent to (setcar (cdar x) y).
The return value is the last VAL in the list.

\(fn PLACE VAL PLACE VAL ...)"
  (if (cdr (cdr args))
      (let ((sets nil))

almost

;;; cl-macs.el --- Common Lisp macros

;; Copyright (C) 1993, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008,
;;   2009, 2010, 2011  Free Software Foundation, Inc.

;; Author: Dave Gillespie <[email protected]>
;; Version: 2.02
;; Keywords: extensions

;; This file is part of GNU Emacs.

almost

# Thomas Parslow http://almostobsolete.net
# Just a work in progress and adapted to what I need right now. 
# It does uploads (via a file-like object that you write to) and
# I've started on downloads. Needs the development version of Boto from Github.
#
# Example:
#
#     glacierconn = GlacierConnection(AWS_ACCESS_KEY, AWS_SECRET_ACCESS_KEY)
#     writer = GlacierWriter(glacierconn, GLACIER_VAULT)
#     writer.write(somedata)

almost

// I assume here that you have already done your oauth authentication with dropbox
// (maybe using everyauth) and you have the access_token and access_token_secret (which are per-user).
// You also need the consumer_key and consumer_secret values for your Dropbox API account (these should
// be part of you application configuration).

// Step 1: Create an oauth object (do this once and store it, you can use the same object over and over)

var OAuth= require('oauth').OAuth;
dropboxOAuth = new OAuth("https://api.dropbox.com/1/oauth/request_token",
              "https://api.dropbox.com/1/oauth/access_token", 

almost

Thank you for using the directNIC.com Trouble Ticket System.
The following response is from a qualified directNIC customer support team member:

Date: 08/28/12 08:25am
From: *****

Tom,

A hint to your password is that it begins with s and ends with j.  
If you cannot remember your password or the answer to the security question, we can only send the login details via postal mail to the account address on file.  Please verify that address if still needed and will mail them out promptly.  

almost

_ = require('./underscore')

makeGrid = (height, width) =>
  _.map(_.range(height), -> _.map(_.range(width), -> undefined))


GRID_SIZE = 80

grid = makeGrid(GRID_SIZE, GRID_SIZE)