tstout

require 'csv'

def parse_shelf_color(val)
  val.include?('Ivo') ? 'Sand' : 'Coffee'
end

def parse_shelf_dimensions(val)
  dimensions = val
    .gsub(/"/, '')
    .gsub(/3\/4 h/, '')

tstout

// Use Gists to store code you would like to remember later on
console.log(window); // log the "window" object to the console

tstout

--
-- Note: could not get this to work outside of sqlplus
-- also, no quotes around passwords. Weak passwords are not 
-- allowed.
--

ALTER USER btstout IDENTIFIED BY new-pass replace old-pass
/

-- Note: This seems to no longer work. from sqlplus, simply type 

tstout

--
--  All DB links defined in the database
--
select * from DBA_DB_LINKS;
--
-- All DB links the curernt user has access to
--
select * from ALL_DB_LINKS;
--
-- All DB links owned by current user

tstout

package db.io

databaseChangeLog {

//
//  Liquibase column types. Oddly enough, these are not mentioned in the docs, these were obtained from the source.
//
//    "BIGINT"
//    "NUMBER || "NUMERIC"
//    "BLOB"

tstout

(ns kratzen.core
  (:import (com.gargoylesoftware.htmlunit WebClient))
  (:require [clojure.edn :as edn]
            [clojure.java.io :as io])
  (:use [clojure.tools.logging :only (info error)]))

(defn load-config []
  (-> (io/file (System/getProperty "user.home"), ".fin-kratzen")
      slurp
      edn/read-string))

tstout

begin
  DBMS_MVIEW.REFRESH('STOREORD.TCS_STORE_DIRECTIONAL_M', '?');
end;
/

tstout

(ns kratzen.cli
  (:require [clojure.string :as st])
  (:require [kratzen.server :refer :all])
  (:use [clojure.string :only [replace-first]])
  (:use [clojure.tools.logging :only (info error)]))

;;
;; Command line processing.
;;
;; I'm aware of tools.cli, however, I wanted to

tstout

(ns kratzen.cli
  (:require [clojure.string :as st])
  (:require [kratzen.server :refer :all])
  (:use [clojure.string :only [replace-first]])
  (:use [clojure.tools.logging :only (info error)]))

;;
;; Command line processing.
;;
;; I'm aware of tools.cli, however, I wanted to

tstout

(ns kratzen.cli-test
  (:require
    [kratzen.cli :refer :all]
    [expectations :refer [expect]]))

;;
;; verify '--' creates a keyword
;;
(expect
  :option