plexus

(ns co.gaiwan.slack-widgets.ui.components
  (:require
   [clojure.string :as str]
   [clojure.walk :as walk]
   [reagent.core :as reagent]
   [reagent.ratom :as ratom]
   [lambdaisland.glogi :as log]
   [co.gaiwan.slack-widgets.ui.state :as state]
   [lambdaisland.ornament :as o])
  (:require-macros [co.gaiwan.slack-widgets.ui.macros :refer [for!]]))

plexus

(ns lambdaisland.trikl1.simple-object-system
  "Clojure's missing object system

  An 'object' for us is an (r)atom which contains the object state, and metadata on
  that atom which contains the methods, keyed by symbol.

  A 'klass' is a map of methods, which can then be used as metadata on an object
  to 'instantiate' an object.

  [[call]] handles calling a method, passing it `this` (the atom) and any

plexus

title	uri-slug	link	edit	created-on	updated-on
Logging in Clojure: Making Sense of the Mess	logging-in-clojure-making-sense-of-the-mess	https://lambdaisland.com/blog/2020-06-12-logging-in-clojure-making-sense-of-the-mess	https://lambdaisland.com/blog/2020-06-12-logging-in-clojure-making-sense-of-the-mess/edit	2020-06-12T10:10:45+00:00	2020-06-12T16:55:10+00:00

{:style "max-width: 900px"}

plexus

(ns the-clouncil)

(def posts
  (sort-by :date (read-string (slurp "posts.edn"))))


;; Original version: mapcat + reduce

;; <-- in | code | out -->

plexus

(ns the-clouncil)

(def posts
  (sort-by :date (read-string (slurp "posts.edn"))))

(->> posts
     (mapcat (fn [{:keys [categories] :as post}]
               (map (fn [category]
                      [category post])
                    categories)))

plexus

{:paths
 ["src" "resources"]

 :deps
 {org.clojure/clojure {:mvn/version "1.11.0"}
  protojure/protojure {:mvn/version "1.7.3"}}}

plexus

Component-likes

The Three Big Ones

• https://github.com/stuartsierra/component
• https://github.com/tolitius/mount
• https://github.com/weavejester/integrant

Integrant-like: Config+System as data

• https://github.com/donut-power/system Mixes code+config in same structure
• https://github.com/juxt/clip Mixes code+config in same structure

plexus

#!/usr/bin/env bb

;; lein2deps | jet --pretty > deps.edn

(require '[clojure.string :as str]
         '[clojure.edn :as edn])

(defn read-project-clj []
  (-> "project.clj"
      slurp

plexus

plexus

{"323474"
 {:session-id "323474",
  :session-data
  {:session-information
   {:description
    "NatWest Group (Formally RBS) is the largest business and commercial bank in the UK. It offers market-leading digital capabilities combined with expert human support for personal customers. And it provides banking services for around one in four businesses in the UK and Ireland. NatWest's goal is to become a 'relationship bank in a digital world\" NatWest last presented at DevOps Enterprise Summit 2019, the Hero’s Journey. The journey continues today as Agile and DevOps principles and practices are adopted to improve productivity, creativity and competitive advantage. “Organise the people, organise the work, speed up the work” is the mantra of improvement across the bank, inspired in 2018 by the pan-bank Ways of Working improvement programme. NatWest Group have embarked on an ambitious project, implementing DevOps principles, practices and capabilities across a multi-organisational landscape spanning over 7000 engin