jebberjeb

Vim + Racket

A less-known feature of Vim is support for Scheme, for scripting or otherwise. At the time of the original integration, the MZScheme package (a subset of PLTScheme) was used. Eventually, this became Racket. However, in Vim configuration, help, etc, mzscheme is referred to.

The following steps were performed on Ubuntu 14 Server, in order to compile Vim with Scheme support.

Version

To determine whether Vim has been compiled with support for Scheme:

jebberjeb

(ns system
  (:require [clojure.core.async :as ca]
            [cljminecraft.core :as core]
            [cljminecraft.player :as p]
            [cljminecraft.bukkit :as bk])
  (:import [org.bukkit Material DyeColor]))

;; Helpers start
(defn loc->coords [l] (-> l bean (select-keys [:x :y :z :world])))
(defn ->coords [e] (-> e .getLocation loc->coords))

jebberjeb

(ns access.core
  (:refer-clojure :exclude [==])
  (:require [clojure.core.logic :refer :all]))

(def all-priv [:smart-controls :view-all-reports :admin :foo :bar])

(def all-roles [{:name :admin :privs priv}
                {:name :reporting :privs [:view-all-reports]}
                {:name :store :privs [:smart-controls :view-all-reports]}
                {:name :foo-role :privs [:foo :bar]}])

jebberjeb

(defn request* [method route-path privilege route-params handler]
  `(~method ~route-path ~route-params
        (fn [req#] (let [user# (get-in req# [:session :current-user])]
                    (if (access/has-access? user# ~privilege)
                      (~handler req#)
                      ~response-401)))))

(defmacro GET* [route-path privilege route-params handler]
  (request* `GET route-path privilege route-params handler))

jebberjeb

(ns profiling
  (:require [magrathea.server.routes :refer (app)]
            [ring.mock.request :as mock]
            [taoensso.timbre.profiling :as p]))

(def req (mock/request
           :get
           "/organization/085cafea-868b-4db2-958c-641988553c5b/my-account"))

(defn do-with-orgs

jebberjeb

(ns iws-oracle.defsproc.generate
  (:require [clojure.java.jdbc :as jdbc]
            [clojure.string :as str]
            [schema.core :as s]
            [schema.macros :as sm]
            [iws-oracle.defsproc :refer :all]
            [iws-oracle.test.core-test :as ct]))

(def args-sql (str "select * from all_arguments where lower "
                   "(object_name) = lower (?)"))

jebberjeb

Jeb A. Beich
Panama City, FL
jebbeich (at) gmail (dot) com
(352) 213-7344

Summary

2000 Enterprise Java - 2002 J2ME - 2005 Python/.Net - 2008 Android - 2012 Clojure

Languages

jebberjeb

defsproc

How it works now

(def sproc-map {:sproc "webicon.p_get_prop"
                :params [{:name :ipropid :type :string}
                         {:name :cursor :type :cursor :output true}
                         ...]})

(defsproc get-property sproc-map [:ipropid] (first cursor))

jebberjeb

(ns classpath-test.core
  (:require [clojure.java.shell :refer [sh]]
            [cemerick.pomegranate :as pom]))

(defn make-java
  [class-name
   package]
  (str "package " package ";"
       "public class " class-name " {"
       "public static String foo() { return \"bar\"; }"

jebberjeb

TL;DR - refactoring of jdbc code discussed by clojure devs, enabled by recent modularity.

https://github.com/primedia/iws-oracle/tree/defsproc

Goals

• Reduce duplication of boilerplate JDBC code.
• Expose Oracle Stored Procedure (contract) as data (map).

JDBC