From 5b151b92fd10fd8ffe9e4afa820077d9c724f68f Mon Sep 17 00:00:00 2001 From: larstvei Date: Sat, 23 Nov 2013 02:46:17 +0100 Subject: [PATCH] Generates words and inserts them. --- type.el | 41 ++++++++++++++++++ word-list.el | 119 +++++++++++++++++++++++++++++++++++++++++++++++++++ 2 files changed, 160 insertions(+) create mode 100644 word-list.el diff --git a/type.el b/type.el index e69de29..3af739a 100644 --- a/type.el +++ b/type.el @@ -0,0 +1,41 @@ +(load-library "word-list") + +(defvar type-timers nil) + +(defun init-game () + + ;; Shuffle the vector of words and turn it in to a list. + (setq words (mapcar 'eval (shuffle-vector words))) + (type-loop)) + +(defun type-goto-char (pos) + (if (< pos (point-max)) + (goto-char pos) + (goto-char (point-max)) + (insert (make-string (- pos (point-max)) ? )))) + +(defun spawn-word () + (when (string= "Type" (buffer-name (current-buffer))) + (let ((word (pop words))) + (type-goto-char (random (- fill-column (length word)))) + (delete-char (length word)) + (insert word)))) + +(defun type-loop () + (push (run-at-time "0 sec" 2 'spawn-word) type-timers)) + +(defun type () + (interactive) + (switch-to-buffer "Type") + (type-mode) + (init-game)) + +(defun type-cleanup () + (mapc 'cancel-timer type-timers)) + +(define-derived-mode type-mode nil "Type" + "A mode for playing Type." + (make-local-variable 'words) + (make-local-variable 'type-timers) + (overwrite-mode) + (add-hook 'kill-buffer-hook 'type-cleanup)) diff --git a/word-list.el b/word-list.el new file mode 100644 index 0000000..6fde0df --- /dev/null +++ b/word-list.el @@ -0,0 +1,119 @@ +(defvar words + (vector "able" "about" "above" "according" "account" "across" "act" "action" + "activities" "activity" "actually" "added" "addition" "additional" + "administration" "after" "again" "against" "age" "ago" "ahead" "aid" "air" + "all" "almost" "alone" "along" "already" "also" "although" "always" "am" + "america" "american" "among" "amount" "an" "analysis" "and" "another" + "answer" "anti" "any" "anyone" "anything" "apparently" "appear" "appeared" + "approach" "are" "area" "areas" "arms" "army" "around" "art" "as" "ask" + "asked" "association" "at" "attack" "attention" "audience" "available" + "average" "away" "back" "bad" "ball" "based" "basic" "basis" "be" + "beautiful" "became" "because" "become" "bed" "been" "before" "began" + "beginning" "behind" "being" "believe" "below" "best" "better" "between" + "beyond" "big" "bill" "black" "blood" "blue" "board" "body" "book" "born" + "both" "boy" "boys" "bring" "british" "brought" "brown" "building" "built" + "business" "but" "by" "call" "called" "came" "can" "cannot" "cant" "car" + "care" "carried" "cars" "case" "cases" "cause" "cent" "center" "central" + "century" "certain" "certainly" "chance" "change" "changes" "character" + "charge" "chief" "child" "children" "choice" "christian" "church" "city" + "class" "clear" "clearly" "close" "closed" "club" "co" "cold" "college" + "color" "come" "comes" "coming" "committee" "common" "communist" + "community" "company" "complete" "completely" "concerned" "conditions" + "congress" "consider" "considered" "continued" "control" "corner" "corps" + "cost" "costs" "could" "couldnt" "countries" "country" "county" "couple" + "course" "court" "covered" "cut" "daily" "dark" "data" "day" "days" "de" + "dead" "deal" "death" "decided" "decision" "deep" "defense" "degree" + "democratic" "department" "described" "design" "designed" "determined" + "developed" "development" "did" "didnt" "difference" "different" + "difficult" "direct" "direction" "directly" "distance" "district" "do" + "does" "doing" "done" "dont" "door" "doubt" "down" "dr" "drive" "due" + "during" "each" "earlier" "early" "earth" "east" "easy" "economic" + "education" "effect" "effective" "effects" "effort" "efforts" "eight" + "either" "elements" "else" "end" "england" "english" "enough" "entire" + "equipment" "especially" "established" "europe" "even" "evening" "ever" + "every" "everything" "evidence" "example" "except" "existence" "expect" + "expected" "experience" "extent" "eye" "eyes" "face" "fact" "faith" "fall" + "family" "far" "farm" "father" "fear" "federal" "feed" "feel" "feeling" + "feet" "felt" "few" "field" "figure" "figures" "filled" "final" "finally" + "find" "fine" "fire" "firm" "first" "fiscal" "five" "floor" "followed" + "following" "food" "foot" "for" "force" "forces" "foreign" "form" "former" + "forms" "forward" "found" "four" "free" "freedom" "french" "friend" + "friends" "from" "front" "full" "function" "further" "future" "game" + "gave" "general" "generally" "george" "get" "getting" "girl" "girls" + "give" "given" "gives" "glass" "go" "god" "going" "gone" "good" "got" + "government" "great" "greater" "green" "ground" "group" "groups" "growing" + "growth" "gun" "had" "hair" "half" "hall" "hand" "hands" "happened" "hard" + "has" "have" "having" "he" "head" "hear" "heard" "heart" "heavy" "held" + "hell" "help" "her" "here" "herself" "hes" "high" "higher" "him" "himself" + "his" "history" "hit" "hold" "home" "hope" "horse" "hospital" "hot" + "hotel" "hour" "hours" "house" "how" "however" "human" "hundred" "husband" + "idea" "ideas" "if" "ill" "im" "image" "immediately" "important" "in" + "include" "including" "income" "increase" "increased" "indeed" + "individual" "industrial" "industry" "influence" "information" "inside" + "instead" "interest" "international" "into" "involved" "is" "island" + "issue" "it" "its" "itself" "ive" "job" "john" "just" "justice" "keep" + "kennedy" "kept" "kind" "knew" "know" "knowledge" "known" "labor" "lack" + "land" "language" "large" "larger" "last" "late" "later" "latter" "law" + "lay" "lead" "leaders" "learned" "least" "leave" "led" "left" "length" + "less" "let" "letter" "letters" "level" "life" "light" "like" "likely" + "line" "lines" "list" "literature" "little" "live" "lived" "living" + "local" "long" "longer" "look" "looked" "looking" "lost" "lot" "love" + "low" "lower" "made" "main" "major" "make" "makes" "making" "man" "manner" + "mans" "many" "march" "market" "married" "mass" "material" "matter" "may" + "maybe" "me" "mean" "meaning" "means" "medical" "meet" "meeting" "member" + "members" "men" "merely" "met" "method" "methods" "middle" "might" "miles" + "military" "million" "mind" "minutes" "miss" "modern" "moment" "money" + "month" "months" "moral" "more" "morning" "most" "mother" "move" "moved" + "movement" "moving" "mr" "mrs" "much" "music" "must" "my" "myself" "name" + "nation" "national" "nations" "natural" "nature" "near" "nearly" + "necessary" "need" "needed" "needs" "negro" "neither" "never" "new" "next" + "night" "no" "non" "nor" "normal" "north" "not" "note" "nothing" "now" + "nuclear" "number" "numbers" "obtained" "obviously" "of" "off" "office" + "often" "oh" "old" "on" "once" "one" "ones" "only" "open" "opened" + "operation" "opportunity" "or" "order" "organization" "other" "others" + "our" "out" "outside" "over" "own" "paid" "paper" "part" "particular" + "particularly" "parts" "party" "passed" "past" "pattern" "pay" "peace" + "people" "per" "performance" "perhaps" "period" "person" "personal" + "persons" "physical" "picture" "piece" "place" "placed" "plan" "plane" + "planning" "plans" "plant" "play" "point" "points" "police" "policy" + "political" "pool" "poor" "population" "position" "possible" "post" + "power" "present" "president" "press" "pressure" "price" "principle" + "private" "probably" "problem" "problems" "process" "production" + "products" "program" "programs" "progress" "property" "provide" "provided" + "public" "purpose" "put" "quality" "question" "questions" "quite" "race" + "radio" "ran" "range" "rate" "rather" "reached" "reaction" "read" + "reading" "ready" "real" "really" "reason" "received" "recent" "recently" + "record" "red" "religion" "religious" "remember" "report" "reported" + "required" "research" "respect" "responsibility" "rest" "result" "results" + "return" "returned" "right" "river" "road" "room" "run" "running" "said" + "sales" "same" "sat" "saw" "say" "saying" "says" "school" "schools" + "science" "season" "second" "secretary" "section" "see" "seem" "seemed" + "seems" "seen" "self" "sense" "sent" "series" "serious" "served" "service" + "services" "set" "seven" "several" "shall" "she" "short" "shot" "should" + "show" "showed" "shown" "side" "similar" "simple" "simply" "since" + "single" "situation" "six" "size" "slowly" "small" "so" "social" "society" + "some" "something" "sometimes" "somewhat" "son" "soon" "sort" "sound" + "south" "southern" "soviet" "space" "speak" "special" "specific" "spirit" + "spring" "square" "st" "staff" "stage" "stand" "standard" "start" + "started" "state" "statements" "states" "stay" "step" "steps" "still" + "stock" "stood" "stop" "stopped" "story" "straight" "street" "strength" + "strong" "student" "students" "study" "subject" "such" "suddenly" "summer" + "sun" "support" "sure" "surface" "system" "systems" "table" "take" "taken" + "taking" "talk" "tax" "technical" "tell" "temperature" "ten" "term" + "terms" "test" "th" "than" "that" "thats" "the" "their" "them" + "themselves" "then" "theory" "there" "therefore" "theres" "these" "they" + "thing" "things" "think" "thinking" "third" "thirty" "this" "those" + "thought" "three" "through" "through" "throughout" "thus" "time" "times" + "to" "today" "together" "told" "too" "took" "top" "total" "toward" "town" + "trade" "training" "treatment" "trial" "tried" "trouble" "true" "truth" + "try" "trying" "turn" "turned" "twenty" "two" "type" "types" "under" + "understand" "understanding" "union" "united" "university" "until" "up" + "upon" "us" "use" "used" "using" "usually" "value" "values" "various" + "very" "view" "voice" "volume" "waiting" "walked" "wall" "want" "wanted" + "war" "was" "washington" "wasnt" "water" "way" "ways" "we" "week" "weeks" + "well" "went" "were" "west" "western" "what" "whatever" "when" "where" + "whether" "which" "while" "white" "who" "whole" "whom" "whose" "why" + "wide" "wife" "will" "william" "window" "wish" "with" "within" "without" + "woman" "women" "word" "words" "work" "worked" "working" "works" "world" + "would" "wouldnt" "writing" "written" "wrong" "wrote" "year" "years" "yes" + "yet" "york" "you" "young" "your" "youre"))