This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(use 'plumbing.core) | |
(require '[plumbing.graph :as graph]) | |
(use '[restbot core utils]) | |
(defn- make-task-graph | |
[specs serverSym authSym] | |
(reduce merge | |
(for [[specKey specParam specBody] (partition 3 specs)] | |
{specKey (cons 'fnk | |
(list (conj specParam serverSym authSym) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(defprotocol ApiBuilder | |
(-req [this apiOpts])) | |
(defn- replace-with-param | |
[basestr param] | |
(clojure.string/replace basestr | |
(re-pattern (str "\\{" (name (first param)) "\\}")) | |
(str (second param)))) | |
(defn apply-api-params |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
;;;;;;;;;;;;;;;;;;;; | |
;; MAPPINGs | |
;;;;;;;;;;;;;;;;;;;; | |
(def mapping-log | |
{:log {:_ttl {:enabled true | |
:default "2h"} | |
:_timestamp {:enabled true | |
:path "log_time"} | |
:properties {:log_time {:type "date"} |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
;; gorilla-repl.fileformat = 1 | |
;; ** | |
;;; # Clojure for Brave and True | |
;;; | |
;;; ## CH5 Exercises | |
;; ** | |
;; @@ | |
(ns braveclojure-ch5) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(defmacro collect-all [collections] | |
(into [] (concat ['ALL] (for [c collections] | |
(if (and (sequential? c) (keyword? (first c))) | |
`(~'collect-one ~@c) | |
`(~'collect-one ~c)))))) | |
(defn process-har [requests & {:keys [view-with selection] :or {view-with count selection [ALL]}}] | |
(->> (select-one [:log :entries] requests) | |
(select [ALL (selected? :request :url sz-api?)]) | |
(transform [ALL :request :url] sz-api!) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
;; gorilla-repl.fileformat = 1 | |
;; ** | |
;;; # Play Data | |
;; ** | |
;; @@ | |
(ns play-data | |
(:require [gorilla-plot.core :as plot] | |
[gorilla-repl.table :refer [table-view]] |