shaunagm

Compiled by Shauna Gordon-McKeon, with contributions from Amanda Jaret, Marley Pulido-Vargas and Lauren Burke.

Quick Intro

The National Labor Relations Act gives most tech workers the right to organize and join a union. It also protects your right to take other collective actions to protect you and your coworkers on the job. Here are a few examples of actions that may be protected by the National Labor Relations Act:

• Talking to your coworkers about your salary, benefits, or other working conditions.
• Writing a petition on behalf of a group of coworkers to your boss to ask for a raise.
• Publicizing a workplace issue that you and your coworkers share on social media.
• Organizing a union with your coworkers and asking the company to recognize and bargain with the union.

shaunagm

#lang at-exp racket

(require (for-syntax racket/match))
(require (for-syntax racket/syntax))

(define-namespace-anchor anc)
(define ns (namespace-anchor->namespace anc))

; with adjusted macros from text madlibs

shaunagm

#lang at-exp racket

(require (for-syntax racket/match))

(define prompt-responses
  ; Hash's list must be of cons of key value pairs such as (cons adjective null)
  (make-hash (list )))

(define (ask prompt)
  (display prompt)

shaunagm

#lang at-exp racket

(require (for-syntax racket/match))

(define prompt-responses
  ; Hash's list must be of cons of key value pairs such as (cons adjective null)
  (make-hash (list )))

(define (ask prompt)
  (display prompt)

shaunagm

#lang at-exp racket

(define tree-prompts
  (make-hash (list (cons `treetype (list "Type of thing: " null)) (cons `location (list "Location: " null)))))

(define tree-template (list "There once was a big " `treetype " tree in the " `treetype " old forest of " `location "."))

(define (run-prompt sym prompts)
  (define prompt-info (hash-ref prompts sym null))
  (if (null? (second prompt-info))

shaunagm

#lang racket

(define cat-story (list
    "There once was a cat named ~a who lived in ~a"
    "Name: "
    "Location: "))

(define pirate-story (list
    "A pirate named ~a roamed the high seas of ~a in ~a ship. It was a ~a day when suddenly there came ~a from a distance."
    "Name: "

shaunagm

#lang at-exp racket

(define-namespace-anchor a)
(define ns (namespace-anchor->namespace a))

(define tree-story (list
    `@~a{There once was a big @treetype tree in the old forest of @location.
         It was tended by a @job named @name. @name was nearly @count years
         old and she was very tired of tending her @treetype tree."}
    (list `treetype "Type of thing: ")

shaunagm

On the Triangle Shirtwaist Factory

From Philip Dray's There is Power In a Union:

"Better prepared to “save themselves,” at least in the short term, were the two owners of the Triangle factory, Isaac Harris and Max Blanck. Their trial in December 1912 on charges of first- and second-degree manslaughter took place amid still-volatile public sentiment: that the two villains be found guilty and harshly punished was a prospect awaited eagerly by virtually all New Yorkers. Families of the dead were especially riled that Harris and Blanck, in the eighteen months since the fire, had been allowed to carry on with their shirtwaist business, using a building on University Place not far from the Asch Building; they had hardly missed a production deadline.

The most damning charge against the partners was that they had locked the stairway doors in violation of existing safety codes, trapping the victims. Their defense attorney,

shaunagm

Many thanks to the people who helped me write this talk, especially Marley Pulido-Vargas of Coworker and Lauren Burke of the Labor Network for Sustainability.

Resources

Unions

• Communication Workers for America (CWA) (C.O.D.E. Initiative)
• United Steel Workers (USW) (Federation of Tech Workers program)
• Office and Professional Employees International Union (OPEIU)

shaunagm

Multiline comments use """ """

To break up a statement, use \ at the end of each line except the last.

Anything wrapped in [] {} or () can be broken anywhere.