Updates to correct major issues

This commit is contained in:
William Moore 2024-08-07 13:11:25 -05:00
parent cca46afd7d
commit 249b0b5119

205
splork.el
View File

@ -15,6 +15,10 @@
;; along with this program. If not, see <https://www.gnu.org/licenses/>. ;; along with this program. If not, see <https://www.gnu.org/licenses/>.
(defun sentence-case (sentence)
(format "%s%s" (upcase (substring sentence 0 1)) (substring sentence 1))
)
(defun find-pos (words pos excludeProper) (defun find-pos (words pos excludeProper)
"Find the Part of Speech from the array" "Find the Part of Speech from the array"
(setq new-words (delq nil (mapcar (lambda (x) (and (equal pos (nth 1 x)) x)) words))) (setq new-words (delq nil (mapcar (lambda (x) (and (equal pos (nth 1 x)) x)) words)))
@ -36,7 +40,10 @@
(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 "NOUN" (nth 1 x)) x)) words)))
(setq word (nth (random (length new-words)) new-words)) (setq word (nth (random (length new-words)) new-words))
(if (equal "PROPER" (nth 2 word)) (if (string-match-p "PROPER" (nth 2 word))
(nth 0 word)
)
(if (string-match-p "PLACE" (nth 2 word))
(nth 0 word) (nth 0 word)
(format "the %s" (nth 0 word)) (format "the %s" (nth 0 word))
) )
@ -54,7 +61,7 @@
("chilli" "NOUN" "") ("chilli" "NOUN" "")
("snoo-snoo" "VERB" "ACTION") ("snoo-snoo" "VERB" "ACTION")
("Big Lie" "NOUN" "") ("Big Lie" "NOUN" "")
("Nerderium" "NOUN" "PLACE|PROPER") ("Nerderium" "NOUN" "PLACE")
("Dungeons & Dragons" "NOUN" "") ("Dungeons & Dragons" "NOUN" "")
("your" "PRONOUN" "") ("your" "PRONOUN" "")
("their" "PRONOUN" "") ("their" "PRONOUN" "")
@ -178,47 +185,47 @@
("deals with" "PREPOSITION" "") ("deals with" "PREPOSITION" "")
("avoids servants of" "PREPOSITION" "") ("avoids servants of" "PREPOSITION" "")
("assumes responsibility for" "PREPOSITION" "") ("assumes responsibility for" "PREPOSITION" "")
("the End Zone" "NOUN" "PLACE|PROPER") ("the End Zone" "NOUN" "PLACE")
("Springfield" "NOUN" "PLACE|PROPER") ("Springfield" "NOUN" "PLACE")
("the United States of America" "NOUN" "PLACE|PROPER") ("the United States of America" "NOUN" "PLACE")
("Germany" "NOUN" "PLACE|PROPER") ("Germany" "NOUN" "PLACE")
("Eldaraenth" "NOUN" "PLACE|PROPER") ("Eldaraenth" "NOUN" "PLACE")
("Dorkish Treehouse" "NOUN" "PLACE|PROPER") ("Dorkish Treehouse" "NOUN" "PLACE")
("Taberna Faecvm" "NOUN" "PLACE|PROPER") ("Taberna Faecvm" "NOUN" "PLACE")
("Alabama" "NOUN" "PLACE|PROPER") ("Alabama" "NOUN" "PLACE")
("Washington, D.C." "NOUN" "PLACE|PROPER") ("Washington, D.C." "NOUN" "PLACE")
("the World Trade Center" "NOUN" "PLACE|PROPER") ("the World Trade Center" "NOUN" "PLACE")
("the Pentagon" "NOUN" "PLACE|PROPER") ("the Pentagon" "NOUN" "PLACE")
("New York" "NOUN" "PLACE|PROPER") ("New York" "NOUN" "PLACE")
("Middle Earth" "NOUN" "PLACE|PROPER") ("Middle Earth" "NOUN" "PLACE")
("the Shire" "NOUN" "PLACE|PROPER") ("the Shire" "NOUN" "PLACE")
("Smallville" "NOUN" "PLACE|PROPER") ("Smallville" "NOUN" "PLACE")
("beautiful downtown Burbank" "NOUN" "PLACE|PROPER") ("beautiful downtown Burbank" "NOUN" "PLACE")
("the Death Star" "NOUN" "PLACE|PROPER") ("the Death Star" "NOUN" "PLACE")
("Yrth" "NOUN" "PLACE|PROPER") ("Yrth" "NOUN" "PLACE")
("your place" "NOUN" "PLACE|PROPER") ("your place" "NOUN" "PLACE")
("you-know-where" "NOUN" "PLACE") ("you-know-where" "NOUN" "PLACE")
("Wall Street" "NOUN" "PLACE|PROPER") ("Wall Street" "NOUN" "PLACE")
("Uranus" "NOUN" "PLACE|PROPER") ("Uranus" "NOUN" "PLACE")
("Topeka" "NOUN" "PLACE|PROPER") ("Topeka" "NOUN" "PLACE")
("Toledo" "NOUN" "PLACE|PROPER") ("Toledo" "NOUN" "PLACE")
("the White House" "NOUN" "PLACE|PROPER") ("the White House" "NOUN" "PLACE")
("the Watergate Hotel" "NOUN" "PLACE|PROPER") ("the Watergate Hotel" "NOUN" "PLACE")
("the Vatican" "NOUN" "PLACE|PROPER") ("the Vatican" "NOUN" "PLACE")
("the U.S. Attorney's Office" "NOUN" "PLACE|PROPER") ("the U.S. Attorney's Office" "NOUN" "PLACE")
("toxic waste dump" "NOUN" "PLACE") ("toxic waste dump" "NOUN" "PLACE")
("tavern" "NOUN" "PLACE") ("tavern" "NOUN" "PLACE")
("the Super Bowl" "NOUN" "PLACE|PROPER") ("the Super Bowl" "NOUN" "PLACE")
("the South Pole" "NOUN" "PLACE|PROPER") ("the South Pole" "NOUN" "PLACE")
("service station" "NOUN" "PLACE") ("service station" "NOUN" "PLACE")
("same place as before" "NOUN" "PLACE") ("same place as before" "NOUN" "PLACE")
("river" "NOUN" "PLACE") ("river" "NOUN" "PLACE")
("the Phoenix Project" "NOUN" "PLACE|PROPER") ("the Phoenix Project" "NOUN" "PLACE")
("outback" "NOUN" "PLACE") ("outback" "NOUN" "PLACE")
("ocean" "NOUN" "PLACE") ("ocean" "NOUN" "PLACE")
("the North Pole" "NOUN" "PLACE|PROPER") ("the North Pole" "NOUN" "PLACE")
("the Last National Bank" "NOUN" "PLACE|PROPER") ("the Last National Bank" "NOUN" "PLACE")
("Hotel California" "NOUN" "PLACE|PROPER") ("Hotel California" "NOUN" "PLACE")
("home of a trusted friend" "NOUN" "PLACE") ("home of a trusted friend" "NOUN" "PLACE")
("hackers' convention" "NOUN" "PLACE") ("hackers' convention" "NOUN" "PLACE")
("the Empire State Building" "NOUN" "PLACE") ("the Empire State Building" "NOUN" "PLACE")
@ -231,59 +238,59 @@
("brewery" "NOUN" "PLACE") ("brewery" "NOUN" "PLACE")
("best place possible" "NOUN" "PLACE") ("best place possible" "NOUN" "PLACE")
("bathroom" "NOUN" "PLACE") ("bathroom" "NOUN" "PLACE")
("Bastille" "NOUN" "PLACE|PROPER") ("Bastille" "NOUN" "PLACE")
("back forty" "NOUN" "PLACE") ("back forty" "NOUN" "PLACE")
("Tel Aviv" "NOUN" "PLACE|PROPER") ("Tel Aviv" "NOUN" "PLACE")
("Switzerland" "NOUN" "PLACE|PROPER") ("Switzerland" "NOUN" "PLACE")
("SJ Games" "NOUN" "PLACE|PROPER") ("SJ Games" "NOUN" "PLACE")
("Sixth Street" "NOUN" "PLACE|PROPER") ("Sixth Street" "NOUN" "PLACE")
("Siberia" "NOUN" "PLACE|PROPER") ("Siberia" "NOUN" "PLACE")
("San Francisco" "NOUN" "PLACE|PROPER") ("San Francisco" "NOUN" "PLACE")
("Poland" "NOUN" "PLACE|PROPER") ("Poland" "NOUN" "PLACE")
("Peking" "NOUN" "PLACE|PROPER") ("Peking" "NOUN" "PLACE")
("my back yard" "NOUN" "PLACE") ("my back yard" "NOUN" "PLACE")
("Munich" "NOUN" "PLACE|PROPER") ("Munich" "NOUN" "PLACE")
("Moscow" "NOUN" "PLACE|PROPER") ("Moscow" "NOUN" "PLACE")
("Mordor" "NOUN" "PLACE|PROPER") ("Mordor" "NOUN" "PLACE")
("Mission Control" "NOUN" "PLACE|PROPER") ("Mission Control" "NOUN" "PLACE")
("Middle-earth" "NOUN" "PLACE|PROPER") ("Middle-earth" "NOUN" "PLACE")
("Mars" "NOUN" "PLACE|PROPER") ("Mars" "NOUN" "PLACE")
("Main Street" "NOUN" "PLACE") ("Main Street" "NOUN" "PLACE")
("Los Angeles" "NOUN" "PLACE|PROPER") ("Los Angeles" "NOUN" "PLACE")
("London" "NOUN" "PLACE|PROPER") ("London" "NOUN" "PLACE")
("Lithuania" "NOUN" "PLACE|PROPER") ("Lithuania" "NOUN" "PLACE")
("left field" "NOUN" "PLACE") ("left field" "NOUN" "PLACE")
("Las Vegas" "NOUN" "PLACE|PROPER") ("Las Vegas" "NOUN" "PLACE")
("Lake Geneva" "NOUN" "PLACE|PROPER") ("Lake Geneva" "NOUN" "PLACE")
("Katmandu" "NOUN" "PLACE|PROPER") ("Katmandu" "NOUN" "PLACE")
("Kabul" "NOUN" "PLACE|PROPER") ("Kabul" "NOUN" "PLACE")
("Joe's Bar and Grill" "NOUN" "PLACE|PROPER") ("Joe's Bar and Grill" "NOUN" "PLACE")
("Israel" "NOUN" "PLACE|PROPER") ("Israel" "NOUN" "PLACE")
("Iraq" "NOUN" "PLACE|PROPER") ("Iraq" "NOUN" "PLACE")
("Iran" "NOUN" "PLACE|PROPER") ("Iran" "NOUN" "PLACE")
("Hong Kong" "NOUN" "PLACE|PROPER") ("Hong Kong" "NOUN" "PLACE")
("Hollywood" "NOUN" "PLACE|PROPER") ("Hollywood" "NOUN" "PLACE")
("Hell" "NOUN" "PLACE|PROPER") ("Hell" "NOUN" "PLACE")
("headquarters" "NOUN" "PLACE") ("headquarters" "NOUN" "PLACE")
("Gotham City" "NOUN" "PLACE|PROPER") ("Gotham City" "NOUN" "PLACE")
("Gasoline Alley" "NOUN" "PLACE|PROPER") ("Gasoline Alley" "NOUN" "PLACE")
("Endsville" "NOUN" "PLACE|PROPER") ("Endsville" "NOUN" "PLACE")
("Dime Box" "NOUN" "PLACE|PROPER") ("Dime Box" "NOUN" "PLACE")
("Death Valley" "NOUN" "PLACE|PROPER") ("Death Valley" "NOUN" "PLACE")
("Dallas" "NOUN" "PLACE|PROPER") ("Dallas" "NOUN" "PLACE")
("Cyberworld" "NOUN" "PLACE|PROPER") ("Cyberworld" "NOUN" "PLACE")
("Chicago" "NOUN" "PLACE|PROPER") ("Chicago" "NOUN" "PLACE")
("Cheyenne Mountain" "NOUN" "PLACE|PROPER") ("Cheyenne Mountain" "NOUN" "PLACE")
("Callahan's Place" "NOUN" "PLACE|PROPER") ("Callahan's Place" "NOUN" "PLACE")
("Buckingham Palace" "NOUN" "PLACE|PROPER") ("Buckingham Palace" "NOUN" "PLACE")
("Berlin" "NOUN" "PLACE|PROPER") ("Berlin" "NOUN" "PLACE")
("Berkeley" "NOUN" "PLACE|PROPER") ("Berkeley" "NOUN" "PLACE")
("Baghdad" "NOUN" "PLACE|PROPER") ("Baghdad" "NOUN" "PLACE")
("Austin" "NOUN" "PLACE|PROPER") ("Austin" "NOUN" "PLACE")
("Atlantis" "NOUN" "PLACE|PROPER") ("Atlantis" "NOUN" "PLACE")
("Alpha Complex" "NOUN" "PLACE|PROPER") ("Alpha Complex" "NOUN" "PLACE")
("Alpha Centauri" "NOUN" "PLACE|PROPER") ("Alpha Centauri" "NOUN" "PLACE")
("Afghanistan" "NOUN" "PLACE|PROPER") ("Afghanistan" "NOUN" "PLACE")
("(not available at your clearance)" "NOUN" "PLACE") ("(not available at your clearance)" "NOUN" "PLACE")
("Blue Screen of Death" "NOUN" "") ("Blue Screen of Death" "NOUN" "")
("zero-day exploit" "NOUN" "") ("zero-day exploit" "NOUN" "")
@ -1194,9 +1201,9 @@
) )
(setq sentence-structures (append sentence-structures '( (lambda () (setq sentence-structures (append sentence-structures '( (lambda ()
"<name> <preposition> <place> and <action> the <noun>" "<name> <preposition> <place> and <action> <noun>"
(let ((sentence (find-noun-with-article words))) (let ((sentence ""))
(setq sentence (format "%s %s %s and %s the %s" sentence (find-pos words "PREPOSITION" 'false) (find-place-noun words) (find-pos words "VERB" 'false) (find-pos words "NOUN" 'true))) (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 sentence
))) )))
) )
@ -1232,7 +1239,7 @@
(setq sentence-structures (append sentence-structures '( (lambda () (setq sentence-structures (append sentence-structures '( (lambda ()
"<name> <action> <name> and <pronoun> [random(<adjective>, .5)] <noun>" "<name> <action> <name> and <pronoun> [random(<adjective>, .5)] <noun>"
(let ((sentence (find-noun-with-article words))) (let ((sentence (find-noun-with-article words)))
(setq sentence (format "%s %s and %s" sentence (find-pos words "ACTION" 'false) (find-noun-with-article words) (find-pos words "PRONOUN" 'false))) (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)) (if (<= 5 (random 10))
(setq sentence (format "%s %s" sentence (find-pos words "ADJECTIVE" 'false))) (setq sentence (format "%s %s" sentence (find-pos words "ADJECTIVE" 'false)))
) )
@ -1259,7 +1266,7 @@
(setq sentence-structures (append sentence-structures '( (lambda () (setq sentence-structures (append sentence-structures '( (lambda ()
"You must meet <name> at <place> and retrieve the [random(<adjective>, .5)] <noun>" "You must meet <name> at <place> and retrieve the [random(<adjective>, .5)] <noun>"
(let ((sentence "You must meet")) (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))) (setq sentence (format "%s %s at %s and retrieve the " sentence (find-noun-with-article words) (find-place-noun words)))
(if (<= 5 (random 10)) (if (<= 5 (random 10))
(setq sentence (format "%s %s" sentence (find-pos words "ADJECTIVE" 'false))) (setq sentence (format "%s %s" sentence (find-pos words "ADJECTIVE" 'false)))
) )
@ -1271,27 +1278,33 @@
(setq sentence-structures (append sentence-structures '( (lambda () (setq sentence-structures (append sentence-structures '( (lambda ()
"Without the [random(<adjective>,.3)] <noun>, the <noun> <preposition> <place>!" "Without [random(<adjective>,.3)] <noun>, the <noun> <action> <preposition> <place>!"
(let ((sentence "Without the")) (let ((sentence "Without"))
(if (<= 3 (random 10)) (if (<= 3 (random 10))
(setq sentence (format "%s %s" sentence (find-pos words "ADJECTIVE" 'false))) (setq sentence (format "%s %s" sentence (find-pos words "ADJECTIVE" 'false)))
) )
(setq sentence (format "%s, %s %s %s!" sentence (find-noun-with-article words) (find-noun-with-article words) (find-pos words "PREPOSITION" 'false) (find-place-noun words))) (setq sentence (format "%s, %s %s %s %s %s!" sentence (find-noun-with-article words) (find-noun-with-article words) (find-pos words "VERB" 'false) (find-pos words "PREPOSITION" 'false) (find-place-noun words)))
sentence sentence
))) )))
) )
) )
(setq generated-sentence (funcall (nth (random (length sentence-structures)) sentence-structures))) (defalias 'func-to-call (nth (random (length sentence-structures)) sentence-structures))
(setq generated-sentence (funcall 'func-to-call))
(if (<= 1 (random 10)) (let ( (interjection (find-pos words "INTERJECTION" 'false)) )
(setq generated-sentence (format "%s %s" (find-pos words "INTERJECTION" 'false) generated-sentence)) (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)) (if (not (string-match-p "!" generated-sentence))
(setq generated-sentence (format "%s." generated-sentence)) (setq generated-sentence (format "%s." generated-sentence))
) )
(goto-char (point-max))
(insert (format "%s\n" generated-sentence)) (insert (format "%s\n" generated-sentence))
) )
) )