pragdave

// If you paste code from Visual Studio Code into another app on
// OS X, it will apply the current theme's background.
//
// This trivial program takes no parameters. It simply reads
// HTML from the clipboard, and removes the background-color
// attribute. Because I'm pasting into Keynote, it also
// bumps the font size.
//
// in VSC:
//     select some code and copy (Cmd C)

pragdave

  "editor.tokenColorCustomizations": {
    "[Material Theme Darker High Contrast]": {
      "textMateRules": [
        {
            "scope": [
                "comment.unused.elixir",
            ],
            "settings": {
                "foreground": "#b5c3a3",
            }

pragdave

Elixir Assignment #3

Over the next few weeks we'll be implementing the game of mastermind.

A quick recap. The game is played with a bag containing lots of colored pegs. Typically there are 6 distinct colors, and there will be multiple pegs of each.

One player sets a challenge by picking four pegs and placing them in sequence somewhere the other player can't see. The other player takes

pragdave

defmodule DownloadCodeword do

  import String, only: [from_char_list!: 1]

  def start(_,_) do
    { :ok, self }
  end

  def main([yyyy, mm, dd]) do

pragdave

defp command("r", args, state) do
  args = if String.starts_with?(args, ":") && String.contains?(args, " ") do
    String.replace(args, " ", ", ", global: false)
  else
    args
  end

  args = if String.contains?(args, ",") && !String.starts_with?(args, "{") do
    "{ #{args} }"
  else

pragdave

;; Mode line setup
(setq-default
 mode-line-format
 '(; Position, including warning for 80 columns
   (:propertize "%4l" face mode-line-position-face)
   ":"
   (:eval (propertize "%c" 'face
                      (if (>= (current-column) 80)
                          'mode-line-80col-face
                        'mode-line-position-face)))

pragdave

generate_match_vars([{Key, Value, Expr} | T], ClauseVars, Left, Right) ->
  case maps:find(Key, ClauseVars) of
    {ok, Value} ->
      generate_match_vars(T, ClauseVars, Left, Right);
    {ok, Clause} ->
      generate_match_vars(T, ClauseVars,
        [{var, 0, element(1, Value)} | Left],
        [{var, 0, element(1, Clause)} | Right]);
    error ->
      generate_match_vars(T, ClauseVars,

pragdave

#START:solver1
defmodule FibSolver do

  def fib(scheduler) do
    send scheduler, { :ready, self }
    receive do
      { :fib, n, client } ->
        send client, { :answer, n, fib_calc(n), self }
        fib(scheduler)
      { :shutdown } ->

pragdave

# -*- coding: utf-8 -*- #

module Rouge
  module Lexers
    class EmbeddedJSX < RegexLexer
      tag :xml_inside_jsx

      def self.analyze_text(text)
        0
      end

pragdave

provision_list:

  ############################################
  "staging-apps+search":
  ############################################
    env:    staging
    count:  1

    roles:
      master: yes   # has all the background services (cron)