Henrik Eneroth eneroth

## rama_electric.clj
;; ## General helpers
(ns app.helpers.rama
  (:require
    [missionary.core :as m]
    [taoensso.timbre :as timbre])
  (:import
    [com.rpl.rama Depot PState Path ProxyState$Callback RamaModule]
    [com.rpl.rama.test InProcessCluster LaunchConfig]
    [hyperfiddle.electric Failure Pending]))

## manipulating_nested_structures.clj
(ns example
  (:require [com.rpl.specter :as sp]))


;; Find paths
;; #######################################
(defn find-when
  "Given a nested data structure and a predicate, return a vector of
   paths to all locations where the predicate is true."
  [data pred]

## args-parse.clj
(require '[clojure.string :as string])

(def test-str "name\\=name=value\\=value;name=value;name=value\\;;name=value;")

(defn key-part [s]
  (second (re-find #"(.*[^\\])=" s)))

(defn value-part [s]
  (second (re-find #"[^\\]=(.*)" s)))

## poc_util_app.clj
(ns poc.util.app
  (:require [com.fulcrologic.fulcro.algorithms.denormalize :as denormalize]))


(defn add-query-watch
  "Takes at minimum an app, a registry-key, a query, a starting-entity, and a function.
   Optionally takes an an options map as last argument.

   Attaches a watch to the app state, using registry-key as the key for the watch.
   When the queried state changes, triggers function f.

## cf_dsl.clj
;; DSL
;; ############################
(ns example.lib.cloudformation
  (:require [camel-snake-kebab.core :refer [->PascalCase]]))

(defmacro defresource
  "Defines a resource. The CF name of the resource will be the same
   as the name given to it, except Pascal-cased, since that seems
   to be the style favoured by CF. Optionally, a literal name
   in the form of a keyword can be given as second argument to

## flip_attrs.clj
(defn flip-attrs [attributes]
  (let [one (clojure.string/split attributes #"&")
        two (map #(clojure.string/split % #"=") one)
        three (map reverse two)
        four (map #(interpose "=" %) three)
        five (interpose "&" four)
        six (flatten five)]
    (apply str six)))

(flip-attrs "tool=whip&clothing=hat&sidearm=pistol")

## deep_merge.clj
(defn- deep-merge
  "Takes a collection of maps and deep merges them. I.e...

   [{:a {:b 1}}
    {:a {:c 2}}]

  ... will be merged into ...

  [{:a {:b 1
        :c 2}}]

## is-balanced.clj
(def brackets {\{ \}
               \[ \]
               \( \)})


(defn checker [stack char]
  (if (some #{char} (keys brackets)) ;; Is the character an opening bracket?
    (conj stack char)
    (let [closing-char (get brackets (last stack))]
      (if (= closing-char char)

## p_apply.clj
(defn- process-one
  "Takes a channel and a function. Expects vectors of [index arguments]
   on the channel. Takes from the channel, and applies the function
   to the arguments part of the vector. Returns an output-channel,
   on which the index and the result of the function application is returned."
  [in-ch function]
  (let [out-ch (chan)]
    (go
      (loop [item (<! in-ch)]
        (if item

## strip_nil.clj
(defn safe-seq
  [thing]
  (if (seqable? thing)
    (seq thing)
    true))


(defprotocol StripNil
  (strip-nil [data]
             "Recursively strips values that are nil from a datastructure.
	;; ## General helpers
	(ns app.helpers.rama
	(:require
	[missionary.core :as m]
	[taoensso.timbre :as timbre])
	(:import
	[com.rpl.rama Depot PState Path ProxyState$Callback RamaModule]
	[com.rpl.rama.test InProcessCluster LaunchConfig]
	[hyperfiddle.electric Failure Pending]))
	(ns example
	(:require [com.rpl.specter :as sp]))


	;; Find paths
	;; #######################################
	(defn find-when
	"Given a nested data structure and a predicate, return a vector of
	paths to all locations where the predicate is true."
	[data pred]
	(require '[clojure.string :as string])

	(def test-str "name\\=name=value\\=value;name=value;name=value\\;;name=value;")

	(defn key-part [s]
	(second (re-find #"(.*[^\\])=" s)))

	(defn value-part [s]
	(second (re-find #"[^\\]=(.*)" s)))
	(ns poc.util.app
	(:require [com.fulcrologic.fulcro.algorithms.denormalize :as denormalize]))


	(defn add-query-watch
	"Takes at minimum an app, a registry-key, a query, a starting-entity, and a function.
	Optionally takes an an options map as last argument.

	Attaches a watch to the app state, using registry-key as the key for the watch.
	When the queried state changes, triggers function f.
	;; DSL
	;; ############################
	(ns example.lib.cloudformation
	(:require [camel-snake-kebab.core :refer [->PascalCase]]))

	(defmacro defresource
	"Defines a resource. The CF name of the resource will be the same
	as the name given to it, except Pascal-cased, since that seems
	to be the style favoured by CF. Optionally, a literal name
	in the form of a keyword can be given as second argument to
	(defn flip-attrs [attributes]
	(let [one (clojure.string/split attributes #"&")
	two (map #(clojure.string/split % #"=") one)
	three (map reverse two)
	four (map #(interpose "=" %) three)
	five (interpose "&" four)
	six (flatten five)]
	(apply str six)))

	(flip-attrs "tool=whip&clothing=hat&sidearm=pistol")
	(defn- deep-merge
	"Takes a collection of maps and deep merges them. I.e...

	[{:a {:b 1}}
	{:a {:c 2}}]

	... will be merged into ...

	[{:a {:b 1
	:c 2}}]
	(def brackets {\{ \}
	\[ \]
	\( \)})


	(defn checker [stack char]
	(if (some #{char} (keys brackets)) ;; Is the character an opening bracket?
	(conj stack char)
	(let [closing-char (get brackets (last stack))]
	(if (= closing-char char)
	(defn- process-one
	"Takes a channel and a function. Expects vectors of [index arguments]
	on the channel. Takes from the channel, and applies the function
	to the arguments part of the vector. Returns an output-channel,
	on which the index and the result of the function application is returned."
	[in-ch function]
	(let [out-ch (chan)]
	(go
	(loop [item (<! in-ch)]
	(if item
	(defn safe-seq
	[thing]
	(if (seqable? thing)
	(seq thing)
	true))


	(defprotocol StripNil
	(strip-nil [data]
	"Recursively strips values that are nil from a datastructure.