eraserhd

(ns twou.centralpark.server.database.migrations
  (:require
   [meander.epsilon :as m]
   [medley.core :as medley]
   [twou.centralpark.edn :as edn]))

(defn program-of-study-primary-brand [eav-map]
  (reduce #(%2 %1)
          eav-map
          (m/search eav-map

eraserhd

twou.centralpark.server.database.migrations-test=> (m/find prod-snapshot {?p {:program/uuid (m/pred some?)} & (m/not {_ {:program-of-study/program (?p)}})} ?p)
17592186059725
twou.centralpark.server.database.migrations-test=> (m/search prod-snapshot {?p {:program/uuid (m/pred some?)} & (m/not {_ {:program-of-study/program (?p)}})} ?p)
()

eraserhd

09fd1f4d386ec19c843319502132b1464f6e5856 rc: set extra_word_chars on buffer, not window
aa6a7e544df566edc1b0222fb9c08c0f66c0d0e6 Fix some clang warnings
1d9a9bc3087f45989fec3d36c800a6a23472d6c6 Remove unneeded NCursesUI::Window::mark_dirty and redraws
7f141e83ce260d299ff08f724a0cdc598dc73b95 Additional NCursesUI code cleanups
2eccbbbe6fe2589f9133b7e5702832e21b26e8cf Avoid unnecessary allocations in NCursesUI::Window::draw calls
f855deaf8b50e6ac6aa030d32769ac175ab75a2d Refactor NCursesUI::Window to reduce the exposed methods
9c2d2ad694635ca53ae4e197ac3a3a1116557525 Do not set O_NONBLOCK on stdin
de3ff78b22a37f628f5208668f9aed02a7de6606 Restore stdin status flags on suspend and quit
f066014d33c02460c4dcabaa03385b345a1bf934 Merge remote-tracking branch 'laelath/suppress-init-list-lifetime-warning'
9bd1e0fb43af65f2f5a33c4a1ca2512281850f55 Merge remote-tracking branch 'Delapouite/patch-1'

eraserhd

I think the idea I was working with is that a large number of primitives are just
register copies, so I was thinking about introducing <a-">, which is a kind of 
"register copy" operator, making a bunch of primitives redundant.

"&    = current selections

y     = <a-">."
R     = <a-">".
<a-R> = <a-">"<a-_>.
z     = <a-">^&

eraserhd

Selection Cases

parinfer-rust

Background

Parinfer-rust is a tool that perserves an invariant in Lisp code between indentation and brackets.

eraserhd

(defn weird []
  (m/search {"oneOf" [{"type" "string" "format" "date-time"}
                      {"type" "string" "format" "uri"}]}
    {"format" "date-time"}       'Instant
    {"format" "uri"}             'Uri
    {"type" "string"}            'String
    {"oneOf" [(m/cata !ts) ...]} !ts))
; => ([Instant Uri] [Instant String] [String Uri] [String String])

eraserhd

(defn- sort-name
  [t]
  (s/join \space (flatten [t])))

(defn- sorted [head-symbol members]
  (let [sorted-members (sort-by sort-name members)]
    (if (= members sorted-members)
      (r/fail members)
      (cons head-symbol sorted-members))))

eraserhd

  700 +--------------------------------------------------------------------+
      |           +          +           +          +          +         A |
  650 |-+                            "sorted-averages.txt" using 2   AA A+-|
      |                                                                    |
  600 |-+                                                                +-|
      |                                                                    |
      |                                                                    |
  550 |-+                                                                +-|
      |                                                                    |
  500 |-+                                                                +-|

eraserhd

runs real user  sys   pr# branch
3 365.14 600.63 10.29 218 2uinc/allow-updates-to-eo-relationships
3 353.98 552.45 9.89 231 2uinc/fix-only-one-eav
3 331.51 470.14 9.24 198 2uinc/program-of-study-track
3 323.18 471.39 9.25 203 2uinc/graphql-tests
3 290.52 430.08 9.05 183 2uinc/remove-university-uuid
3 283.91 423.85 8.79 178 2uinc/delete-university-no-reply-email
3 345.39 500.08 9.83 225 2uinc/169023060-patch-panes-routing
3 319.67 496.84 8.69 196 2uinc/brand-model-test
3 318.10 457.44 8.65 208 2uinc/convert-automated-tasks-to-use-brand

eraserhd

#!/usr/bin/env bash

declare -a commits=(
    003e219e0ab11d3209145603bd86fc75f1557d83
    00df15fafb1d2ec0be1cc2752872a363db7804d9
    01f27bd0d70b7e81bfdf30ff35c5356913bd07ff
    09fdd28413dd89645e66ecb9140d54e7fe15bb6a
    119fc1825b9241c9548c5d9f3036d042975eaaae
    199828ed9a93d642e355c7ee7151a10baf387d19
    1ba88a84e04905f0485ade8f4b268a3d3fb615ae