| // ==UserScript== | |
| // @name Unsuck Twitter | |
| // @namespace http://tampermonkey.net/ | |
| // @version 0.1 | |
| // @description try to take over the world! | |
| // @author You | |
| // @match https://twitter.com/ | |
| // @grant none | |
| // ==/UserScript== | |
| /* jshint -W097 */ |
Ideas are cheap. Make a prototype, sketch a CLI session, draw a wireframe. Discuss around concrete examples, not hand-waving abstractions. Don't say you did something, provide a URL that proves it.
Nothing is real until it's being used by a real user. This doesn't mean you make a prototype in the morning and blog about it in the evening. It means you find one person you believe your product will help and try to get them to use it.
I was at Amazon for about six and a half years, and now I've been at Google for that long. One thing that struck me immediately about the two companies -- an impression that has been reinforced almost daily -- is that Amazon does everything wrong, and Google does everything right. Sure, it's a sweeping generalization, but a surprisingly accurate one. It's pretty crazy. There are probably a hundred or even two hundred different ways you can compare the two companies, and Google is superior in all but three of them, if I recall correctly. I actually did a spreadsheet at one point but Legal wouldn't let me show it to anyone, even though recruiting loved it.
I mean, just to give you a very brief taste: Amazon's recruiting process is fundamentally flawed by having teams hire for themselves, so their hiring bar is incredibly inconsistent across teams, despite various efforts they've made to level it out. And their operations are a mess; they don't real
| ;; Datomic example code | |
| ;; demonstrates various update scenarios, using a news database | |
| ;; that contains stories, users, and upvotes | |
| ;; grab an in memory database | |
| (use '[datomic.api :only (q db) :as d]) | |
| (def uri "datomic:mem://foo") | |
| (d/create-database uri) | |
| (def conn (d/connect uri)) |
I spent a lot of time trying to find a pretty optimal (for me) setup for Clojure… at the same time I was trying to dive in and learn it. This is never optimal; you shouldn't be fighting the environment while trying to learn something.
I feel like I went through a lot of pain searching Google, StackOverflow, blogs, and other sites for random tidbits of information and instructions.
This is a comprehensive "what I learned and what I ended up doing" that will hopefully be of use to others and act as a journal for myself if I ever have to do it again. I want to be very step-by-step and explain what's happening (and why) at each step.
I appreciate the effort you've put into documenting this, but there are a number of inaccuracies here that need to be addressed. We get
| ;; outlet code for implementing traditional macro expansion | |
| ;; macros | |
| (define (expand form) | |
| (cond | |
| ((variable? form) form) | |
| ((literal? form) form) | |
| ((macro? (car form)) | |
| (expand ((macro-function (car form)) form))) |
| class Lisp | |
| def initialize | |
| @env = { | |
| :label => lambda { |(name,val), _| @env[name] = val }, | |
| :quote => lambda { |sexpr, _| sexpr[0] }, | |
| :car => lambda { |(list), _| list[0] }, | |
| :cdr => lambda { |(list), _| list.drop 1 }, | |
| :cons => lambda { |(e,cell), _| [e] + cell }, | |
| :eq => lambda { |(l,r), _| l == r }, | |
| :if => lambda { |(cond, thn, els), ctx| eval(cond, ctx) ? eval(thn, ctx) : eval(els, ctx) }, |
| ;; -*- Mode: Clojure; indent-tabs-mode: nil -*- | |
| ;; | |
| ;; Licensed to the Apache Software Foundation (ASF) under one or more | |
| ;; contributor license agreements. See the NOTICE file distributed | |
| ;; with this work for additional information regarding copyright | |
| ;; ownership. The ASF licenses this file to you under the Apache | |
| ;; License, Version 2.0 (the "License"); you may not use this file | |
| ;; except in compliance with the License. You may obtain a copy of the | |
| ;; License at http://www.apache.org/licenses/LICENSE-2.0 Unless | |
| ;; required by applicable law or agreed to in writing, software |
| ;; Copyright (c) James Reeves. All rights reserved. | |
| ;; The use and distribution terms for this software are covered by the Eclipse | |
| ;; Public License 1.0 (http://opensource.org/licenses/eclipse-1.0.php) which | |
| ;; can be found in the file epl-v10.html at the root of this distribution. By | |
| ;; using this software in any fashion, you are agreeing to be bound by the | |
| ;; terms of this license. You must not remove this notice, or any other, from | |
| ;; this software. | |
| (ns compojure.server.jetty | |
| "Clojure interface to start an embedded Jetty server." |
| (defn install-backup-scripts | |
| "Creates a script in stevedore and installs it as a shell script in the administrative user's home dir | |
| and installs it as a cron. This will override the crontab." | |
| [request] | |
| (let [administrative-user (:username (pallet.session/admin-user request)) | |
| admin-home-dir (str "/home/" administrative-user) | |
| raw-instance-id (-> request :target-node (pallet.compute/id)) | |
| instance-id (apply str (interpose "_" (clojure.string/split raw-instance-id #"/"))) | |
| instance-group (-> request :target-node (compute/group-name)) | |
| s3-dir (str "/mnt/s3logstore/" instance-id "." instance-group) |