caranmegil/splork-mode
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Update to fix more errors

Browse Source
This commit is contained in:
William Moore 2024-08-07 16:38:27 -05:00
parent 13e7990f53
commit cc8397173c
1 changed files with 13 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
splork.el
View File

@ -17,9 +17,10 @@
(defun sentence-case (sentence) (defun sentence-case (sentence)
"Changes the sentence to a capital case letter at the beginning." "Changes the sentence to a capital case letter at the beginning."
(format "%s%s" (upcase (substring sentence 0 1)) (substring sentence 1)) (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) (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)))
@ -454,6 +455,7 @@
("disk drive" "NOUN" "") ("disk drive" "NOUN" "")
("dinosaur" "NOUN" "") ("dinosaur" "NOUN" "")
("dictator" "NOUN" "") ("dictator" "NOUN" "")
("dice" "NOUN" "")
("dictaphone" "NOUN" "") ("dictaphone" "NOUN" "")
("diamond" "NOUN" "") ("diamond" "NOUN" "")
("devil" "NOUN" "") ("devil" "NOUN" "")
@ -1098,6 +1100,7 @@
("will" "VERB" "ABILITY") ("will" "VERB" "ABILITY")
("cannot" "VERB" "ABILITY") ("cannot" "VERB" "ABILITY")
("can" "VERB" "ABILITY") ("can" "VERB" "ABILITY")
("Kansas City" "NOUN" "PLACE")
)) ))
@ -1108,7 +1111,7 @@
"The [random(<adjective>, .5)] <noun> [random(' in ' . <place>, .2)] is <adjective>" "The [random(<adjective>, .5)] <noun> [random(' in ' . <place>, .2)] is <adjective>"
(let ((sentence "")) (let ((sentence ""))
(if (<= 5 (random 10)) (if (<= 5 (random 10))
(setq sentence (format "%s %s" sentence (find-pos words "ADJECTIVE" 'false))) (setq sentence (format "%s" (find-pos words "ADJECTIVE" 'false)))
) )
(setq sentence (format "%s %s" sentence (find-pos words "NOUN" 'true))) (setq sentence (format "%s %s" sentence (find-pos words "NOUN" 'true)))
(if (<= 2 (random 10)) (if (<= 2 (random 10))
@ -1124,9 +1127,9 @@
"The [random(<adjective>, .5)] <noun> [random(' in ' . <place>, .2)] is not <adjective>" "The [random(<adjective>, .5)] <noun> [random(' in ' . <place>, .2)] is not <adjective>"
(let ((sentence "")) (let ((sentence ""))
(if (<= 5 (random 10)) (if (<= 5 (random 10))
(setq sentence (format "%s %s" sentence (find-pos words "ADJECTIVE" 'false))) (setq sentence (format "%s" (find-pos words "ADJECTIVE" 'false)))
) )
(setq sentence (format "%s %s" sentence (find-pos words "NOUN" 'true))) (setq sentence (format "%s %s" sentence (find-noun-with-article words)))
(if (<= 2 (random 10)) (if (<= 2 (random 10))
(setq sentence (format "%s in %s" sentence (find-noun-with-article words))) (setq sentence (format "%s in %s" sentence (find-noun-with-article words)))
) )
@ -1215,7 +1218,7 @@
(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)))
) )
(setq sentence (format "%s and %s %s" sentence (find-pos words "NOUN" 'true) (find-pos "PREPOSITION" 'false) (find-place-noun words))) (setq sentence (format "%s and %s %s" sentence (find-pos words "NOUN" 'true) (find-pos words "PREPOSITION" 'false) (find-place-noun words)))
sentence sentence
))) )))
) )
@ -1224,7 +1227,7 @@
(setq sentence-structures (append sentence-structures '( (lambda () (setq sentence-structures (append sentence-structures '( (lambda ()
"<name> <action> the [random(<adjective>, .5)] <noun>" "<name> <action> the [random(<adjective>, .5)] <noun>"
(let ((sentence (find-noun-with-article words))) (let ((sentence (find-noun-with-article words)))
(setq sentence (format "%s %s the" sentence (find-pos words "ACTION" 'false))) (setq sentence (format "%s %s the" sentence (find-pos words "VERB" '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)))
) )
@ -1281,12 +1284,12 @@
(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 %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))) (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 sentence
))) )))
) )
) )
(defalias 'func-to-call (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)) (setq generated-sentence (funcall 'func-to-call))
(let ( (interjection (find-pos words "INTERJECTION" 'false)) ) (let ( (interjection (find-pos words "INTERJECTION" 'false)) )