Overview
| Comment: | add dotorg |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA3-256: |
a250db5fda1848adaf28408d73ef988a |
| User & Date: | lexi on 2019-06-11 22:01:15 |
| Other Links: | manifest | tags |
Context
|
2019-06-24
| ||
| 09:24 | updates check-in: d425e8a7c7 user: lexi tags: trunk | |
|
2019-06-11
| ||
| 22:01 | add dotorg check-in: a250db5fda user: lexi tags: trunk | |
|
2019-05-02
| ||
| 07:54 | ipdates check-in: 588ff265a6 user: lexi tags: trunk | |
Changes
Modified badbiobot.ml from [3931f272bd] to [af1138a642].
167 167 | _ as c, ' ' -> loop (i+1) (acc^^c) false 168 168 | c1, c2 -> if not tps && Random.int 3 = 0 then 169 169 loop (i+2) ((acc^^c2)^^c1) true 170 170 else 171 171 loop (i+2) ((acc^^c1)^^c2) tps 172 172 in loop 0 "" false 173 173 174 -let () = Random.self_init(); print_string (scramble (eval top)) 174 +(* let () = Random.self_init(); print_string (scramble (eval top)) *) 175 +let () = Random.self_init(); print_string(eval top)
Modified botsoc.scm from [35628b9670] to [40c72117b1].
302 302 (" was " (one-of "developed" "designed" "created" ) 303 303 (@ (" by ") 304 304 (" for ") 305 305 ( (: (" by " (group))) 306 306 (one-of " to address the needs of " 307 307 " in the class interest of ")))) 308 308 (" only " (one-of "centers" "uplifts" "liberates" 309 - "cares about" "addresses the needs of")) 309 + "cares about" "addresses the needs of") " ") 310 310 ((one-of " only" "") (one-of " centers " " cares about ") 311 311 (? "the " (one-of "needs" 312 312 "struggles" 313 313 "voices" 314 314 "experiences" 315 315 "suffering" 316 316 "struggle") " of "))
Added dotorg.scm version [cb986d11dc].
1 +(include "lib/lisp-macro.scm") 2 +(include "lib/bot.scm") 3 +(import (chicken process-context)) 4 + 5 +(rule (maybe x) (x) ("")) 6 +(rule (maybe_ x) (x " ")) 7 +(rule (maybe* x) ((x)) ("")) 8 +(rule (maybe_* x) ((x) " ") ("")) 9 + 10 +(define cat string-append) 11 +(define-macro (* . body) 12 + (let ([sg (car body)] 13 + [pl (cadr body)]) 14 + `(if (eq? *n 'sg) ,sg ,pl))) 15 + 16 +(rule (language) 17 + ("brainfuck") 18 + ("JavaScript") 19 + ("ECMAscript") 20 + ("FORTRAN") 21 + ("COBOL") 22 + ("Delphi") 23 + ("Visual Basic") 24 + ("assembly") 25 + ("QBasic") 26 + ("vimscript") 27 + ("bash") 28 + ("shell") 29 + ("C++") 30 + ("Java") 31 + ("Node") 32 + ("WebAssembly") 33 + ("Scheme") 34 + ("Clojure") 35 + ("ASP.NET") 36 + ("Pascal")) 37 + 38 +(rule (bigotry) 39 + ("ECMAphobia") 40 + (prefix (one-of "phobia" "misia")) 41 + ((language) "-" (one-of "phobia" "misia"))) 42 + 43 +(rule (prefix) 44 + ("neo") 45 + ("neo-") 46 + ("retro") 47 + ("hypno") 48 + ("meta") 49 + ("retro") 50 + ("psycho") 51 + ("post") 52 + ("diablo") 53 + ("crypto") 54 + ("erotic ")) 55 + 56 +(rule (noun) 57 + ("freedom") 58 + ("courage") 59 + ("pride") 60 + ("hate") 61 + ("fascism") 62 + ("whiteness") 63 + ("orgone")) 64 + 65 +(rule (adj) 66 + ("retro") 67 + ("male") 68 + ("white") 69 + ("decentralized") 70 + ("non-profit") 71 + ("for-profit") 72 + ("anti-" (@ ((clade 'sg)) ((noun)))) 73 + ((clade 'sg) (one-of "-phobic" "-misic"))) 74 + 75 +(rule (trans) 76 + ("alienware") 77 + ("process") 78 + ("capitalist") 79 + ("charset") 80 + ("digital") 81 + ("POSIX")) 82 + 83 +(rule (axis) 84 + ("stunning and brave") 85 + ("furry") 86 + ("cyberqueer") 87 + ((one-of "strongly" 88 + "statically" 89 + "dynamically") "-typed") 90 + ("trans" (trans)) 91 + ("read-only") 92 + ("spinlocked")) 93 + 94 +(rule (kin) 95 + ("latin-1") 96 + ("Shift JIS") 97 + ("KOI8-R") 98 + ("POSIX") 99 + ("FAT32") 100 + ("ext2") 101 + ("ext3") 102 + ("ZFS") 103 + ("systemd-") 104 + ("other") 105 + ("GNU") 106 + ("Stallman") 107 + ("Torvalds") 108 + ("cyber") 109 + ("intel") 110 + ("x86-") 111 + ("RISC") 112 + ("PowerPC-") 113 + ("sudoer") 114 + ("null") 115 + ("void") 116 + ("root")) 117 + 118 +(rule (tyranny) 119 + ("FurAffinity") 120 + ("North Korea") 121 + ("the USSR") 122 + ("Canada") 123 + ("Minecraft") 124 + ("Pewdiepie") 125 + ("T-Series") 126 + ("Buzzfeed") 127 + ("VICE") 128 + ("Fortnite")) 129 + 130 +(rule (environment) 131 + ("VR") 132 + ("Minecraft") 133 + ("YouTube") 134 + ("4chan")) 135 + 136 +(rule (job) 137 + ("journalist") 138 + ("meme technician") 139 + ("plumber") 140 + ("electrician") 141 + ("masseuse") 142 + ("beautician") 143 + ("stylist") 144 + ("janitor") 145 + ("heating engineer") 146 + ("camgirl") 147 + ("carpenter")) 148 + 149 +(rule (clade *n) 150 + ((* "depth-groveler" "depth-grovelers")) 151 + ((* "latin✘" "latin✘s")) 152 + ((* "latin@" "latin@s")) 153 + ((* "transradical" "transradicals")) 154 + ((* "biracial" "biracials")) 155 + ((* "bisexual" "bisexuals")) 156 + ((* "bimetallic" "bimetallics")) 157 + ((* "orphan" "orphans")) 158 + ((* "gamer" "gamers")) 159 + ((* "male feminist" "male feminists")) 160 + ((maybe (cat (tyranny) " ")) 161 + (maybe (prefix)) (* "refugee" "refugees")) 162 + ((environment) " " (job) "s") 163 + ((* "HTML #000" "HTML #000s")) 164 + ((* "NPC" "NPCs")) 165 + ((kin) "kin")) 166 + 167 +(rule (value) 168 + ((clade 'sg) " pride") 169 + ((clade 'sg) " " (noun))) 170 + 171 +(rule (faction) 172 + ("Jordan Peterson") 173 + ("radical centrist") 174 + ("epic gamer") 175 + ("leftbook") 176 + ("memelord") 177 + ) 178 + 179 +(rule (orgtype) 180 + ("commune") 181 + ("think tank") 182 + ("superPAC") 183 + ("co-op") 184 + ("collective") 185 + ("for-profit") 186 + ((one-of "death squad" "militia" "brigade")) 187 + ((one-of "defense" "private military") " " 188 + "contractor") 189 + ("non-profit")) 190 + 191 +(rule (org) 192 + ((maybe_* adj) (maybe_* faction) 193 + (maybe (prefix)) (orgtype))) 194 + 195 +(rule (woke-product) 196 + ((org) " for " (clade 'pl)) 197 + 198 + ((clade 'sg) " " (language) " " (maybe (prefix)) (orgtype))) 199 + 200 +(display (string-append (woke-product) "\n"))