Sam Griffith Jr staypufd

## .lisp
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; 1. Example of using quicklisp to laod in
;;;    cl-utilities and use one function
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;; Load in the cl-utilities package

(ql:quickload "cl-utilities")

;;; Tell the cl-user namespace to use the cl-utilities package

## Fix for 28.2 code

initialize
	| sampleCell width height n |
	super initialize.
	n := self cellsPerSide.
	sampleCell := LOCell new.
	width := sampleCell width.
	height := sampleCell height.
	self bounds: (5 @ 5 extent: (width * n) @ (height * n) + (2 * self borderWidth)).
	cells := Array2D new: 5 tabulate: [ :i :j | self newCellAt: i at: j].

## fizz-buzz-with-special.clj
```clojure
(ns specialdemo.core
  (:require [special.core :refer [condition manage]])
  (:gen-class))

(defn fizz-buzz [i]
       (let [f (fn [n]
                 (for [i (range n)]
                   (cond
                     (and (= (mod i 3) 0)

## keybase.md

      
              1 file
            
          
              0 forks
            
          
              0 comments
            
          
              0 stars
            
          
                staypufd
                / keybase.md
            
            
              Created
              November 27, 2018 19:05
            
          
    Keybase proof

I hereby claim:

I am staypufd on github.
I am staypufd (https://keybase.io/staypufd) on keybase.
I have a public key ASCXD3EQsLw74ZdDgbVp8a8FSbdsPZTfKXFLm3H65kggqwo

To claim this, I am signing this object:

  
## gist:0dea840c972383162be5810e15b3d53e
export VIRTUALENVWRAPPER_PYTHON=/usr/bin/python2.7

MYSQL=/usr/local/mysql/bin
MYBIN=~/bin
export PATH=$PATH:$MYBIN
export PATH=$PATH:$MYSQL
export DYLD_LIBRARY_PATH=/usr/local/mysql/lib:$DYLD_LIBRARY_PATH


# Colors

## gist:25ea1d2da98543b94a5ca2cedd259ddc
http://app.klipse.tech/?container&cljs_in.gist=viebel/69a7c0cdf289bad342fefe82fdeb7179

## gist:3d246e33051e583de09a
;; Assumes a Datomic DB where an Entity is defined that has attribute
;; :park.amenity/label of type string. Subsitute your query in place
;; of this example.

(let [vec-str (->>
                (d/q '[:find ?amenity-name
                       :where [?e :park.amenity/label ?amenity-name]]
                     (db))
                (sort-by first))]
      (doseq [x vec-str]

## Parent with two siblings

(defn section-button-view [title-and-symbol-vector owner]
  (om/component
    (sab/html
      [:div {:style    {:color            "black"
                        :border           "1px solid grey"
                        :border-radius    "4px"
                        :padding          "5px"
                        :margin           "5px"
                        :text-align       "center"

## gist:2194266106df07234fa6
create table quote (
	id identity,
	quotation varchar(1000) not null,
	author varchar(100) not null,
);

insert into quote (quotation, author) values ('The hardest thing in the world to understand is the income tax.', 'Albert Einstein');
insert into quote (quotation, author) values ('The only thing that interferes with my learning is my education.', 'Albert Einstein');
insert into quote (quotation, author) values ('I am convinced that He (God) does not play dice.', 'Albert Einstein');

## gist:879720f29543c802bd63
Mac - Run HSQLDB

NOTE:  Assumes your hsqldb is installed at the top level of your home directory.


java -cp ~/hsqldb-2.3.2/hsqldb/lib/hsqldb.jar org.hsqldb.server.Server
	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	;;; 1. Example of using quicklisp to laod in
	;;; cl-utilities and use one function
	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

	;;; Load in the cl-utilities package

	(ql:quickload "cl-utilities")

	;;; Tell the cl-user namespace to use the cl-utilities package

	initialize
	\| sampleCell width height n \|
	super initialize.
	n := self cellsPerSide.
	sampleCell := LOCell new.
	width := sampleCell width.
	height := sampleCell height.
	self bounds: (5 @ 5 extent: (width * n) @ (height * n) + (2 * self borderWidth)).
	cells := Array2D new: 5 tabulate: [ :i :j \| self newCellAt: i at: j].
	```clojure
	(ns specialdemo.core
	(:require [special.core :refer [condition manage]])
	(:gen-class))

	(defn fizz-buzz [i]
	(let [f (fn [n]
	(for [i (range n)]
	(cond
	(and (= (mod i 3) 0)
	export VIRTUALENVWRAPPER_PYTHON=/usr/bin/python2.7

	MYSQL=/usr/local/mysql/bin
	MYBIN=~/bin
	export PATH=$PATH:$MYBIN
	export PATH=$PATH:$MYSQL
	export DYLD_LIBRARY_PATH=/usr/local/mysql/lib:$DYLD_LIBRARY_PATH


	# Colors
	;; Assumes a Datomic DB where an Entity is defined that has attribute
	;; :park.amenity/label of type string. Subsitute your query in place
	;; of this example.

	(let [vec-str (->>
	(d/q '[:find ?amenity-name
	:where [?e :park.amenity/label ?amenity-name]]
	(db))
	(sort-by first))]
	(doseq [x vec-str]

	(defn section-button-view [title-and-symbol-vector owner]
	(om/component
	(sab/html
	[:div {:style {:color "black"
	:border "1px solid grey"
	:border-radius "4px"
	:padding "5px"
	:margin "5px"
	:text-align "center"
	create table quote (
	id identity,
	quotation varchar(1000) not null,
	author varchar(100) not null,
	);

	insert into quote (quotation, author) values ('The hardest thing in the world to understand is the income tax.', 'Albert Einstein');
	insert into quote (quotation, author) values ('The only thing that interferes with my learning is my education.', 'Albert Einstein');
	insert into quote (quotation, author) values ('I am convinced that He (God) does not play dice.', 'Albert Einstein');
	Mac - Run HSQLDB

	NOTE: Assumes your hsqldb is installed at the top level of your home directory.


	java -cp ~/hsqldb-2.3.2/hsqldb/lib/hsqldb.jar org.hsqldb.server.Server