splork-mode/splork.el

1321 lines
51 KiB
EmacsLisp

;; splork.el
;; Copyright (C) 2024 William R. Moore <william@nerderium.com>
;; This program is free software: you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with this program. If not, see <https://www.gnu.org/licenses/>.
(defun sentence-case (sentence)
"Changes the sentence to a capital case letter at the beginning."
(let ((trimmed-sentence (string-trim sentence)))
(format "%s%s" (upcase (substring trimmed-sentence 0 1)) (substring trimmed-sentence 1))
)
)
(defun find-pos (words pos excludeProper)
"Find the Part of Speech from the array"
(setq new-words (delq nil (mapcar (lambda (x) (and (equal pos (nth 1 x)) x)) words)))
(if (equal 'true excludeProper)
(setq new-words (delq nil (mapcar (lambda (x) (and (not (equal "PROPER" (nth 2 x))) x)) new-words)))
)
(nth 0 (nth (random (length new-words)) new-words))
)
(defun find-place-noun (words)
"Generates a word from the list of place nouns"
(setq new-words (delq nil (mapcar (lambda (x) (and (equal "NOUN" (nth 1 x)) x)) words)))
(setq new-words (delq nil (mapcar (lambda (x) (and (equal "PLACE" (nth 2 x)) x)) new-words)))
(nth 0 (nth (random (length new-words)) new-words))
)
(defun find-noun-with-article (words)
"Generates any articles necessary for a noun"
(setq new-words (delq nil (mapcar (lambda (x) (and (equal "NOUN" (nth 1 x)) x)) words)))
(setq word (nth (random (length new-words)) new-words))
(if (string-match-p "PROPER" (nth 2 word))
(nth 0 word)
(if (string-match-p "PLACE" (nth 2 word))
(nth 0 word)
(format "the %s" (nth 0 word))
)
)
)
(setq words '(
("Chinese Communist Party" "NOUN" "")
("CCP" "NOUN" "")
("was fustigated by" "VERB" "")
("fustigates" "VERB" "")
("Dragon Dice" "NOUN" "")
("incogruence" "NOUN" "")
("incogruent" "ADJECTIVE" "")
("incogruent" "ADVERB" "")
("chilli" "NOUN" "")
("snoo-snoo" "VERB" "ACTION")
("Big Lie" "NOUN" "")
("Nerderium" "NOUN" "PLACE")
("Dungeons & Dragons" "NOUN" "")
("your" "PRONOUN" "")
("their" "PRONOUN" "")
("our" "PRONOUN" "")
("my" "PRONOUN" "")
("his" "PRONOUN" "")
("was split in twain by" "PREPOSITION" "")
("is split in twain by" "PREPOSITION" "")
("was divided by" "PREPOSITION" "")
("is divided by" "PREPOSITION" "")
("was cut up by" "PREPOSITION" "")
("is cut up by" "PREPOSITION" "")
("is entombed beside" "PREPOSITION" "")
("was entombed beside" "PREPOSITION" "")
("was entombed by" "PREPOSITION" "")
("is being entombed by" "PREPOSITION" "")
("performs surgical alterations on" "PREPOSITION" "")
("was boggled by" "PREPOSITION" "")
("is boggled by" "PREPOSITION" "")
("was assassinated by" "PREPOSITION" "")
("is assassinated by" "PREPOSITION" "")
("played with" "PREPOSITION" "")
("plays with" "PREPOSITION" "")
("withdrew from" "PREPOSITION" "")
("walked to" "PREPOSITION" "")
("traveled to" "PREPOSITION" "")
("took refuge in" "PREPOSITION" "")
("took no notice of" "PREPOSITION" "")
("took control of" "PREPOSITION" "")
("took blame for" "PREPOSITION" "")
("stole from" "PREPOSITION" "")
("watched for" "PREPOSITION" "")
("shot henchmen of" "PREPOSITION" "")
("returned to" "PREPOSITION" "")
("retreated from" "PREPOSITION" "")
("reported to" "PREPOSITION" "")
("originated from" "PREPOSITION" "")
("moved to" "PREPOSITION" "")
("made fun of" "PREPOSITION" "")
("listened to" "PREPOSITION" "")
("was threatened by" "PREPOSITION" "")
("was the patron of" "PREPOSITION" "")
("was removed by" "PREPOSITION" "")
("was joined by" "PREPOSITION" "")
("was infiltrated by" "PREPOSITION" "")
("was imitated by" "PREPOSITION" "")
("was found by" "PREPOSITION" "")
("will be deprived of" "PREPOSITION" "")
("will be deprived by" "PREPOSITION" "")
("is deprived of" "PREPOSITION" "")
("is deprived by" "PREPOSITION" "")
("was deprived of" "PREPOSITION" "")
("was deprived by" "PREPOSITION" "")
("was fondled by" "PREPOSITION" "")
("was financed by" "PREPOSITION" "")
("was distressed by" "PREPOSITION" "")
("was destroyed by" "PREPOSITION" "")
("was contaminated by" "PREPOSITION" "")
("was concerned about" "PREPOSITION" "")
("was commanded by" "PREPOSITION" "")
("was attacked by" "PREPOSITION" "")
("went to" "PREPOSITION" "")
("has gone for" "PREPOSITION" "")
("flew toward" "PREPOSITION" "")
("flew to" "PREPOSITION" "")
("fled to" "PREPOSITION" "")
("fled from" "PREPOSITION" "")
("evaded agents of" "PREPOSITION" "")
("eloped with" "PREPOSITION" "")
("has dealt with" "PREPOSITION" "")
("avoided servants of" "PREPOSITION" "")
("assumed responsibility for" "PREPOSITION" "")
("withdraws from" "PREPOSITION" "")
("will go to" "PREPOSITION" "")
("was seen in" "PREPOSITION" "")
("was eliminated by" "PREPOSITION" "")
("walks to" "PREPOSITION" "")
("travels to" "PREPOSITION" "")
("takes refuge in" "PREPOSITION" "")
("takes no notice of" "PREPOSITION" "")
("takes control of" "PREPOSITION" "")
("takes blame for" "PREPOSITION" "")
("steals from" "PREPOSITION" "")
("should watch for" "PREPOSITION" "")
("shoots henchmen of" "PREPOSITION" "")
("returns to" "PREPOSITION" "")
("retreats from" "PREPOSITION" "")
("reports to" "PREPOSITION" "")
("originates from" "PREPOSITION" "")
("moves to" "PREPOSITION" "")
("may not visit" "PREPOSITION" "")
("makes fun of" "PREPOSITION" "")
("listens to" "PREPOSITION" "")
("is threatened by" "PREPOSITION" "")
("is the patron of" "PREPOSITION" "")
("is removed by" "PREPOSITION" "")
("is like a god to" "PREPOSITION" "")
("is joined by" "PREPOSITION" "")
("is infiltrated by" "PREPOSITION" "")
("is imitated by" "PREPOSITION" "")
("is found by" "PREPOSITION" "")
("is fondled by" "PREPOSITION" "")
("is financed by" "PREPOSITION" "")
("is distressed by" "PREPOSITION" "")
("is destroyed by" "PREPOSITION" "")
("is contaminated by" "PREPOSITION" "")
("is concerned about" "PREPOSITION" "")
("is commanded by" "PREPOSITION" "")
("is attacked by" "PREPOSITION" "")
("hides in" "PREPOSITION" "")
("has left with" "PREPOSITION" "")
("has finished in" "PREPOSITION" "")
("goes to" "PREPOSITION" "")
("goes for" "PREPOSITION" "")
("flies toward" "PREPOSITION" "")
("flies to" "PREPOSITION" "")
("flees to" "PREPOSITION" "")
("flees from" "PREPOSITION" "")
("evades agents of" "PREPOSITION" "")
("elopes with" "PREPOSITION" "")
("deals with" "PREPOSITION" "")
("avoids servants of" "PREPOSITION" "")
("assumes responsibility for" "PREPOSITION" "")
("the End Zone" "NOUN" "PLACE")
("Springfield" "NOUN" "PLACE")
("the United States of America" "NOUN" "PLACE")
("Germany" "NOUN" "PLACE")
("Eldaraenth" "NOUN" "PLACE")
("Dorkish Treehouse" "NOUN" "PLACE")
("Taberna Faecvm" "NOUN" "PLACE")
("Alabama" "NOUN" "PLACE")
("Washington, D.C." "NOUN" "PLACE")
("the World Trade Center" "NOUN" "PLACE")
("the Pentagon" "NOUN" "PLACE")
("New York" "NOUN" "PLACE")
("Middle Earth" "NOUN" "PLACE")
("the Shire" "NOUN" "PLACE")
("Smallville" "NOUN" "PLACE")
("beautiful downtown Burbank" "NOUN" "PLACE")
("the Death Star" "NOUN" "PLACE")
("Yrth" "NOUN" "PLACE")
("your place" "NOUN" "PLACE")
("you-know-where" "NOUN" "PLACE")
("Wall Street" "NOUN" "PLACE")
("Uranus" "NOUN" "PLACE")
("Topeka" "NOUN" "PLACE")
("Toledo" "NOUN" "PLACE")
("the White House" "NOUN" "PLACE")
("the Watergate Hotel" "NOUN" "PLACE")
("the Vatican" "NOUN" "PLACE")
("the U.S. Attorney's Office" "NOUN" "PLACE")
("toxic waste dump" "NOUN" "PLACE")
("tavern" "NOUN" "PLACE")
("the Super Bowl" "NOUN" "PLACE")
("the South Pole" "NOUN" "PLACE")
("service station" "NOUN" "PLACE")
("same place as before" "NOUN" "PLACE")
("river" "NOUN" "PLACE")
("the Phoenix Project" "NOUN" "PLACE")
("outback" "NOUN" "PLACE")
("ocean" "NOUN" "PLACE")
("the North Pole" "NOUN" "PLACE")
("the Last National Bank" "NOUN" "PLACE")
("Hotel California" "NOUN" "PLACE")
("home of a trusted friend" "NOUN" "PLACE")
("hackers' convention" "NOUN" "PLACE")
("the Empire State Building" "NOUN" "PLACE")
("editorial department" "NOUN" "PLACE")
("dumpster" "NOUN" "PLACE")
("doghouse" "NOUN" "PLACE")
("dentists' convention" "NOUN" "PLACE")
("corner bar" "NOUN" "PLACE")
("the Bat Cave" "NOUN" "PLACE")
("brewery" "NOUN" "PLACE")
("best place possible" "NOUN" "PLACE")
("bathroom" "NOUN" "PLACE")
("Bastille" "NOUN" "PLACE")
("back forty" "NOUN" "PLACE")
("Tel Aviv" "NOUN" "PLACE")
("Switzerland" "NOUN" "PLACE")
("SJ Games" "NOUN" "PLACE")
("Sixth Street" "NOUN" "PLACE")
("Siberia" "NOUN" "PLACE")
("San Francisco" "NOUN" "PLACE")
("Poland" "NOUN" "PLACE")
("Peking" "NOUN" "PLACE")
("my back yard" "NOUN" "PLACE")
("Munich" "NOUN" "PLACE")
("Moscow" "NOUN" "PLACE")
("Mordor" "NOUN" "PLACE")
("Mission Control" "NOUN" "PLACE")
("Middle-earth" "NOUN" "PLACE")
("Mars" "NOUN" "PLACE")
("Main Street" "NOUN" "PLACE")
("Los Angeles" "NOUN" "PLACE")
("London" "NOUN" "PLACE")
("Lithuania" "NOUN" "PLACE")
("left field" "NOUN" "PLACE")
("Las Vegas" "NOUN" "PLACE")
("Lake Geneva" "NOUN" "PLACE")
("Katmandu" "NOUN" "PLACE")
("Kabul" "NOUN" "PLACE")
("Joe's Bar and Grill" "NOUN" "PLACE")
("Israel" "NOUN" "PLACE")
("Iraq" "NOUN" "PLACE")
("Iran" "NOUN" "PLACE")
("Hong Kong" "NOUN" "PLACE")
("Hollywood" "NOUN" "PLACE")
("Hell" "NOUN" "PLACE")
("headquarters" "NOUN" "PLACE")
("Gotham City" "NOUN" "PLACE")
("Gasoline Alley" "NOUN" "PLACE")
("Endsville" "NOUN" "PLACE")
("Dime Box" "NOUN" "PLACE")
("Death Valley" "NOUN" "PLACE")
("Dallas" "NOUN" "PLACE")
("Cyberworld" "NOUN" "PLACE")
("Chicago" "NOUN" "PLACE")
("Cheyenne Mountain" "NOUN" "PLACE")
("Callahan's Place" "NOUN" "PLACE")
("Buckingham Palace" "NOUN" "PLACE")
("Berlin" "NOUN" "PLACE")
("Berkeley" "NOUN" "PLACE")
("Baghdad" "NOUN" "PLACE")
("Austin" "NOUN" "PLACE")
("Atlantis" "NOUN" "PLACE")
("Alpha Complex" "NOUN" "PLACE")
("Alpha Centauri" "NOUN" "PLACE")
("Afghanistan" "NOUN" "PLACE")
("(not available at your clearance)" "NOUN" "PLACE")
("Blue Screen of Death" "NOUN" "")
("zero-day exploit" "NOUN" "")
("venereal disease" "NOUN" "")
("lightsaber" "NOUN" "")
("goblin" "NOUN" "")
("iPhone" "NOUN" "")
("Android phone" "NOUN" "")
("iPad" "NOUN" "")
("iPod" "NOUN" "")
("frood" "NOUN" "")
("propeller" "NOUN" "")
("nanite" "NOUN" "")
("laptop" "NOUN" "")
("iMac" "NOUN" "")
("dog" "NOUN" "")
("Segway" "NOUN" "")
("MP3" "NOUN" "")
("Handheld" "NOUN" "")
("Deep One" "NOUN" "")
("DVD" "NOUN" "")
("CD-ROM" "NOUN" "")
("angel" "NOUN" "")
("tuba" "NOUN" "")
("piccolo" "NOUN" "")
("additive" "NOUN" "")
("terminal" "NOUN" "")
("toad" "NOUN" "")
("amphibian" "NOUN" "")
("icon" "NOUN" "")
("ukelele" "NOUN" "")
("INWO deck" "NOUN" "")
("Zulu" "NOUN" "")
("yak" "NOUN" "")
("whip" "NOUN" "")
("wheel" "NOUN" "")
("wand" "NOUN" "")
("volleyball" "NOUN" "")
("virus" "NOUN" "")
("van" "NOUN" "")
("Uzi" "NOUN" "")
("user's manual" "NOUN" "")
("typewriter" "NOUN" "")
("trumpet" "NOUN" "")
("trolley" "NOUN" "")
("tree" "NOUN" "")
("treasure chest" "NOUN" "")
("transmitter" "NOUN" "")
("traitor" "NOUN" "")
("tornado" "NOUN" "")
("toast" "NOUN" "")
("textbook" "NOUN" "")
("termite" "NOUN" "")
("tennis ball" "NOUN" "")
("television" "NOUN" "")
("telegram" "NOUN" "")
("teddy bear" "NOUN" "")
("sword" "NOUN" "")
("surfboard" "NOUN" "")
("submarine" "NOUN" "")
("spider" "NOUN" "")
("spark plug" "NOUN" "")
("skillet" "NOUN" "")
("ski lift" "NOUN" "")
("skateboard" "NOUN" "")
("shoggoth" "NOUN" "")
("shark" "NOUN" "")
("sex toy" "NOUN" "")
("sculpture" "NOUN" "")
("scuba mask" "NOUN" "")
("screwdriver" "NOUN" "")
("scraper" "NOUN" "")
("scenario" "NOUN" "")
("saxophone" "NOUN" "")
("saber" "NOUN" "")
("rom chip" "NOUN" "")
("ring" "NOUN" "")
("rescuer" "NOUN" "")
("razor" "NOUN" "")
("railroad" "NOUN" "")
("radio" "NOUN" "")
("racquetball" "NOUN" "")
("pyramid" "NOUN" "")
("puppy" "NOUN" "")
("pterodactyl" "NOUN" "")
("ptarmigan" "NOUN" "")
("power drill" "NOUN" "")
("pop tart" "NOUN" "")
("playtester" "NOUN" "")
("plant" "NOUN" "")
("pit viper" "NOUN" "")
("pistol" "NOUN" "")
("piranha" "NOUN" "")
("photocopy" "NOUN" "")
("phone" "NOUN" "")
("phased plasma rifle" "NOUN" "")
("petunia" "NOUN" "")
("penguin" "NOUN" "")
("pendant" "NOUN" "")
("password" "NOUN" "")
("password file" "NOUN" "")
("passport" "NOUN" "")
("paper clip" "NOUN" "")
("paintbrush" "NOUN" "")
("paddle" "NOUN" "")
("ostrich" "NOUN" "")
("olive" "NOUN" "")
("octopus" "NOUN" "")
("oar" "NOUN" "")
("mouse" "NOUN" "")
("orc" "NOUN" "")
("motorcycle" "NOUN" "")
("mosquito" "NOUN" "")
("message" "NOUN" "")
("mason jar" "NOUN" "")
("manuscript" "NOUN" "")
("mallet" "NOUN" "")
("machine gun" "NOUN" "")
("light bulb" "NOUN" "")
("lamp" "NOUN" "")
("kumquat" "NOUN" "")
("krugerrand" "NOUN" "")
("Klingon" "NOUN" "")
("kitten" "NOUN" "")
("jukebox" "NOUN" "")
("jet ski" "NOUN" "")
("jet" "NOUN" "")
("jellybean" "NOUN" "")
("insect" "NOUN" "")
("infant" "NOUN" "")
("implement" "NOUN" "")
("iguana" "NOUN" "")
("ID card" "NOUN" "")
("ice cream" "NOUN" "")
("hypodermic" "NOUN" "")
("hot tub" "NOUN" "")
("hemisphere" "NOUN" "")
("helmet" "NOUN" "")
("hat-rack" "NOUN" "")
("hat" "NOUN" "")
("hammer" "NOUN" "")
("gyroslugger" "NOUN" "")
("grimoire" "NOUN" "")
("grasshopper" "NOUN" "")
("goldfish" "NOUN" "")
("geographer" "NOUN" "")
("frog" "NOUN" "")
("frame" "NOUN" "")
("football" "NOUN" "")
("fly" "NOUN" "")
("floppy disk" "NOUN" "")
("flag" "NOUN" "")
("file" "NOUN" "")
("eye" "NOUN" "")
("engine" "NOUN" "")
("elephant" "NOUN" "")
("duck" "NOUN" "")
("drug" "NOUN" "")
("dragon" "NOUN" "")
("document" "NOUN" "")
("disk drive" "NOUN" "")
("dinosaur" "NOUN" "")
("dictator" "NOUN" "")
("dice" "NOUN" "")
("dictaphone" "NOUN" "")
("diamond" "NOUN" "")
("devil" "NOUN" "")
("demon" "NOUN" "")
("cyberdeck" "NOUN" "")
("cummerbund" "NOUN" "")
("crystal" "NOUN" "")
("cow" "NOUN" "")
("couch" "NOUN" "")
("cork" "NOUN" "")
("computer" "NOUN" "")
("compact disc" "NOUN" "")
("coke can" "NOUN" "")
("code wheel" "NOUN" "")
("cockroach" "NOUN" "")
("club" "NOUN" "")
("chicken" "NOUN" "")
("chair" "NOUN" "")
("chainsaw" "NOUN" "")
("cauliflower" "NOUN" "")
("cat" "NOUN" "")
("cash" "NOUN" "")
("carnation" "NOUN" "")
("capsule" "NOUN" "")
("cannibal" "NOUN" "")
("cactus" "NOUN" "")
("cable" "NOUN" "")
("button" "NOUN" "")
("business card" "NOUN" "")
("bowling ball" "NOUN" "")
("book" "NOUN" "")
("boat" "NOUN" "")
("blueprint" "NOUN" "")
("beer bottle" "NOUN" "")
("BBS" "NOUN" "")
("baby" "NOUN" "")
("ash tray" "NOUN" "")
("amulet" "NOUN" "")
("amethyst" "NOUN" "")
("(censored)" "NOUN" "")
("911 file" "NOUN" "")
("Milhouse Vanhouten" "NOUN" "PROPER")
("Maggie Simpson" "NOUN" "PROPER")
("Marge Simpson" "NOUN" "PROPER")
("Lisa Simpson" "NOUN" "PROPER")
("Homer Simpson" "NOUN" "PROPER")
("Bart Simpson" "NOUN" "PROPER")
("Magic: the Gathering" "NOUN" "PROPER")
("the Number of the Beast" "NOUN" "PROPER")
("Hector Yzmin" "NOUN" "PROPER")
("William Moore" "NOUN" "PROPER")
("Sean Connery" "NOUN" "PROPER")
("Number Two" "NOUN" "PROPER")
("Aminedjahd" "NOUN" "PROPER")
("Al-Zarqarwi" "NOUN" "PROPER")
("Bilbo Baggins" "NOUN" "PROPER")
("Frodo Baggins" "NOUN" "PROPER")
("the One Ring" "NOUN" "PROPER")
("the Heart of Gold" "NOUN" "PROPER")
("Arthur Dent" "NOUN" "PROPER")
("Ford Prefect" "NOUN" "PROPER")
("O.J. Simpson" "NOUN" "PROPER")
("Tuos Mater" "NOUN" "PROPER")
("Tom Clancy" "NOUN" "PROPER")
("Timothy Leary" "NOUN" "PROPER")
("the Pentagon" "NOUN" "PROPER")
("the network guy" "NOUN" "PROPER")
("Tom Petty" "NOUN" "PROPER")
("Spaceman Spiff" "NOUN" "PROPER")
("John Gray, Ph.D" "NOUN" "PROPER")
("President Clinton" "NOUN" "PROPER")
("Zorro" "NOUN" "PROPER")
("Paul" "NOUN" "PROPER")
("Nancy Reagan" "NOUN" "PROPER")
("Biff" "NOUN" "PROPER")
("Beevis" "NOUN" "PROPER")
("Butt-head" "NOUN" "PROPER")
("Moses" "NOUN" "PROPER")
("Mohammed" "NOUN" "PROPER")
("Margaret Thatcher" "NOUN" "PROPER")
("Manuel Noriega" "NOUN" "PROPER")
("George Bush, Jr." "NOUN" "PROPER")
("Madonna" "NOUN" "PROPER")
("Mayor McCheese" "NOUN" "PROPER")
("Jesus" "NOUN" "PROPER")
("Mayor Dinkens" "NOUN" "PROPER")
("Big Dick" "NOUN" "PROPER")
("Idi Amin" "NOUN" "PROPER")
("Hillary" "NOUN" "PROPER")
("Ho Chi Minh" "NOUN" "PROPER")
("Hobbes" "NOUN" "PROPER")
("Gorbachev" "NOUN" "PROPER")
("George" "NOUN" "PROPER")
("Gary Shandling" "NOUN" "PROPER")
("Flamin' Jane" "NOUN" "PROPER")
("Ferdinand Marcos" "NOUN" "PROPER")
("Michael Jackson" "NOUN" "PROPER")
("Edgar Rice Burroughs" "NOUN" "PROPER")
("Eddie Murphy" "NOUN" "PROPER")
("Dr. Destructo" "NOUN" "PROPER")
("Dan Quayle" "NOUN" "PROPER")
("Dogbert" "NOUN" "PROPER")
("Ratbert" "NOUN" "PROPER")
("Chow Yun Fat" "NOUN" "PROPER")
("Calvin" "NOUN" "PROPER")
("a shadowy figure" "NOUN" "PROPER")
("William Kida" "NOUN" "PROPER")
("Alfred E. Neumann" "NOUN" "PROPER")
("Agent Orange" "NOUN" "PROPER")
("The Illigitimus" "NOUN" "PROPER")
("the Powerpuff Girls" "NOUN" "PROPER")
("the Dixie Chicks" "NOUN" "PROPER")
("the Crocodile Hunter" "NOUN" "PROPER")
("the Bachelorette" "NOUN" "PROPER")
("the Bachelor" "NOUN" "PROPER")
("the American Idol" "NOUN" "PROPER")
("Tony Blair" "NOUN" "PROPER")
("T'Pol" "NOUN" "PROPER")
("Sponge Bob Square Pants" "NOUN" "PROPER")
("Saddam Hussein" "NOUN" "PROPER")
("President Bush" "NOUN" "PROPER")
("President Bartlett" "NOUN" "PROPER")
("Peter Jackson" "NOUN" "PROPER")
("Osama bin-Laden" "NOUN" "PROPER")
("Neo" "NOUN" "PROPER")
("LeBron James" "NOUN" "PROPER")
("Karl Rove" "NOUN" "PROPER")
("Jon Stewart" "NOUN" "PROPER")
("John Ashcroft" "NOUN" "PROPER")
("Joe Montana" "NOUN" "PROPER")
("Jay Leno" "NOUN" "PROPER")
("Jacques Chirac" "NOUN" "PROPER")
("Hillary Clinton" "NOUN" "PROPER")
("Harvey Birdman" "NOUN" "PROPER")
("Harry Potter" "NOUN" "PROPER")
("Dick Cheney" "NOUN" "PROPER")
("Condoleeza Rice" "NOUN" "PROPER")
("Captain Archer" "NOUN" "PROPER")
("Buffy" "NOUN" "PROPER")
("Bud Selig" "NOUN" "PROPER")
("Britney Spears" "NOUN" "PROPER")
("Bill O'Reilly" "NOUN" "PROPER")
("Bill Clinton" "NOUN" "PROPER")
("Barry Bonds" "NOUN" "PROPER")
("Arnold Schwarzenegger" "NOUN" "PROPER")
("Angel" "NOUN" "PROPER")
("Al-Qaeda" "NOUN" "PROPER")
("Archangel Gabriel" "NOUN" "PROPER")
("Asmodeus" "NOUN" "PROPER")
("the Archdean" "NOUN" "PROPER")
("Tristero" "NOUN" "PROPER")
("Jimmy Hoffa" "NOUN" "PROPER")
("Donovan's Brain" "NOUN" "PROPER")
("Zonker" "NOUN" "PROPER")
("Zeus" "NOUN" "PROPER")
("Zaphod Beeblebrox" "NOUN" "PROPER")
("your sister" "NOUN" "PROPER")
("your mother" "NOUN" "PROPER")
("your father" "NOUN" "PROPER")
("your evil twin" "NOUN" "PROPER")
("your brother" "NOUN" "PROPER")
("yo' mama" "NOUN" "PROPER")
("Winston Churchill" "NOUN" "PROPER")
("Weird Al" "NOUN" "PROPER")
("Uncle Duke" "NOUN" "PROPER")
("Tweety-Bird" "NOUN" "PROPER")
("Tiny Tim" "NOUN" "PROPER")
("Thor" "NOUN" "PROPER")
("the vice squad" "NOUN" "PROPER")
("the Secret Service" "NOUN" "PROPER")
("the Secret Master" "NOUN" "PROPER")
("the ninja" "NOUN" "PROPER")
("the Legion of Doom" "NOUN" "PROPER")
("the Joker" "NOUN" "PROPER")
("The Illuminati" "NOUN" "PROPER")
("the Hand" "NOUN" "PROPER")
("Sir Paul" "NOUN" "PROPER")
("the Discordian" "NOUN" "PROPER")
("the Computer" "NOUN" "PROPER")
("the A.C.L.U." "NOUN" "PROPER")
("Superman" "NOUN" "PROPER")
("Steven Spielberg" "NOUN" "PROPER")
("Steve" "NOUN" "PROPER")
("Squad 23" "NOUN" "PROPER")
("Spiderman" "NOUN" "PROPER")
("Snoopy" "NOUN" "PROPER")
("Sir Lancelot" "NOUN" "PROPER")
("Scrooge" "NOUN" "PROPER")
("Ronald Reagan" "NOUN" "PROPER")
("Roger Rabbit" "NOUN" "PROPER")
("Rocky" "NOUN" "PROPER")
("Robert Heinlein" "NOUN" "PROPER")
("Robby the Robot" "NOUN" "PROPER")
("Ringo" "NOUN" "PROPER")
("Rambo" "NOUN" "PROPER")
("Princess Leia" "NOUN" "PROPER")
("Perry Mason" "NOUN" "PROPER")
("Paul Newman" "NOUN" "PROPER")
("Oliver North" "NOUN" "PROPER")
("Obi-Wan Kenobi" "NOUN" "PROPER")
("Norman Bates" "NOUN" "PROPER")
("Nixon" "NOUN" "PROPER")
("Nelson Mandela" "NOUN" "PROPER")
("Mr. Spock" "NOUN" "PROPER")
("Mr. Science" "NOUN" "PROPER")
("Mr. Ed" "NOUN" "PROPER")
("Mr. Bill" "NOUN" "PROPER")
("Mick Jagger" "NOUN" "PROPER")
("Michael Jordan" "NOUN" "PROPER")
("Luke Skywalker" "NOUN" "PROPER")
("Lex Luthor" "NOUN" "PROPER")
("King Tut" "NOUN" "PROPER")
("King Arthur" "NOUN" "PROPER")
("Joseph Stalin" "NOUN" "PROPER")
("Johnny-B-Gud" "NOUN" "PROPER")
("Jimmy Carter" "NOUN" "PROPER")
("Jack the Ripper" "NOUN" "PROPER")
("Isaac Asimov" "NOUN" "PROPER")
("Internal Security" "NOUN" "PROPER")
("Hunter S. Thompson" "NOUN" "PROPER")
("Hulk Hogan" "NOUN" "PROPER")
("Hitler" "NOUN" "PROPER")
("Han Solo" "NOUN" "PROPER")
("Hamlet" "NOUN" "PROPER")
("Gumby" "NOUN" "PROPER")
("Grandmother" "NOUN" "PROPER")
("Gandhi" "NOUN" "PROPER")
("Gerald Ford" "NOUN" "PROPER")
("George Lucas" "NOUN" "PROPER")
("Flaming Carrot" "NOUN" "PROPER")
("Fearless Leader" "NOUN" "PROPER")
("Evil Stevie" "NOUN" "PROPER")
("Erik Bloodaxe" "NOUN" "PROPER")
("Elvis" "NOUN" "PROPER")
("Dracula" "NOUN" "PROPER")
("Uncle Bob" "NOUN" "PROPER")
("Dave Letterman" "NOUN" "PROPER")
("Darth Vader" "NOUN" "PROPER")
("Dilbert" "NOUN" "PROPER")
("Cthulhu" "NOUN" "PROPER")
("Charlie Brown" "NOUN" "PROPER")
("Captain Nemo" "NOUN" "PROPER")
("Captain Kirk" "NOUN" "PROPER")
("Captain America" "NOUN" "PROPER")
("Captain Ahab" "NOUN" "PROPER")
("Bullwinkle" "NOUN" "PROPER")
("Buck Rogers" "NOUN" "PROPER")
("Batman" "NOUN" "PROPER")
("Aladdin" "NOUN" "PROPER")
("Ali Baba" "NOUN" "PROPER")
("Albert Einstein" "NOUN" "PROPER")
("Bill Gates" "NOUN" "PROPER")
("Abraham Lincoln" "NOUN" "PROPER")
("Abdul Al-Azrad" "NOUN" "PROPER")
("a dead rock star" "NOUN" "PROPER")
("a long-lost uncle" "NOUN" "PROPER")
("a dead relative" "NOUN" "PROPER")
("007" "NOUN" "PROPER")
("frood" "MODIFIER" "")
("too" "MODIFIER" "")
("slightly" "MODIFIER" "")
("secretly" "MODIFIER" "")
("probably" "MODIFIER" "")
("not" "MODIFIER" "")
("much too" "MODIFIER" "")
("far too" "MODIFIER" "")
("disgustingly" "MODIFIER" "")
("definitely" "MODIFIER" "")
("barely" "MODIFIER" "")
("apparently" "MODIFIER" "")
("In accordance with prophecy," "INTERJECTION" "")
("For your information," "INTERJECTION" "")
("Amazing!" "INTERJECTION" "")
("Tally ho!" "INTERJECTION" "")
("Praise the Lord!" "INTERJECTION" "")
("Huzzah!" "INTERJECTION" "")
("Engage!" "INTERJECTION" "")
("Behold!" "INTERJECTION" "")
("Hark!" "INTERJECTION" "")
("Calling all cars!" "INTERJECTION" "")
("All hands on deck!" "INTERJECTION" "")
("We suspect that" "INTERJECTION" "")
("Warning!" "INTERJECTION" "")
("Usual sources confirm that" "INTERJECTION" "")
("Urgent!" "INTERJECTION" "")
("Unsubstantiated rumor:" "INTERJECTION" "")
("The surgeon general warns that" "INTERJECTION" "")
("Terminate operation if" "INTERJECTION" "")
("Step up operation." "INTERJECTION" "")
("Please investigate the report that" "INTERJECTION" "")
("Pentagon officials deny that" "INTERJECTION" "")
("Our reporters claim that" "INTERJECTION" "")
("Our foes believe that" "INTERJECTION" "")
("Oral Roberts dreamed that" "INTERJECTION" "")
("Observe and report if" "INTERJECTION" "")
("Most people surveyed believe that" "INTERJECTION" "")
("It is not true that" "INTERJECTION" "")
("It appears that" "INTERJECTION" "")
("It is imperative that" "INTERJECTION" "")
("Ignore this message." "INTERJECTION" "")
("Ignore previous message." "INTERJECTION" "")
("Follow plan x if" "INTERJECTION" "")
("Fnord!" "INTERJECTION" "")
("Enemy agents now know that" "INTERJECTION" "")
("Effective immediately," "INTERJECTION" "")
("E.F. Hutton says" "INTERJECTION" "")
("Determine whether" "INTERJECTION" "")
("Delete all evidence that" "INTERJECTION" "")
("Contrary to popular belief," "INTERJECTION" "")
("Confirmed report:" "INTERJECTION" "")
("Alert all stations!" "INTERJECTION" "")
("Advance code sequence." "INTERJECTION" "")
("Abort previous sequence." "INTERJECTION" "")
("Abort immediately unless" "INTERJECTION" "")
("4 out of 5 dentists recommend that" "INTERJECTION" "")
("whip" "INFINITIVE" "")
("transform" "INFINITIVE" "")
("torture" "INFINITIVE" "")
("torment" "INFINITIVE" "")
("swim" "INFINITIVE" "")
("swat" "INFINITIVE" "")
("swallow" "INFINITIVE" "")
("subvert" "INFINITIVE" "")
("stroke" "INFINITIVE" "")
("squeezes" "INFINITIVE" "")
("spank" "INFINITIVE" "")
("serve" "INFINITIVE" "")
("save" "INFINITIVE" "")
("resurrect" "INFINITIVE" "")
("replace" "INFINITIVE" "")
("remove" "INFINITIVE" "")
("reinforce" "INFINITIVE" "")
("rebuild" "INFINITIVE" "")
("pitche" "INFINITIVE" "")
("pervert" "INFINITIVE" "")
("persuade" "INFINITIVE" "")
("molest" "INFINITIVE" "")
("massage" "INFINITIVE" "")
("love" "INFINITIVE" "")
("leave" "INFINITIVE" "")
("kiss" "INFINITIVE" "")
("kill" "INFINITIVE" "")
("join" "INFINITIVE" "")
("inherits" "INFINITIVE" "")
("infiltrate" "INFINITIVE" "")
("imitate" "INFINITIVE" "")
("help" "INFINITIVE" "")
("hassle" "INFINITIVE" "")
("harass" "INFINITIVE" "")
("handle" "INFINITIVE" "")
("fondle" "INFINITIVE" "")
("enter" "INFINITIVE" "")
("eat" "INFINITIVE" "")
("dissolve" "INFINITIVE" "")
("disfigure" "INFINITIVE" "")
("destroy" "INFINITIVE" "")
("deliver" "INFINITIVE" "")
("convert" "INFINITIVE" "")
("control" "INFINITIVE" "")
("contaminate" "INFINITIVE" "")
("command" "INFINITIVE" "")
("catch" "INFINITIVE" "")
("bury" "INFINITIVE" "")
("bother" "INFINITIVE" "")
("boggle" "INFINITIVE" "")
("berate" "INFINITIVE" "")
("avoid" "INFINITIVE" "")
("amuse" "INFINITIVE" "")
("amorphous" "ADJECTIVE" "")
("retarded" "ADJECTIVE" "")
("foamy" "ADJECTIVE" "")
("English" "ADJECTIVE" "")
("American" "ADJECTIVE" "")
("German" "ADJECTIVE" "")
("upgraded" "ADJECTIVE" "")
("rugose" "ADJECTIVE" "")
("mythical" "ADJECTIVE" "")
("horrific" "ADJECTIVE" "")
("frightening" "ADJECTIVE" "")
("enhanced" "ADJECTIVE" "")
("corruscating" "ADJECTIVE" "")
("broken" "ADJECTIVE" "")
("beautiful" "ADJECTIVE" "")
("Martian" "ADJECTIVE" "")
("French" "ADJECTIVE" "")
("perfectly ordinary" "ADJECTIVE" "")
("plump" "ADJECTIVE" "")
("musical" "ADJECTIVE" "")
("lumpy" "ADJECTIVE" "")
("frenzied" "ADJECTIVE" "")
("dyslexic" "ADJECTIVE" "")
("dancing" "ADJECTIVE" "")
("cosmic" "ADJECTIVE" "")
("conquering" "ADJECTIVE" "")
("anorexic" "ADJECTIVE" "")
("agnostic" "ADJECTIVE" "")
("diseased" "ADJECTIVE" "")
("flaming" "ADJECTIVE" "")
("polluted" "ADJECTIVE" "")
("drugged" "ADJECTIVE" "")
("tax-free" "ADJECTIVE" "")
("illegal" "ADJECTIVE" "")
("young" "ADJECTIVE" "")
("worthless" "ADJECTIVE" "")
("wimpy" "ADJECTIVE" "")
("white" "ADJECTIVE" "")
("well-dressed" "ADJECTIVE" "")
("wealthy" "ADJECTIVE" "")
("vivid" "ADJECTIVE" "")
("virginal" "ADJECTIVE" "")
("vibrant" "ADJECTIVE" "")
("vampiric" "ADJECTIVE" "")
("vacillating" "ADJECTIVE" "")
("vacant" "ADJECTIVE" "")
("user-serviceable" "ADJECTIVE" "")
("user-friendly" "ADJECTIVE" "")
("untouchable" "ADJECTIVE" "")
("ugly" "ADJECTIVE" "")
("tubular" "ADJECTIVE" "")
("treacherous" "ADJECTIVE" "")
("transient" "ADJECTIVE" "")
("tiny" "ADJECTIVE" "")
("tin-plated" "ADJECTIVE" "")
("throbbing" "ADJECTIVE" "")
("temporary" "ADJECTIVE" "")
("sweet" "ADJECTIVE" "")
("stoned" "ADJECTIVE" "")
("squamous" "ADJECTIVE" "")
("splendid" "ADJECTIVE" "")
("solid gold" "ADJECTIVE" "")
("smoking" "ADJECTIVE" "")
("sluggish" "ADJECTIVE" "")
("slippery" "ADJECTIVE" "")
("slimy" "ADJECTIVE" "")
("slime-dripping" "ADJECTIVE" "")
("slick" "ADJECTIVE" "")
("sleeping" "ADJECTIVE" "")
("slack-producing" "ADJECTIVE" "")
("skeptical" "ADJECTIVE" "")
("sizzling" "ADJECTIVE" "")
("sinister" "ADJECTIVE" "")
("sin-ridden" "ADJECTIVE" "")
("silver" "ADJECTIVE" "")
("Siamese" "ADJECTIVE" "")
("shifty" "ADJECTIVE" "")
("shiftless" "ADJECTIVE" "")
("sexy" "ADJECTIVE" "")
("screaming" "ADJECTIVE" "")
("Russian" "ADJECTIVE" "")
("rubber" "ADJECTIVE" "")
("reincarnated" "ADJECTIVE" "")
("reformed" "ADJECTIVE" "")
("red" "ADJECTIVE" "")
("radioactive" "ADJECTIVE" "")
("radical" "ADJECTIVE" "")
("putrid" "ADJECTIVE" "")
("purple" "ADJECTIVE" "")
("pulsating" "ADJECTIVE" "")
("puce" "ADJECTIVE" "")
("protozoan" "ADJECTIVE" "")
("pregnant" "ADJECTIVE" "")
("poor" "ADJECTIVE" "")
("pickled" "ADJECTIVE" "")
("persuasive" "ADJECTIVE" "")
("orbital" "ADJECTIVE" "")
("opulent" "ADJECTIVE" "")
("opaque" "ADJECTIVE" "")
("oozing" "ADJECTIVE" "")
("oily" "ADJECTIVE" "")
("nuclear" "ADJECTIVE" "")
("naughty" "ADJECTIVE" "")
("mutant" "ADJECTIVE" "")
("most influential" "ADJECTIVE" "")
("morbid" "ADJECTIVE" "")
("medium-sized" "ADJECTIVE" "")
("mauve" "ADJECTIVE" "")
("maniacal" "ADJECTIVE" "")
("lovely" "ADJECTIVE" "")
("lizard-like" "ADJECTIVE" "")
("lecherous" "ADJECTIVE" "")
("Japanese" "ADJECTIVE" "")
("insane" "ADJECTIVE" "")
("innocent" "ADJECTIVE" "")
("indictable" "ADJECTIVE" "")
("impulsive" "ADJECTIVE" "")
("impudent" "ADJECTIVE" "")
("impotent" "ADJECTIVE" "")
("imitation" "ADJECTIVE" "")
("illuminated" "ADJECTIVE" "")
("humming" "ADJECTIVE" "")
("hot" "ADJECTIVE" "")
("highest" "ADJECTIVE" "")
("high" "ADJECTIVE" "")
("green" "ADJECTIVE" "")
("greedy" "ADJECTIVE" "")
("granular" "ADJECTIVE" "")
("gold" "ADJECTIVE" "")
("gnarly" "ADJECTIVE" "")
("glowing" "ADJECTIVE" "")
("gelatinous" "ADJECTIVE" "")
("furry" "ADJECTIVE" "")
("frozen" "ADJECTIVE" "")
("ferocious" "ADJECTIVE" "")
("extraterrestrial" "ADJECTIVE" "")
("explosive" "ADJECTIVE" "")
("expensive" "ADJECTIVE" "")
("enormous" "ADJECTIVE" "")
("embossed" "ADJECTIVE" "")
("electric" "ADJECTIVE" "")
("easy" "ADJECTIVE" "")
("drunken" "ADJECTIVE" "")
("drug-crazed" "ADJECTIVE" "")
("dizzy" "ADJECTIVE" "")
("disguised" "ADJECTIVE" "")
("dehydrated" "ADJECTIVE" "")
("deadly" "ADJECTIVE" "")
("dead" "ADJECTIVE" "")
("corrupt" "ADJECTIVE" "")
("communist" "ADJECTIVE" "")
("cold" "ADJECTIVE" "")
("Chinese" "ADJECTIVE" "")
("cautious" "ADJECTIVE" "")
("cat-like" "ADJECTIVE" "")
("cast iron" "ADJECTIVE" "")
("calculating" "ADJECTIVE" "")
("blue" "ADJECTIVE" "")
("black" "ADJECTIVE" "")
("best" "ADJECTIVE" "")
("besotted" "ADJECTIVE" "")
("balanced" "ADJECTIVE" "")
("awesome" "ADJECTIVE" "")
("avenging" "ADJECTIVE" "")
("atomic" "ADJECTIVE" "")
("arbitrary" "ADJECTIVE" "")
("ancient" "ADJECTIVE" "")
("amoeboid" "ADJECTIVE" "")
("amiable" "ADJECTIVE" "")
("alien" "ADJECTIVE" "")
("acrobatic" "ADJECTIVE" "")
("acceptable" "ADJECTIVE" "")
("orcish" "ADJECTIVE" "")
("elfen" "ADJECTIVE" "")
("dwarfen" "ADJECTIVE" "")
("23rd" "ADJECTIVE" "")
("chirps" "VERB" "ACTION")
("barks" "VERB" "ACTION")
("meows" "VERB" "ACTION")
("farts" "VERB" "ACTION")
("smells" "VERB" "ACTION")
("slices" "VERB" "ACTION")
("mows" "VERB" "ACTION")
("entombs" "VERB" "ACTION")
("divides" "VERB" "ACTION")
("conjugates" "VERB" "ACTION")
("conjures" "VERB" "ACTION")
("intimidates" "VERB" "ACTION")
("alters" "VERB" "ACTION")
("disobeys" "VERB" "ACTION")
("disguises" "VERB" "ACTION")
("pretends to be" "VERB" "ACTION")
("promotes" "VERB" "ACTION")
("assassinates" "VERB" "ACTION")
("betrays" "VERB" "ACTION")
("discovers" "VERB" "ACTION")
("allies with" "VERB" "ACTION")
("talks back to" "VERB" "ACTION")
("talks to" "VERB" "ACTION")
("abandons" "VERB" "ACTION")
("discards" "VERB" "ACTION")
("defenestrates" "VERB" "ACTION")
("titillates" "VERB" "ACTION")
("defects to" "VERB" "ACTION")
("manipulates" "VERB" "ACTION")
("outwits" "VERB" "ACTION")
("defeats" "VERB" "ACTION")
("beats" "VERB" "ACTION")
("audits" "VERB" "ACTION")
("tickles" "VERB" "ACTION")
("mates with" "VERB" "ACTION")
("stomps" "VERB" "ACTION")
("teases" "VERB" "ACTION")
("whips" "VERB" "ACTION")
("transforms" "VERB" "ACTION")
("tortures" "VERB" "ACTION")
("torments" "VERB" "ACTION")
("swats" "VERB" "ACTION")
("swallows" "VERB" "ACTION")
("subverts" "VERB" "ACTION")
("strokes" "VERB" "ACTION")
("squeezes" "VERB" "ACTION")
("spanks" "VERB" "ACTION")
("serves" "VERB" "ACTION")
("saves" "VERB" "ACTION")
("resurrects" "VERB" "ACTION")
("replaces" "VERB" "ACTION")
("removes" "VERB" "ACTION")
("reinforces" "VERB" "ACTION")
("rebuilds" "VERB" "ACTION")
("pitches" "VERB" "ACTION")
("perverts" "VERB" "ACTION")
("persuades" "VERB" "ACTION")
("molests" "VERB" "ACTION")
("massages" "VERB" "ACTION")
("leaves" "VERB" "ACTION")
("kills" "VERB" "ACTION")
("joins" "VERB" "ACTION")
("inherits" "VERB" "ACTION")
("infiltrates" "VERB" "ACTION")
("imitates" "VERB" "ACTION")
("helps" "VERB" "ACTION")
("hassles" "VERB" "ACTION")
("harasses" "VERB" "ACTION")
("handles" "VERB" "ACTION")
("fondles" "VERB" "ACTION")
("enters" "VERB" "ACTION")
("eats" "VERB" "ACTION")
("disfigures" "VERB" "ACTION")
("destroys" "VERB" "ACTION")
("delivers" "VERB" "ACTION")
("converts" "VERB" "ACTION")
("controls" "VERB" "ACTION")
("contaminates" "VERB" "ACTION")
("commands" "VERB" "ACTION")
("catches" "VERB" "ACTION")
("buries" "VERB" "ACTION")
("bothers" "VERB" "ACTION")
("boggles" "VERB" "ACTION")
("berates" "VERB" "ACTION")
("avoids" "VERB" "ACTION")
("amuses" "VERB" "ACTION")
("is ordered to" "VERB" "ABILITY")
("is afraid to" "VERB" "ABILITY")
("wants to" "VERB" "ABILITY")
("doesn't" "VERB" "ABILITY")
("will probably not" "VERB" "ABILITY")
("will probably" "VERB" "ABILITY")
("must not" "VERB" "ABILITY")
("must" "VERB" "ABILITY")
("should not" "VERB" "ABILITY")
("should" "VERB" "ABILITY")
("will not" "VERB" "ABILITY")
("will" "VERB" "ABILITY")
("cannot" "VERB" "ABILITY")
("can" "VERB" "ABILITY")
("Kansas City" "NOUN" "PLACE")
))
(defun splork ()
(let ((sentence-structures '()))
(setq sentence-structures (append sentence-structures '( (lambda ()
"The [random(<adjective>, .5)] <noun> [random(' in ' . <place>, .2)] is <adjective>"
(let ((sentence ""))
(if (<= 5 (random 10))
(setq sentence (format "%s" (find-pos words "ADJECTIVE" 'false)))
)
(setq sentence (format "%s %s" sentence (find-pos words "NOUN" 'true)))
(if (<= 2 (random 10))
(setq sentence (format "%s in %s" sentence (find-noun-with-article words)))
)
(setq sentence (format "%s is %s" sentence (find-pos words "ADJECTIVE" 'false)))
sentence
)))
)
)
(setq sentence-structures (append sentence-structures '( (lambda ()
"The [random(<adjective>, .5)] <noun> [random(' in ' . <place>, .2)] is not <adjective>"
(let ((sentence ""))
(if (<= 5 (random 10))
(setq sentence (format "%s" (find-pos words "ADJECTIVE" 'false)))
)
(setq sentence (format "%s %s" sentence (find-noun-with-article words)))
(if (<= 2 (random 10))
(setq sentence (format "%s in %s" sentence (find-noun-with-article words)))
)
(setq sentence (format "%s is not %s" sentence (find-pos words "ADJECTIVE" 'false)))
sentence
)))
)
)
(setq sentence-structures (append sentence-structures '( (lambda ()
"The <noun> from <place> will go to <place>"
(let ((sentence ""))
(setq sentence (format "%s %s from %s will go to %s" sentence (find-pos words "NOUN" 'false) (find-place-noun words) (find-place-noun words)))
sentence
)))
)
)
(setq sentence-structures (append sentence-structures '( (lambda ()
"<name> must take the <adjective> <noun> from <place>"
(let ((sentence (find-noun-with-article words)))
(setq sentence (format "%s must take the %s from %s" sentence (find-pos words "NOUN" 'true) (find-place-noun words)))
sentence
)))
)
)
(setq sentence-structures (append sentence-structures '( (lambda ()
"<place> is <adjective> and the <noun> is <adjective>"
(let ((sentence (find-place-noun words)))
(setq sentence (format "%s is %s and the %s is %s" sentence (find-pos words "ADJECTIVE" 'false) (find-pos words "NOUN" 'true) (find-pos words "ADJECTIVE" 'false)))
sentence
)))
)
)
(setq sentence-structures (append sentence-structures '( (lambda ()
"<name> <preposition> <place> for the <adjective> <noun>"
(let ((sentence (find-noun-with-article words)))
(setq sentence (format "%s %s %s for the %s %s" sentence (find-pos words "PREPOSITION" 'false) (find-place-noun words) (find-pos words "ADJECTIVE" 'false) (find-pos words "NOUN" 'true)))
sentence
)))
)
)
(setq sentence-structures (append sentence-structures '( (lambda ()
"The <noun> from the <place> <action> the <noun>"
(let ((sentence ""))
(setq sentence (format "%s %s from the %s %s the %s" sentence (find-pos words "NOUN" 'true) (find-place-noun words) (find-pos words "VERB" 'false) (find-pos words "NOUN" 'true)))
sentence
)))
)
)
(setq sentence-structures (append sentence-structures '( (lambda ()
"The [random(<adjective>, .5)] <noun> <action> the <adjective> <noun> [random('in ' . <place>, .2]"
(let ((sentence ""))
(if (<= 5 (random 10))
(setq sentence (format "%s %s" sentence (find-pos words "ADJECTIVE" 'false)))
)
(setq sentence (format "%s %s %s the %s %s" sentence (find-pos words "NOUN" 'true) (find-pos words "VERB" 'false) (find-pos words "ADJECTIVE" 'false) (find-pos words "NOUN" 'true)))
(if (<= 2 (random 10))
(setq sentence (format "%s in %s" sentence (find-place-noun words)))
)
sentence
)))
)
)
(setq sentence-structures (append sentence-structures '( (lambda ()
"<name> <preposition> <place> and <action> <noun>"
(let ((sentence ""))
(setq sentence (format "%s %s %s and %s %s" (find-noun-with-article words) (find-pos words "PREPOSITION" 'false) (find-place-noun words) (find-pos words "VERB" 'false) (find-noun-with-article words)))
sentence
)))
)
)
(setq sentence-structures (append sentence-structures '( (lambda ()
"<name> takes <pronoun> [random(<adjective>, .5)] <noun> and <preposition> <place>"
(let ((sentence (find-noun-with-article words)))
(setq sentence (format "%s takes %s" sentence (find-pos words "PRONOUN" 'false)))
(if (<= 5 (random 10))
(setq sentence (format "%s %s" sentence (find-pos words "ADJECTIVE" 'false)))
)
(setq sentence (format "%s and %s %s" sentence (find-pos words "NOUN" 'true) (find-pos words "PREPOSITION" 'false) (find-place-noun words)))
sentence
)))
)
)
(setq sentence-structures (append sentence-structures '( (lambda ()
"<name> <action> the [random(<adjective>, .5)] <noun>"
(let ((sentence (find-noun-with-article words)))
(setq sentence (format "%s %s the" sentence (find-pos words "VERB" 'false)))
(if (<= 5 (random 10))
(setq sentence (format "%s %s" sentence (find-pos words "ADJECTIVE" 'false)))
)
(setq sentence (format "%s %s" sentence (find-pos words "NOUN" 'true)))
sentence
)))
)
)
(setq sentence-structures (append sentence-structures '( (lambda ()
"<name> <action> <name> and <pronoun> [random(<adjective>, .5)] <noun>"
(let ((sentence (find-noun-with-article words)))
(setq sentence (format "%s %s and %s" sentence (find-pos words "VERB" 'false) (find-noun-with-article words) (find-pos words "PRONOUN" 'false)))
(if (<= 5 (random 10))
(setq sentence (format "%s %s" sentence (find-pos words "ADJECTIVE" 'false)))
)
(setq sentence (format "%s %s" sentence (find-pos words "NOUN" 'true)))
sentence
)))
)
)
(setq sentence-structures (append sentence-structures '( (lambda ()
"The <noun> is the [random(<adjective>,.5)] <noun>; <name> <preposition> <place>"
(let ((sentence (find-noun-with-article words)))
(setq sentence (format "%s is the" sentence))
(if (<= 5 (random 10))
(setq sentence (format "%s %s" sentence (find-pos words "ADJECTIVE" 'false)))
)
(setq sentence (format "%s %s; %s %s %s" sentence (find-noun-with-article words) (find-noun-with-article words) (find-pos words "PREPOSITION" 'false) (find-place-noun words)))
sentence
)))
)
)
(setq sentence-structures (append sentence-structures '( (lambda ()
"You must meet <name> at <place> and retrieve the [random(<adjective>, .5)] <noun>"
(let ((sentence "You must meet"))
(setq sentence (format "%s %s at %s and retrieve the " sentence (find-noun-with-article words) (find-place-noun words)))
(if (<= 5 (random 10))
(setq sentence (format "%s %s" sentence (find-pos words "ADJECTIVE" 'false)))
)
(setq sentence (format "%s %s" sentence (find-noun-with-article words)))
sentence
)))
)
)
(setq sentence-structures (append sentence-structures '( (lambda ()
"Without [random(<adjective>,.3)] <noun>, the <noun> <action> <preposition> <place>!"
(let ((sentence "Without"))
(if (<= 3 (random 10))
(setq sentence (format "%s %s" sentence (find-pos words "ADJECTIVE" 'false)))
)
(setq sentence (format "%s %s, %s %s %s %s!" sentence (find-pos words "NOUN" 'false) (find-noun-with-article words) (find-pos words "VERB" 'false) (find-pos words "PREPOSITION" 'false) (find-place-noun words)))
sentence
)))
)
)
(defalias 'func-to-call (nth (random (length sentence-structures)) sentence-structures))
(setq generated-sentence (funcall 'func-to-call))
(let ( (interjection (find-pos words "INTERJECTION" 'false)) )
(if (<= 10 (random 10))
(if ((string-match-p "!" interjection))
(setq generated-sentence (format "%s %s" interjection (sentence-case generated-sentence)))
(setq generated-sentence (format "%s %s" interjection generated-sentence))
)
(setq generated-sentence (format "%s" (sentence-case generated-sentence)))
)
)
(if (not (string-match-p "!" generated-sentence))
(setq generated-sentence (format "%s." generated-sentence))
)
generated-sentence
)
)
(defun splork-generate ()
(interactive)
(switch-to-buffer-other-window "*splork*")
(setq sentence (splork))
(goto-char (point-max))
(insert (format "%s\n" sentence))
)
(provide 'splork)