chrismurrph

Runbooks: instructions for your coding agent

Paste this into your agent's instructions file (CLAUDE.md for Claude Code, AGENTS.md for most others), then fill in the Target machines list at the end. It assumes cmdq is installed on this machine (see the README).

When to write a runbook

When a task produces shell commands that I must run rather than you (anything needing my password, sudo, a console, or my eyes on a long upgrade), do not paste

chrismurrph

Keybase proof

I hereby claim:

• I am chrismurrph on github.
• I am cjmurphy (https://keybase.io/cjmurphy) on keybase.
• I have a public key ASAKxuvtgC_nSO_Q9zXv4JzCe2pTIMq7Ege5DQ4lczb1Wgo

To claim this, I am signing this object:

chrismurrph

(defn identities-and-stages-hof
  "The data doesn't have a player-year so we create it now. Also the games need to be
   unique on their own, as they are stored in their own table.
   Also the simplification of the lines for stage :improved is handled here.
   The work for :nyt stage can be done always as :naive doesn't use those keys."
  [desired-labels {:keys [stage]}]
  (fn [idx {:keys [pname year games max] :as player-year}]
    (let [player-year-id (make-player-year-id pname year)
          label {:pname pname :year year}
          make-simple (fn [games n]

chrismurrph

(let [st @state
      desired-player-idents (->> (get st :player-year/by-id)
                                 vals
                                 (filter :ui/desired?)
                                 (map :player-year-id)
                                 (mapv (fn [id] [:player-year/by-id id])))]
  (swap! state assoc-in [:desired-labels/by-id :singleton :items] desired-player-idents))

chrismurrph

(ns general.replace
  (:require [clojure.string :as s]
            [clojure.java.io :as io]
            [clojure.pprint :as pp]))

(defn indexes-of [in-str find-str]
  (loop [idx 0
         indexes []]
    (let [found-idx (s/index-of in-str find-str idx)]
      (if found-idx

chrismurrph

;;-> In fh ns
;;
;; Can be used in a mutation to assoc-in new options
;;
(defn input-options [[table-name id :as ident] field]
  [table-name id ::f/form :elements/by-name field :input/options])
(defn input-default-value [[table-name id :as ident] field]
  [table-name id ::f/form :elements/by-name field :input/default-value])

(defn options-generator [data->list-fn item->option-fn list->selected-fn]

chrismurrph

(ns training.component-factory
  (:require-macros [re-com.core :refer [handler-fn]])
  (:require [training.utils :as u]
            [re-com.util    :refer [deref-or-value px]]))

;;
;; A row is a {}. Each key of this {} will have a control as its value. Then also have an :id which we are going to
;; make the row number. The control when created will look like []. See my-checkbox below which is the actual control.
;;
(defn gen-table-row [create-control-fn column-keys row]

chrismurrph

<html>
    <head>
        <script src="out/goog/base.js" type="text/javascript"></script>
        <script src="hello_world.js" type="text/javascript"></script>
        <script type="text/javascript">goog.require("hello_world.core");</script>
    </head>
    <body>
    </body>
    <script type="text/javascript">hello_world.core.run()</script>
</html>

chrismurrph

(ns training.views
    (:require [re-frame.core :as re-frame]
              [re-com.core :as re-com]
              [reforms.reagent :include-macros true :as f]
              [training.utils :as u]))

(def h-box                      re-com/h-box)
(def v-box                      re-com/v-box)
(def box                        re-com/box)
(def gap                        re-com/gap)