Bill

; 
; Clojure Collection Processing In Context: Part I: Eager to Process
; © 2017, by Bill Burcham
;
; Slides at: https://docs.google.com/presentation/d/1wKcTN5-f00ZCKk_LpUG5GIorh89AImmuxvG7MiGiF1c
;
(ns ccpic.part1)

(use 'clojure.repl)

Bill

# This docker-compose.yml will run the Hypothes.is annotation server.
# (adapted from instructions here https://h.readthedocs.org/en/latest/INSTALL.html)
#
# Place this file in the working directory (clone of https://github.com/hypothesis/h)
# run with docker-compose up -d
#
# Now browse to Hypothes.is at http://192.168.59.103:8000/ and create an account
# You'll see the invitation email in Mailcatcher at http://192.168.59.103:1080/
# Click that invitation link and log in on your local Hypothes.is
# And you are ready to annotate!

Bill

(ns progress-light.core
  (:require [clj-progress.core :as progress]
            [clojure.core.async :as async :refer [>!! timeout chan alt!! thread]])
  (:gen-class))

(def tick-ch
  (chan))
(def done-ch
  (chan))

Bill

require 'singleton'

# This is a parser pattern based on regexp as lexer.
# Express your tokens as parenthesized regexps separated by
# alternation (|). Erroneous input causes immediate return.
module Parse
  def parse( s, p, &block)
    i = 0
    while i < s.length do

Bill

require 'singleton'

# This is a parser pattern based on regexp as lexer.
# Express your tokens as parenthesized regexps separated by
# alternation (|). Erroneous input causes immediate return.
module Parse
  def parse( s, p, &block)
    i = 0
    while i < s.length do
      # could pass i to match and use block form in newer lib

Bill

  before_filter :set_database_for_cluster_stuff

  # SourceSpecific and subclasses (Content, Cluster) take up a lot of space so we want them in
  # their own per-Domain databases. This hook injects the appropriate database connection based
  # on the Domain gleaned from the request so subsequent access (during this request) 
  # will go to the appropriate database.
  def set_database_for_cluster_stuff
    
    config = ActiveRecord::Base.configurations[RAILS_ENV]
    # Get the database name from the Domain

Bill

# capture a yaml dump of an object like this:
#  capture { y request }
module Kernel
  def capture # pass a block to capture
     old_stdout = $stdout
     out = StringIO.new
     $stdout = out
     begin
        yield
     ensure

Bill

# the approved way to add methods to example groups in rspec
# from David Chelimsky's comment here http://www.benmabey.com/2008/06/08/writing-macros-in-rspec/
Spec::Runner.configure do |config|
  config.include(AssignMacro, :type => :controllers)
end

Bill

module Spec
  module Rails
    class ControllerContext < Rails::Context
        module ContextEvalInstanceMethods
          def setup_extra
            (class << @controller; self; end).class_eval do
              include ControllerInstanceMethods
            end
            @controller.integrate_views! if @integrate_views
            @controller.session = session

Bill

# BAD:
foo.bar    = 25
foo.biz    = 'Hello World'
foo.bazzle = 42

# GOOD:
foo.bar = 25
foo.biz = 'Hello World'
foo.bazzle = 42